Demo Tutorial

fgfgfgfg

6. Press and hold CTRL + F search <div class='post-footer-line post-footer-line-1'> or <p class='post-footer-line post-footer-line-1'> tag.
7. Copy the code below and paste above
<div class='post-footer'>
<div class='post-footer-line post-footer-line-1'>
or
<div class='post-footer'>
<p class='post-footer-line post-footer-line-1'> tag.

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

eeeeeeeeedddddddsd

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

lorem inyong tes lorem inyong teslorem inyong tes lorem inyong tes lorem inyong tes
lorem inyong tes lorem inyong tes lorem inyong tes lorem inyong tes

Demo Tutorial

Demo tutorial 2

Demo Pemograman

Demo lagi

Featured Post Title 1

fgfgfgfg

Skrip Membuat Media Player Dengan Visual Basic

eeeeeeeeedddddddsd

lorem inyong tes

Recent Post

TAB 1
Konten Di Sini.

My Partner Link

Ads

Arsip Blog

Populer Minggu ini

Blog Stat

Entri Populer

Blog Archive

About

JOIN OUR GROUP

Category

Contact

Partner Link