MUSIK PLAYER DENGAN VISUAL BASIC 6.0


MMMMMMMM................. Mari kita iseng2an !!!!!!!!
seng-iseng mengisi waktu setelah menjalankan hari2 saya, 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

SEMOGA BERMANFAAT YA !!!!!!

0 komentar:

Poskan Komentar