Hallo, ich versuche verzweifelt, das erste mal einen Wert im EEPROm abzulegen. Klappt aber gar nicht, bekomme immer nur den Wert 0 zurück. Hat jemand eine Idee? ******** Dim Counteichwert As Long 'zum Eichen nur Words zulassen Dim Counteichwerte As Eram Long At 0 'Eichwert für 1m Impulse im EEPROM abgelegt ..... Counteichwerte = Counteichwert 'Zählerwert ist neuer Eichwert Writeeeprom Counteichwert , 0 'Ab ins EEPROM Count = Counteichwert 'Wert aus EEprom holen Call Checkcounter(count) 'Counter auf Grenzen überwachen Call Counter_in_digits(digit4 , Digit3 , Digit2 , Digit1 , Count) Call Digitausgabe(digit4 , Digit3 , Digit2 , Digit1) 'ausgeben Blink_zyklus = 3 ' Call Anzeige_blinken(100 , Blink_zyklus) ' blinken lassen Else Readeeprom Counteichwert , 0 Count = Counteichwert 'Wert aus EEprom holen Call Checkcounter(count) 'Counter auf Grenzen überwachen Call Counter_in_digits(digit4 , Digit3 , Digit2 , Digit1 , Count) Call Digitausgabe(digit4 , Digit3 , Digit2 , Digit1) 'ausgeben End If Danke und Gruß Wolfram
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.