Webcam merupakan salah satu fitur multimedia yang sangat mudah ditemui pada sebuah komputer khususnya sebuah laptop. Selain termasuk device bawaan dari sebuah laptop, webcam juga dapat dijual secara terpisah. Jika sebuah komputer dipasang sebuah webcam, maka sebuah komputer juga dapat menampilkan video dari webcam.
Sebagai salah satu device pendukung aplikasi web, biasanya webcam cenderung memiliki resolusi lebih rendah dibandingkan device camera yang tidak diperuntukkan untuk aplikasi web. Hal ini menjadi salah satu pertimbangan untuk mendapatkan layanan camera berbasis web yang tidak mengurangi kecepatan dan membutuhkan bandwidth yang besar.
Pada tulisan ini akan diberikan sebuah contoh program menggunakan Visual Basic 6 untuk menampilkan webcam pada program. Pertama kali untuk dapat menampilkan webcam pada VB, Anda harus menginstall software driver dari device webcam yang akan digunakan. Setelah proses installasi sukses, maka baru dapat digunakan untuk menampilkan webcam pada VB.
Anda dapat menggunakan template VB yang sudah kami sertakan disini.
Langkah untuk membuat program Menampilkan Webcam pada VB adalah sebagai berikut, dengan menggunakan template di atas.
1. Mendeklarasikan variabel pada awal program
'DEKLARASI WEBCAM '======================================================================== Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long Private mCapHwnd As Long Private Const HUBUNG As Long = 1034 Private Const PUTUS As Long = 1035 Private Const AMBIL_FRAME As Long = 1084 Private Const COPY As Long = 1054
2. Membuat fungsi untuk menghubungkan VB dengan driver webcam
Sub Kamera_Mulai() mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0) DoEvents SendMessage mCapHwnd, HUBUNG, 0, 0 End Sub
3. Membuat fungsi untuk memutus koneksi VB dengan driver webcam
Sub Kamera_Berhenti() DoEvents: SendMessage mCapHwnd, PUTUS, 0, 0</p> End Sub
4. Memulai menampilkan video webcam pada program
Private Sub Timer1_Timer() SendMessage mCapHwnd, AMBIL_FRAME, 0, 0 SendMessage mCapHwnd, COPY, 0, 0 Picture1.Picture = Clipboard.GetData Clipboard.Clear End Sub Private Sub btnMulai_Click() Kamera_Mulai Label3.Visible = False End Sub
5. Memutus video
Private Sub cmdStop_Click() Kamera_Berhenti Label3.Visible = True End Sub
6. Menutup Aplikasi
Private Sub cmdClose_Click() Unload Me End Sub
untuk mendapatkan contoh lengkap silakan unduh disini.
Demikian semoga bermanfaat.
— Rohmadi —
20 responses to “Menampilkan Webcam Pada Visual Basic 6.0”
Anonnim
Juni 12th, 2014 pukul 07:22
Copas ya ??
cuma bisa sekali, kalo emang ente yang buat benerin dong
SukaSuka
roohmadi
Juli 5th, 2014 pukul 10:22
Maaf, bukan murni saya bikin sendiri. Saya merefer sumber lain. Terima kasih.
SukaSuka
erwindan314
Oktober 4th, 2013 pukul 21:58
mas kalo mo nampilin lebih dari satu web cam gimana yah codingnya..
saya coba copy tombol buttonnnya dan picture boxnya tapi kedua picture boxnya muncul dengan kamera yg sama,
mohon bantuannya mas..
SukaSuka
rokhi alfausa
September 30th, 2013 pukul 20:12
Luar biasa!!!
Saya gabungkan dengan sistem presensi karyawan with fingerprint and web cam…
Trimakasih ilmunya mas bro….
SukaSuka
roohmadi
Juli 5th, 2014 pukul 10:21
Terima kasih.
SukaSuka
wahyu
Februari 14th, 2013 pukul 14:55
setelah saya coba kok cuma bisa jalan sekali ya? setelah saya tutup kemudian di buka lagi di picture box blank.. tidak tampil apa2. kenapa ya..?
SukaSuka
roohmadi
Februari 21st, 2013 pukul 05:39
Masih belum ketemu solusinya?
Mungkin driver webcamnya.
SukaSuka
Dewi
Mei 20th, 2013 pukul 18:50
masalah saya sama mas dengan Wahyu.. jd hanya dpt tampil satu kali aja selebih ny gk bs.. di minta video device nya.. itu gmn ya mas? maaf mas newbie.. mksh mas
SukaSuka
Arrival Kashishihirukata
Desember 17th, 2012 pukul 15:11
Nah, Izin Tanya nih mas
Caranya agar bisa ngerekam gimana tuh??
thx sebelumnya 😀
SukaSuka
roohmadi
Desember 17th, 2012 pukul 15:13
Insya Alloh, akan saya buat posting untuk merekam gambar dengan webcam dan VB. tunggu ya…
SukaSuka
yudi
Desember 17th, 2012 pukul 14:48
mas, klo dibuat webacm otomatis melakukan perekaman dengan durasi yang ditentukan bisa? jadi rencana akan saya hubungkan dengan mikrokontroler atmega8535 menggunakan komunikasi serial
SukaSuka
roohmadi
Desember 17th, 2012 pukul 14:52
Bisa, manfaatkan timer sebagai acuan recording…
SukaSuka
yoedi01yudi
Januari 5th, 2013 pukul 15:18
untuk penyimpanan datanya bagaimana mas, jadi telah ditentukan di satu folder dengan nama otomatis juga, terima kasih
SukaSuka
roohmadi
Januari 21st, 2013 pukul 05:23
Silakan merujuk pada posting berikut:
http://rohmadi.com/2012/09/14/menampilkan-webcam-pada-visual-basic-6-0/
SukaSuka
riki
Desember 7th, 2012 pukul 15:38
mas file rarnya ,, kok diminta kode?? codenya apa?? thanks
SukaSuka
roohmadi
Desember 7th, 2012 pukul 15:47
kode dimana?
SukaSuka
Rozzi
November 24th, 2012 pukul 12:16
Copy dulu Gan !!!
SukaSuka
roohmadi
November 24th, 2012 pukul 20:11
siip
SukaSuka
Chan Dakochan
November 19th, 2012 pukul 19:12
Private Const HUBUNG As Long = 1034
Private Const PUTUS As Long = 1035
Private Const AMBIL_FRAME As Long = 1084
Private Const COPY As Long = 1054
ini maksdnya gimana ya….
tu angka” nya ambil dimananya… maaf newbie
SukaSuka
roohmadi
November 24th, 2012 pukul 20:13
itu kalau tidak salah adalah konstanta, jadi semacam kode yang mendefinisikan fungsi yang diwakilinya. Karena pada coding, biasanya lebih mudah menuliskan dengan angka daripada dengan deskripsi.
SukaSuka
1 Trackbacks / Pingbacks
Menyimpan Gambar Webcam Dengan Visual Basic « Weblog Rohmadi Desember 18th, 2012 pukul 06:00
[…] pertanyaan dari beberap pengunjung pada tulisan sebelumnya, maka insya Alloh pada posting kali ini akan saya […]
SukaSuka