Habs jetzt nicht getestet (Alter Code verschmissen), aber sollte hinkommen:
Code:
$regfile = "m8def.dat"
$crystal = 4000000
Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portd.2 , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.3 , E2 = Portd.4
Dim ___lcdno As Bit
Dim Cvar As Integer
Cvar = 10
___lcdno = 0
Initlcd
Cursor Off
Cls
___lcdno = 1
Initlcd
Cursor Off
Cls
Do
___lcdno = 0
Upperline
Lcd Cvar
Waitms 1000
Decr Cvar
Cls
Loop
Zählt von 10 ab runter.
MfG,
ShadowPhoenix
Lesezeichen