پاسخ : hm_tr
با سلام
من می خواستم با این ماژول به صورت چند کاناله استفاده کنم که مدار درست کار نمی کنه ،برای ارسال و دریافت این ماژول مشکلی ندارم فقط وارد حلقه LOOP می شه کار نمی کنه و زمانی که کلیدی را فشار می دم گیرنده روشن می شه ولی کلید بعدی را می خوام فشار بدم روشن نمی شه و باید تغذیه گیرنده را قطع کنم تا اون کلید در گیرنده LED را روشن بکنه لطفا کمکم کنید برنامه فرستنده و گیرنده را اینجا قرار می دم تا کمکم کنید
برنامه فرستنده:
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Portb = Input
Dim A As String * 13
Dim C As String * 13
Dim D As String * 13
Dim E As String * 13
Dim P As Byte
A = "CANAL1"
C = "CANAL2"
D = "CANAL3"
E = "CANAL4"
Main:
Do
If Pinb.0 = 1 Then Goto C1
If Pinb.1 = 1 Then Goto C2
If Pinb.2 = 1 Then Goto C3
If Pinb.3 = 1 Then Goto C4
Loop
End
C1:
For P = 1 To 5
Print A
Next P
Goto Main
C2:
For P = 1 To 5
Print C
Next P
Goto Main
C3:
For P = 1 To 5
Print D
Next P
Goto Main
C4:
For P = 1 To 5
Print E
Next P
Goto Main
برنامه گیرنده:
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Portb = Output
Dim B As String * 13
Main:
Do
Input B
If B = "CANAL1" Then Goto B1
If B = "CANAL2" Then Goto B2
If B = "CANAL3" Then Goto B3
If B = "CANAL4" Then Goto B4
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Loop
End 'end program
B1:
Set Portb.1
Goto Main
B2:
Set Portb.2
Goto Main
B3:
Set Portb.3
Goto Main
B4:
Set Portb.4
Goto Main
با سلام
من می خواستم با این ماژول به صورت چند کاناله استفاده کنم که مدار درست کار نمی کنه ،برای ارسال و دریافت این ماژول مشکلی ندارم فقط وارد حلقه LOOP می شه کار نمی کنه و زمانی که کلیدی را فشار می دم گیرنده روشن می شه ولی کلید بعدی را می خوام فشار بدم روشن نمی شه و باید تغذیه گیرنده را قطع کنم تا اون کلید در گیرنده LED را روشن بکنه لطفا کمکم کنید برنامه فرستنده و گیرنده را اینجا قرار می دم تا کمکم کنید
برنامه فرستنده:
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Portb = Input
Dim A As String * 13
Dim C As String * 13
Dim D As String * 13
Dim E As String * 13
Dim P As Byte
A = "CANAL1"
C = "CANAL2"
D = "CANAL3"
E = "CANAL4"
Main:
Do
If Pinb.0 = 1 Then Goto C1
If Pinb.1 = 1 Then Goto C2
If Pinb.2 = 1 Then Goto C3
If Pinb.3 = 1 Then Goto C4
Loop
End
C1:
For P = 1 To 5
Print A
Next P
Goto Main
C2:
For P = 1 To 5
Print C
Next P
Goto Main
C3:
For P = 1 To 5
Print D
Next P
Goto Main
C4:
For P = 1 To 5
Print E
Next P
Goto Main
برنامه گیرنده:
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Portb = Output
Dim B As String * 13
Main:
Do
Input B
If B = "CANAL1" Then Goto B1
If B = "CANAL2" Then Goto B2
If B = "CANAL3" Then Goto B3
If B = "CANAL4" Then Goto B4
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Loop
End 'end program
B1:
Set Portb.1
Goto Main
B2:
Set Portb.2
Goto Main
B3:
Set Portb.3
Goto Main
B4:
Set Portb.4
Goto Main
دیدگاه