Cara Membuat Aplikasi Multi Media di VB 6 - Pada kesempatan kali ini tip dan trik akan membuat sebuah tip yaitu Cara Membuat Aplikasi Multi Media di VB 6. Sebagai pengguna komputer kita tidak asing lagi yang bernama windows media player sebagai alat pemutar musik, vidio atau slide gambar dengan berbagai format. Sebelum kita membuat aplikasi multi media mari kita simak pengertian dari pada multi media.
"Multi Media adalah penggunaan komputer untuk menyajikan dan menggabungkan teks, suara, gambar animasi, audio maupun vidio dengan alat bantu (tool) dan koneksi (link) sehingga pengguna dapat melakukan navigasi, berinteraksi, berkarya dan berkomunikasi.Multi Media sering digunakan dalam dunia informatika [wikipedia]".
Untuk keperluan Aplikasi multi media, Visual Basic sudah menyediakan sebuah kontrol yang dinamakan Windows Media Player.
Berikut adalah Properti yang terdapat Windows Media Player:
Berikut adalah Properti yang terdapat Windows Media Player:
Properti
|
Kegunaan
|
AutoStart | Untuk menentukan apakah file akan langsung dimainkan |
FileName | Untuk menentukan nama File yang akan dimainkan |
PlayCount | Untuk menentukan berapa kali file Audio atau vidio di mainkan |
ShowAutoControls | Untuk menentukan apakah panel control suara akan di tampilkan atau tidak |
ShowControls | Untuk menentukan apakah panel kontrol akan di tampilkan atau tidak |
ShowDisplay | Untuk menetukan apakah panel Display akan ditampilkan atau tidak |
ShowPositionControls | Untuk menentukan apakah tombol-tombol posisi akan terlihat di panel kontrol atau tidak |
ShowTracker | Untuk menetukan apakah Trackerbar akan terlihat dalam panel kontrl atau tidak |
Bagi Anda yang penasaran bagaimana cara membuatnya mari kita simak langkah-langkah berikut dibawah ini :
Membuat Aplikasi Multi Media di VB 6
1. Buka Form VB Anda
2. Tanamkan pada form Anda kontrol-kontrol berikut dibawah ini:
- 1 Windows Media Player
- 1 CommonDialogControl
- 1 Timer
- 1 TextBox
- 5 CommandButton
Keterangan :
-Untuk menambahkan WMP dan CommonDialogControl tekan CTRL+T cari kedua komponen tersebut kemudian Ceklist dan Aply. Lihat hasilnya di ToolBox
3. Atur properti masing-masing seperti di bawah :
- Windows Media Player Name : vmplayer
- CommonDialogControl Name: cd
- Timer Name: Timer1
- TextBox Name: txtadd
- CommandButton :
CommandButton1 Name : cmdadd
CommandButton2 Name : cmdplay
CommandButton3 Name : cmdpause
CommandButton4 Name : cmdstop
CommandButton5 Name : cmdexit
4. Buatlah desain form seperti gambar dibawah ini :
Desain Form yang sudah jadi |
5. Setelah selesai mendesain form buka jendela kode dengan F7 lalu Copy-Paste kode dibawah ini di bagian General-Declaration:
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
Form20.Caption = "Windoes Media Player"
End Sub
Private Sub Timer1_Timer()
Form20.Caption = "Windoes Media Player >> " + vmplayer.currentMedia.Name
End Sub
6. Simpan hasil pekerjaan Anda dan jalankan Program dengan F5.
Catatan:
Name Form sesuaikan dengan Form Anda saat ini, lihat yang bercetak tebal kode diatas di bagian Private Sub Timer1_Timer() dan Private Sub form_load()
Demikian tip Cara Membuat Aplikasi Multi Media di VB 6 . Selamat mencoba senoga berhasil......!!!!
No comments:
Post a Comment