WMP RHM 08 Verson 2.0
Program ini merupakan gabungan dua buah konsep Mp3 Player & Windows Media Player yang di j gabungkan dalam 1 Form :
Tabel Komponen:
Rancangn Form :
Untuk member Background pada Form Disain di Photoship dan simpan engan format ‘Gif’ pada bagian Propertis Form cari Picture -> Clik -> Ambil ganbar yang anda inginkan, untuk pemasangan tool lihat gambar di bawah ini :
Membuat Menu :
è Plim Menu Tool
è Menu Editor Maka Akan Muncul Form berikut ini
Selanjutny anda tinggal memasukkan koding berikut ini :
Dim File As String
Dim Kode As Boolean
Dim EndTrack As Long
_______________________________________________________________________
Sub Play()
File = File1.Path & "\" & File1.FileName
If Mid(File, 3, 1) = "\" And Mid(File, 4, 1) = "\" Then
Path = Left(File1.Path, 3)
File = Path & File1.FileName
Else
File = File1.Path & "\" & File1.FileName
End If
MMControl1.FileName = File
MMControl1.Command = "Open"
EndTrack = MMControl1.TrackLength
If EndTrack = 0 Then
MsgBox "Soory Can't Play in this Application", vbOKOnly + vbCritical, "Scope Error"
Else
LabTrackEnd.Caption = EndTrack
End If
End Sub
Sub BarOke()
Slider1.Min = 0
Slider1.Max = Val(MMControl1.TrackLength)
End Sub
___________________________________________________________________
Private Sub Check1_Click()
If Check1 = Checked Then
File1.Visible = False
MonthView1.Visible = True
Else
File1.Visible = True
MonthView1.Visible = False
End If
End Sub
______________________________________________________________________________
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.FileName = "*.MP3;*.Mpg;*.WAV;*.MIDI"
End Sub
Sub Abillagu()
Dim sFile As String
With CommonDialog1
.DialogTitle = "Open Media..."
.CancelError = False
.Filter = "*.MPG;*.Mpeg*.wmp;*.avi;*.Mp4"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
With List1
.AddItem sFile
End With
End With
End Sub
____________________________________________________________________________________
Private Sub Drive1_Change()
On Error GoTo Perangkap
Dir1.Path = Drive1.Drive
Perangkap:
Select Case Err
Case 68
MsgBox "Can't Access Drive " & Drive1.Drive, vbOKOnly + vbCritical, "Scope Error"
Drive1.Refresh
Case 0
Exit Sub
End Select
End Sub
Private Sub File1_Click()
MMControl1.Command = "Close"
MMControl1.Refresh
Play
LbFileName.Caption = File1.FileName
End Sub
________________________________________________________________________
Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
WindowsMediaPlayer1.ShowWhatsThis
End Sub
________________________________________________________________________
Private Sub Form_Load()
WindowsMediaPlayer1.URL = File1
End Sub
____________________________________________________________________________
Private Sub Image1_Click()
Abillagu
End Sub
________________________________________________________________________________
Private Sub Image3_Click()
Me.Hide
FfmAbout.Show
End Sub
________________________________________________________________________________
Private Sub List1_Click()
WindowsMediaPlayer1.URL = List1
End Sub
__________________________________________________________________________
Private Sub MMControl1_Done(NotifyCode As Integer)
If Kode = True Then Exit Sub
If MMControl1.TrackLength = MMControl1.Position Then
If File1.ListCount = File1.ListIndex Then
MMControl1.Command = "Close"
Else
With File1
.ListIndex = .ListIndex + 1
End With
MMControl1.Command = "Play"
End If
End If
End Sub
Private Sub MMControl1_PlayClick(Cancel As Integer)
Play
BarOke
End Sub
Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.Refresh
MMControl1.Command = "Close"
Kode = True
End Sub
_____________________________________________________________________
Private Sub nmAbout_Click()
Me.Hide
FfmAbout.Show
End Sub
________________________________________________________________
Private Sub nmExit_Click()
Unload Me
End Sub
_______________________________________________________________________
Private Sub nmOpen_Click()
Abillagu
WindowsMediaPlayer1.ShowWhatsThis
End Sub
_________________________________________________________________________
Private Sub nmPause_Click()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
WindowsMediaPlayer1.ShowWhatsThis
End Sub
_____________________________________________________________________________
Private Sub nmuses_Click()
FrmUsing.Show
End Sub
____________________________________________________________________________
Private Sub Timer1_Timer()
Slider1.Value = MMControl1.Position
LlTrack.Caption = MMControl1.Position
End Sub
_________________________________________________________________________
Private Sub Timer2_Timer()
LbJam.Caption = Time
Jika ditekan tombol F5 maka hasilnya adalah :
1. Pilih terlebih dahulu Drive nya
2. Pilih Derektorinya double clik
3. Maka Lagu akan Muncul di List Lagu
4. Clik File di listlagu akam aktif di MP3 Player
5. Double Clik File Play di Windos Media Player
6. Jika cek Hiden di clik lis tertutup dan calender tampil
7. Plih File- Open maka
8. List Windows Media Player Terisi
9. Clik file di list Windows Media Player akan Play
Download Softwarenya di:
WMP RMH 08 Verson 2.0.zip
Jika anda ingin mengembangkanya download Projectnya di
WMP.rar
Untuk mepelajarinya lebih dalam download artikel Pdf nya dibawah ini :
WMP_RHM_08_Verson_2.pdf
