NMP(NulaElieTMediaPlayer)

sekarang saya akan memberi tahu bagai mana membuat aplikasi yang mirip atau hampirsama dengan WMP (WindowsMediaPlayer),
pertama yang harus di butuhkan
1.Command 1
2.CommonDialog
3.Lable (jika anda ingin menambahkan jam)
4.Timer
5.dan WMP ( caranya lihat di bawah ini)

nah untuk mencari WMP, Buka Program VB >Project>Components atau jalan pintasnya CTRL + T
trus kamu pilih Control > cari dibawah tulisan Microsoft ADO Data Control 6.0,Microsoft Common Dialog Control,dan Windows media player kamu beri centang. Selanjutnya apply dan ok ( seperti gambar berikut).nah jika sudah copy sourcecodenya dibawah ini
<span class="fullpost">

Private Sub about_Click(Index As Integer)
MsgBox "AMP(AplikasiMediaPlayer)", vbInformation
End Sub

Private Sub cmdPlaylist_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
CommonDialog1.Filter = "*.wav*.mp3"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Private Function KeepTwoDigit(Num As Integer)
    If (Num < 10) Then
        KeepTwoDigit = "0" & Num
    Else
        KeepTwoDigit = Num
    End If
End Function

Private Sub Exit_Click(Index As Integer)
End
End Sub

Private Sub Pembuat_Click(Index As Integer)
MsgBox "by : Nugroho (Manuk) masih Belajar (newbie)", vbInformation
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = KeepTwoDigit(Hour(Now)) & ":" & KeepTwoDigit(Minute(Now)) & ":" & KeepTwoDigit(Second(Now))
End Sub


Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub

ini karya saya sendiri tapi saya masih bingung untuk membuat playlistnya..
jika ingin downoad klik dibawah ini:

Download Disini

Download Disini ( Versi kke-2 "maaf kalau ada yang aneh, saya masih belajar ")
yang ini bisa buat diinstal
Download Disini

tambahan jika ingin file menjadikan .exe lihat dibawah ini yang digaris bawahi warna biru untuk mengubah file menjadi .exe Jng Lupa DIKOMENT OK ^_^