Membuat Program Alarm sederhana menggunakan visual basic 6.0

Bahasa visual basic 6.0 masih bisa dibilang sangat sederhana sekali karena bahasa yang digunakan masih banyak kekurangannya, begitu juga ketika Membuat Program Alarm sederhana menggunakan visual basic 6.0 bahasa yang digunakan masih sangat sedikit sekali, hanya menggunakan IF dan THEN juga a=a, dan sedikit permainan timer.

Jika anda menginginkan pembuatan alarm menggunakan visual basic 6.0 yang harus anda persiapkan adalah:

• 1 form
• 2 timer set interval 1000, timer1 enabled true, timer2 enabled false
• 3 text, text1 dan text2 jadikan agar ukurannya sama dan text3 jadikan ukuran lebih lebar dan lebih tinggi dengan settingan multiline=true
• 1 label
• 1 command lihat gambar dibawah ini:

 

Kemudian klik dua kali formnya dan hapus semua kode dan masukkan kode dibawah ini:

Private Sub Command1_Click()

Timer2.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1 = Time
End Sub

Private Sub Timer2_Timer()
If Hour(Now) = Text1 And Minute(Now) = Text2 Then
MsgBox (Text3)
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Timer2.Enabled = False
End If
End Sub

Pada kode diatas terdapat permainan timer yaitu Hour(Now) dan Minute(Now) tujuannya untuk menyamakan jam dan menit yang sedang berjalan dengan data yang dimasukkan kedalam text1 dan text2, Hour(Now) dan Minute(Now) bisa diganti dengan Hour(Time) dan Minute(Time), setelah dicoba maka hasilnya akan seperti gambar dibawah ini:

 Setelah jam dan menitnya sama dengan text1 dan text2, maka akan keluar msgbox berisi pesan yang ditulisakan pada text3, dan pada saat klik Set Alarm otomatis text1, text2 dan text3 disabled tapi setelah msgbox keluar dan diklik OK maka text1, text2 dan text3 kembali enabled atau bisa disetting kembali.