Mas Nadiem Terkejut ketika Komitmen Kebangsaan Kita Dipertanyakan

Penyampaian beliau menyikapi isu yang berkembang di masyarakat terkait penyederhanaan kurikulum

Belum Bisa Menulis? Ini Kiatnya!

Kuliah Umum IV Pembatik Level 4 Tahun 2020

Kompetensi Public Speaking Seorang Pendidik

Kuliah Umum I Pembatik Level 4 bersama Charles Bonar Sirait

Founder "Sokola Rimba"

Kuliah Umum II Pembatik Level 4 bersama Butet Manurung, MAAPD.

Pembukaan Kuliah Umum Pembatik Lev. 4 Tahun 2020

Kuliah Umum Perdana Pembatik Lev. 4 Tahun 2020. Dibuka oleh Mas Nadiem Makarim

Kamis, 19 April 2012

Menyimpan picture dari webcam dengan format .jpg menggunakan ezVidCap.ocx

Kemaren Aq mencoba membuat program untuk menyimpan picture dari webcam menggunakan Visual Basic 6, emang dapet contoh sih code untuk menghubungkan device tersebut dengan Visual Basic 6 tapi terlalu ruwet, kagak mudeng (ngerti) otak Q untuk mengerti scriptnya :(
Daripada ribet program g jadi”, akhirnya aq mutusin untuk memakai ezVidCap.ocx cukup mudah dan menyenangkan, tinggal tambahkan ezVidCap.ocx ke dalam project kemudian klik n drag komponen tersebut kedalam form, selesai deh, jika webcam anda sudah terinstall dengan baik maka gambar akan tampil di componen tersebut secara ostosmastis, menyenangkan bukan ??
Tapi sialnya ketika kita ingin menyimpan gambar hasil capture tadi dalam format .jpg komponen ezVidCap tidak menyediakan fasilitas tersebut, yang ada menyimpan dalam format .bmp yang kapasitasnya g menyenangkan.
Alhasil setelah aq browsing ke sana sini aQ menemukan komponen lain yang berguna untuk mengkonvert .bmp menjadi .jpg :D Namanya PicFormat32.ocx
EzVidCap
Jadi setelah menyimpan file dalam format .bmp menggunakan ezVidCap.ocx aQ lanjutin untuk mengkonvert file tersebut ke dalam format .jpg, dan yang terakhir file .bmp tadi di hapus. jadi deh hasil capture webcam dengan format jpg menggunakan ezVidCap.ocx dan PicFormat32.ocx
——————————————–
Sub SimpanPict(nama As String)
On Error Resume Next
Me.ezVidCap1.SaveDIB App.Path & nama & “.bmp”
Me.PicFormat321.SaveBmpToJpeg App.Path & nama & “.bmp”, App.Path & nama & “.jpg”, 65
Kill App.Path & nama & “.bmp”
End Sub
——————————————-
File:
Semoga Bermanfaat.