cara membuat alarm menggunakan VB

1. Buka Visual Basic 6.0.
2. Pilih Standart EXE.
3. Setelah terbuka lembar kerja form1, tambahkan komponen berikut : 3 LABEL, 1 TEXTBOX, 2 TIMER,  2 COMMAND BUTTON.
4. Ubah CAPTION labelnya terserah Anda kecuali buat Label 1 karena label1 untuk Jamnya.
5. Ubah ke2 interval timernya menjadi 1000
6. Ubah masing2 propertiesnya sebagai berikut :

Timer1	Enabled	TRUE
Timer2	Enabled	FALSE
Command1	Caption	Aktif
Command2	Caption	Keluar

7.  Jika sudah di edit propertiesnya, kurang lebih seperti ini tampilanya :

8. Setelah tertata sesuai keinginan anda, Lalu masukan code dibawah ini kedalam FORM :

Dim alarem As Boolean Private Sub Command1_Click() If alarem = True Then Timer2.Enabled = False Command1.Caption = "Aktif" alarem = False Else Command1.Caption = "Tidak Aktif" alarem = True End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() alarem = False End Sub Private Sub Timer1_Timer() Label1.Caption = Time If Text1.Text = Label1.Caption And alarem = True Then Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer() Beep End Sub

9. Setelah memasukan codenya ke dalam form, lalu coba program itu dengan pencet tombol F5.
10. SELESAI !!!

Sekian dulu post kali ini.

Semoga Bermanfaat.

Selamat Mencoba.

HAPPY ENJOY :)

ADS HERE !!!