Kamis, 16 September 2010

Home » » Media Player Sederhana Dengan VB6

Media Player Sederhana Dengan VB6

13.43    7 comments
Pada postingan ku kali ini aku mau memberikan sedikit tips sederhana tentang bagaimana caranya kita membuat media player sederhana menggunakan visual basic 6. Memang sih pada saat kita menginstal windows biasanya sudah ada media playernya tetapi satu hal yang membuat aku memposting artikel ini adalah "kepuasan", kita akan merasa lebih puas kalau kita dapat membuatnya sendiri.

Ok baik langsung saja yah kita mulai langkah-langkahnya :
1. Buka program visual basic 6.02. Pilih Standart.EXE
3. Tambahkan komponen media player dengan cara klik pilihan Components.


Catatan: perhatikan ocx yang digunakan di atas

4. Drag componen media player ke dalam Form

5. Supaya tidak terlalu kelihatan windows media player buanget,...masukan componen picturebox ke dalam Form dan ataur posisinya seperti di bawah ini :

6. Masukan gambar ke dalam picturebox sehingga tampak seperti ini :

7. Tambahkan 1 buah commondialog dan 2 buah commandbutton dan letakkan seperti gambar di bawah ini:

Catatan : Ubah Caption Command1 = Open File
Ubah Caption Command2 = About

8. Tambahkan 1 buah TextBox seperti di bawah ini:

9. Buka jendela kode dan masukkan kode di bawah ini:

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.DialogTitle = "Open MP3 File"
CommonDialog1.Filter = "MP3 File (*.MP3)|*.mp3|WAV File (*.WAV)|*.wav|WMA File (*.WMA)|*.WMA)|MIDI File (*.MID,*.MIDI)|*.MID;*.MIDI|Video File(*.DAT,*.AVI,*.MPG,*.MPEG)|*.DAT;*.AVI;*.MPG;*.MPEG"
CommonDialog1.ShowOpen
If CommonDialog1.FileTitle <> "" Then
Text1.Text = CommonDialog1.FileName
MediaPlayer1.FileName = Text1.Text
MediaPlayer1.Play
End If
End Sub

Private Sub Command2_Click()
MsgBox "Media Player Sederhana" & vbCrLf & _
"Created by: Rudy Maturbongs,S.Si" & vbCrLf & _
"Email: rudylodewyk@yahoo.co.id", vbInformation, "About"
End Sub

10. Test program anda dengan dengan menekan tombol F5 pada keyboard.

SEMOGA SUKSES !!!

7 komentar:

  1. Anonim26 Juni 2013 pukul 15.33

    kok nggak berfungsi saat di open ?

    BalasHapus
  2. Dyon3 Agustus 2013 pukul 23.14

    Assalam mas rudi nich saya klo bikin 1 file movie static aja yang buat play gimana koding programnya mas tanpa ada pencarian file movienya di folder ?Makasi n tolong bantuannya

    BalasHapus
  3. Rudy Maturbongs16 Agustus 2013 pukul 13.18

    Salam, buat anonim kemungkinan ada salah ketik kodenya. Buat mas Dyon kalau yang kita gunakan kontrol media player di atas (msdxm.ocx) maka kode untuk membuka 1 file movie staticnya adalah:
    1. Jika file Mp3 atau Videonya di folder yg sm dgn program

    MediaPlayer1.FileName = App.Path & "\crush.mp3"

    2. Jika file Mp3/video berada di drive lain

    Mediaplayer1.FileName = "D:\crush.mp3"

    Catatan: Crush.mp3 itu hanya contoh nama filenya dan kode ini bisa dimasukkan di tombol atau diloading pada saat program dijalankan

    Semoga bisa membantu ya ^_^

    BalasHapus
  4. Unknown25 Agustus 2014 pukul 17.15

    gan, caranya simpan video lewat vb.06 gimana caranya?
    terima kasih

    BalasHapus
  5. Rudy Maturbongs15 Oktober 2014 pukul 22.41

    mungkin bisa dicoba kode di bawah ini, kode ini untuk mengcapture plus simpan file video dengan format AVI.

    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As String, lParam As Any) As Long
    Dim hWnd As Long

    hWnd = capCreateCaptureWindow(0, ws_visible Or ws_child, 0, 0, 0, 0, tgt.hWnd, 0)
    Dim a As Boolean
    a = SendMessage(hWnd, wm_cap_driver_connect, 0, 0)
    a = SendMessage(hWnd, WM_CAP_SET_SCALE, True, 0)
    a = SendMessage(hWnd, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0)
    a = SendMessage(hWnd, WM_CAP_FILE_SET_CAPTURE_FILE, "d:\myvideo1.avi", 0)
    a = SendMessage(hWnd, WM_CAP_SET_SEQUENCE_SETUP, 96, 0)
    a = SendMessage(hWnd, WM_CAP_SEQUENCE, 0, 0)

    Semoga bisa membantu ya ^_^

    BalasHapus
  6. Unknown7 Desember 2015 pukul 23.29

    Permisi mas,kok engga bisa diputar ya mp3nya?

    BalasHapus
  7. Unknown27 Oktober 2016 pukul 22.28

    yang portable kok nga ad microsoft commond ya?

    BalasHapus