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
Lesezeichen