1command buton 1 text box 1 timer 1 label


Kod:
Private Sub Command1_Click( ) Dim sor sor = InputBox("Lutfen 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
Buna Ses ekleyebılırsınız. istersenizz..
baska bişilerde ekleyebılırsınız
Veya kendı yaptıımı gonderiym


http://ultrashare.net/hosting/fl/c07fda7eb7
__________________