Belajar vb 6. Perintah Then Exit For

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 "TULIS ANGKA 1 S/D 5" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanya menjadi "TULIS ANGKA 1 S/D 5"

2. Klik dua kali "TEXT" atur posisianya seperti terdapat pada gambar atau seterah sobat dan hapuslah tulisan "TEXT1" dan tuliskan program dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "TEXT1" yang telah dihapus tadi:

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

3. Klik dua kali lagi "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 "CEK", setelah itu tuliskan program sederhana seperti dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "COMMANDBUTTON" yang telah diruabah namanya tadi:

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 20
Print i
If i = 5 Then Exit For
Next
MsgBox (Text2), VbOKonly, "JAWABAN ANDA"
End Sub


5. klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "HAPUS", setelah itu tuliskan program sederhana seperti dibawah ini untuk menuliskannya yaitu dengan mengklik dua kali "COMMANDBUTTON" yang telah diruabah 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