Belajar vb 6. Perintah FOR NEXT

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 "1 + 1 berapa" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanya menjadi "1 + 1 berapa".

2. klik dua kali "TEXT" dan aturlah posisinya tepat dibawah "FRAME" seperti gambar disamping dan hapus tulisan "TEXT1" untuk menghapus "text1" pada kotak properties yang terdapat disebelah kanan carilah menu "text" dan hapus tulisan "TEXT1" setelah itu tuliskan program dibawah ini

If Val(Text1) = 2 Then
Text2 = "BENAR"
Else
Text2 = "SALAH"
End If
For i = 0 To 0
nama(i) = InputBox("Masukkan jawaban anda")
Next i
End Sub

3. klik dua kali "FRAME" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "TULISKAN JAWABAN DISINI".

4. 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

5. Klik dua kali kotak form jangan sampai mengenai "FRAME", "COMMANDBUTTON", "TEXT" dsb dan rubah lah "LOAD" menjadi "DECLARATIONS" dan tuliskan program sederhana seperti dibawah ini

Dim nama(0 To 0) As String


6. klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti gambar disamping dan rubah namanya menjadi "CEK", setelah itu tuliskan program sederhana seperi dibawah ini:


MsgBox (Text1) & ", " & (Text2), vbOKOnly, "JAWABAN ANDA"

7. klik dua kali "TEXT" dan aturlah posisinya tepat dibawah "HAPUS" dan "CEK" seperti gambar disamping dan hapus tulisan "TEXT1"

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