Membuat Musik Player dengan VB 6.0

Iseng-iseng mengisi waktu setelah merayakan hari raya Galungan, saya membuat sebuah program hiburan dengan menggunakan Visual Basic 6. Ide dasar membuat program ini adalah membuat sebuah program yang bisa memainkan .mp3 dan sejenis file musik. Nah, dengan memanfaatkan Multimedia Control 6.0 dari Microsoft kita bisa membuat program memainkan musik dengan ala kita :). Serta, bentuk formnya bisa kita sesuaikan dengan kehendak kita :).

Sebagai contoh, saya membuat bentuk form sebagai berikut di bawah ini. :) (Sahabat sekalian bisa membuat form seperti yang dibawah ini untuk membuat program pemutar musik memanfaatkan Multimedia Control 6.0 ). Jangan lupa menambahkan dua komponen timer (Timer1 dan Timer2)

(Untuk lebih jelas, klik gambar di atas :D )Agar bisa menambahkan komponen dengan nama MM diatas, tambahkan komponen Multimedia Control 6.0. Cari komponen Multimedia Control 6.0 dengan menekan CTRL + T dan akan tampil window seperti di bawah ini, kemudian centang Microsoft Multimedia Control 6.0.

Jika sudah, masuk ke bagian koding melalui, menu View -> Code. Kemudian, Copy Paste koding berikut :

Option Explicit
Dim batas As Integer
Dim menit As Integer, detik As Integer
Dim SW_P As Integer

Private Sub cmbJenis_Click()
    File1.FileName = cmbJenis.Text
    File1.FileName = Dir1.Path
    
End Sub

Private Sub cmbJenis_KeyPress(KeyAscii As Integer)
    ' Agar Hanya bisa memilih yg disediakan di Combo Box
    ' Khusus untuk style Dowpdown Combo
    If ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0
    If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyAscii = 0
End Sub

Private Sub cmdProses_Click()
    batas = Val(txtDetik.Text)
End Sub

Private Sub cmdStop_Click()
    MM.Command = "Close"
    txtDetik.Text = "0"
    'Unload Me
End Sub

Private Sub Dir1_Change()
    File1.FileName = cmbJenis.Text
    File1.FileName = Dir1.Path
    
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
    File1.FileName = Dir1.Path
    
End Sub

Private Sub File1_Click()
    txtNamaFile.Text = File1.FileName
    MM.Command = "Close"
    MM.FileName = Dir1.Path & "\" & File1.FileName
    MM.Command = "Open"
    
End Sub

Private Sub Form_Load()
    batas = 0
    SW_P = 0
    
    cmbJenis.AddItem "*.MID"
    cmbJenis.AddItem "*.WAV"
    cmbJenis.AddItem "*.MP3"
    
    File1.FileName = cmbJenis.Text
    File1.FileName = Dir1.Path
    
    txtDetik.Text = batas
    cmdProses.Enabled = False
    
    MM.Notify = False
    MM.Wait = False
    MM.Shareable = False
    
End Sub

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Karena kodingnya lumayan panjang dan untuk lebih jelasnya, sahabat silahkan Download Membuat Musik Player dengan VB 6.0 source lengkap program di atas. :)