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

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Visual Basic