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