Meng-Capture foto dengan Visual Basic 6

Postingan kali ini gw mau share cara meng-capture gambar di visual basic. Biasa nya ini di pake buat parkir motor, karna kebanyakan aplikasi parkir motor menggunakan capture image ini gar mengetahui fisik gambar motor tersebut sebagai barang bukti jika ada kejahatan yang terjadi. Begitu juga di sebuah system perusahaan besar, ketika kita masuk keruangan tertentu atau private kita bisa menggunakan capture image ini dengan memasukan detail tgl dan jam capture tersebut, jika ada kejahatan mudah untuk di lacak dan di ketahui dengan bukti yang real. Dan masih banyak aplikasi yang bisa kita sisipkan.

Oke cekidot deh yah, yang paling penting kita harus ada camera atau webcame. instal terlebih dahulu sampai bisa digunakan. Setelah itu masuk ke project kita. Buat modul baru untuk menyimpan variabel dan deklarasi yang nantinya akan di panggil di setiap form yang di butuhkan.

> Pilih menu Project > Add Module > Open

 

 

> Buka atau double klik di module yang telah di buat

> Lalu paste code di bawah ini

Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Const RGN_OR = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

> Lalu masukan code dibawah ini pada tombol yang akan mengeksekusi gambar tersebut

'menyalakan camera
STARTCAM
continue = True
Do While continue
     SendMessage mCapHwnd, GET_FRAME, 0, 0
     SendMessage mCapHwnd, COPY, 0, 0
     picInput.Picture = Clipboard.GetData ' menampilkan di image picture
     DoEvents
Loop
'memberhentikan kamera atau mengambil gambar/capture
STOPCAM
continue = False

> Tarraaa. Gambar sudah di ambil. selanjutnya tinggal kalian kombinasikan dengan cara menyimpan gambar tersebut di drive kalian.

Note :
           Tambahkan image picture untuk preview gambar dari camera

Semoga bermanfaat