کمک در ایراد یابی Hm-t,Hm-R

[ehsancompany]

سلام دوستان
من یه بار روی برد برد مدار Hm-t,Hm-R رو بستم و جواب گرفتم
اومدم PCBبزنم و رو اون تست کنم
ولی هر کار میکنم نمیشه
2 تا میکرو رو با سیم ارتباط دادم به خوبی دیتا ردوبدل میشه ولی با Hm-t,Hm-R نه!:x
این از فایل پروتل برای این مدارا
You can see links before reply
اینم از برنامه هاش با بسکام:


فرستنده
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600

Config Serialout = Normal
Config Serialin = Normal
Ucsra = &H00;
Ucsrb = &H98;
Ucsrc = &H86;
Ubrrh = &H00;
Ubrrl = &H47;

Cls : Cursor Off

Dim S As String * 10
Dim Code As Byte
Dim S1 As String * 10
Dim S2 As String * 10
Dim I As Byte


Do

Print "t/" ; "ru" ; "/t"

Loop




گیرنده
'--------------------------------------------------------------
' In The Name of GOD
'--------------------------------------------------------------
$regfile = "M16def.dat"
$crystal = 11059200
$baud = 9600
Cls : Cursor Off
Config Portd.2 = Output
Portd.2 = 0
Waitms 1000
Portd.2 = 1
Ucsra = &H00;
Ucsrb = &H98;
Ucsrc = &H86;
Ubrrh = &H00;
Ubrrl = &H47;

Dim Str1 As String * 13
Dim Str2 As String * 13
Dim Code As Byte
Dim Num As Integer , T1 As Byte , T2 As Byte
Dim I As Byte
Dim Sum As Byte
Dim Sum1 As Byte


Config Serialout = Normal
Config Serialin = Normal

Do
Input Str1 Noecho

For I = 1 To 50
T1 = Instr(str1 , "t/")
T2 = Instr(str1 , "/t")
Sum = Sum + T1
Sum1 = Sum1 + T2
Waitms 1
Next



If Sum >= 5 And Sum1 >= 5 Then
'If T1 <> 0 And T2 <> 0 And T2 > T1 Then

T1 = T1 + 2
T2 = T2 - T1
Str2 = Mid(str1 , T1 , T2)
Home : Lcd Str2 ; " "
End If




Sum1 = 0
Sum = 0

Loop
End



اصلا نمیدونم چیکار کنم با 5 تا ماژول مختلف هم چک میکنم کار نیمکنه که نمیکنه:(