ارتباط سریال بین دو میکرو

[goldenmasoud]

با سلام خدمت شما دوستان عزیز.
من این برنامه رو نوشتم ولی یه مشکل داره.
برنامه از این قراره که وقتی کلید فشار داده شد حرف "m" رو بفرسته برای میکرو گیرنده.بار اول که کلید میزنم "m" نشون میده ولی بار دوم دو تا m با فاصله از هم نشون میده ببینید مشکل از کجاست؟
برنامه میکرو فرستنده:

کد:

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Dim A As String * 13
Config Porta.0 = Input
A = "m"
Do
If Pina.0 = 0 Then
Gosub Pr
End If
Loop
Pr:
Print A
Waitms 100
Return

برنامه میکرو گیرنده:

کد:

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Porta.0 = Output
Dim A As String * 13
Cls
Do
Input A
Home
Lcd A
If A = "m" Then
Gosub O
End If
Loop
O:
Cls
Set Porta.0
Waitms 500
Reset Porta.0
Return

[t3r!p3000]

مهندس بهتر نیست با PRINTBIN بفرستی و با WAITKEY بخونی !

[hadii]

سلام

فکر کنم اگه تو برنامه گیرنده قبل از LCD A یه CLS بذاری حله.