Cara Membuat Aplikasi Multi Media Menggunakan VB 6

Cara Membuat Aplikasi Multi Media Menggunakan VB 6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Aplikasi Multi Media Menggunakan VB 6.

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:


Properti
Kegunaan
AutoStartUntuk menentukan apakah file akan langsung dimainkan
FileNameUntuk menentukan nama File yang akan dimainkan
PlayCountUntuk menentukan berapa kali file Audio atau vidio di mainkan
ShowAutoControlsUntuk menentukan apakah panel control suara akan di tampilkan atau tidak
ShowControlsUntuk menentukan apakah panel kontrol akan di tampilkan atau tidak
ShowDisplayUntuk menetukan apakah panel Display akan ditampilkan atau tidak
ShowPositionControlsUntuk menentukan apakah tombol-tombol posisi akan terlihat di panel kontrol atau tidak
ShowTrackerUntuk 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 Cara Membuat Program Aplikasi Multi Media Menggunakan VB 6Selamat mencoba senoga berhasil......!!!!
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Aplikasi Multi Media Menggunakan VB 6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel