Buat Adzan dari VB
Assalamu'alaikum
Wr.Wb
Nantslight - Kali ni saya mau share pembuatan
aplikasi adzan yang terinspirasi dari pembuatan bel sekolah, tapi ni pembuatan
dari pikiran saya, jadi masih ada kekurangannya.. (^_^), aplikasi ini nanti
bisa anda kembangkan menjadi bel sekolah ataupun menambahkan tombol untuk di
letakkan di system tray..
Oke langsung
aja.. Buka Visual Basic dan pilih standard exe..
Tambahkan 5
buah TextBox, 8 Buah Label, 1 frame, 1 Timer, 4 CommandButton, 1
WindowsMediaPlayer. Cara menambahkan Windows Media Player dapat dilihat di tutorial
saya sebelumnya yang berjudul “Cara Memberi Suara/Lagu
di Form Visual Basic 6.0 “
Atur
Penataannya kurang lebih seperti berikut,,
Untuk Timer
1 ubah intervalnya menjadi 1000. Untuk semua Label ubah Captionnya menjadi
seperti gambar berikut, dan untuk text1 sampai text5 di bagian text-nya
dikosongin aja....Untuk semua nama item jangan diubah..
Kemudian
masukkan script codenya yang ada di bawah ini..
-------***-------------------------------------------------------------------------------------------
Dim alarem
As Boolean
Private Sub Command1_Click()
If alarem = True Then
Timer2.Enabled = False
Command1.Caption = "Aktif"
alarem = False
Else
Command1.Caption = "Tidak Aktif"
alarem = True
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Label2.Caption = "Jam
Terkunci"
Command4.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Label2.Caption = "Jam
Terbuka"
Command4.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Form_Load()
alarem = False
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Time
If Text1.Text = Label3.Caption And alarem = True Then
WindowsMediaPlayer1.URL = App.Path & "\adzan subuh.mp3"
WindowsMediaPlayer1.Enabled = True
WindowsMediaPlayer1.Controls.play
End If
If Text2.Text = Label3.Caption And alarem = True Then
WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
WindowsMediaPlayer1.Enabled = True
WindowsMediaPlayer1.Controls.play
End If
If Text3.Text = Label3.Caption And alarem = True Then
WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
WindowsMediaPlayer1.Enabled = True
WindowsMediaPlayer1.Controls.play
End If
If Text4.Text = Label3.Caption And alarem = True Then
WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
WindowsMediaPlayer1.Enabled = True
WindowsMediaPlayer1.Controls.play
End If
If Text5.Text = Label3.Caption And alarem = True Then
WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"
WindowsMediaPlayer1.Enabled = True
WindowsMediaPlayer1.Controls.play
End If
End Sub
---------------------------------------------------------------------------------------------***----------
Dan Kemudian
Kompilasi dengan ekstensi .exe, Caranya Klik File kemudian Make Project1.exe,
setelah itu tempatkan aplikasi yang sudah anda buat dengan mp3 adzan dan adzan
subuh dalam satu folder.. Bila belum membpunyai mp3 adzan dan adzan subuh sudah
saya sediain di satu paket dengan sourcenya, klik di sini.. Jalankan Aplikasi Set jam adzannya.. Dan jika sudah
sesuai dengan waktu yang anda tuliskan di masing-masing waktu adzan, maka akan
berkumandanglah komputer anda.. Hhehehe.. Kurang lebih seperti inilah tamppilan
saat dijalankan..
0 komentar:
Posting Komentar