راه انداز یhm-tr 915

[SORELL]

سلام دوستان
من یک جفت ماژول hm-tr 915 دارم که برای راه اندازی دچار مشکل شدم.
چشمک زدنشون که نشون میده با هم ارتباط دارن ولی دیتایی ارسال و دریافت نمیشه، لطفا یه برنامه ساده برای راه انداز ی به من بدین تا با ساختار برنامه برای ارسال آشنا بشم ، (برنامه با بسکام).
تشکر

[EBKA]

سلام دوستان
من یک جفت ماژول hm-tr 915 دارم که برای راه اندازی دچار مشکل شدم.
چشمک زدنشون که نشون میده با هم ارتباط دارن ولی دیتایی ارسال و دریافت نمیشه، لطفا یه برنامه ساده برای راه انداز ی به من بدین تا با ساختار برنامه برای ارسال آشنا بشم ، (برنامه با بسکام).
تشکر

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

کد:

printbin var

بفرست و اونور با دستور

کد:

a=waitkey()

بگبر..
اگه یه کم صبر کنی که من شام درست کنم و بخورم برات برنامه کاملشو مینویسم(دانشجوییه دیگه)
موفق باشی...

[EBKA]

کد:

$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

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