
Aplikasi Pengacakan
Berikut adalah coding dasarnya....
'Pengacakan dimulai secara Random
Private Sub Command1_Click()
Gambar.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If (Label1.Caption = 9) Or (Label2.Caption = 9) Or (Label3.Caption = 9) Then
Gambar.Visible = True
End If
End Sub
'Menutup Form yang aktif
Private Sub Command2_Click()
End
End Sub
'Mereset proses pengacakan
Private Sub Command3_Click()
Label1.Caption = "Ribut"
Label2.Caption = "Budi"
Label3.Caption = "Santoso"
Gambar.Visible = False
End Sub