Fünf Zeilen geändert und sollte jetzt gehen.
Gento

Code:
 Dim Zaehlwert As Word
 Dim Zaehlwert_alt AS Word
'******** Initialisierung ********                                                 '

 Ddrd = &B11100000
Portd = &B00000000

'******** Hauptprogramm ********

Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.2       'LCD configurieren (datenleitung)

Config Int0 = Falling                                       'INT0 = wenn taster gedrückt wurde
Enable Int0                                                 ' erlaube INT0
Enable Interrupts                                           ' erlaube Interrupts
On Int0 Unterprogramm                                       ' gehe zu Unterprogramm

Dim A As Byte
Config Lcd = 16 * 2                                         ' 16*2 Zeilen

Cls                                                         'display löschen
Zaehlwert=0
Zaehlwert_Alt=1000
Main:                                                       'hauptprogramm

  Do


    If Zaehlwert <> Zaehlwert_Alt Then                          'wenn sich zählwert ändert
    Locate 1 , 1                                            'cursor in Zeile 1, Reihe 1
    Lcd Zaehlwert                                           'schreibe "Zählwert"
    Cursor Off                                              'cursor off

    End If                                                  'end if


  Loop




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





 Unterprogramm:                                             'Unterprogramm

  Do
Zaehlwert_alt=Zaehlwert    
Zaehlwert = Zaehlwert + 1                               'addiere 1 zu Zähltwert

  Return                                                    'zurück zu Main


  Loop
war einer scheller