Hallo Nico!

Vielleicht hilft dir dieses Programm weiter:


Code:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600


Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2

Dim Porta_zustand As Byte
Porta_zustand = 0

Config Porta = Output
Porta = 255

Initlcd
Cls

Do

   Porta = Porta_zustand
   Upperline
   Lcd Porta_zustand
   Lowerline
   Lcd Bin(porta_zustand)
   Incr Porta_zustand

Loop

End
Habe es aber nur im Simulator getestet, dort funktionierte es aber!

Grüße,
Jonas