Posts tagged ‘webcam’

Capture Webcam Dengan Visual Basic 2008


Webcam

Ilustrasi: Webcam

Webcam merupakan salah satu device yang saat ini hadir pada laptop kita. Mungkin suatu waktu terbesit pada fikiran kita, bagaimana cara menampilkan dan menyimpan gambar sendiri?

Dengan menggunakan bantuan Visual Basic 2008, Anda dapat membuat sendiri sebuah program dasar untuk menampilkan dan menyimpan gambar menggunakan webcam, baik yang sudah menyatu dengan laptop maupun dengan webcam tambahan.

Pada dasarnya sama, antara memakai webcam yang sudah ada pada laptop dengan webcam tambahan, sehingga tidak ada kesulitan untuk menggunakan salah satunya.

Untuk menampilkan device yang terdeteksi pada laptop dapat menggunakan code berikut:

Private Sub LoadDeviceList()
Dim strName As String = Space(100)
Dim strVer As String = Space(100)
Dim bReturn As Boolean
Dim x As Integer = 0

'
' Load name of all avialable devices into the lstDevices
'

Do
'
'   Get Driver name and version
'
bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)

'
' If there was a device add device name to the list
'
If bReturn Then lstDevices.Items.Add(strName.Trim)
x += 1
Loop Until bReturn = False
End Sub

Untuk menampilkan gambar webcam:


Private Sub OpenPreviewWindow()
Dim iHeight As Integer = picCapture.Height
Dim iWidth As Integer = picCapture.Width

'
' Open Preview window in picturebox
'
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
480, picCapture.Handle.ToInt32, 0)

'
' Connect to device
'
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
'
'Set the preview scale
'
SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

'
'Set the preview rate in milliseconds
'
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

'
'Start previewing the image from the camera
'
SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

'
' Resize window to fit in picturebox
'
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
SWP_NOMOVE Or SWP_NOZORDER)

btnSave.Enabled = True
btnStop.Enabled = True
btnStart.Enabled = False
Else
'
' Error connecting to device close window
'
DestroyWindow(hHwnd)

btnSave.Enabled = False
End If
End Sub

Untuk menutup gambar webcam:


Private Sub ClosePreviewWindow()
'
' Disconnect from device
'
SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)

'
' close window
'

DestroyWindow(hHwnd)
End Sub

Untuk menyimpan gambar:


Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim data As IDataObject
Dim bmap As Image

'
' Copy image to clipboard
'
SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

'
' Get image from clipboard and convert it to a bitmap
'
data = Clipboard.GetDataObject()
If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
picCapture.Image = bmap
ClosePreviewWindow()
btnSave.Enabled = False
btnStop.Enabled = False
btnStart.Enabled = True

If sfdImage.ShowDialog = DialogResult.OK Then
bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
End If

End If
End Sub

Hasil tampilan

Capture1

Demikian, semoga bermanfaat.

Download sourcecode.

Menyimpan Gambar Webcam Dengan Visual Basic


save webcam

Menanggapi pertanyaan dari beberap pengunjung pada tulisan sebelumnya, maka insya Alloh pada posting kali ini akan saya sampaikan sedikit contoh bagaimana menyimpan gambar yang diambil menggunakan webcam.

Dari template project sebelumnya, untuk menampilkan gambar kita menggunakan komponen PictureBox. Untuk menyimpan gambar dari sebuah PictureBox digunakan perintah berikut:


SavePicture PictureBox.Image, NamaFile

Sebelumnya tambahkan:

1. Buttom dengan Name= “btnSimpan”

2. Label dengan Caption= “Nama file:”

3. TextBox dengan Name= “txtNamaFile”; Text= “test1.jpg”

Maka untuk menyimpan image tinggal menambahkan perintah berikut:


SavePicture Picture1.Image, App.Path & "\" & txtName.Text

Demikian, semoga bermanfaat.

— Rohmadi —

Source code.

Menampilkan Webcam Pada Visual Basic 6.0


webcamWebcam 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.

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


'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 —

%d blogger menyukai ini: