Membuat Jam Alarm dengan Visual Basic

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)

alarm vb 6



 

2. Penulisan kode program 

Tulis kode program padaVariabel form
‘ Variabel waktu alarm
Private 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 integer
    If 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

Membuat Jam Alarm dengan Visual Basic Rating: 4.5 Diposkan Oleh: Unknown
Comments
0 Comments