سلام
من این مدارو بستم طبق این شماتیک که کشیدم ، و با بسکام برنامه نویسی میکنم .
http://upload7.ir/imgs/2014-07/14500074952500659855.jpg
می خواد کُدی که ارسال میشه رو بخونه و دوباره کُد دیگه ای بهش ارسال میکنمو بخونه
اگر با هم برابر بودن LED1 رو روشن کنه
اگر هم نابرابر LED2 رو روشن کنه
و تا مرحله کانفیگ RC5 رو طبق هلپ بسکام نوشتم اما دقیقا وقتی توی حلقه ای اصلی کُد رو از روموت ارسال میکنم و مجدد اراسل میکنم چیزی در خروجی نمیبینم . :angry:
دوستان برنامه رو چک کنن ، ببینن چی اشتباهه
با تشکر و سپاس فراوان .
------------------------------
do
Getrc5(address , Command)
cls : locate 1 , 1 : lcd address : locate 2 , 1 : lcd command
set portd.3
reset portd.4
reset portd.5
incr i
wait 1
Getrc5(address1 , Command1)
reset portd.3
set portd.4
reset portd.5
decr i
wait 1
if address1 <> address OR command1 <> command then
set portd.5
wait 2
else
reset portd.5 : reset PORTD.4 : reset PORTD.3
wait 1
end IF
LOOP
من این مدارو بستم طبق این شماتیک که کشیدم ، و با بسکام برنامه نویسی میکنم .
http://upload7.ir/imgs/2014-07/14500074952500659855.jpg
می خواد کُدی که ارسال میشه رو بخونه و دوباره کُد دیگه ای بهش ارسال میکنمو بخونه
اگر با هم برابر بودن LED1 رو روشن کنه
اگر هم نابرابر LED2 رو روشن کنه
و تا مرحله کانفیگ RC5 رو طبق هلپ بسکام نوشتم اما دقیقا وقتی توی حلقه ای اصلی کُد رو از روموت ارسال میکنم و مجدد اراسل میکنم چیزی در خروجی نمیبینم . :angry:
دوستان برنامه رو چک کنن ، ببینن چی اشتباهه
با تشکر و سپاس فراوان .
------------------------------
do
Getrc5(address , Command)
cls : locate 1 , 1 : lcd address : locate 2 , 1 : lcd command
set portd.3
reset portd.4
reset portd.5
incr i
wait 1
Getrc5(address1 , Command1)
reset portd.3
set portd.4
reset portd.5
decr i
wait 1
if address1 <> address OR command1 <> command then
set portd.5
wait 2
else
reset portd.5 : reset PORTD.4 : reset PORTD.3
wait 1
end IF
LOOP
دیدگاه