Membuat MP3 Dari VB.....

CARA MEMBUAT MP3 DARI VB

Untuk membuat mp3 Player kita hanya membutuhkan beberapa Item yaitu:
1. Commandbutton (5)
2. Listbox (3)
3. CommonControlDialog (1)
4. MediaPlayer (1)
Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.
Berikut tampilan setelah semua item dimasukan:

Ubah tampilan semenarik mungkin menurut anda..!!!
Masukan source kodenya sebagai berikut:

—————————
Private Sub Command1_Click()
On Error Resume Next
Dim buka As String
With CommonDialog1
.Filter = “All Support*.mp3;*.wav;*.mid;*.wma;*.dat;*.avi;*.wmv;*.mpeg;*.mpgmp3 files*.mp3all files*.*”
.DialogTitle = “ebenk – Open Music files”
.FileName = “”
.ShowOpen
buka = .FileName
If .FileName = “” Then
Exit Sub
Else
List1.AddItem buka
List2.AddItem .FileTitle
End If
End With
End Sub
Private Sub Command2_Click()
Dim main As String
main = List1.Text
If List1.Text = “” Then
MsgBox “Tentukan Lagu Yang Akan Di Mainkan”, vbCritical + vbOKOnly, “Konfirmasi”
Else
player.Open main
End If
End Sub
Private Sub Command3_Click()
player.Stop
End Sub
Private Sub Command4_Click()
player.Pause
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_DblClick()
Dim main As String
main = List1.Text
player.Open main
End Sub
Private Sub Player_EndOfStream(ByVal Result As Long)
On Error Resume Next
player.Stop
With Form1
If List1.ListIndex = List1.ListCount – 1 Then
List1.ListIndex = 0
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
Else
.List1.ListIndex = .List1.ListIndex + 1
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
End If
End With
player.Open List1.Text
End Sub

Semoga bermanfaat buat teman teman nya by M.Isnaini

Tweet

Subscribe to receive free email updates: