Berawal dari keisengan dan khayalan,,waktu kemarin (Selasa,7 Febuari 2013 pk.23:10) sengaja nonton tipi trus ada brita tentang Bukan Empat Mata pk.23:00,wah,gua pengen nonton tuh,penasaran sih,,duh,pdhl gwa lagi nonton pilem,dilain sisi gwa jga pelupa,jadi gwa mikir,"ah,gwa alarm aja ah",trus gwa mau pke alarm HP,tapi males,juga gak bisa nampilin pesan,jadi gwa sedikit berkhayal,"iseng2 buat alarm ah",.
Langsung dah,filem distop,buka project baru di VB6 dan langsung beraksi.,membuat alarm sederhana dengan VB6.
Buat temen2 yang mungkin pingin buat,ni aku kasih sedikit tutornya(ceila)..
Ayo mulai,..(buat yang males copy paste script,bisa download Source Codenya diakhir postingan ini).
1. Buka VB6 , project baru(standard exe).
2. Tambahkan component baru (project-component atau Ctrl+T),tambahkan Microsoft Common Dialog Control 6.0,centang,apply,dan close.
3. Tambhalan beberapa tool.(tool /property)
label
label1/caption = alarm
label2/caption = time now
label3/caption = time to set
label4/caption = -
label5/caption = alarm time
label6/caption = "kosongkan"/visible = false
text box
text1/text = "kosongkan"
text2/text = "kosongkan"
text3/text = "kosongkan"
text5/text = "kosongkan" /multiline = true/scrollbar = 3-both
commands
command1/caption = Set
commann2/caption = clear
command3/caption = open sound file
timer
timer1/interval = 1000
4. Kalo udah menambahkan tinggal diatur/didesain sehingga tampil seperti screen shoot di atas(gak sama juga gak papa).
Double klik form dah ubah posisinya menjadi di general lalus masukan script ini :
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
5. Double klik pada command open sound file,masukan script ini :
CommonDialog1.Filter = "(*.wav)|*.wav|"
CommonDialog1.ShowOpen
Label6.Caption = CommonDialog1.FileName
7. Double klik text1 dan rubah actionsnya menjadi keypress dan masukan script ini:
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
MsgBox "Inputan harus berupa angka", vbCritical, "ERROR"
Text1.Text = Empty
Text1.SetFocus
KeyAscii = 0
End If
If Len(Text1.Text) = 1 Then Text2.SetFocus
8. Pada text2 dan 3 sama seperti diatas hanya diganti pada text1 dan focusnya.
9. Double clik command clear dan masukan script berikut :
Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Text5.Text = Empty
Text5.Locked = False
Label4.Caption = "-"
Text1.SetFocus
10. Double klik timer dan masukan script ini :
Dim returnval As Long
Dim soundfile As String
Label1.Caption = Format(Now, "hh:mm:ss")
If Label1.Caption = Label4.Caption Then
soundfile = Label6.Caption
returnval = PlaySound(soundfile, 0, &H0)
MsgBox Text5.Text, vbInformation, "PESAN"
End If
11. Double klik pada command set dan masukan script berikut:
Dim a As String
a = Text1.Text + ":" + Text2.Text + ":" + Text3.Text
Label4.Caption = a
Text5.Locked = True
12. Selesai dah..Mudah dan sederhana bukan.
Jangna lupa kritik dan saran juga komennya..thx.
Download Complete Source Code here
Olandsky ^^
0 Comments
