دریافت داده های عجیب و غریب از HM-TR

[soodi]

با سلام خدمت تمامی دوستان

من با فشار دادن هر دکمه ی روی KeyPad ، در بیشتر مواقع عدد 255 و 254 و یا اعداد 194 و ... رو روی LCD مشاده می کنم و عددی که با HM-TR فرستنده ارسال کرده ام رو نمی توانم روی LCD به نمایش در بیاورم ، من با String هم برای ارسال کلمه استفاده کردم ولی موفق نشدم برنامه رو در زیر گزاشته ام

فرستنده :

$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pinc.4 , E = Pinc.5
Config Lcd = 16 * 2
Config Kbd = Porta
$baud = 9600

Dim A As Byte
Dim Key As Byte
Dim S0 As Byte
Dim S1 As Byte
Dim S2 As Byte
Dim S3 As Byte
Dim S4 As Byte
Dim S5 As Byte
Dim S6 As Byte
Dim S7 As Byte
Dim S8 As Byte
Dim S9 As Byte
S0 = 0
S1 = 1
S2 = 2
S3 = 3
S4 = 4
S5 = 5
S6 = 6
S7 = 7
S8 = 8
S9 = 9


Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd "Design By Masood"

Main:
Do
Key = Getkbd()
If Key < 16 Then
If Key = 2 Then Goto 0
If Key = 15 Then Goto 1
If Key = 14 Then Goto 2
If Key = 13 Then Goto 3
If Key = 11 Then Goto 4
If Key = 10 Then Goto 5
If Key = 9 Then Goto 6
If Key = 7 Then Goto 7
If Key = 6 Then Goto 8
If Key = 5 Then Goto 9
End If
Do
Key = Getkbd()
Loop Until Key = 16
Loop

0:

Print S0
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S0
Goto Main

1:

Print S1
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S1
Goto Main

2:

Print S2
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S2
Goto Main

3:

Print S3
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S3
Goto Main

4:

Print S4
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S4
Goto Main

5:

Print S5
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S5
Goto Main

6:

Print S6
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S6
Goto Main

7:

Print S7
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S7
Goto Main

8:

Print S8
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S8
Goto Main

9:

Print S9
Cls
Locate 1 , 1
Lcd " Send S By HM-TR"
Locate 2 , 1
Lcd S9
Goto Main

گیرنده:

$regfile = "m32def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pinc.4 , E = Pinc.5
Config Lcd = 16 * 2
Config Portb = Output
$baud = 9600

Dim S As Byte

Set Portb.0
Cursor Off

Cls
Locate 1 , 1
Lcd "Receved By HM-TR"
Locate 2 , 1
Lcd " No Data "

Main:

Do
Input S
Cls
Lcd S
If S = 1 Then Goto 1
If S = 2 Then Goto 0
Loop

1:
Reset Portb.0
Goto Main

0:
Set Portb.0
Goto Main

[maziyar123]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

سلام باید jtag رو غیر فعال کنی
در ضمن اینا رو هم درست کن


Do
Key = Getkbd()
If Key < 16 Then
If Key = 2 Then Goto 0
If Key = 15 Then Goto 1
If Key = 14 Then Goto 2
If Key = 13 Then Goto 3
If Key = 11 Then Goto 4
If Key = 10 Then Goto 5
If Key = 9 Then Goto 6
If Key = 7 Then Goto 7
If Key = 6 Then Goto 8
If Key = 5 Then Goto 9
End If
Do
Key = Getkbd()
Loop Until Key = 16
Loop

اون do که پایین end if گزاشتی حذف کن در ضمن اون end if رو هم حذف کن اینم حذف کن If Key < 16 Then اینا هم همینطور حذفش کن
Key = Getkbd()
Loop Until Key = 16

راستی گیرنده چیه ؟ کامپیوتر یا میکرو ؟


خودت نوشتی برنامشو یا دانلود کردی ؟ :cry:

[khast khodaiebehnam]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

دوست من ایشون نگفتن lcd کاز نمیکنه که شما میگین مربوط به jtag پورت سی هست

