Als Ausgang sollte der PIN nicht konfiguriert sein. An einen Softwarefehler habe ich noch gar nicht gedacht, kann da mal bitte jemand kurz rübergucken:
Code:$regfile = "m32def.dat" $framesize = 32 $swstack = 32 $hwstack = 32 $crystal = 8000000 'LCD Pinbelegung: Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portb.7 , Db6 = Portd.5 , Db7 = Portd.1 , E = Portd.0 , Rs = Portd.4 Config Lcdbus = 4 Dim Wegz As Long Dim Verbrauchz As Long Config Int0 = Change Enable Int0 Enable Interrupts On Int0 Interrupt_verbrauch Portd.2 = 1 Config Int1 = Rising Enable Int1 Enable Interrupts On Int1 Interrupt_weg Portd.3 = 1 Wegz = 0 Verbrauchz = 0 Cls Do Locate 1 , 1 Lcd "weg: " ; Wegz Locate 2 , 1 Lcd "verbrauch: " ; Verbrauchz Loop Interrupt_weg: Incr Wegz Return Interrupt_verbrauch: Incr Verbrauchz Return







Zitieren

Lesezeichen