Membuat Media Player Dengan VB 6.0

baik lah pembacaa yang budiman kali ini saya akan membahas sedikit kegunaan tentang VB.6.0 .Sebenarnya banyak kegunaanya tp saya akan memaparkan sedikit contoh yaitu membuat media player dengan VB.6.0 ,baiklah untuk  komponenya ada di bawah ini :

  1. Commondialog
  2. Label
  3. Frame
  4. Line
  5. Commandbutton
  6. Windows media player
  7. listbox

dengan menggunakan bantuan komponen itulah pembanguan pemutar video sederhana dapat tercapai.

  1. Setelah kita menyiapkan komponen yang dibutuhkan, kemudian kita mmposisikannya, seperti pada gambar

 

 

 

 

 

 

2.

  1. Setelah dipasangkan maka kita harus memasukkan kode program pada tiap komponen.

Kode program yang saya gunakan.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.FillColor = &H80F&

End Sub

Private Sub Label_Click()

End Sub

Private Sub Label1_Click()

Dim sFile As String

With CommonDialog1

.DialogTitle = “Membuka File …”

.CancelError = False

.Filter = “File yang Didukung (*.wmv,*.avi)|*.wmv;*.avi;”

.ShowOpen

If Len(.FileName) = 0 Then

Exit Sub

End If

sFile = .FileName

With List1

.AddItem sFile

End With

End With

End Sub

2. Setelah kode program dimasukkan, maka langkah selanjutnya adalah kita mengeksekusi nya dengan cara mengklik “start”. Contoh hasil pada gambar  .. selamat mencoba gan

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s