مشکل در ارتباط سریال

[mostafa_naderi]

سلام من برنامه زیر نوشتم اما خروجی ندارم نمی دونم مشکل کجاست
اگه ممکنه راهنمایی کنید

یه کنترل 2 کانال که در حالت عادی باید خروجی ها صفر باشه و با فشردن کلید 1 بشه

کد:

'Rx
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Porta = Output
Dim A As String * 10

Do
Input A
If A = "canal1" Then Set Porta.0
If A = "canal2" Then Reset Porta.0
If A = "canal3" Then Set Porta.1
If A = "canal4" Then Reset Porta.1

Loop

End

فرستنده

کد:

$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Config Portb = Input
Do
If Pinb.0 = 1 Then : Print "canal1" : Waitms 20 : End If
If Pinb.0 = 0 Then : Print "canal2" : Waitms 20 : End If
If Pinb.1 = 1 Then : Print "canal3" : Waitms 20 : End If
If Pinb.1 = 0 Then : Print "canal4" : Waitms 20 : End If

Loop
End

[t3r!p3000]

مهندس بایت اول تو گیرنده رو بیخیال بشی مشکلت حل میشه !!!