Cara Menampilkan WebCame di Form Visual Bsic 6.0 dengan mudah

Cara Menampilkan WebCame di Form Visual Bsic 6.0 dengan mudah

Di era globalisasi yang semakin berkembang terutma di bidang kemajuan teknologi dan informasi, dimana segala informasi yang terjadi lansung Anda dapatkan informasinya hari itu juga. Dengan tidak mao ketinggalan jaman, sekarang ini dunia kerjapun sudah mengalihkan ke dunia teknologi, dimana untuk melakukan rapat meeting dan lain-lain yang berusan dengan bisnis bisa dilakuakn dengan tidak bertatap muka hanya dengan mengunakan webcame. Begitupun dengan proses belajar mengajar dimana siswa dapat belajar seara online dengan menggunakan webcame, apalagi sekarang jamannnya pendemi covid19, Webcame sangat dibutuhkan untuk melakuakan hubungan jarak jauh.

Pada tutorial kali ini saya kan membagikan sebuah tips bagaiamana cara menampilkan gambar Webcame di form visual basic 6.0 untuk keperluan tertentu tergantung kebutuhan Anda. Walaupun pembuatan tampilan WebCame ini sangat sederhana tapi nantinya bisa Anda kembangkan yang lebih lengkap lagi tergantung kebutuhan.

Berikut adalah langkah-langkah menampilkan gambar WebCame di form visual basic 6.0

Cara Menampilkan WebCame di Form Visual Bsic 6.0 dengan mudah

• Buka form Visual Basic Anda pilih Standar EXE
• Tambahkan sebuah komponen Microsoft Commond Control Dialaog 6.0 di form dengan Name: CDialog.
• Bila belum tersedia Microsoft Commond Dialog Control 6.0 di tollbox tambahkan dengan cara tekan CTRL+T lalu cari Microsoft Commond Dialog Control 6.0, ceklist dan tekan Oke akan muncul Microsoft Commond Dialog Control di toolbox Anda.
• Tambahkan PictureBox kedalam form dengan Name: PicWebCam
• Tambahkan Module dengan cara tekan Project pilih ADD MODULE
• Pada form tambahkan 4 Command Button yang bertuliskan, yaitu Star, Format Came, Close Came dan Save Image

Untuk lebih lengkapnya lihat pada tabel dibawah ini :

No	Toll Box	Properties	Keterangan
1	PictureBox	Nme : PicWebCam	Form1
2	Micrososft CommondDialogControl 6.0	Name : CDialog	Form1
3	Command1	Caption : Star	Form 1
4	Command2	Caption : Format Came	Form 1
5	Command3	Caption : Close Came	Form 1
6	Command4	Caption : Save Image	Form 1

Desainlah form seperti gambar dibawah ini :

Desain Form WebCame

Sekarang langkah selanjutnya kita mulai membuat kode Program. Ketik kode dibawah ini di bagian Module :

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

Sekarang kita kembali ke Form. Pada area kosong form doubel klik maka muncul jendela kode,lalu ketik kode dibawah ini pada masing-masing Command :

Dim hCap As Long

Private Sub Command1_Click() 'tombol star

hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.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

Private Sub Command2_Click() 'tombolFormat Came

Dim temp As Long

temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)

End Sub

Private Sub Command3_Click() 'tombol Close Came

Dim temp As Long

temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)

End Sub

Private Sub Command4_Click() 'tombol Save Image

Dim sFileName As String

    Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)

    With CDialog

        .CancelError = True

        .Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt

        .Filter = "Bitmap Picture(*.bmp)|*.bmp|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

Simpan hasil pekerjaan Anda lalu jalankan program

Hasil Tangkapan Wbcame

Catatan :

Bila sudah di jalankan Tekan tombol star pilih jenis Webcame yang Anda gunakan

Demikian tips dari saya tentang Cara Menampilkan WebCame di Form Visual Bsic 6.0 dengan mudah, semoga bermanfaat buat kita semua.

Related Post: Aplikasi sederhana Multi Media