[mikro.man7]

الفكرة ببساطة هوة انو معايا ريموت بيشتغل بكود rc5
مستخدم لغة bascom avr

الفكرة انو ها يتم طباعة رقم ال command الخاص بكل زر على شاشة

انا عملت الفكرة على البروتوس مرسل ومستقبل وما اشتغلش برضو

الدايرة



كود المرسل

$regfile = "m32def.dat"
$crystal = 8000000
'---------------------
Config Debounce = 200
Config Pind.7 = Input
Portd.7 = 1
'---------------------
Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 12
Togbit = 0
Address = 0
'---------------------
Do
Debounce Pind.7 , 0 , Pwr_cmd , Sub
Loop
End
'---------------------
Pwr_cmd:
Rc5send Togbit , Address , Command
Waitms 200
Return
'\-------------\

كود المستقبل

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
'-----------------------
'-----------------------[RC5 Receiver Configurations]
'---------------------
Config Rc5 = Pind.7
'---------------------
Dim Address As Byte , Command As Byte
Enable Interrupts
'---------------------
Cls
Do
Gosub Remote_control
Loop
'---------------------

'---<[End Main]
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'--->[Read RC5 Code]
Remote_control:
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
Cls
Lcd "Command is: " ; Command
Waitms 50
End If
Return
'---------------------

الملف كامل

http://www.gulfup.com/?S1Fjoj

يا ريت لو حد عندو فكرة عن لغة bascom avr يقولى فين المشكلة