مشکل با hm-tr

[kimiafars]

سلام ایرانویجیهای عزیز اقا جان من دوتا ماژول اچ ام تی ار دارم مثل ادم با هم ارتباط برقرار میکنن اما مشکل اینجاست که من تو متغیرم هر چی میزارم اونور فقط 128 رو رو السی دی نشون میده باود رو هم عوض کردم 226 نشون میده بنظرتون علت چیه؟
اینم کدهاش:

کد php:

فرستنده::::::::::
  $regfile = "m32def.dat"
$crystal = 8000000


         $baud = 9600
Config Serialout = Buffered , Size = 20
Enable Interrupts
Dim M As Byte
M = 33
Do

    Toggle Porta.1

    Print M
    Waitms 99

Loop





گیرنده::::::::
$regfile = "m32def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.5 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.2 , Rs = Pinb.7 , E = Pinb.6
Config Kbd = Porta
$baud = 9600
Config Serialout = Buffered , Size = 20
Enable Interrupts
Dim A As Byte
Dim B As Byte
Do
B = Inkey()
If B > 0 Then
Cls
Lcd B
End If
 A = Getkbd()
 If A < 16 Then
 Cls
Lcd A
Print 1
End If

Loop 


---

اساتید زود مرا یاری کنید مخم هنگید

[kimiafars]

هیچکس نفهمید مشکل از کجاست ؟

[WhiteNoise]

کد:

Config Serialout = Buffered , Size = 20

این چیه؟
من تا حالا تو برنامه ها ندیدم چنین چیزیو
بعد بهتر نیست به جای

کد:

Inkey()

از

کد:

WAITKEY()

استفاده کنید؟

بعدشم اینکه بدون ماژول با سیم اطلاعاتو میفرستن؟

[kimiafars]

این بافر سریال رو کانفیگ میکنه
اره میگیرم
نه چون کیبورد و.... هم رو مدار هستند

[WhiteNoise]

اره میگیرم

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

[reza555]

زمین مدار همه جا باید یکی باشه دزست وصل کردی؟

[kimiafars]

اره عزیزم میفرسته اما یه عددرو تکرار میکنه
همهی مدار رو عوض کردم یه مقدار باهاش کار میکنم بهتون اطلاع میدم

[kimiafars]

اقا من اومدم دوتا انتن وایرلس دیلینک گذاشتن روش حتما باید بهم بچسبند تا همو بشناسن یکیشو سیم گذاشتم شد نیم متر فاصله همه جوره داره گیر میده عدد هم فقط 1÷28 میفرسته البته با کریستال داخلی بستم اینبار ولی همون اشو وهمون کاسه یکی بکمکه
ممنون

[EBKA]

اقا من اومدم دوتا انتن وایرلس دیلینک گذاشتن روش حتما باید بهم بچسبند تا همو بشناسن یکیشو سیم گذاشتم شد نیم متر فاصله همه جوره داره گیر میده عدد هم فقط 1÷28 میفرسته البته با کریستال داخلی بستم اینبار ولی همون اشو وهمون کاسه یکی بکمکه
ممنون

سلام..
دوست عزیز بجای دستور :

کد:

print var
از دستور
printbin var
استفاده کن...

var همون متغییرته

[kimiafars]

مرسی امتحان میکنم خبر میدم

---

فرقی نکرد همون 128 رو میفرسته دیگه دارم کلافه میشم همه ی مقالات رو خوندم جواب نمیده لعنتی
یکی بگه کریستال خارجی بذارم یا نه
؟؟؟؟؟؟؟؟؟؟؟

[EBKA]

دوست عزیز من برا خودم تست کردم جواب داد...
1- اون config srialout رو دلیلی نداره گذاشتی... برا ارتباط دو میکرو...
برشدار ببین درست میشه...

---

شما در ابتدا دو میکرو رو با سیم به هم وصل کن..

کد:

dim a as byte
a=128
do
printbin a
waitms 10
loop
در گیرنده:
:dim a as byte
do
a=waitkey()
home
lcd a;" "
loop