logikbomb
11.07.2008, 13:37
Brauche hilfe bei meinem code ](*,)
er funktioniert ja schon soweit jetzt habe ich das problem das
ich nur noch das CR LF rausbekommen muss da das auch immer auf dem lcd angezeigt wird :-s
$regfile = "M32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Porta.5 , Rs = Porta.6
Dim I As Byte
Dim C As Byte
Echo Off
Display On
Cursor Off
Cls
I = 1
Do
C = Inkey()
If C <> 0 Then
I = I + 1
If I = 18 Then
Locate 2 , 1
End If
If I = 34 Then
Cls
I = 1
End If
If I = 1 Then
Cls
Locate 1 , 1
End If
If Chr(c) = "*" Then
I = 1
Cls
Else
Lcd ; Chr(c) ;
End If
End If
Loop
End
CODE-TAG's spendiert (PicNick)
er funktioniert ja schon soweit jetzt habe ich das problem das
ich nur noch das CR LF rausbekommen muss da das auch immer auf dem lcd angezeigt wird :-s
$regfile = "M32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Porta.5 , Rs = Porta.6
Dim I As Byte
Dim C As Byte
Echo Off
Display On
Cursor Off
Cls
I = 1
Do
C = Inkey()
If C <> 0 Then
I = I + 1
If I = 18 Then
Locate 2 , 1
End If
If I = 34 Then
Cls
I = 1
End If
If I = 1 Then
Cls
Locate 1 , 1
End If
If Chr(c) = "*" Then
I = 1
Cls
Else
Lcd ; Chr(c) ;
End If
End If
Loop
End
CODE-TAG's spendiert (PicNick)