من از ماژول رادیویی hdf 434 استفاده کردم و بین دو میکرو تونستم ارتباط رادیویی ارتباط برقرار کنم . ولی اطلاعات ارسال شده وقتی که توسط گیرنده نمایش داده میشوند چندان صحیح نیست . یعنی یک بار خوب نمایش میدهد و دوباره که دریافت میکند به هم میریزد .
دستورات cls و wait را که تغییر میدهم نمایش هم گاهی بهتر میشود و گاهی هم بدتر. جای این دستورات را تعویض کرده ام ولی باز هم همان حالت وجود دارد .
البته از دو سرعت 19200 استفاده میکنم .
میکروها هم m8 هستند .
علت این به هم ریختگی و عدم تبادل صحیح چه میتواند باشد .؟
فرستنده :
$regfile = "M8Def.dat"
$crystal = 8000000
$baud = 19200
Dim S As String * 20
S = "salam_hi"
Do
Print S
Cls
Loop
End 'end program
گیرنده :
$regfile = "M8Def.dat"
$crystal = 8000000
$baud = 19200
Dim S As String * 20
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Cls
Waitms 100
Lcd "hello"
Waitms 500
Do
Input S
Lcd S
waitms 600
cls
Loop
End 'end program
دستورات cls و wait را که تغییر میدهم نمایش هم گاهی بهتر میشود و گاهی هم بدتر. جای این دستورات را تعویض کرده ام ولی باز هم همان حالت وجود دارد .
البته از دو سرعت 19200 استفاده میکنم .
میکروها هم m8 هستند .
علت این به هم ریختگی و عدم تبادل صحیح چه میتواند باشد .؟
فرستنده :
$regfile = "M8Def.dat"
$crystal = 8000000
$baud = 19200
Dim S As String * 20
S = "salam_hi"
Do
Print S
Cls
Loop
End 'end program
گیرنده :
$regfile = "M8Def.dat"
$crystal = 8000000
$baud = 19200
Dim S As String * 20
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Cls
Waitms 100
Lcd "hello"
Waitms 500
Do
Input S
Lcd S
waitms 600
cls
Loop
End 'end program
دیدگاه