Blog SEO Tutorial
Sekarang Saya Upload File Melalui Putlocker dan Indowebster Karena Mudah Untuk Di Download !

Berlangganan Olandsky

Enter your email address:

Delivered by FeedBurner

Baca Terlebih Dahulu !

Alarm Simple Dengan VB 6.0

Respons: 0 comments

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 ^^
Comments
0 Comments

No comments:

Post a Comment

Berikanlah tanggapan anda mengenai artikel di atas dengan bijak dan sopan.
Dilarang keras:
1. Berkomentar mengandung SARA
2. Promosi di blog ini
3. Melakukan spam dalam bentuk apapun
Jika mengandung hal diatas akan dihapus. Thanks atas pengertiannya!


Copyright © Olandsky

Sponsored By: OlandskyDesigned By: Olandsky Blogger