سلام دوستان
من یک جفت ماژول hm-tr 915 دارم که برای راه اندازی دچار مشکل شدم.
چشمک زدنشون که نشون میده با هم ارتباط دارن ولی دیتایی ارسال و دریافت نمیشه، لطفا یه برنامه ساده برای راه انداز ی به من بدین تا با ساختار برنامه برای ارسال آشنا بشم ، (برنامه با بسکام).
تشکر
(۱۸-دى-۱۳۸۹, ۱۹:۴۱:۵۶)SORELL نوشته است: [ -> ]سلام دوستان
من یک جفت ماژول hm-tr 915 دارم که برای راه اندازی دچار مشکل شدم.
چشمک زدنشون که نشون میده با هم ارتباط دارن ولی دیتایی ارسال و دریافت نمیشه، لطفا یه برنامه ساده برای راه انداز ی به من بدین تا با ساختار برنامه برای ارسال آشنا بشم ، (برنامه با بسکام).
تشکر
سلام دوست عزیز..
بادستور
بفرست و اونور با دستور
بگبر..
اگه یه کم صبر کنی که من شام درست کنم و بخورم برات برنامه کاملشو مینویسم(دانشجوییه دیگه)
موفق باشی...
کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
: Dim A As String * 4 , B As Integer
A = "ebka"
Ebi:
Do
Waitms 99
Incr B
Print A ; B ; Chr(13);
Loop
و برای گیرنده:
کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.1 , Rs = Portb.0
: Dim H As String * 4
Ebi:
Cls
Lcd "no text"
Do
Input H
Cls
Lcd H
Loop
ابتدا ارتباط با سیم رو تست کن و بعد به ماژول وصل کن میکرو هات رو...
موفق باشی....