HMT-HMR رو من راه انداختم واسه آز-مخابرات.
اینجا برنامشو میذارم. هر قسمتشو که متوجه نشدی بپرس.
فرستنده :
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim S As String * 16
S = "MyCode"
Cls
'////////////////////////////////////////
Do
Print Chr(2) ; S ; Chr(13)
Waitms 75
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End 'end program
گیرنده:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Pind.2 = Output 'HM-R Enable
Dim R As String * 16
Dim A As Byte
'++++++++++++++++++++++++++++++++++++++++++++ ++++++++
Cursor Off Noblink
Cls
Portd.2 = 1
Waitms 100
'////////////////////////////////////////
Do
A = Inkey()
If A = 2 Then
Cls
Input R
Home : Lcd R ; " "
Waitms 50
End If
Loop
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End