MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0

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 :

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 :

6. Mudahkan, Selamat Mencoba…!!!

Husni Kaimuddin;