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.
>>> dibawah ini adalah contoh tampilan sederhana media player yang telah saya buat sebagai panduan untuk kalian nanti waktu mengembangkan skrip ini
>> catatan:
Pada image nada di bawah tombol fullscreen adalah image yang saya gunakan untuk menutup tampilan component media player yang kalian bisa tambahkan, carax klik kanan pada toolbox> add component> di control library centang pada bagian windows media player yang bagian paling bawah *soalnya yang bagian bawan untuk memutar musik n video tapi dengan catatan hanya file video tertentu yang bisa masuk makanya skrip ini masih banyak memerlukan lanjutan* kemudia klik ok dan letakkan komponent media player d bawah image yang bergambar nada, dengan setingan "name= mediaPlayer1, allow cdc allowscan n animation= true, audio stream=-1, autorewain n auto size= false, autostart= true, buffering time= 5, causevalidation n clicktoplay= true, dispaly mode= 0-mptime, display size= 4-mpfit tosize, drag mode=vb manual, enablebcontmenu n enabled= true. enabled fullscren control= false, enabledposcontrol n enabled tracker= true, invokeurl= true, language=-1, left=1530, mute= false, playcount= 1, previwmode= false, rate=1, selection end n start=-1, senderrorevent= true,sendKE sendCE sendMME= false, SendOSCE sendPSCE sendWE=true,showAC=true, SHOWcapt n showdisplay showgotobar showhstatusbar=false, showcontrol showPC showtracker= true, tab index=7.tabtop=true, top=1440, transparanatstart n video border3D=false, visible=true, volume= -600, width= 4005, windowlessvideo=false . Pada image yang menutupi komponent media player akan tidak kelihatan ketika kita memutar file vidio. pada properti di atur "enabled= true, strecth= true, visible= true, tag=true, visible= true".
Pada daftar playlist kita bisa mengunakan komponen "label". Untuk volume suara bisa kita gunakan komponen slider dengan setingan pada properti max= 0, pada min= harus di isi "-" nomer negatif, contoh untuk nilai paling manimal adalah -4000 soalnya volume terendah d mulai dengan -4000 dan volume max adalah 0. untuk tombol playlist, clear, fullscren dan sebagainya kita bisa menggunakan komponen image. jangan lupa pasang komponent "common dialog, timer. Pada image daftar judul kita bisa mengunakan label dengan backstyle di atur transparan". Siapkan tombol random disamping progres bar (acak) dan tombol normal seperti gambar diatas juga. oya sampai lupa, untuk membuat semakin menarik tampilan media palyer yang kita buat jangan lupa sertakan form splass. Satu lagi yang hampir kelupaan gue post, sertakan juga file dengan format .ocx kebetulan dalam program ini file .ocx gue kasih nama "msdxm.ocx " dan letakkan file "msdxm.ocx" dalam satu folder dengan program.., kalau belum punya file "msdxm.ocx" kalian bisa tinggalkan email kalian di kolom koment nanti gue kirim lewat email. okeh?? *OK*
>>> Form 1 bisa kita isikan form splas
>>> jangan lupa sertakan progressbar pada image agar tampilan lebih menarik ok? hihihi.
==> skrip untuk form splass:
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
demikian skrip untuk membuat media player menggunakan program visual basic, saya minta maaf kalau ada kekurangan dalam penyampaian. hihihi masih sama-sama belajar, semoga skrip ini bisa temen-temen kembangkan agar lebih sempurna. Aminnn... kalau kalian masih kesulitan dalam pengerjaan atau mau berteman sama gue? follow twitter gue @Dyukiakatsuki atau facebook selamat berkarya and tambah jenius okeh?, *OK*. jangan lupa coment ya biar blog gue makin oke.
4 komentar:
bisa share scripnya ke email gan ? , herry.sn@bhayumanunggal.web.id, thank you
asyik. makasih...
liz.felix2@gmail.com
liz.felix2@gmail.com
Posting Komentar