Home » Aplikasi sederhana » Membuat Alarm Waktu Tanda Masuk shalat di Visual Basic 6.0

Membuat Alarm Waktu Tanda Masuk shalat di Visual Basic 6.0

Hallo apa kabar sobat Vbner6 semuanya semoga dalam keadaan sehat wal'afiat semuanya.

Kali ini admin ingin bertanya kepada sobat semua, siapa diantara kalian yang suka berlama-lama di depan komputer?.Apakah itu maen game, ngeblog atau mrogrogram sehingga kalian lupa segalanya alias gak inget waktu. Apakah itu waktu makan ,waktu tidur atau yang terpenting lagi waktu shalat bagi yang beragama muslim sehingga lupa kewajiban karena sibuk di depan komputer.

Nah dari kasus diatas terlintas dibenak saya untuk membuat aplikasi pengingat waktu agar selalu di ingetkan dengan aplikasi ini, terutama waktu shalat yang beragama muslim yaitu dengan membuat aplikasi Alarm Suara Adzan. Dengan aplikasi ini mudah-mudahan bisa mengingatkan kita akan masuk waktu shalat terutama disekitar wilayah anda.

Setelah saya searching di google ternyata sudah banyak yang membuatnya namun desain mereka beda-beda tapi intinya sama.

Dalam artikel kali ini Saya akan membuat tutorial tentang cara membuat sebuah alarm Suara Adzan masuk Waktu shalat dengan Visual Basic 6.0 dengan sangat sederhana dan simpel. Dalam pembuatannya sangat mudah dan dilakukan step by step  hanya memerlukan 1 ComboBox, 1 MaskedBox dan beberapa buah CommandButton, serta 1 Label yang berfungsi menampilkan jam dan yang terpenting lagi adalah sebuah 1 Control Timer, 1 WindowsMediaPlayer yang berfungsi untuk memainkan file suara Adzan MP3 dan 2 file MP3 itu sendiri. Itulah komponen dasar yang kita perlukan untuk membuat alarm Sauara Adzan waktu masuk shalat. Berikut adalah tutorial lengkapnya dibawah ini :


Membuat Alarm Waktu Tanda Masuk Shalat di Visual Basic 6.0

  • Buka Form VB6 Anda dengan Standar EXE
  • Tanamkan 1 Label, 1 Combobox, bebarapa CommandButton

Label1 berfungsi menampilkan Jam

ComboBox, berfungsi Menampilkan Waktu Shalat

CommandButon untuk eksekusi

  • Selain itu tanamkan juga dalam form 1 buah MaskedBox, jika belum ada di tools silahkan tambahkan dengan CTRL+T dan ceklis Microsoft Masked Edit Control 6.0 kemudian Ok.

Pada MaskedBox1 pada bagian properties Mask  ##:##:##

MaskedBox berfungsi untuk peng-inputan jam dengan format  _:_:_

  • Lalu Tambhkan juga Windows MediaPlayer dengan cara tekan CTRL+T dan ceklis Windows Media Player lalu Ok.

Windows Media Player berfungsi untuk memainkan file MP3

  • Tamabahkan 1 Control Timer dengan Interval 1000
  • Download file MP3 suara adzan biasa dan suara adzan subuh (cari banyak digoogle) simpan  tempatnya satu folder dengan file VB ini

Untuk lebih jelasnya desainlah form seperti gambar dibawah ini:


Desain Form


Setelah mendesain form ketikan kode di awah ini :


Dim alarm As Boolean

Private Sub Combo1_Click()

'ketika di pilih cursor pindah ke MaskedBox

MaskEdBox1.SetFocus

End Sub


Private Sub Command1_Click() 

'Tombol Masukan Waktu Shalat

Combo1.Enabled = True

MaskEdBox1.Enabled = True

Combo1.SetFocus

Command2.Enabled = True

Command1.Enabled = False

Timer1.Enabled = True

End Sub


Private Sub Command2_Click()  

 'Tombol Aktifkan

 If alarm = True Then

        Timer1.Enabled = False

        Command2.Caption = "AKTIFKAN"

        alarm = False

        Command1.Enabled = True

        Command2.Enabled = False

        WindowsMediaPlayer1.Controls.stop

    Else

        Timer1.Enabled = True

        Command2.Caption = "NONAKTIFKAN"

        alarm = True 

    End If

End Sub


Private Sub Form_Load() 

'Menambah item dicombobox

Combo1.Text = "Pilih Waktu Shalat"

Combo1.AddItem "Adzan Zuhur"

Combo1.AddItem "Adzan Ashar"

Combo1.AddItem "Adzan Maghrib"

Combo1.AddItem "Adzan Isya"

Combo1.AddItem "Adzan Subuh"

Combo1.Enabled = False

MaskEdBox1.Enabled = False

Command2.Enabled = False

WindowsMediaPlayer1.Visible = False

End Sub


Private Sub Timer1_Timer()

 ' Menampilkan jam dan mengaktifkan suara adzan

Label1.Caption = Format(Time, "h:mm:ss")

If MaskEdBox1.Text = Label1.Caption And alarm = True Then

WindowsMediaPlayer1.Visible = True

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

        WindowsMediaPlayer1.Controls.play

        End If

        If MaskEdBox1.Text = Label1.Caption And alarm = True And Combo1.Text = "Adzan Subuh" Then

WindowsMediaPlayer1.Visible = True

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

        WindowsMediaPlayer1.Controls.play

        End If

End Sub


Setelah selesai mengisi kode simpan file Anda dan jalankan program.

Form Output


Cara pengoperasian:

Tekan tombol Masukan Waktu Shalat, lalu Pilih nama waktu shalat di ComboBox misalnya Adzan Ashar, pada maskedbox ketikan waktu shalat misalnya 15:01:00 lalu tekan Aktifkan tombol alarm maka tombol Aktifkan berubah menjadi NONAKTIF. Jika angka jam yang berada diatas  sama dengan angka yang dimasukan maka suara Adzan aktif atau Play.Jika sudah tidak diperlukan lagi tekan tombol NONAKTIFKAN.

Dari aplikasi alarm yang sederhana ini silahkan dikembangkan lagi dari segi penampilan dan controlnya. Dibawah ini adalah gambar hasil pengembangannya saya :




Demikian artikel dari saya tentang cara Membuat Alarm Waktu Tanda Masuk shalat di Visual Basic 6.0. semoga artikel ini bermanfaat buat kita semua


No comments:

Post a Comment