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

[mostafa_naderi]

چه جوری باید باودشو تغییر بدم؟؟؟؟

الان فقط رو 9600 کار می کنه فرکانس11.0592 هست
تغییر تو هر کدوم از پارامتر های بالا باعث میشه جواب نگیرم !!
یعنی رو 4800 2400.....
جواب نمیده
کریستال داخلی هم که اصلا حرفشو نزن
اما نمی دونم اشکال چیه که تا چند کارکتر ارسال می کنم میکرو ریست میشه
البته گیرنده



حالا چه جوری می تونم باود ماژول تغییر بدم؟؟

---

من از تو سایت سازنده نرم افزارشو گرفتم !!
توش پارامتری برای تغییر باود ماژول نداره!!!

[modj.ir]

-----------------

[mostafa_naderi]

اینو که دانلود کردم از سایتش

اما تغییر باود نداره!!
فقط یه گزینه واسه تغییر باود پرت کام !

[modj.ir]

باد ریت پورت کام رو عوض می کنن، مگه قراره بادریت دیگه چی رو عوض کنن !؟

[mostafa_naderi]

یا شما منظور منو متوجه نمیشین یا من منظور شما!!!!!!

---

تعجب می کنم چه طور بعضیا با همین ماژول و کریستال داخلی تونستن جواب بگیرن!!!!!
اما من فقط تو فرکانس 11.0592 باود 9600 جواب میگیرم!!!

---

درضمن خود ماژول هم فکر کنم باوودش تنظیم میشه (برنامه داره). با میکرو یکیه؟ (البته لازم نیست حتما با میکرو یکی باشه. فقط حتما باید دو طرف ماژول برابر باشن)

اینو چه جوری میشه تغییر داد !!!!؟؟؟؟

اوون باود که تو نرم افزار نوشه اینو تغییر می ده؟

[محمد حسینی]

نرم افزارش رو من نتونستم اجرا کنم.رو ویستا نمی شد ...

ولی همون 9600 با کریستال داخلی 1 باید جواب بده! شرمنده نمی دونم چی بگم. شاید ماژول خرابه.
با میکرو دیگه امتحان کن. نگفتی میکروت چیه؟

[mostafa_naderi]

مگا 16 فعلا فکر کنم زدم ماژول کشتم!!!!!

یکی از ماژول ها نمی تونه درست دریافت کنه!!!

[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