Tutorial kali ini adalah membuat Aplikasi Alarm di Visual Basic 6
Langsung aja ke tutorial nya ..
Aplikasi yang dibutuhkan:
1.Visual Basic 6 Full / Portable
2.Source Code
Tutorial :
1.Buatlah New Project > Standard Exe
2.Lalu Siapkan Tools2 dibawah ini untuk di pasangkan ke dalam Form Alarm ..
1 Buah TextBox
2 Buah OptionButton
1 Buah Timer
1 Buah Label ( Bebaskan )
Source Code nya :
Masukan code ini kedalam Form Sub Load :
'Timer1 untuk mengubah notice
Private Sub Timer1_Timer()
If (Time$ > Text1.Text And AlarmOn) Then
Beep
MsgBox "Waktu Udah Abis Coy! Silahken Sholat,Istirahat,Diem,Dulu masbrow :)", vbInformation, "ALARM ON"
MsgBox "Jangan Lupa Set OFF Kan Alarmnya Biar Gk Muncul Terus Noticenya :)", vbInformation, "ALARM ON"
End If
Label2.Caption = Time$
End Sub
Notice :
- Untuk text code yang saya beri warna MERAH itu adalah waktu dimana walau settingan waktu sudah tercapai dan alarm akan berbunyi .
- Untuk text code yang saya beri warna BIRU itu adalah notice dimana kita harus menekan tombol OFF setelah waktu itu habis .
- Silahkan ubah sesuai yang di inginkan
Dan ini Desain Dari membuat Form Alarm punya saya ..
Sekian Tutorial Dari saya ,
Division-Freaks404
Aplikasi yang dibutuhkan:
1.Visual Basic 6 Full / Portable
2.Source Code
Tutorial :
1.Buatlah New Project > Standard Exe
2.Lalu Siapkan Tools2 dibawah ini untuk di pasangkan ke dalam Form Alarm ..
1 Buah TextBox
2 Buah OptionButton
1 Buah Timer
1 Buah Label ( Bebaskan )
Source Code nya :
Masukan code ini kedalam Form Sub Load :
'Alarm Simple by Division-Freaks404
'freakscoder.blogspot.com
Private Sub Form_Load()Masukan code ini kedalam OptionButton1 :
Timer1.Interval = 1000
Text1.Text = ""
Option2.Value = True
End Sub
'Optionbutton untuk aktifMasukan code ini kedalam OptionButton 2 :
Private Sub Option1_Click()
AlarmOn = True
End Sub
'Optionbutton untuk non-aktifLalu masukan Code ini kedalam Timer1 :
Private Sub Option2_Click()
AlarmOn = False
End Sub
'Timer1 untuk mengubah notice
Private Sub Timer1_Timer()
If (Time$ > Text1.Text And AlarmOn) Then
Beep
MsgBox "Waktu Udah Abis Coy! Silahken Sholat,Istirahat,Diem,Dulu masbrow :)", vbInformation, "ALARM ON"
MsgBox "Jangan Lupa Set OFF Kan Alarmnya Biar Gk Muncul Terus Noticenya :)", vbInformation, "ALARM ON"
End If
Label2.Caption = Time$
End Sub
Notice :
- Untuk text code yang saya beri warna MERAH itu adalah waktu dimana walau settingan waktu sudah tercapai dan alarm akan berbunyi .
- Untuk text code yang saya beri warna BIRU itu adalah notice dimana kita harus menekan tombol OFF setelah waktu itu habis .
- Silahkan ubah sesuai yang di inginkan
Dan ini Desain Dari membuat Form Alarm punya saya ..
Sekian Tutorial Dari saya ,
Division-Freaks404
Read more at http://freakscoder.blogspot.com/2012/08/membuat-alarm-di-vb6.html#XPLzqTp6ibz3t2tZ.99
Bagikan Artikel ini ke teman Anda...!!!