Cara Membuat Alarm Di Visual Basic 6.0

Cara Membuat Alarm Di Visual Basic 6.0

1. Buka Visual Basic 6; pilih standard EXE.
2. di form tersebut, buatkan 3 label, 1 text box, 2 timer, dan 2 command button.
3. Aturlah label, text box, timer, dan command button sesuai keinginan anda. Kalau saya seperti ini:

Gantilah captionnya:

·         Label1: Alarm

·         Label2: 00:00:00

·         Label3: Tetapkan waktu alarm

·         Text1: - (kosongkan)

·         Command1: Keluar

·         Command2: Aktif

Dan ganti:

·         Enable: True (pada timer1)

·         Enable: False (pada timer2)

·         Interval: 1000 (pada timer1 & timer 2)

Jika sudah, copas seluruh kode berikut:

Dim alarm As Boolean

Private Sub Command2_Click()

If alarm = True Then

Timer2.Enabled = False

Command2.Caption = "Aktif"

alarm = False

Else

Command2.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

alarm = False

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Time

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

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

Alarm anda sudah jadi, coba di run aplikasi buatan anda sendiri, atau pencet tombol F5 di keybord.

Kira-kira hasilnya akan seperti diatas.

Baiklah kita akan membuat program aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :

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…!!!