Cara Membuat Mp3 Dengan VB 6.0

Jika gan ingin melihat hasilnya sebelum membuatnya.

Download di sini

Lanngkah-langkahnya sebagai berikut

1. Tekan ctrl+t kemudian pilih Windows Media Player

2. Buatlah 1 wmp, 1 Drive, 1 Dir, 1 File, 2 Listbox.

ingat listbox 2 ada di atas listbox 1

3. Di project file 1 pilih pattern tuliskan *.flv;*.3gp
4. Klik 2x pada wmp tuliskan
    Private Sub WindowsMediaPlayer1_EndOfStream(ByVal Result As Long)
       List1.ListIndex = List1.ListIndex + 1
       List2.ListIndex = List2.ListIndex + 1
       WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
    End Sub
5. Klik 2x pada Drive tuliskan
   Private Sub  Drive1_Change()
         Dir1.Path = Drive1.Drive
   End Sub
6. Klik 2x pada Dir tuliskan
      Private Sub   Dir1_Change()

        File1.Path = Dir1.Path
 
     End Sub
7. Klik 2x pada File tuliskan
  Private Sub   file1_DblClick()
        List1.AddItem Dir1.Path & "\" & File1.FileName
        List2.AddItem File1.FileName
 End Sub
8. Klik 2x pada Listbox 2 tuliskan
     Private Sub   List2_DblClick()
        List1.ListIndex = List2.ListIndex
        WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
    End Sub
9. Selamat mencoba jangan lupa di follow.

Gan juga bisa download THEMES ISLAMIC Windows 7 klik di sini.