Saturday, August 5, 2017

Cara membuat software atau Aplikasi adzan sederhana dengan Visual Bassic

   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.


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


0 comments

Post a Comment