bits of science

PENAMPAKANNYA ,


List codenya ,., :
Option Explicit
Dim operasi1 As Double, operasi2 As Double, operasi3 As Double
Private Sub Command1_Click()
    Picture1.Visible = False 'sembunyikan gambar koin
'ambil bilangan acak antara 0 sampai 9
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
operasi1 = Label1.Caption
operasi2 = Label2.Caption
operasi3 = Label3.Caption
If (operasi1 + operasi2 + operasi3 = 9) Then
    'jika ada angka 9, gambar muncul
    Picture1.Visible = True
    Beep 'suara beep
    End If
End Sub

Private Sub Command2_Click()
End 'keluar dari program

End Sub

Private Sub Label1_Click()
Randomize
End Sub

Private Sub Label2_Click()
Randomize
End Sub