deteksi gerakan dengan Delphi memanfaatkan komponen Video grabber (Share ware Version)

( Catatlah semua impianmu dalam lembaran kertas (agar engkau tidak lupa), coretlah setiap impian yang telah terwujud oleh Allah, tambahkan catatan impian yang akan engkau wujudkan, yakinlah semua impian akan terwujud ) (Taufik Adi Sanjaya)

Motion detection / deteksi gerakan dengan Delphi memanfaatkan komponen Video grabber (Share ware Version) Taufik Adi Sanjaya Website penulis : http://pembuatwebdanblog.web.id Lisensi Dokumen: Copyright © 2003-2007 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.

Deteksi gerakan (Motion detection), merupakan Aplikasi yang dapat dipergunakan sebagai sisem pemantau ataupun system pengaman pada sebuah ruang tertentu, sebagai contoh ruang brankas uang pada sebuah organisasi tertentu, semisal bank, . pada jam – jam tertentu ruangan ini harus kosong tanpa ada orang di dalamnya, sebagai aplikasi pengaman aplikasi ini dapat dikembangkan dengan fasilitas pengiriman sms kepada pihak-pihak yang berkaitan ketika terdeteksi adanya gerakan. Aplikasi ini dapat pula dikembangkan dengan fasilatas otomatis merekam video jika terdeteksi adanya gerakam pada video preview yang ditangkap kamera sebagai inputan system pengaman. Berikut ini adalah step by step pembuatan aplikasi Motion detection with Delphi through Video grabber Masukkan komponen sebagai berikut ini ke dalam form designer : No

Component Name

Properties

Value

1

Label1

Caption

Start Preview

2

Button1

Caption

Start Motion Detection

3

Button2

Caption

Start Preview

4

Combobox1

Text

-

5

Memo1

Text

-

6

Memo1

Text

-


7

Shape1

Brush-Color

clBlack

8

Videograbber1

-

-

Susun desain tampilan aplikasi mejadi sebagai berikut:

Kemudian ketikkan source code sebagai berikut, sesuaikan dengan event yang ada. No Component 1 Form1

Event OnCreate

2

OnClick

Button1

Source Code VideoGrabber1.Display_AutoSize := false; // the control will not resize automatically VideoGrabber1.AutoRefreshPreview := true; // the preview will restart automatically when changing device properties (e.g. video size, analog video standard, etc...) combobox1.Text:=(videograbber1.VideoDevices); videograbber1.MotionDetector_Enabled:=true;


3 4

Button2 Videograbber1

OnClick OnMotionDetected

memo1.Text := VideoGrabber1.MotionDetector_Get2DTextGrid; videograbber1.StartPreview; var MaxMotionXLocation, MaxMotionYLocation: LongInt; begin shape1.Brush.Color:=ClLime; VideoGrabber1.MotionDetector_CompareRed ; VideoGrabber1.MotionDetector_CompareBlue; VideoGrabber1.MotionDetector_CompareGreen;

5

Videograbber1

if VideoGrabber1.MotionDetector_GetCellLocation (MaxMotionCellX, MaxMotionCellY, MaxMotionXLocation, MaxMotionYLocation) then begin memo2.Text := VideoGrabber1.MotionDetector_Get2DTextMotion; end; OnNotMotionDetected Shape1.Brush.Color := clBlack; Memo2.Text := VideoGrabber1.MotionDetector_Get2DTextMotion;

Selanjutnya eksekusi aplikasi yang dibuat, berikut ini adalah tampilan applikasi nya

Mulai preview


Deteksi gerakan dengan Delphi 1

Deteksi gerakan dengan Delphi 2

Penutup Semoga bermanfaat dan Selamat Berkarya. Silakan baca tulisan saya di IlmuKomputer.com sebagai berikut: “Akses SMS dengan Delphi 7: Kirim dan terima SMS di Hand Phone Nokia dengan Mudah menggunakan komponen Oxygen SMS pada Delphi7.0”


“Akses SMS dengan Delphi 7: Membuat SMS Broadcaster dengan Delphi 7.0 menggunakan komponen oxygen SMS” “Mengakses database Access dengan Delphi 7.0” “Membuat report pada Delphi 7.0 menggunakan komponen Rave Report” “Mengakses port parallel PC dengan Delphi 7.0 menggunakan komponen Small Port” “Cara Instalasi komponen Oxygen SMS pada Delphi 7.0” “Cara Instalasi komponen Small Port pada Delphi 7.0” “Instalisasi Sui Pack Pada Delphi 7.0” “Mempercantik tampilan Program yag dibuat dengan Delphi 7.0 menggunakan Komponen Suipack” “Membuat Web sederhana dengan Joomla” “Membuat Dialog Killer dengan Delphi 7” “Memproteksi file PDF (PDF SECURE)” “Memproteksi file PDF dengan password” “Program untuk Capture Foto dengan Webcam menggunakan Delphi 7.0” “Menggunakan grafik / chart pada Borland Delphi 7“ “Menghapus karakter / huruf tertentu dalam teks pada komponen edit atau label di Delphi “ “Menghapus SPASI dalam teks pada komponen edit atau label di Delphi “ “Contoh aplikasi komunikasi serial delphi” “Virtual serial port , Solusi simulasi komunikasi serial computer dalam satu computer”

Referensi

Biografi Penulis Taufik Adi Sanjaya. Numpang lahir di Garut, Jawa Barat. Dibesarkan di Kulon Progo. Saat ini tinggal di Bantul. S1 Jurusan Pendidikan Teknik Elektro Universitas Negeri Yogyakarta. Konsentrasi Study yang diambil adalah Kendali Industri. Kegiatan yang dilakukan saat ini adalah bermain-main dengan bahasa Pemrograman Delphi (khususnya Akses Port Paralel PC, Database dan Reporting, Akses SMS pada HP) Pernah juga sedikit belajar tentang Visual Basic, serta bahasa C. Melayani jasa pengembangan web dengan Joomla (Open Source) Hobi menulis artikel singkat, membaca buku, olah raga.

Website bisnis penulis :

http://pembuatwebdanblog.web.id Blog Resmi Penulis

http://taufikadisanjaya.blogspot.com/


Email : [email protected] atau facebook : [email protected] Hp : 085743320570

deteksi gerakan dengan Delphi memanfaatkan komponen Video grabber (Share ware Version)

Recommend Documents