MUSIK PLAYER DENGAN VISUAL BASIC 6.0

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 !!!!!!