BUAT APLIKASI WEBCAM PAKE VISUAL BASIC 6.0

 

Lama tidak buat tutorial tentang Visual Basic, tapi kali ini saya berbagi tutorial bagaimana cara membuat aplikasi yang berfungsi untuk melakukan capture image dari webcam.

Tak usah basa basi sob langsung aja ke TKP…

Langkah 1.

Jalankan visual basic sobat dan buatlah form aplikasi seperti gambar berikut :

Dengan keterangan sebagai berikut :

Label1, Caption : MY WEBCAM

PictureBox, Name : gbrWebcam

CommonDialog, Name : CDialog

CommandButton1, Name : cmdMulai; Caption : Mulai

CommandButton2, Name : cmdSimpan; Caption : Simpan

CommandButton3, Name : cmdSetting; Caption : Setting

CommandButton4, Name : cmdTutup; Caption : Tutup

Langkah 2.

Jika langkah 1 selesai, tambahkan sebuah module dan tuliskan koding berikut pada module yang soba buat :

Public Const WS_CHILD As Long = &H40000000
Public Const WS_VISIBLE As Long = &H10000000
Public Const WM_USER As Long = &H400
Public Const WM_CAP_START As Long = WM_USER
Public Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25
Public 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
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
, ByVal wParam As Long, ByRef lParam As Any) As Long

 

Untuk Module telah selesai sobat buat dan lanjutkan pada langkah 3.

 

Langkah 3.

Klik 2x form project sobat dan tuliskan koding berikut :

Dim hCap As Long

Pada General Declarations

 

Lanjutkan dengan klik 2x tombol “Mulai” dan tuliskan koding berikut :

Private Sub cmdMulai_Click()
hCap = capCreateCaptureWindow("Take a Camera Shot" _
, WS_CHILD Or WS_VISIBLE, 0, 0, gbrWebcam.Width _
, gbrWebcam.Height, gbrWebcam.hWnd, 0)
If hCap <> 0 Then
Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End If
End Sub

 

Lanjut lagi…

Klik 2x tombol “Simpan” dan tuliskan koding berikut :

Private Sub cmdSimpan_Click()
Dim sFileName As String
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)
With CDialog
.CancelError = True
.Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt
.Filter = "JPEG Picture(*.jpg)|*.jpg|All Files|*.*"
.ShowSave
sFileName = .FileName
End With
Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))
DoFinally:
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End Sub

 

Klik 2x tombol “Seting” dan tuliskan koding berikut :

Private Sub cmdSeting_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End Sub

 

 

Terakhir…

Klik 2x tombol “Tutup” dan silahkan sobat tulis koding berikut :

Private Sub cmdTutup_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
Unload Me
End Sub

 

Sekarang aplikasi siap dijalankan…

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module