Program membuat tampilan kelompok bilangan ganjil atau genap dalam suatu angka batasan yang diinput

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

Ayam Bumbu Rujak

Bahan dan bumbu:

1 ekor ayam potong-potong

60 gram bawang merah cincang

3 siung bawang putih cincang

2 ½ sendok teh cabai merah kering bubuk

5 buah kemiri

1/2 sendok teh kunyit bubuk

1 sendok teh garam

3 sendok makan gula Jawa/Aren yang sudah dihaluskan

500 cc santan kental

1 sendok makan minyak sayur

1 cm jahe memarkan

1 batang sereh, memarkan

Cara membuat:

1. Haluskan bawang merah, bawang putih, cabai merah kering bubuk, kemiri, kunyit bubuk, garam dan gula lalu sisihkan.

2. panaskan minyak sayur, lalu masukkan bumbu yang telah dihaluskan, tumis hingga harum. Masukkan ayam, jahe, dan sereh, aduk rata, lalu masukkan santan, aduk rata, didihkan, kecilkan api, masak samil diaduk-aduk hingga matang dan kuah mengental. Angkat, dan sajikan.