1. klik dua kali "LABEL" dan aturlah posisinya seperti gambar disamping dan rubah namanya "LABEL1"menjadi "PERINTAH EXIT DO" untuk merubah namanya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" lalu rubah "LABEL1" menjadi "PERINTAH EXIT DO".
2. Setelah itu klik dua kali frame atur posisinya tepat dibawah "LABEL" dan rubah namanya menjadi "HITUNGLAH ANGKA 1 S/D 10" caranya sama seperti nomer 1 untuk merubah namanya.
3. Klik dua kali lagi "TEXT" atur posisinya tepat dibawah "FRAME" yang telah dirubah namanya tadi, setelah itu hapus tulisan "TEXT1" dan ganti dengan "TULISKAN JAWABAN ANDA DISINI" dan tuliskan program sederhana dibawah ini, untuk menuliskan programnya klik dua kali "TEXT" :
Private Sub Text1_Change()
If Val(Text1) = 12345 Then
Text2 = "BENAR"
Else
Text2 = "SALAH"
End If
End Sub
4. Dan klik dua kali lagi text dan hapus tulisan "TEXT2" atur posisinya tepat dibawah "TEXT1".
5. Klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti seperti terdapat digambar 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
6. Klik dua kali "COMMANDBUTTON" dan aturlah posisinya seperti terdapat digambar dan rubah namanya menjadi "HITUNG", 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()
Do Until i = 10
i = i + 1
Print i
If i = 5 Then Exit Do
Loop
MsgBox (Text2) & ", " & (Text1), vbOKOnly, "JAWABAN ANDA"
End Sub
Apabila program ini berhasil maka akan terlihat seperti gambar disamping atas dan apabila ada kesalahan dalam penulisan atau sobat tidak begitu jelas dengan tulisan diartikel ini, mohon komentar dan koreksinya.selamat mencooba semoga bermanfaat. Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya
0 komentar:
Posting Komentar