Membuat Alarm sedehana Dengan Visual Basic

teman-teman yang malas bangun pagi, yang pengen bangun pagi, pelajari cara membuat alarm dengan visual basic ini.!!!

-pertama buat form yang berisi, 2 timer, 2 label, dan 2 textbox, terserah menurut kreasi anda, contohnya seperti gambar di bawah ini

sudah lihat gambarnya kaaan????

nah selanjutnya masukan kode seperti di bawah ini:

Dim alarm As Boolean

Private Sub Command1_Click()

If alarm = True Then

Timer2.Enabled = False

Command1.Caption = "Aktif"

alarm = False

Else

Command1.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

alarm = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

If Text1.Text = Label1.Caption And alarm = True Then

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

sangat sederhana kan? tapi sangat berfungsi dalam kehidupan,

^_^selamat mencoba ^_^