مشکل با hmtr

[mahanb]

پاسخ : مشکل با hmtr

مثال برای نمایش روی ال سی دی:
برنامه گیرنده:
$regfile = "m16def.dat"
$crystal = 16000000
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.1
Config Lcd = 16 * 2
$baud = 9600
Dim A As Word

do
Inputbin A

Lcd "count:" ; A
Waitms 100
loop
end


برنامه فرستنده:

$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
Dim Count As Word
Do
Printbin Count
Waitms 70
Count = Count + 1
loop
end

[mohsen diod]

پاسخ : مشکل با hmtr

با سلام
من می خواستم با این ماژول به صورت چند کاناله استفاده کنم که مدار درست کار نمی کنه برای ارسال و دریافت این ماژول مشکلی ندارم فقط وارد حلقه LOOP می شه کار نمی کنه و زمانی که کلیدی را فشار می دم گیرنده روشن می شه ولی کلید بعدی را فشار می دم روشن نمی شه و باید تغذیه گیرنده را قطع کنم تا در گیرنده LED روشن بشه لطفا کمکم کنید برنامه فرستنده و گیرنده را اینجا قرار می دم تا کمکم کنید
برنامه فرستنده:
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Portb = Input
Dim A As String * 13
Dim C As String * 13
Dim E As String * 13
Dim G As String * 13
Dim P As Byte
A = "CANAL1"
C = "CANAL2"
E = "CANAL3"
G = "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 E
Next P
Goto Main

C4:
For P = 1 To 5
Print G
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