10 Menit Membuat Mp3 Player dengan Visual Basic

Bosen dengan Media Player seperti winamp, itunes, dll atau Kurang puas dengan media player karena memperlambat kinerja komputer...!!! mmm.. kenapa tidak buat sendiri saja..????
Ok..!!! untuk membuat mp3 player yang kita butuhkan saat ini yaitu Komputer yang telah terinstall visualbasic 6.0 dengan kondisi prima dan menyala, secangkir teh hangat, dan pastikan perut anda sudah terisi oleh makanan.

Langkah pertama yaitu jalankan visualbasic 6.0 dan buat new project lalu klik standard EXE.
Setelah jendela form terbuka masukan item-item yang dibutuhkan. berikut item-item yang kita perlukan;

Form/Control	Properties	Setting
Form1	Name: Caption:	frmAudioVideo My Mp3 Player
Commond Dialog1	Name:	CD1
MMControl1	Name: Visible:	mmcaudio False
Frame1	Name:	Frame1
Frame2	Name:	Frame2
Command1	Name: Caption:	CMD_PILIH Open Mp3
Command2	Name: Caption:	CMD_PLAY Play
Command3	Name: Caption:	CMD_STOP Stop
Command4	Name: Caption:	CMD_EXIT E&xit
Label1	Name: Caption:	Label1 Play List
Label2	Name: Caption:	Label2 Title
Label3	Name: Caption:	Label3 Artist
Label4	Name: Caption:	Label4 Year
Label5	Name: Caption:	label5 Album
Label6	Name: Caption:	label6 Komentar
List1	Name:	listpl
text1	Name: text:	txt_title none
text2	Name: text:	txt_artist none
text3	Name: text:	txt_year none
text4	Name: text:	txt_album none
text5	Name: text:	txt_Komentar none

Buat Tampilan semenarik mungkin atau susun semua item tersebut seperti gambar dibawah ini:



Setelah memasukan semua item-item diatas kita tinggal melakukan pengkodingan, Berikut source kodenya;
Deklarasikan beberapa variabel pada general seperi listing program berikut ini.

Dim buf as string * 256
Dim a As String, b As String, c As String, d As string, e As String
Dim getag

Buat prosedur Form_load dan Form_Unload seperti dibawah ini.

Private sub Form_load()
Dim app_path as String
App_path = App.path
if right$(app_path, 1) <> "\" Then
app_path = app_path & "\"
End if
mmcaudio.notify = false
mmcaudio.wait = true
mmcaudio.shareable = false
mmcaudio.command = "close"
CMD_PLAY.enabled = false
end sub

Private sub Form_Unload(cancel As Integer)
mmcaudio.command = "close"
end sub

Buat perintah untuk command Botton seperti berikut;

Private sub CMD_PILIH_Click()
Dim buka As String
CD1.Filter = "MP3 Files|*.mp3|All Audio files|*.mp3;*.wav;*.wma;*.mid|All files|*.*"
CD1.DialogTitle = "Ebenk - Open music files"
CD1.FileName = ""
CD1.ShowOpen
buka = CD1.FileName
If CD1.FileName = "" Then
Exit Sub
Else
Listpl.AddItem CD1.FileTitle
End If
CMD_Play.enabled = true
end sub

Private sub CMD_PLAY_Click()
mmcaudio.command = "Stop"
mmcaudio.command = "Close"
CMD_STop.enabled = true
mmcaudio.filename = listpl.text
mmcaudio.command = "Open"
mmcaudio.command = "Play"
keterangan
End sub

Private Sub CMD_STOP_Click()
mmcaudio.command = "Stop"
mmcaudio.command = "Close"
End Sub

Private Sub CMD_Exit_Click()
end
end sub

Sub keterangan()
fizilepath = listpl.text
if fizilepath <> "" Then
Open fizilepath for binary as 1 : n& = LOF(1) : Get #1, (N& - 256), Buf: Close 1
Getag = instr (1, Buf, "tag", 1)
If getag = 0 Then
a$ = "-"
b$ = "-"
c$ = "-"
d$ = "-"
e$ = "Keterangan File Tidak diketahui"
else
a$ = mid$(Buf, getag + 3, 30)
b$ = mid$(Buf, getag + 33, 30)
c$ = mid$(Buf, getag + 63, 30)
d$ = mid$(Buf, getag + 93, 4)
e$ = mid$(Buf, getag + 97, 30)
end if
txt_title.text = a$
txt_artist.text = b$
txt_album.text = c$
txt_year.text = d$
txt_komentar.text = e$
end if
end sub

Private Sub listpl_DblClick()
MMCaudio.Command = "Stop"
MMCaudio.Command = "Close"
CMD_STOP.Enabled = True
MMCaudio.FileName = listpl.Text
MMCaudio.Command = "Open"
MMCaudio.Command = "Play"
keterangan
End Sub

Selesai... dan sangat mudahkan..??? dari souce kode diatas kamu bisa lebih mengembangkannya sesuai kebutuhan kalian misalnya dengan memunculkan popup di pojok kanan layar seperti winamp atau hal-hal aneh yang menurut kamu menyenangkan...
ok sepertinya cukup sekian atau masih ada yang bingung..???