۲۴-مهر-۱۳۹۳, ۱۳:۴۱:۳۶
سلام دوستان
من مدار فرستنده و گیرنده rc5رو می خوام.
و در باره برنامه زیر اگر ایرادی دارد لطفا دوسات راهنامیی کنن.
خروجی فرستنده به تایمر میکرو وصل می شود یا که نه.
گیرنده:
فرستنده
من مدار فرستنده و گیرنده rc5رو می خوام.
و در باره برنامه زیر اگر ایرادی دارد لطفا دوسات راهنامیی کنن.
خروجی فرستنده به تایمر میکرو وصل می شود یا که نه.
گیرنده:
کد:
$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Output
Config Rc5 = Pind.7
Enable Interrupts
Dim Adress As Byte , Comand As Byte
Do
Getrc5(adress , Comand)
If Comand = 12 Then
Set Portb.0
Reset Portb.1
End If
If Comand = 11 Then
Set Portb.0
Reset Portb.1
End If
Loop
Endفرستنده
کد:
$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Input
Do
Debounce Pind.0 , 0 , Q
Debounce Pind.1 , 0 , W
Loop
Q:
Rc5send 32 , 0 , 11
Wait 1
Return
W:
Rc5send 32 , 0 , 12
Wait 1
Return
End