Skrip Membuat Media Player Dengan Visual Basic

tentunya temen-temen suka kan dengan musik? atau sekalian nonton videonya atau biasanya habis ngopy film dari temen pasti langsung pengen di tonton??. Kalau seumpamanya kita bisa dengerin musik, lihat video dengan media player buatan kita sendiri pasti lebih keren kan??.. hmm apa kalian pernah punya angan-angan waktu kalian muter media palyer terus kepikiran pengen ngebuat media player sendiri??. gak tau caranya??. makanya kali ini gue mau bagi skrip membuat media player sederhana dengan menggunakan program visual basic. Tanpa basa-basi lagi langsung saja ya gue bagi skripnya, dengan catatan paling tidak kalian harus mengerti cara penggunaan menu pada program visual basic.

Kode Yang          Private Sub Timer1_Timer()
    pg1.Value = pg1.Value + 1
  If pg1.Value >= 80 Then
    Timer1.Enabled = False
    Unload Me
    formmulti.Show
  End If
End Sub

>>> Form Utama seperti gambar di atas
==> skrip untuk form utama:

Dim i As Integer

Private Sub Command2_Click()
  MsgBox Left(Label2.Caption, 4)
  MsgBox Right(Label2.Caption, 3)
  MsgBox Mid(Label2.Caption, 4, 3)
  MsgBox Len(Label2.Caption)
End Sub

Private Sub Image2_Click(Index As Integer)
Select Case Index
    Case 0
      cd1.ShowOpen
      List1.AddItem cd1.FileTitle
      List2.AddItem cd1.FileName
    Case 1
      MediaPlayer1.Stop
    Case 2
       MediaPlayer1.Pause
    Case 3
     MediaPlayer1.DisplaySize = mpFullScreen
    Case 4
      tstatus.Text = "Normal"
    Case 5
      tstatus.Text = "Random"
    Case 6
      List2.Clear
      List1.Clear
      MediaPlayer1.Stop
  End Select

End Sub

Private Sub Image3_Click()
If swf1.Visible = False Then
swf1.Visible = True
Else: swf1.Visible = False
End If
End Sub

Private Sub Imgdown_Click(Index As Integer)
If List1.ListIndex > List1.ListCount - 1 Then
         List1.ListIndex = List1.ListIndex - 1
      Else
         List1.ListIndex = 0
      End If
         MediaPlayer1.Play
End Sub

Private Sub Imgnext_Click(Index As Integer)
If List1.ListIndex < List1.ListCount - 1 Then
         List1.ListIndex = List1.ListIndex + 1
      Else
         List1.ListIndex = 0
     End If
         MediaPlayer1.Play
End Sub

Private Sub Imgplay_Click(Index As Integer)
  MediaPlayer1.FileName = List2.List(List1.ListIndex)
  MediaPlayer1.Play
End Sub

Private Sub List1_Click()
  Label1.Caption = Space(30) + List1.Text
  MediaPlayer1.FileName = List2.List(List1.ListIndex)
  MediaPlayer1.Play
End Sub

Private Sub List1_DblClick()
  List2.RemoveItem List1.ListIndex
  List1.RemoveItem List1.ListIndex
  MediaPlayer1.Stop
End Sub

Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
 If tstatus.Text = "Normal" Then
    If List1.ListIndex < List1.ListCount - 1 Then
     List1.ListIndex = List1.ListIndex + 1
   Else
     List1.ListIndex = 0
   End If
 ElseIf tstatus.Text = "Random" Then
   For i = 1 To List1.ListCount - 1
     List1.ListIndex = Rnd(i) * List1.ListCount
        Next i
 End If
 MediaPlayer1.FileName = List2.List(List1.ListIndex)
 MediaPlayer1.Play
End Sub

Private Sub Slider1_Change()
  MediaPlayer1.Volume = Slider1.Value
End Sub

Private Sub Timer1_Timer()
   Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)
   
End Sub

ghgh

Penulis : Calendar Photo Frames App ~ Sebuah blog yang menyediakan berbagai Demo Tutorial

Artikel Skrip Membuat Media Player Dengan Visual Basic ini dipublish oleh Calendar Photo Frames App pada hari Tuesday, February 26, 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Skrip Membuat Media Player Dengan Visual Basic