Membuat Jam Alarm dengan Visual Basic 6 - Berbekal komponen Timer, tidak sulit bagi anda untuk membuat program alarm. Teknik dasarnya di sini juga cukup sederhana, yakni membandingkan waktu masukan dan waktu saat ini. Apabila nilainya sama, berarti saatnya untuk membangkitkan suatu aksi, misalnya di sini kita hanya menampilkan kotak dialog. Hanya bermodal kan Label, Timer, Command dan ini merupakan program sederhana Visual basic 6
1. Tahap yang pertama bikin dahulu desain form nya dahulu (untuk desain bisa menyesuaikan tergantung selera)
2. Penulisan kode program
Tulis kode program padaVariabel form
� Variabel waktu alarmPrivate strTimeSet
Tulis kode program pada Command (Cmdset)
Private sub cmdSet_Click()strTimeSet = InputBox (�Tetapkan waktu � & _
vbCrLf & �Format jam:menit:detik (00:00:00)�)
If Len(Trim$(strTimeSet)) = 0 Then exit sub
If Not IsDate(strTimeSet) then
MsgBox (�Waktu Anda Tidak Valid atau Benar�)
Me.lblInfo.Caption = vbNullString
Else
� Masukan valid, set strTimeSet
strTimeSet = CDate(strTimeSet)
�Misal mengabaikan waktu yang telah lewat
If Time > strTimeSet Then
MsgBox (�Maaf Waktu sudah Lewat�)
Else
Me.lblInfo.Caption = �Alarm: � & _
strTimeSet
End If
End If
End Sub
Tulis kode program pada Timer (Tmr)
Private Sub tmr_Timer()
Static BlnGo as integerIf lblTime.Caption <> CStr(Time) then
� Simulasi bunyi alarm
Beep
Me.lblInfo.Caption = vbNullString
MsgBox (�Alarm Berbunyi (� & Time & �)�)
BlnGo = True
End If
End If
Me.lblTime.Caption = time
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :