Cara Membuat MP3 Sederhana

Cara Membuat Mp3 Sederhana !!
------------------------------------------------------------------------

Bahan :
1 ComoonDialog
2 Timer
1 Multimedia Control 6.0
1 Listbox
1 ComandButton
3 Text Box
------------------------------------------------------------------------
Beri nama :

ComoonDialog1 = CD1
Timer 1 = Timer2
Timer 2 = Timer3
Multimedia Control 6.0 = mmcaudio
Listbox = listpl
ComandButton = CMD_PILIH
Text 1 : txt_title
Text 2 : txt_artist
text 3 : txt_album
------------------------------------------------------------------------

'Source By Reynaldi Alfajri
'Mp3 Sederhana
'karameca.forumid.net

Dim buf As String * 256
Dim a As String, b As String, c As String, D As String, e As String
Dim getag
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"
End Sub

Private Sub Form_Unload(cancel As Integer)
mmcaudio.Command = "close"
End Sub
Private Sub CMD_PILIH_Click()
Dim buka As String
CD1.Filter = "MP3 Files|*.mp3|All Audio files|*.3gp;*.mp3;*.wav;**.DAT;.wma;*.mid|All files|*.*"
CD1.DialogTitle = "Mp3 Windows Tools "
CD1.FileName = ""
CD1.ShowOpen
buka = CD1.FileName
If CD1.FileName = "" Then
Exit Sub
Else
listpl.AddItem CD1.FileTitle
End If
End Sub



Private Sub CMD_Exit_Click()

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$
End If
End Sub


Private Sub listpl_DblClick()
mmcaudio.Command = "Stop"
mmcaudio.Command = "Close"
mmcaudio.FileName = listpl.Text
mmcaudio.Command = "Open"
mmcaudio.Command = "Play"
keterangan
End Sub

Private Sub Timer2_Timer()
jam.Caption = Format(Now, "dddd, d MMMM yyyy HH:MM:SS")
End Sub

Private Sub Timer3_Timer()
Dim s As String
s = frmSplash.Caption

frmSplash.Caption = s
End Sub