Latihan penggunaan ComboBox dan For

Code program

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Items.Add(TextBox1.Text)
End If
End Sub

Penjelasan :
Combo Box akan menyimpan data yang telah diisikan melalui TextBox1 dengan perintah enter
If e.KeyChar = Chr(13) Then >>> Ketika menisikan data di TextBox1 kemudian di Enter maka
ComboBox1.Items.Add(TextBox1.Text) >>> ComboBox1 akan mengambil/menyimpan data TextBox1
Maka akan ditampilkan sebagai berikut:








Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 4 To Val(TextBox2.Text)
If i Mod 2 = 0 Then
ListBox1.Items.Add(i)
Else
ListBox1.Items.Add(i)
End If
Next
End Sub

Penjelasan :
Dim i As Integer >>> Membuat variabel i dengan tipe data integer
ListBox1.Items.Clear() >>> Menghapus data yang ada di ListBox1
For i = 4 To Val(TextBox2.Text) >>> Untuk i bernilai 4 hingga batas bilangan yang dimasukkan di TextBox2 misal 20
If i Mod 2 = 0 Then >>> jika nilai i dibagi 2 memiliki sisa 0 maka
ListBox1.Items.Add(i) >>> cetak/tampilkan di ListBox1
Else >>> jika tidak
ListBox1.Items.Add(i) >>> cetak/tampilkan di ListBox1
End If
Next >>> program akan melakukan pengulangan hingga nilai c = batas bilangan di TextBox2 yaitu 20
End Sub

Maka akan ditampilkan sebagai berikut:













Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a, b, c As Integer
a = 4
b = 7
For c = 4 To Val(TextBox2.Text)
If c Mod a = 0 Then
ListBox1.Items.Add(c)
a = c
Else
If c Mod b = 0 Then
ListBox1.Items.Add(c)
b = c
End If
End If
Next
End Sub
End Class

Penjelasan :
Dim a, b, c As Integer >>> Membuat variabel a, b, c dengan tipe data integer
a = 4 >>> nilai awal a adalah 4
b = 7 >>> nilai awal b adalah 7
For c = 4 To Val(TextBox2.Text) >>>untuk c bernilai 4 hingga batas bilangan di TextBox2 misal 20
If c Mod a = 0 Then >>> jika c dibagi a bernilai 0 kemudian
ListBox1.Items.Add(c) >>> cetak/tampilkan nilai c tersebut
a = c >>> nilai a selanjutnya adalah sama dengan c
Else >>> jika tidak lakukan
If c Mod b = 0 Then >>> jika c dibagi b bernilai 0 kemudian
ListBox1.Items.Add(c) >>> cetak/tampilkan nilai c tersebut
b = c >>> nilai b selanjutnya adalah sama dengan c
End If
End If
Next >>> program akan melakukan pengulangan hingga nilai c = batas bilangan di TextBox2 yaitu 20
End Sub

Maka akan ditampilkan sebagai berikut:

Ukuran kartu nama

Berikut adalah beberapa ukuran kartu nama yang sering dipakai (gbr hanya ilustrasi, tidak mencerminkan ukuran sebenarnya).

Kami mencetak semua ukuran, termasuk yang tidak ada di daftar ini ( max 88 x 53 mm)

Untuk Indonesia, ukuran paling umum adalah 88 x 53 mm.