۰۶-آذر-۱۳۹۱, ۱۹:۳۷:۲۷
با سلام
آنتن فقط وقتی از HM-TR استفاده می کنید ضروری است، برای HM-t و HM-R همون یه تیکه سیم که رو ماژول هست کافیه. من خودم دردسر زیادی کشیدم تا از این ماژولا جواب گرفتم بهترین راه اینه که از کریستال خارجی استفاده کنید،مثلا برنامه های ذیل:
فرستنده: طرف فرستنده به اینصورت کار می کنه که با فشردن یه سوئیچ و یک شدن یکی از پایه های میکرو کد 124 ارسال ی می شه.
گیرنده: طرف گیرنده به اینصورت کار می کنه که اگه کدی رو دریافت کرد و مساوی 124 بود یکی از پایه های میکرو رو روشن می کنه، بهتره از این مثال استقاده کنید و بعد از اینکه جواب گرفتید برید سراغ برنامه های پیچیده تر.
آنتن فقط وقتی از HM-TR استفاده می کنید ضروری است، برای HM-t و HM-R همون یه تیکه سیم که رو ماژول هست کافیه. من خودم دردسر زیادی کشیدم تا از این ماژولا جواب گرفتم بهترین راه اینه که از کریستال خارجی استفاده کنید،مثلا برنامه های ذیل:
فرستنده: طرف فرستنده به اینصورت کار می کنه که با فشردن یه سوئیچ و یک شدن یکی از پایه های میکرو کد 124 ارسال ی می شه.
کد:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim C1 As Byte , A As Byte
Config Pinb.0 = Input
Config Pinb.1 = Output
Config Pinb.2 = Output
C1 = 124
Main:
Do
Set Portb.1
Waitms 10
Reset Portb.1
Waitms 10
If Pinb.0 = 0 Then Goto Car1
Loop
Car1:
For A = 1 To 4
Printbin C1
Waitms 20
Next A
Set Portb.2
Waitms 200
Reset Portb.2
Waitms 200
Goto Main
Endکد:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim C1 As Byte
Config Portb = Output
On Urxc In1
Enable Urxc
Enable Interrupts
Main:
Do
Set Portb.1
Waitms 100
Reset Portb.1
Waitms 100
If C1 = 124 Then Goto Up
Loop
End
Up:
Set Portb.0
Waitms 100
Reset Portb.0
Waitms 100
C1 = 0
Goto Main
In1:
Inputbin C1
Return
'end program