کمک در مورد hmt و hmr

[hossein-ab]

سلام من میخوام اطلاعات روی پورت A رو بفرستم و در گیرنده روی LCD نشون بدم این برنامم هستش:
فرستنده:

کد:

$regfile = "m16def.dat"
Config Portb.0 = Input
Config Porta = Input
Ddrb.0 = 0 : Portb.0 = 1
Dim B As Byte
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
Do
Print B
Waitms 75
Loop
End
گیرنده:
$regfile = "m16def.dat"
$baud = 9600
Config Porta = Output
Dim B As Byte
Cls
Do
Input B
Home
Lcd B
Loop
End

ولی کار نمیکنه؟ و در گیرنده چیزهای عجیب غریب (نویز) نشون میده.
اگه ممکنه کمکم کنید
ممنون میشم

[EBKA]

سلام..
دوسته من شما ابتدا با سیم وصل کنین ببین کار میکنه بعد به ماژول متصل کنین!!!
ترجیحا از کریستال خارجی استفاده بفرمایین..
اتصال پایه های ماژول به میکرو رو چک کن!!
tx به rx
rx به tx

[salehjg]

سلام
+
baud رو در برنامه ی فرستنده مشخص نکردید.
+
چند روز قبل با سریال avr در بسکام سر و کله می زدم یه چیزی متوجه شدم:
در project option بسکام، از communication ، فرکانس رو خودتون انتخاب کنید.
به help بسکام نگاه کردم گفته بود crystal$ در کد ها همین رو مشخص میکنه ولی تا زمانی که من این فرکانس رو دستی انتخاب نمی کردم، برنامه ام درست کار نمی کرد و روی ترمینال ، یه مشت چرت و پرت نشون میداد.

موفق باشید

[hossein-ab]

من اومدم ارتباط بین دو میکرو رو تست کنم ولی یکبار که کلید رو می زنم پورت a را می خونه و در گیرنده نشون میده ولی وقتی ریست میکنم و دوباره این کار رو انجام میدم عددهای عجیب غریب نشون میده نمیدونم مشکل کجاست؟
فرستنده:

کد:

$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600
Config Portb.0 = Input
Config Porta = Input
Ddrb.0 = 0 : Portb.0 = 1
Dim B As Byte
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
Do
Print B ; Chr(13);
Waitms 75
Loop
End
گیرنده:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600
Config Porta = Output
Dim B As Byte
Cls
Do
Input B
Home
Lcd B
Loop
End

ممنون میشم کمکم کنید[/size]

[ha_60]

من نخوندم متن ها رو ولی همیشه یادتون باشه این ها یکم بی کلاسن اول باید یه فرکانش ثابت بدید تا خازن مازن هاش به از حالت گذرا خارج بشن (ولش کنین مهم نیست )
برای همین اول یه تعدادی 55 و AA می فرستن تا راه بیفته بعد کد خودشون رو می فرستن

[EBKA]

من نخوندم متن ها رو ولی همیشه یادتون باشه این ها یکم بی کلاسن اول باید یه فرکانش ثابت بدید تا خازن مازن هاش به از حالت گذرا خارج بشن (ولش کنین مهم نیست )
برای همین اول یه تعدادی 55 و AA می فرستن تا راه بیفته بعد کد خودشون رو می فرستن

سلام..
من متوجه نشدم یه کم کامل تر توضیح میدین!!

[ha_60]

ببین اینا نمی تونن سیگنال DC رو ارسال کنن یعنی اگه صفر خالی بفرستی ارسال نمی کنن
حداقل یه فرکانس نیاز داره
مثلا اگه شما تو اولین بایت صفر بفرستی چون شبیه سیگنال DC درست کار نمی کنه
برای همی می یان مثلا 55 می فرستن این یکی در میون صفر و یک باعث می شه اون حداقل فرکانس رو ایجاد کنه
حالا بعد اگه یکی ۲ تا صفر هم بفرستی مشکلی نیست ولی بازم اگه چندتا صفر پشت یر هم بفرستی خطا ایجاد می کنه

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

[EBKA]

سلام..
اقا هادی من برام جالب شد!!
برای یه شبکه بیسیم که حدودا 30 تا hmtr استفاده میشه به نظرتون باید چیکار کنم!!
که بدون نقص اطلاعات ارسال و دریافت بشه!!

[hossein-ab]

ببین اینا نمی تونن سیگنال DC رو ارسال کنن یعنی اگه صفر خالی بفرستی ارسال نمی کنن
حداقل یه فرکانس نیاز داره
مثلا اگه شما تو اولین بایت صفر بفرستی چون شبیه سیگنال DC درست کار نمی کنه
برای همی می یان مثلا 55 می فرستن این یکی در میون صفر و یک باعث می شه اون حداقل فرکانس رو ایجاد کنه
حالا بعد اگه یکی ۲ تا صفر هم بفرستی مشکلی نیست ولی بازم اگه چندتا صفر پشت یر هم بفرستی خطا ایجاد می کنه

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

آقا هادی یعنی من باید چه تغییری در برنامم انجام بدم تا درست کار کنه؟
ممنون

[hossein-ab]

سلام این برنامه فرستنده منه برای اینکه پورت a را بخونه و بفرسته:

کد:

$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Portb.0 = Input
Config Porta = Input
Ddrb.0 = 0 : Portb.0 = 1
Dim B As Byte , S As String * 8 , A As String * 1
A = "h"
Do
Debounce Pinb.0 , 0 , Ersal
Loop
Ersal:
B = Pina
S = Str(b)
S = S + A
Do
Print S
Waitms 75
Loop
End

میخواستم ببینم در گیرنده باید چه برنامه ای بنویسم؟
ممنون میشم

[mobinnet]

کسی نیست بهم کمک کنه؟؟