1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2.    Tambahkan  pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol  timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah  ini :
Gambar Program Aplikasi Alarm Dengan Vb 6.0
3.    Aturlah  properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu  untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga
4.    kemudian ketikkan kode/listing/script program dibawah 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
5.    Save  dan silahkan run program anda dengan menekan F5 dan silahkan untuk  mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut  contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :

Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0 
6.    Mudahkan, Selamat Mencoba…!!!Source: http://meriwardana.blogspot.com/

 
No comments:
Post a Comment