Tutorial cara buat buat musik otomatis (Bel)

5 hari yang lalu di salah satu postingan saya ada komentar dari teman yang ingin tau lebih lanjut tentang cara pembuatan sebiah aplikasi. Karena saya bisanya cuma sedikit, jadi saya akan sedikit menjelaskan menggunakan Microsoft Visual Basic 6.0

Sebelumnya, kita harus membuat sebuah database dari program apapun yang berisi 1 field untuk jam (hh:mm:ss) dan link untuk menunjukkan dimana letak file musik tersebut disimpan.

Setelah kita membuka program tersebut, dan membuat sebuah form yang disambungkan dengan database. Kita memerlukan dua buah component yang kita sebut sebagai MMControl dan Common Dialog. Caranya dengan mengklik kanan form general yang biasanya ada di sebelah kiri windows. Setelah itu klik componen dan pilih MMControl dan Common Dialog. Komponen tersebut berfungsi untuk memutar musik yang nantinya kita tambahkan. Common Dialog berfungsi untuk membuka file dari form yang kita buat.

Agar component MMControl berjalan dengan benar, coba kita bikin sebuah CommandButton dan menulis codenya sebagai berikut :

Me.MMControl1.FileName = D:\Musik.mp3 ----warna merah bisa kita ubah
Me.MMControl1.Command = "open"
Me.MMControl1.Command = "play"

Kalau musik bisa berjalan dengan lancar, maka kita perlu menambahkan sebuah component yang kita sebut sebagai TIMER untuk mengotomatisasi pemutaran musik yang kita buat. Timer ini akan otomatis tidak terlihat di form. Kasih nilai interval dengan nilai 100

Buat sebuah label di form yang akan kita buat sebagai penunjuk waktu kita. Label ini kita beri nama LABEL1

Klik 2 kali timer di form untuk masuk ke koding area dan kita tuliskan coding seperti di bawah ini

Me.Label1.Caption = Format(Now, "hh:mm:ss")

if jam(1) = me.Label1.Caption then -----Jam(1) adalah koneksi database dengan field jam

Me.MMControl1.Command = "close"

Me.MMControl1.FileName = Jam(0) Jam(0) ------adalah koneksi database dengan field link musik
Me.MMControl1.Command = "open"
Me.MMControl1.Command = "play"

else

jam.Requery ------untuk me-refresh database

end if

Silahkan dijalankan. Kalau yang kita buat betul, insyaAllah aplikasi yang kita buat akan berjalan dengan lancar. Semoga tutorial ini dapat bermanfaat buat kita semua. Amin....