Vysielač:
Kód: Vybrať všetko
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
$hwstack = 40
$swstack = 16
$framesize = 32
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Pinc.0 = Input
Dim I As Byte
Cls
Cursor Off
Do
For I = 0 To 255
Lcd "Cislo: " ; I
Print I
Wait 1
Cls
Next
Loop
End
Prijímač:
Kód: Vybrať všetko
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 40
$swstack = 16
$framesize = 32
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Cls
Cursor Off
Dim I As Byte
Do
Inputbin I
Cls
Lcd "Cislo: " ; I
Loop
End