Membuat Program Mp3 Player Dengan Visual Basic 6.0

Langkah-langkah Membuat Program Mp3 Player

1. Buka Program Microsoft Visual Basic yang telah terinstall di Komputer ataupun di Laptop Kalian.

2. Buat sebuah Project baru dengan Memilih Standart Exe.

3. Sebelum melanjutkan pembuatan program Mp3 player menggunakan visual basic, terlebih dahulu tambahkan komponen Multimedia Control dan Common Dialog Control ke ToolBox Vb. 

Cara menambahkan Components baru ke Toolbox Visual Basic.

Caranya dengan Klik menu Project dan pilih components, atau dengan Mengklik kanan Toolbox dan pilih Components bisa juga dengan menekan tombol Ctrl + T dari Keyboard anda. Selanjutnya akan muncul jendela components dan beri centang pada Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0. Klik Ok.

4. Tambahkan Component seperti 2 Command Button, Multimedia Control, Common Dialog Control dan  2 buah Label . Masin-masing Component satu buah dan atur sedemikian rupa atau kurang lebih tampak seperti gambar berikut ini.

Command2 captionnya Keluar
Command1 captionnya Open Files
Label2 BorderStylenya  1-Fixed Single

Source Codenya :
1. Untuk Form Load Isikan Script VB seperti ini.
Private Sub Form_Load()
    MMControl1.TimeFormat = mciFormatMilliseconds
    Label1.Caption = "Sttatus = Frezze"
End Sub



2. untuk Form Unload isikan Script Vb seperti ini
Private Sub Form_Unload(Cancel As Integer)
    MMControl1.Command = "Stop"
    MMControl1.Command = "Close"
End Sub

3. Klik dua kali Command Button yang bercaption Open Files dan tambahkan Script VB seperti Berikut.
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


4. Selanjutnya pada Jendela Code, untuk Declaration pada Mmcontrol1 pilih StatusUpdate dan tambahakan Script vb seperti berikut
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. Selesai dan jalankan program

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Membuat Program Mp3 Player Dengan Visual Basic 6.0 ini dipublish oleh Unknown pada hari Kamis, 28 Maret 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Membuat Program Mp3 Player Dengan Visual Basic 6.0