مشکل با ماژول های hmt , hmr

[hamedtahamtan]

سلام . من چند وقت پیش چند تا ماژول اچ ام تی و اچ ام آر رو گرفتم. اما حالا که میخوام باهاش دیتا رو از یه میکرو به میکروی دیگه بفرستم نمیشه. با سیم درس میفرسته اما بدون اون نه..من با بسکام برنامه می نویسم و اینم برنامه هام هستن.

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.1 , Db4 = Pina.2 , Db5 = Pina.3_
 , Db6 = Pina.4 , Db7 = Pina.5
'Config Portd.0 = Output
'Config Portd.1 = Output
Config Portb.0 = input
Portb.0 = 1
Dim A As String * 1
Dim B As Byte
B = 1
A = "a"
 Do
 Cls
 Lcd "hamed"
 'Portd.0 = 1
 'Portd.1 = 1
 Wait 1
' Portd.0 = 0
 'Portd.1 = 0
 Locate 2 , 1
 Lcd "tahamtan"
 Wait 1
 If Pinb.0 = 0 Then Exit Do

 Loop

Do
Wait 1
Lcd "1"
Printbin 2
Wait 1
Lcd "2 "

Loop



 End

این هم گیرنده

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.1 , Db4 = Pina.2 , Db5 = Pina.3_
 , Db6 = Pina.4 , Db7 = Pina.5
'Config Portd.0 = Output
'Config Portd.1 = Output
Config Portb.0 = input
Portb.0 = 1
Dim A As String * 1
Dim B As Byte
B = 1
A = "a"
 Do
 Cls
 Lcd "hamed"
 'Portd.0 = 1
 'Portd.1 = 1
 Wait 1
' Portd.0 = 0
 'Portd.1 = 0
 Locate 2 , 1
 Lcd "tahamtan"
 Wait 1
 If Pinb.0 = 0 Then Exit Do

 Loop

Do
Wait 1
Lcd "1"
Printbin 2
Wait 1
Lcd "2 "

Loop



 End

آیا کسی میدونه چرا کار نمیکنه؟

وقتی فرستنده و گیرنده رو راه می اندازم هیچ دیتایی نمیاد اما وقتی انیبیل گیرنده رو در میارم و دوباره به vcc وصل میکنم یه مشت دیتای بی ربط میفرسته که اصلا اون دیتای من توش نیست.
راهی هست که فهمید فرستنده و گیرنده کار میکنند یا نه؟
آیا ممکنه که سوخته باشند؟ آیا این دو فرستنده و گیرنده رو میشه بدون نصب آنتن راه انداخت؟
آیا طول سیم آنتن مهم نیست؟من یه سیم استخونی 10 سانتی بهش زدم و وصلش کردم به آنتن

[mohamadeng]

پاسخ : مشکل با ماژول های hmt , hmr

$regfile = "m16def.dat"
$crystal = 8000000
Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 20 , Bytematch = All
Config Serialout = Normal
'############################################ ##################################
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
'############################################ ##################################
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.3 , Db5 = Pinb.2 , Db6 = Pinb.1 , Db7 = Pinb.0 , E = Pinb.4 , Rs = Pinb.5
'############################################ ##################################
Config Servos = 1 , Servo1 = Portc.0 , Reload = 10
Config Portc.0 = Output

Config Watchdog = 1024
Dim I As Byte

Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.6 = Output
Config Portd.7 = Output
Dim S1 As String * 10
Config Porta = Output
Servo(1) = 90
Enable Interrupts
'"""""""&q uot;"""""""&quo t;"""""""" ""

Do


Loop

Serial0bytereceived:
S1 = Inkey()


Return
-----------------------------------------------

سلام
این برنامه 100% جواب میده من همیشه با این قالب الگوریتممو مینویسم ، شما برنامتونو در حلقه اصلی بنویسید ، قسمت لیبل اینتراپت سریال Serial0bytereceived: هر داده ای از پورت سریال دریافت میکنه داخل S1 میریزه و می تونید با اون دستوراتونو انجام بدید .
این برنامه هم برای SEND و RECEIVE هستش .
داده های که می خواید بفرستید حتما از نور رشته باشن مثل S1
کریستال خارجی فراموش نکنید .

[omidrobot]

پاسخ : مشکل با ماژول های hmt , hmr

دوست عزیز بارها روی این موضوع بحث شده :agree:.برای نومونه لینک زیر:
http://www.eca.ir/forum2/index.php?topic=88665.msg547980#msg547980

[elecengin]

پاسخ : مشکل با ماژول های hmt , hmr

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