Also der Code lieferte ungefähr 9 Fehlermeldungen! Ich geb mich mal ran.

Fertig! Soviel wars garnicht.
Hier ein netter Code:

Code:
Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portb.0 , Db6 = Portb.1 , Db7 = Portb.2 , E = Portb.3 , Rs = Portb.4       ' Natürlich so wie es wirklich angeschlossen ist (4-Bit-Modus)
Config Lcd = 16 * 2
Initlcd
Display On
Cursor Off
Config Timer0 = Counter , Edge = Rising
Dim 256_flanken As Word                                     ' der zähler
Declare Sub Anzeige
Enable Timer0
Enable Interrupts
On Timer0 T_isr

' -----------------------------------

Cls
Do
Home
Lcd "Cnt.= " ; Timer0 ; "  "
Lowerline
Lcd "Overflow = " ; 256_flanken ; "  "
Waitms 100
Loop

' -----------------------------------

T_isr:
incr 256_flanken
Return

' -----------------------------------
Danke für die Hilfe

MFG Moritz