Perkalian acak Visual Basic (code)
Koding pascal sudah, clipper juga sudah, sekarang giliran visual basic. Ini ada contoh program yang dibuat menggunakan visual basic, yaitu perkalian yang angka-angkanya bisa muncul sendiri secara acak (random). Lumayan buat koleksi atau sekedar coba-coba.
Option Explicit
Dim kali As Integer
Dim angkaprob As Integer, angkabetul As Integer
Private Sub texit_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Call tnext_Click
End Sub
Private Sub Form_Load()
Randomize Timer
angkaprob = 0
angkabetul = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim jawab As Integer
If (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
Exit Sub
ElseIf KeyAscii = vbKeyReturn Then
jawab = Val(Text1.Text)
If jawab = kali Then
angkabetul = angkabetul + 1
Label4.Caption = "Jawaban Benar"
Else
Label4.Caption = "Yang benar= " + Format(kali, "#0")
End If
Label3.Caption = Format(100 * angkabetul / angkaprob, "##0")
tnext.Enabled = True
tnext.SetFocus
Else
KeyAscii = 0
End If
End Sub
Private Sub tnext_Click()
Dim angka1 As Integer
Dim angka2 As Integer
Text1.Text = ""
Label4.Caption = ""
angkaprob = angkaprob + 1
angka1 = Int(Rnd * 10) + 1
angka2 = Int(Rnd * 10) + 1
Label1.Caption = Format(angka1, "#0")
Label2.Caption = Format(angka2, "#0")
kali = angka1 * angka2
tnext.Enabled = False
Text1.SetFocus
End Sub
Jangan cuma dibaca, praktekin sekarang juga.
:D