Cara membuat MP3 Player Sederhana dengan Visual Basic

Halo Gan .. 

Lama kaga posting nih .. Kali ini saya bakalan posting tentang cara membuat sebuah MP3 Player sederhana

dengan Visual Basic ( versi yang saya gunakan 6.0)

Meurut agan/aganwati susah ? enggak kok  tinggal ikutin aja tutorialnye :3

Gk usah Basa-Basi ... Nih Tutorialnya .. :

1. Buka Visual Basic 6.0
2. Pilih Standard EXE
3. dan Tambahkan Komponen (dengan tombol keyboard 'Ctrl+T'), dan tambahkan komponen Microsoft Common Dialog Control (6.0) dan Microsoft Multimedia Control (6.0)

4. Klik Terapkan, dan Ok

5. Atur lebar form, sesuai yang anda inginkan

6. Lalu, buatlah 1 buah Label, 4 buah Command Button,1 buah MMControl dan 1 buah Common Dialog, seperti dibawah ini :

 

7. Aturlah Semua Properties Objek sesuai dibawah ini :

Komponen  Properti  Nilai

Form = Name = Form1

             Caption = Audio Player

Label = Name = lblLagu

              Caption = (kosongkan)

              BackColor = &H00FFFFFF&

Command1 = Name = cmdBuka

                        Caption = &Buka

Command2 = Name = cmdPlay

                        Caption = Play

Command3 = Name = cmdStop

                        Caption = Stop

Command4 = Name = cmdKeluar

                        Caption = Keluar

MMControl = Name = Mmc

                         Visible = False

CommonDialog = Name = BukaFile

8. Gambar dibawah ini adalah tampilan Form setelah selesai dilakukan pengaturan di jendela Properties. (Perhatian : Pada saat program dijalankan MMControl dan CommonDialog tidak akan tampil)

9. Sekarang, tinggal Proses Coding yang berfungsi sebagai perintah agar aplikasi program yang kita buat bisa digunakan. Caranya Klik View > Code .

10. Lalu Ketikan, ataupun Copy-Paste code di bawah ini pada halaman Coding :

Private Sub cmdBuka_Click()

On Error Resume Next
BukaFile.Filter = "MP3|*.mp3|"
BukaFile.ShowOpen
Mmc.FileName = BukaFile.FileName
Mmc.Command = "close"
Mmc.Command = "open"
Label1.Caption = BukaFile.FileTitle
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdPlay_Click()
Mmc.Command = "seek"
Mmc.Command = "play"
End Sub
Private Sub cmdStop_Click()
Mmc.Command = "seek"
Mmc.Command = "stop"
End Sub

11. Setelah memasukan coding diatas, coba anda klik Start, atau bisa dengan menggunakan tombol key F5 untuk menjalankan program

12. Cobalah masukkan lagu dengan cara klik tombol Buka (Perhatian : jenis File yang diterima berformat MP3), setelah lagu masuk, klik tombol Play untuk memainkan/ memutar lagu, jika ingin berhenti klik tombol Stop, jika ingin menutup program klik tombol Keluar. Bagaimana mudah bukan?

13. Sekarang andapun bisa memperindah tampilan aplikasi program Audio Player anda, cobalah berkreasi dengan desain

 

Kalau ada yang bingung gk usah ragu tanya ke kita comment aja dimari Gan ! :D 

Jangan lupa Klick yang mau dapet pulsa gratis dari kami ..