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.ebuah komputer juga dapat menampilkan video dari webcam.

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.

tampilan form webcam

Langkah untuk membuat program Menampilkan Webcam pada VB adalah sebagai berikut, dengan menggunakan template di atas.

1. Mendeklarasikan variabel pada awal program

01 'DEKLARASI WEBCAM
02  '========================================================================
03  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
04  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
05
06 Private mCapHwnd As Long
07
08 Private Const HUBUNG As Long = 1034
09  Private Const PUTUS As Long = 1035
10  Private Const AMBIL_FRAME As Long = 1084
11  Private Const COPY As Long = 1054

2. Membuat fungsi untuk menghubungkan VB dengan driver webcam

1 Sub Kamera_Mulai()
2  mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
3  DoEvents
4  SendMessage mCapHwnd, HUBUNG, 0, 0
5  End Sub

3. Membuat fungsi untuk memutus koneksi VB dengan driver webcam

1 Sub Kamera_Berhenti()
2  DoEvents: SendMessage mCapHwnd, PUTUS, 0, 0</p>
3 End Sub

4. Memulai menampilkan video webcam pada program

01 Private Sub Timer1_Timer()
02  SendMessage mCapHwnd, AMBIL_FRAME, 0, 0
03  SendMessage mCapHwnd, COPY, 0, 0
04  Picture1.Picture = Clipboard.GetData
05  Clipboard.Clear
06  End Sub
07 Private Sub btnMulai_Click()
08  Kamera_Mulai
09 Label3.Visible = False
10  End Sub

5. Memutus video

1 Private Sub cmdStop_Click()
2  Kamera_Berhenti
3 Label3.Visible = True
4  End Sub

6. Menutup Aplikasi

1 Private Sub cmdClose_Click()
2  Unload Me
3  End Sub

untuk mendapatkan contoh lengkap silakan unduh disini.

Demikian semoga bermanfaat.

– Rohmadi –

Comments

comments