Pemutar music MP3 Visual Basic 6.0

Aplikasi Pemutar music MP3 - Pengen punya Winamp sendiri bro ? wuahaha, susah bro buat skin kayak Winamp tapi slow, saya secepatnya akan merilis Sourcecode Winamp Player bro wkwkwkwk, Insyaallah bro kalo tidak ada halangan. Oke, daripada ngidam pengen buat Winamp sendiri dan ngga keturutan mending buat yang Sederhana dahulu, karena Ilmu itu dimulai dari Dasarnya :) Disini saya akan share tutorial sekalian sourcecode Simple MP3 Player.
Oke, mari kita buat Aplikasi tersebut dengan mengikut langkah-langkah berikut ini :
    
      1. Open Visual Basic 6.0, pilih Standart exe.
      2. Tekan keyboard CTRL + T, dan pilih component dibawah ini :

• Microsoft Common Control 6.0
• Microsoft Multimedia 6.0

       3. Tambahkan component seperti 1 Command, Multimedia Control, Common Dialog Control dan  1 buah label. Masing-masing Component satu buah dan atur sedemikian rupa atau kurang lebih tampak seperti gambar berikut ini.

       4. Jika sudah, silahkan masukan code-code ini ke Form Project anda :

Private Sub Command1_Click()
CommonDialog1.CancelError = True
    CommonDialog1.Filter = "MP3 (.Mp3)|*.Mp3|Wav (.Wav)|*.Wav|Mpg (.Mpg)|*.Mpg|Flv (.Flv)|*.Flv|3gp (.3gp)|*.3gp|AVI (.Avi)|*.Avi|Mp4 (.Mp4)|*.Mp4|All Files (*.*)|*.*"
    CommonDialog1.FileName = "*.Mp3"
    CommonDialog1.DialogTitle = "Open Animation"
    On Error GoTo ErrorHardler2
    CommonDialog1.ShowOpen
    MMControl1.Command = "stop"
    On Error GoTo ErrorHardler1
    MMControl1.FileName = CommonDialog1.FileName
    MMControl1.Command = "Open"
Label2.Caption = CommonDialog1.FileTitle
    Exit Sub
ErrorHardler1:
    MsgBox "Cannot Play That File.", vbExclamation
   
ErrorHardler2:
End Sub

Private Sub Command2_Click()
End
MMControl1.Command = "stop"
End Sub

Private Sub Form_Activate()
Label2.ForeColor = vbBlack
End Sub

Private Sub Form_Load()
    MMControl1.TimeFormat = mciFormatMilliseconds
    Label1.Caption = "Sttatus = Frezze"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MMControl1.Command = "Stop"
    MMControl1.Command = "Close"
End Sub

Private Sub MMControl1_StatusUpdate()
Dim strMode As String
strMode = ""

    Select Case MMControl1.Mode
        Case mciModeReady
            strMode = "Ready."
        Case mciModeStop
            strMode = "Stopped."
        Case mciModeSeek
            strMode = "Seeking."
        Case mciModePlay
            strMode = "Playing."
        Case mciModeRecord
            strMode = "Recording."
        Case mciModePause
            strMode = "Paused."
End Select
Label1.Caption = "Status = " & strMode
End Sub

        5. Selesei sudah, silahkan anda coba/build :)

Untuk anda, yang tidak mau repot-repot coding diatas, bisa juga kok langsung download Project nya :D
tinggal edit-edit aja sesuka hati anda gratis pula, hmmm wkwkwk. Daaan, jangan lupa, selalu berikan credit pemilik nya ya ^_^

[Download Sourcecode]

Posted in: Sourcecode, Tutorial VB60