خطا در دریافت اطلاعات از hm tr

[salehjg]

من قبلا با ماژول های HM-T & Hm-R مشکلی (شاید مشابه شما) داشتم. البته انگاری شما اصلا نمی تونید اطلاعات رو دریافت کنید ولی من قبل و بعد متن ارسالی یک سری حروف عجیب غریب (مثل Symbol) دریافت میکردم(مثل : @!#@DATA^%$&) هر چی کردم درست نشد آخر مجبور شدم
برنامه رو با کد گذاری(مثل رشته ها در C++) بنویسم.
{ من مجبور شدم به جای آنتن ها از دو رشته سیم هم اندازه استفاده کنم چون آنتن آماده نداشت.}
[ البته وقتی من فرکانس رو به غیر از 1 مگاهرتز قرار می دادم همه چیز به هم می ریخت]
شاید به درد بعضی ها بخوره:

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

کد php:

$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Kbd = Portb , Debounce = 10
Declare Function Getkey(byval Value As Byte )as Byte
Config Lcd = 16 * 2
Cls
Cursor Off
'***********************************************************************
Dim Num As Integer : Num = 0
Dim Lng As Byte , Lng1 As Byte
Dim Str1 As String * 13
Dim Str2 As String * 13
'***********************************************************************
Do

 Num = Getkbd()
 Select Case Num
 Case 0
 Print "t/" ; "ru" ; "/t"
 Home
 Lcd "Right_UP "
 Case 1
 Print "t/" ; "rd" ; "/t"
 Home
 Lcd "Right_DOWN "
 Case 2
 Print "t/" ; "lu" ; "/t"
 Home
 Lcd "Left_UP "
 Case 3
 Print "t/" ; "ld" ; "/t"
 Home
 Lcd "Left_DOWN "
 Case 4
 Print "t/" ; "up" ; "/t"
 Home
 Lcd "UP "
 Case 5
 Print "t/" ; "dw" ; "/t"
 Home
 Lcd "DOWN "
 Case 14
 Print "t/" ; "st" ; "/t"
 Home
 Lcd "STOP "
 End Select

Loop
'***********************************************************************
End


Function Getkey(byval Value As Byte )as Byte
 Dim Rtn As Byte

 If Value < 3 And 0 <= Value Then
 Rtn = Value + 1
 End If

 If Value > 3 And Value < 7 Then
 Rtn = Value
 End If
 If Value > 7 And Value < 11 Then
 Rtn = Value - 1
 End If
 Select Case Value
 Case 3
 Rtn = 255
 Case 7
 Rtn = 254
 Case 11
 Rtn = 253
 Case 15
 Rtn = 252
 Case 12
 Rtn = 200
 Case 13
 Rtn = 0
 Case 14
 Rtn = 199

 End Select
 If Value = 16 Then
 Rtn = 111
 End If
 Getkey = Rtn
End Function 


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

کد php:

$regfile = "m32def.dat" 
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Portb = Output
Config Lcd = 16 * 2
Cls
Cursor Off
'***********************************************************************
Dim Str1 As String * 13
Dim Str2 As String * 13

Dim Num As Integer , T1 As Byte , T2 As Byte
'***********************************************************************]
Portb.4 = 1
Lcd "Hello"
Waitms 500
'------------------------------------------
Do
 Input Str1
 'Str1 = "587t/qo/t"

 T1 = Instr(str1 , "t/")
 T2 = Instr(str1 , "/t")
 If T1 <> 0 And T2 <> 0 And T2 > T1 Then
 Portb.5 = 1
 T1 = T1 + 2
 T2 = T2 - T1
 Str2 = Mid(str1 , T1 , T2)

 Select Case Str2
 Case "ru"
 Portb.0 = 1
 Portb.1 = 0
 Portb.2 = 0
 Portb.3 = 0
 Case "rd"
 Portb.0 = 0
 Portb.1 = 1
 Portb.2 = 0
 Portb.3 = 0
 Case "lu"
 Portb.0 = 0
 Portb.1 = 0
 Portb.2 = 1
 Portb.3 = 0
 Case "ld"
 Portb.0 = 0
 Portb.1 = 0
 Portb.2 = 0
 Portb.3 = 1
 Case "up"
 Portb.0 = 1
 Portb.1 = 0
 Portb.2 = 1
 Portb.3 = 0
 Case "dw"
 Portb.0 = 0
 Portb.1 = 1
 Portb.2 = 0
 Portb.3 = 1
 Case "st"
 Portb.0 = 0
 Portb.1 = 0
 Portb.2 = 0
 Portb.3 = 0
 Case "qn"
 Portb.6 = 0
 Portb.7 = 0
 Case "qo"
 Portb.6 = 1
 Portb.7 = 0
 Case "qt"
 Portb.6 = 1
 Portb.7 = 1
 Case Else
 Cls
 Home
 Lcd Str2
 End Select




 End If
 Portb.5 = 0
Loop
'***********************************************************************
end