Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Porta.2 , Rs = Porta.3
Dim A As Byte
Config Lcd = 16 * 2
$regfile = "8535def.dat"
$crystal = 8000000
Cls 'clear the LCD display
Cursor Off
Lcd "***INFOSYSTEM***"
Lowerline
Lcd "*By Zaza & Rex!*" 'display this at the top line
Wait 3
Open "comd.1:9600,8,n,1" For Output As #1
Dim Var1 As String * 16
Dim Var2 As String * 16
Print "Test liaison RS-232"
Lbl:
Cls
Input "Nom?" , Var1
Input "IP?" , Var2
Print "By Zaza and Rex le toutou !"
Cls
Lcd Var1
Lowerline
Lcd Var2
Wait 60
Cursor Off
Goto Lbl
End
|