دوست من ایراد شما در قسمت فرستنده هست که هر کدی که میفرستین باید اخرش chr)113( رو بفرستین
مثل این

$regfile = "m8def.dat"


$crystal = 10000000
$baud = 9600
Config Portb = Output

Dim S As String * 13
Dim I As Integer
S = "omid"


Main:
Do
Toggle Portb.1
Waitms 75
Incr I
Print S ; I ; Chr(13);

Loop


End

من تو ضمیمه واستون هم گیرنده و هم فرستنده رو میزارم که خودم جواب گرفتم
دزرضمن اقای صبحان سروری هم یه مقابه کامل دادن که میتونین اون رو بخونید و توی سایت هم یه جایی یادمه قرارش دادم

[soodi]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

با سلام

آیا اشکال از فرکانس میکروکنترلر نیست؟

[cuttlass]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

یکی بیاد این بند و بساط رو از بازار ما جمع کنه. آخه این هم شد ماژول ؟ برای من 48 ساعت هم بدون ایراد کار نکرد. همش ریست می خواد. خیلی مضخرفه. اشک منو در آورد. اونوقت قیمتش به 17 تومن هم میرسه. این چینی های ... ما رو مسخره کردن.

[khast khodaiebehnam]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

دوست من با چه baud rati بهش دیتا میدین و میگیرین؟این خیلی مهمه هااااااا
من تا فاصله 300 متر بدون کوچکترین خطا باهاش کد فرستادم
baudrat=2400

حتما کریستال میکرو رو external بزارید

[soodi]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

************************************************** ************************************************** **

[soodi]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

************************************************** ************************************************** **

[cuttlass]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

دوست من با چه baud rati بهش دیتا میدین و میگیرین؟این خیلی مهمه هااااااا
من تا فاصله 300 متر بدون کوچکترین خطا باهاش کد فرستادم
baudrat=2400

حتما کریستال میکرو رو external بزارید

با باودریت پایین خطا کم میشه. اما این که منطقی نیست. چون برخی موارد نیاز هست که باود ریت بالاتر باشه.

[soodi]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

با سلام

آقای امید حبیبی شما در پروژه ای که لطف کردید و ضمیمه کردید از فرکانس 10000000 استفاده کرده بودید که با این فرکانس LED روی فرستنده و گیرنده اصلا روشن نمی شد و دیتایی ارسال نمی شد و من مقاله آقای سبحان سروری رو نیز مشاهده کردم که ایشان از فرکانس 1000000 استفاده کرده بودند و با این فرکانس نیز LED های فرستنده و گیرنده روشن نمی شدند و با فرکانس 11059200 که استاندارد و با HM-TR هم سازگار است امتحان کردم ولی باز هم مشکل مذکور در سطر های بالا .

************************************************** **************************************************

آقای سبحان سروری در مقاله ای که اراعه کرده اند برای ارسال از شیوه زیر استفاده کرده اند آیا من هم از این شیوه استفاده کنم .

Chanel1:
For A = 1 To 5
Print C5 ; Chr(13) :
Waitms 20
Next A
Goto Main
End

************************************************** **************************************************

من فقط با فرکانس 8000000 توانستم HM-TR رو به کار بگیرم که LED های روی آن روشن می شد و دیتا ارسال می شد ولی با دستور Input نمی توانستم دریافت کنم فقط با دستور WaitKey که اون هم عجیب و غریب دریافت می شد .

************************************************** **************************************************

من فکر می کنم اشکال از فرکانس میکرو باشد من با کریستال خوارجی امتحان نکردم ام و تا کنون با کریستال داخلی میکرو کارم رو پیش می بردم که امروز تصمیم به تهیه کریستال با فرکانس 11.0592 دارم .

************************************************** **************************************************
با سپاس

[khast khodaiebehnam]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

فرکانس مهم نیست که چه کریستالی بزاری
فقط خارجی باشه

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

[soodi]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

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

[epauon]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

[size=12pt][/sizeسلام منم با این مشکل برخورد کردم. حل: فرستنده همیشه باید روشن باشه و حتما مطمئن باشی که کار میکنه. یعنی از نظر سخت افزاری درست باشه. ]

[khast khodaiebehnam]

پاسخ : دریافت داده های عجیب و غریب از HM-TR

به این شگل
1111