Windows Media Player Multi System RHM 08 Verson 2.0

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

End Sub

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