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

Welcome to Forum Sains Indonesia. Please login or sign up.

Juli 06, 2022, 01:12:48 AM

Login with username, password and session length

Topik Baru

Artikel Sains

Anggota
  • Total Anggota: 26,754
  • Latest: sainsftw
Stats
  • Total Tulisan: 139,633
  • Total Topik: 10,390
  • Online today: 67
  • Online ever: 441
  • (Desember 17, 2011, 09:48:51 AM)
Pengguna Online
Users: 0
Guests: 40
Total: 40

Aku Cinta ForSa

ForSa on FB ForSa on Twitter

[DEMO] Pendeteksi gerakan

Dimulai oleh Farabi, Februari 02, 2012, 12:04:55 PM

« sebelumnya - berikutnya »

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Farabi

[pranala luar disembunyikan, sila masuk atau daftar.]

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.

Farabi

Ketinggalan satu lagi, ini filter untuk membuat warna menjadi hitam putuh


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

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.