من می خواستم با ماژول HMTR کار کنم برنامه هاشو نوشتم و با پروتیوس شبیه سازی کردم کار می کنه، اما وقتی مدار رو می بندم کار نمی کنه.
حتی RX رو مستقیم به TX وصل کردم بازم همون مشکل رو داره.
اینم برنامه هاش:
فرستنده:
$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600
Dim A As Byte
Dim S As String * 13
S = "key1"
Do
Print S ; Chr(13);
Waitms 3000
Loop
End
گیرنده:
$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600
Config Portc = Output
Dim S As String * 13
Main:
Do
Input S
If S = "key1" Then Goto L1
Loop
End
L1:
Set Portc.0
Waitms 1000
Reset Portc.0
Goto Main
حتی RX رو مستقیم به TX وصل کردم بازم همون مشکل رو داره.
اینم برنامه هاش:
فرستنده:
$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600
Dim A As Byte
Dim S As String * 13
S = "key1"
Do
Print S ; Chr(13);
Waitms 3000
Loop
End
گیرنده:
$regfile = "M8Def.dat"
$crystal = 1000000
$baud = 9600
Config Portc = Output
Dim S As String * 13
Main:
Do
Input S
If S = "key1" Then Goto L1
Loop
End
L1:
Set Portc.0
Waitms 1000
Reset Portc.0
Goto Main
دیدگاه