Cara Membuat Video/Music Player Dengan Menggunakan Visual Basic 6

Zen

INFO

Sunday, September 29, 2013

Belum ada komentar

                Hay para teman bloger kali ini saya akan mempostingkan sesuatu,yaitu sesuai judulnya saya akan coba mengajari yang belom bisa menjad bisa,wkwkwkwkwk

Langsung saja y caranya cukup sederhana,tapi kita harus fres otakny

Ni adalah bahan yang kita butuhkan:

      1.  Visual Basic 6 (klau belum punya download sendiri di google)

      2.  Windows Media Player

3    3.  1 buah mouse agar lebih cepat

Nah selanjutnya adalah caranya:

1    1.  Buka VB6-nya lalu pilih “standard exe”

2    2.  Di sini kita membutuhkan component sebagai berikut: perhatikan y!

Nama Component	Nama	Caption / Text
Form1	Form1	VMplayer
CommandButton1	cmdadd	&Add
CommandButton2	cmdplay	&Play
CommandButton3	cmdpause	&Pause
CommandButton4	cmdstop	&Stop
CommandButton5	cmdexit	&Exit
Text1	txtadd	“kosongkan”
CommonDialog1	CD	“kosongkan”
WindowsMediaPlayer1	vmplayer	“kosongkan”

Cara untuk mendapatkan CommonDialog n WindowsMediaPlayer adalah: -Pencet keyboard Ctrl+T

                                                                                                                 -Cek list  pada “Microsoft                                                                                                                    Common Dialog Control                                                                                                                    6.0 (SP6)” dan “Windows                                                                                                                    Media Player”

                                                                                                                  -Lalu klik ok

3.  Lalu tata semua componentnya seperti gambar berikut: 

5.  Setelah Selesai mengatur letak sekarang masukkan kode berikut caranya klik menu “View >           Code”

Ini kodenya:

 

Private Sub cmdadd_Click()

On Error GoTo akhir

Dim Filename As String

cd.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai dengan kebutuhan misal Image|*.jpg

cd.ShowOpen

Filename = cd.Filename

akhir:

If Len(Filename) > 0 Then

txtadd.Text = Filename

vmplayer.URL = txtadd.Text

Timer1.Enabled = True

End If

End Sub

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdpause_Click()
vmplayer.Controls.pause
Timer1.Interval = 0
End Sub

Private Sub cmdplay_Click()
vmplayer.Controls.play
Timer1.Enabled = True
End Sub

Private Sub cmdstop_Click()
vmplayer.Controls.stop
Timer1.Enabled = False
End Sub

Private Sub form_load()
txtadd.Visible = False
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Form1.Caption = vmplayer.currentMedia.Name
End Sub

 

6.  Setelah itu pencet F5 pada keybord! Gimana mudahkan?

7.  Terakhir yang sobat harus lakukan adalah Make Project1.exe

     Caranya klik menu “File > Make Project1.exe...”

Selesai dech,tinggal nikmati aja buatan sendiri,semoga berhasil and then good bye