Private Sub cmdHapuslist_Click()
lblHasil.Caption = "" 'Untuk membersihkan label tempat menampilkan hasil
End Sub
Private Sub cmdProses_Click()
’Deklarasikan angka sebagai variabel dari txtangka.text , i dan j
’sebagai variabel perulangan dalam bentuk
’angka numerik yang mempunyai lebih dari 4 digit angka
Dim angka, i, j As Double
lblHasil.Caption = ""
'Untuk mengosongkan Label hasil waktu proses selanjutnya di klik/dijalankan
'angka dinyatakan sebagai fungsi untuk
'menghasilkan angka pada string yang dilewatkan sebagai argumen
angka = Val(txtangka.Text)
If txtangka.Text <= 0 Then 'Untuk menampilkan error massage jika txtangka.text diisi dengan nol
MsgBox "Nilai yang di input harus lebih dari nol", vbOKOnly + vbCritical, "Kesalahan input angka!!"
ElseIf cmbJenisBilangan.Text = "Bil. Ganjil" Then
'memilih proses apa yang diinginkan, yaitu tampilkan bilangan ganjil atau genap
For i = 1 To angka - 1 Step 2 'looping/perulangan pada tampilan anggota bilangan ganjil
lblHasil.Caption = lblHasil.Caption + " " + Str(i)
Next
ElseIf cmbJenisBilangan.Text = "Bil. Genap" Then
For j = 2 To angka - 1 Step 2 'looping/perulangan pada tampilan anggota bilangan genap
lblHasil.Caption = lblHasil.Caption + " " + Str(j)
Next
Else 'menampilkan message error apabila pilihan jenis bilangan tidak dipilih atau diisi
MsgBox "Jenis bilangan harus dipilih atau diisi", vbOKOnly + _
vbCritical, "Kesalahan jenis bilangan"
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
'deklarasikan i sebagai data numerik dan x sebagai string/data alphanumerik
Dim i As Integer
Dim x As String
jenis = Array("Bil. Ganjil", "Bil. Genap")
'Memasukkan isi text untuk menjadi pilihan pada combo box
For i = 0 To 1 'looping/perulangan untuk menentukan data pada array
x = jenis(i)
cmbJenisBilangan.AddItem (x)
Next
End Sub
