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