Kod:

Private Sub Command1_Click( )
Dim sor sor = InputBox("Lütfen alarm saatini yazın :","Alarm" )
Text1.Text = sor
End Sub
Private Sub Form_Load( )
Text1.Locked = True
Text1.Text = "
" Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer( )
Label1.Caption = Time If
Label1.Caption = Text1.Text Then
MsgBox "Zaman Doldu...!"
End If
End Sub


Beğeniler: 0
Favoriler: 0
İzlenmeler: 636
favori
like
share
xalocan56 Tarih: 26.09.2009 00:11
ııı
kastamonulu37 Tarih: 15.09.2009 10:46
nasııl yapıcaz nereye yazıcaz