Buatlah 1 form dengan menu
2 timer interval 1000, timer 1 enabled true dan timer 2 enabled false
3 text
1 command
3 label.
masukkan kode dibawah ini.
Private Sub Command1_Click()
Timer2.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1 = Hour(Time)
Label2 = Minute(Time)
Label3 = Second(Time)
End Sub
Private Sub Timer2_Timer()
If Text1 = Label1 And Text2 = Label2 Then
MsgBox (Text3)
Text1 = ""
Text2 = ""
Text3 = ""
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
End If
End Sub
atau download saja softwarenya disini
