Member baru? Bingung? Perlu bantuan? Silakan baca panduan singkat untuk ikut berdiskusi.

Selamat datang, Pengunjung. Silahkan masuk atau mendaftar. Apakah anda lupa aktivasi email?

Januari 18, 2021, 03:59:29 PM

Masuk dengan nama pengguna, kata sandi dan lama sesi

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139618
  • Total Topik: 10381
  • Online Today: 217
  • Online Ever: 441
  • (Desember 18, 2011, 12:48:51 AM)
Pengguna Online
Users: 0
Guests: 35
Total: 35

Ikuti ForSa

ForSa on FB ForSa on Twitter

Penulis Topik: [DEMO] Pendeteksi gerakan  (Dibaca 2699 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline Farabi

  • Profesor
  • *****
  • Tulisan: 3.282
  • IQ: 171
  • Gender: Pria
  • Nabi Allah
[DEMO] Pendeteksi gerakan
« pada: Februari 03, 2012, 03:04:55 AM »
http://ompldr.org/vY2wwcg/SW_Graphic.rar

Saya membuat sebuah demo untuk alat pengontrol pintu yang juga bisa dibuat untuk robot pendeteksi garis. Saya juga menyematkan source code nya di program berikut ini.
Raffaaaaael, raffaaaaael, fiiii dunya la tadzikro. Rafaael. Fi dunya latadzikro bil hikmah, wa bil qiyad

Maa lahi bi robbi. Taaqi ilaa robbi. La taaqwa, in anfusakum minallaaahi.

Offline Farabi

  • Profesor
  • *****
  • Tulisan: 3.282
  • IQ: 171
  • Gender: Pria
  • Nabi Allah
Re:[DEMO] Pendeteksi gerakan
« Jawab #1 pada: Februari 03, 2012, 09:08:41 AM »
Ketinggalan satu lagi, ini filter untuk membuat warna menjadi hitam putuh
Kode: [Pilih]

fGrayScale proc lpBitsSrc:dword,lpBitsRslt:dword,x:dword,y:dword,w:dword,h:Dword
LOCAL _x,_y:dword
LOCAL cp,np:dword
LOCAL r,g,b:dword

xor ecx,ecx
mov ecx,y
loop_y:
push ecx
mov _y,ecx
xor ecx,ecx
mov ecx,x
loop_x:
push ecx
mov _x,ecx
invoke GetDIBPixel,_x,_y,lpBitsSrc,w,h
mov cp,eax

movzx ecx,al
mov b,ecx
shr eax,8
movzx ecx,al
mov g,ecx
shr eax,8
movzx ecx,al
mov r,ecx

xor edx,edx
mov eax,r
mov ecx,30
mul ecx
mov ecx,100
div ecx
mov r,eax

xor edx,edx
mov eax,g
mov ecx,59
mul ecx
mov ecx,100
div ecx
mov g,eax

xor edx,edx
mov eax,b
mov ecx,11
mul ecx
mov ecx,100
div ecx
mov b,eax

xor eax,eax
add eax,r
add eax,g
add eax,b

; xor edx,edx
; mov ecx,3
; div ecx

xor ecx,ecx
mov cl,al
shl ecx,8
mov cl,al
shl ecx,8
mov cl,al

invoke SetDIBPixel,_x,_y,lpBitsRslt,w,h,ecx

no_need:
pop ecx
inc ecx
cmp ecx,w
jl loop_x
pop ecx
inc ecx
cmp ecx,h
jl loop_y
done:

ret
fGrayScale endp


 

Related Topics

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
161 Jawaban
61306 Dilihat
Tulisan terakhir Juni 14, 2010, 09:41:16 AM
oleh cignus
25 Jawaban
9392 Dilihat
Tulisan terakhir Januari 29, 2010, 06:10:51 AM
oleh Astrawinata G
5 Jawaban
6218 Dilihat
Tulisan terakhir Juli 12, 2011, 01:26:51 PM
oleh adi togar
7 Jawaban
4525 Dilihat
Tulisan terakhir Februari 08, 2012, 01:44:51 AM
oleh Farabi
4 Jawaban
3739 Dilihat
Tulisan terakhir Mei 10, 2014, 03:10:24 AM
oleh Farabi