Membuat Aplikasi Adzan Sederhana dengan Visual Basic 6.0

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..

Sekian dulu ya... Selamat Mencoba..
Semoga Bermanfaat..
Wassalamu’alaikum Wr.Wb


0 Response to "Membuat Aplikasi Adzan Sederhana dengan Visual Basic 6.0"

Post a Comment