كمك در مورد برنامه نويسي hm-tو hm-r

[baran6355]

سلام
نميدونم مشكل كجاست؟ لطفا كمكم كنيد
با سيم كار مي كنه ولي با ماژول نه
فرستنده:
$regfile = "m16def.dat"
$crystal = 7372800
$baud = 4800
Dim S As String * 4
S = "SOBH"
Main:
Do
Waitms 50
Print S ; Chr(13);
Loop
End
گيرنده:
$regfile = "m16def.dat"
$crystal = 7372800
$baud = 4800
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = _
Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Dim S As String * 4
Main:
Cls
Do
Input S
Cls
Lcd S
Loop
End
ممنون ميشم

[EBKA]

سلام...
دوست عزیز پایه ها رو به چه صورت وصل کردین؟؟؟
2-ترجیحا از کریستال خارجی استفاده کن..
3- baud =9600 بزار...
یه تست بزن خبرش رو بده..
موفق باشی...

[baran6355]

در فرستنده vcc رو به تغذيه gndرو به زمين و data رو به tx ميكرو
در گيرنده vcc رو به تغذيه gnd رو به زمين data رو به rx ميكرو و enable رو
به تغذيه
بادريت رو 9600 وكريستال خارجي گذاشتم ولي بازم نشد
آيا راهي هست كه بفهمم اطلاعت از ماژول فرستنده ارسال ميشه يا نه؟
خيلي برام مهمه عجله دارم لطفا كمكم كنيد

[EBKA]

من هم یه موقع همین مشکل رو داشتم ماژول هام رو به جای hmt و hmr یه دونه hmtr گذاشتم و درست شد...
کریستال خارجی که گذاشتی تو فیوز بیت ها تعریف کردی؟؟؟
دیگه هیچ چیزی به ذهنم نمیرسه..
بزار امروز بعد اظهر که ار امتحان برگشتم یه بار دیگه ماژول هام رو وصل میکنم ببینم میتونم راش بندازم..

[baran6355]

من ميخوام با همين ماژول ها كار كنم
پس بعد از ظهر منتظرتون هستم

[EBKA]

من ميخوام با همين ماژول ها كار كنم
پس بعد از ظهر منتظرتون هستم

سلام..
دوست عزیز بعد از یک ساعت هی برنامه عوض کردن و باوود رو بالا پایین کردن فهمیدم تو گیرنده اول یه بار پایه ENABLE رو صفر کن بعد یک کن درست میشه..
برای من که درست شد...
برنامه درسته و فرستنده هم میفرسته ولی گیرنده رو اول یه بار صفر و بعد یک کن درست میشه...
امیدوارم مدارت درست بشه....
موفق باشی...

[baran6355]

سلام اين كاري كه گفتيد انجام دادم ولي اتفاقي نيفتاد
من وقتي فرستنده رو قطع مي كنم و گيرنده رو روشن مي كنم هيچ نويزي روي
lcd نشون نميده واين به نظر من يعني اينكه گيرنده كار نمي كنه آيا درسته؟؟؟؟
شما هم اين كار رو انجام بديد ببينيد روي lcd چيزهاي عجيب غريب نشون ميده
يا نه؟
ممنون ميشم

[EBKA]

سلام اين كاري كه گفتيد انجام دادم ولي اتفاقي نيفتاد
من وقتي فرستنده رو قطع مي كنم و گيرنده رو روشن مي كنم هيچ نويزي روي
lcd نشون نميده واين به نظر من يعني اينكه گيرنده كار نمي كنه آيا درسته؟؟؟؟
شما هم اين كار رو انجام بديد ببينيد روي lcd چيزهاي عجيب غريب نشون ميده
يا نه؟
ممنون ميشم

شما تکست نفرس ...الل حساب شما عدد بفرست و اونور بگیر...
با دستور

کد:

printbin var

محتوای یه متغییر رو بفرست و اونور با دستور

کد:

var=waitkey()

بگیر...
پایه enable رو از vcc قطع کن و بعد دوباره وصل کن...
ببین قطعی تو اتصالاتت نداشته باشی..

[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
ولی کار نمیکنه؟ و در گیرنده چیزهای عجیب غریب (نویز) نشون میده.
اگه ممکنه کمکم کنید
ممنون میشم

[kazifasa]

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

[h0x00i]

اره صدا رو دریاف کنه تبدیل به کد دیجیتال کنه بعد ارسالش کنه