Cara Membuat Software atau Aplikasi Adzan Menggunakan Visual Basic 6.0

Assalamualaikum Wr.Wb. Nahh pada kesempatan kali ini saya ingin ngeshare Cara membuat Software atau Aplikasi Adzan sederhana menggunakan Visual Basic 6.0. Nahh jadi kalian yang sering main laptop/Pc seharian buat gaming ataupun Ngoding biar ga lupa sama kewajibannya yaitu sholat , harus punya aplikasi alarm Adzan diPC/Laptopnya . Ya walapun udah ada adzan di Masjid ataupun Mushola terdekat di rumah kalian . Tapi kalo yang masjid atau musolanya jauh dan nggak kedengeran adzanya nanti lupa sholatnya cuman gara gara nggak kedengeran adzan. Nahh jadi tampilan softwarenya seperti ini.

Ya jadi tampilanya seperti itu. Sangat sederhana desainya , karena buatnya sedang dalam posisi malas:v.. Nanti kalian bisa mendesain sesuka hati kalian.Oke daripada kelaamaan langsung aja kita buat softwarenya. Pertama tama pastikan kalian sudah memiliki Visual Basic 6.0 dan Suara adzan .mp3 untuk dijadikan adzan nantinya , usahakan memiliki adzan subuh dan adzan yang biasa.Kalau tidak punya silahkan download digoogle banyak :v . Nah jika sudah punya langsung aja buka VB6.0 nya lalu pilih standar.exe . Kemudian Siapkan 5 Text, 8 Label, 1 Timer, 3 Command, 1 Frame, 1 Windows Media Player. Nahh menyiapkan Windows Media player yaitu dengan cara tekan Ctrl + T lalu akan muncul tampilan Commponent, pada tab Control centang Windows Media Player lalu Apply dan OK. Oh iya , nanti pada timer1 set intervalnya menjadi 1000. Oke  Bisa dilihat Tampilannya seperti ini . 

Kalian bisa mengikuti tampilan atau penempatanya seperti yang diatas . Jika sudah semua masukan Script sperti yang dibawah ini : 

Dim alarem As Boolean

Private Sub Command1_Click()

 If alarem = True Then

        Timer1.Enabled = False

        Command1.Caption = "AKTIFKAN"

        alarem = False

    Else

        Timer1.Enabled = True

        Command1.Caption = "NONAKTIFKAN"

        alarem = True

    End If

End Sub

Private Sub Command2_Click()

Text1.Locked = True

Text2.Locked = True

Text3.Locked = True

Text4.Locked = True

Text5.Locked = True

Label8.Caption = "Jam Terkunci"

Command3.Enabled = True

Command2.Enabled = False

End Sub

Private Sub Command3_Click()

Text1.Locked = False

Text2.Locked = False

Text3.Locked = False

Text4.Locked = False

Text5.Locked = False

Label8.Caption = "Jam Terbuka"

Command3.Enabled = False

Command2.Enabled = True

End Sub

Private Sub Form_Load()

alarem = False

End Sub

Private Sub Timer1_Timer()

  Label2.Caption = Time

        If Text1.Text = Label2.Caption And alarem = True Then

        WindowsMediaPlayer1.URL = App.Path & "\adzan subuh.mp3"

        WindowsMediaPlayer1.Enabled = True

        WindowsMediaPlayer1.Controls.play

        End If

        If Text2.Text = Label2.Caption And alarem = True Then

        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"

        WindowsMediaPlayer1.Enabled = True

        WindowsMediaPlayer1.Controls.play

        End If

        If Text3.Text = Label2.Caption And alarem = True Then

        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"

        WindowsMediaPlayer1.Enabled = True

        WindowsMediaPlayer1.Controls.play

        End If

        If Text4.Text = Label2.Caption And alarem = True Then

        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"

        WindowsMediaPlayer1.Enabled = True

        WindowsMediaPlayer1.Controls.play

        End If

        If Text5.Text = Label2.Caption And alarem = True Then

        WindowsMediaPlayer1.URL = App.Path & "\adzan.mp3"

        WindowsMediaPlayer1.Enabled = True

        WindowsMediaPlayer1.Controls.play

        End If

End Sub

Jika sudah memasukan script seperti yang diatas , Coba jalankan softwarenya dengan cara tekan F5 ,jika tidak ada erorr Save Project lalu kita buat menjadi extensi .exe dengan cara Klik File lalu pilih Make Project .exe .. Simpan Project.exe satu folder dengan adzan.mp3 dan adzan subuh.mp3 yang sebelumnya sudah disiapkan. Contoh seperti ini 

Jika sudah seperti itu, Buka Aplikasinya lalu Set Jam pada bagian TextBox yang tadi sudah kita buat . Jam berapa jadwal Adzan di daerah kalian lalu aktifkan dan Kunci Jam agar jadwal jam tidak dapat diubah . Jika ingin diubah klik Buka Jam .

Nahh jika jam nya sudah menunjukan waktu Sholat , nanti Windows Media Player secara otomatis akan memutar adzan yang tadi kita siapkan . Dan Laptop/PC anda akan berkumandang suara Adzan, dan kalian harus segera Sholat , Jangan menunda nunda apalagi meninggalkan . Sekian dari saya tentang Cara Membuat Software Adzan Sederhana menggunakan Visual Basic 6.0 . Mohon Maaf jika masih ada kekurangan, Semoga Allah senantiasa berada disisi kita dan Meridhoi kita semua WabillahiTofikWalidayah Wassalamualaikum Wr.Wb .. Alhamdulillah