سلام
من مطابق بلوک زیر یک فرستنده و گیرنده rf بستم ولی جواب نمیده :angry:

برنامه فرستنده و گیرنده به صورت زیر هست :
فرستنده :
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 2400
Dim A As Byte
A = 0
Do
Incr A
Wait 5
Print A
Loop
End
گیرنده :
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 2400
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Dim A As Byte
Do
A = Waitkey()
waitms 300
Cls
Lcd A
Locate 2 , 1
Lcd Chr(a)
Loop
End
ولی روی lcd گیرنده اعداد نامربوط نشون میده.
سوال دیگه اینکه واسه آنتن ماژولها چیز خاصی لازمه؟چه نوع آنتنی بهترین نتیجه رو میده؟
من مطابق بلوک زیر یک فرستنده و گیرنده rf بستم ولی جواب نمیده :angry:

برنامه فرستنده و گیرنده به صورت زیر هست :
فرستنده :
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 2400
Dim A As Byte
A = 0
Do
Incr A
Wait 5
Print A
Loop
End
گیرنده :
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 2400
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Dim A As Byte
Do
A = Waitkey()
waitms 300
Cls
Lcd A
Locate 2 , 1
Lcd Chr(a)
Loop
End
ولی روی lcd گیرنده اعداد نامربوط نشون میده.
سوال دیگه اینکه واسه آنتن ماژولها چیز خاصی لازمه؟چه نوع آنتنی بهترین نتیجه رو میده؟
دیدگاه