Alarm Kodu...Alarm yapmak isteyenlere. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

yoSun · 13 Haziran 2011, 22:56

1command buton 1 text box 1 timer 1 label

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
Buna Ses ekleyebılırsınız. istersenizz..
alıntı

Gokhantkl · 14 Haziran 2013, 11:40

Tesekkurler

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.