سلام
من برنامه زیر را برای گیرنده فرسنده نوشتم
در حالتی که با سیم دو میکرو را به هم وصل میکنم کار میکند ولی با ماژول فرستنده و گیرنده کار نمیکند
میخاستم ببینم کسی میدوند مشکل کجاست
ممنون
برنامه فرستنده
برنامه گیرنده
چطور تستش کنم
ممنون
من برنامه زیر را برای گیرنده فرسنده نوشتم
در حالتی که با سیم دو میکرو را به هم وصل میکنم کار میکند ولی با ماژول فرستنده و گیرنده کار نمیکند
میخاستم ببینم کسی میدوند مشکل کجاست
ممنون
برنامه فرستنده
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Pinc.0 = Input
Config Pinc.1 = Input
Dim C0 As String * 13
Dim C1 As String * 13
Dim Q As String * 13
Dim T As String * 13
Dim B As Word
C0 = "canal1"
C1 = "canal2"
Q = "kham"
T = "kham2"
Main:
Do
Debounce , Pinc.0 , 1 , L
Debounce , Pinc.0 , 0 , X
R:
Debounce , Pinc.1 , 1 , M
U:
Debounce , Pinc.1 , 0 , Y
Loop
End
L:
Do
Print C0 ; Chr(13)
Loop Until Pinc.0 <> 1
Goto Main
X:
Print Q ; Chr(13) ;
Goto R
M:
Do
Print C1 ; Chr(13);
Loop Until Pinc.1 <> 1
Goto U
Y:
Print T ; Chr(13) ;
Goto Main
$crystal = 1000000
$baud = 9600
Config Pinc.0 = Input
Config Pinc.1 = Input
Dim C0 As String * 13
Dim C1 As String * 13
Dim Q As String * 13
Dim T As String * 13
Dim B As Word
C0 = "canal1"
C1 = "canal2"
Q = "kham"
T = "kham2"
Main:
Do
Debounce , Pinc.0 , 1 , L
Debounce , Pinc.0 , 0 , X
R:
Debounce , Pinc.1 , 1 , M
U:
Debounce , Pinc.1 , 0 , Y
Loop
End
L:
Do
Print C0 ; Chr(13)
Loop Until Pinc.0 <> 1
Goto Main
X:
Print Q ; Chr(13) ;
Goto R
M:
Do
Print C1 ; Chr(13);
Loop Until Pinc.1 <> 1
Goto U
Y:
Print T ; Chr(13) ;
Goto Main
برنامه گیرنده
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Portb.0 = Output
Config Portb.1 = Output
Dim S As String * 13
Dim B As Word
Main:
Do
Input S
If S = "canal2" Then
Goto M
End If
If S = "canal1" Then
Goto L
End If
Loop
L:
Do
Input S
Set Portb.0
Loop Until S = "kham"
Reset Portb.0
Goto Main
M:
Do
Input S
Set Portb.1
Loop Until S = "kham2"
Reset Portb.1
Goto Main
ایا امکان دارد ماژول مشکل داشته باشد$crystal = 1000000
$baud = 9600
Config Portb.0 = Output
Config Portb.1 = Output
Dim S As String * 13
Dim B As Word
Main:
Do
Input S
If S = "canal2" Then
Goto M
End If
If S = "canal1" Then
Goto L
End If
Loop
L:
Do
Input S
Set Portb.0
Loop Until S = "kham"
Reset Portb.0
Goto Main
M:
Do
Input S
Set Portb.1
Loop Until S = "kham2"
Reset Portb.1
Goto Main
چطور تستش کنم
ممنون
دیدگاه