Belajar vb 6. Perintah For Each i In Array

untuk membuat program seperi gambar disamping berikut ini adalah langkah-langkahnya:

1. klik dua kali "FRAME" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "200 / 5 BERAPA..?" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanya menjadi "200 / 5 BERAPA..?"

2. Klik dua kali "TEXT" atur posisianya seperti terdapat pada gambar atau seterah sobat dan hapuslah tulisan "TEXT1" dan rubah namanya menjadi "TULISKAN JAWABAN ANDA DISINI" setelah itu tuliskan program dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "TEXT1" yang telah rubah namanya menjadi "TULISKAN JAWABAN ANDA DISINI" tadi:

Private Sub Text1_Change()
If Val(Text1) = 40 Then
Text2 = "BENAR"
Else
Text2 = "SALAH"
End If
End Sub


3. Klik dua kali "TEXT" atur posisianya seperti terdapat pada gambar atau seterah sobat dan hapuslah tulisan "TEXT2".

4. klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "HITUNG", setelah itu tuliskan program sederhana seperti dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "COMMANDBUTTON" yang telah dirubah namanya tadi:

Dim i As Variant
For Each i In Array(5)
Print " 200 / 5="
Next
MsgBox (Text2) & ", " & (Text1), vbOKOnly, "JAWABAN ANDA"
End Sub

5. Lalu klik lagi dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar dan rubah namanya menjadi "HAPUS", setelah itu tuliskan program sederhana seperti dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "COMMANDBUTTON" yang telah dirubah namanya tadi:

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

Apabila program ini berhasil maka akan terlihat seperti gambar disamping atas, selamat mencooba semoga bermanfaat.

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya