ATMEGA8 und EEPROM mit BASCOM

[Wolfram Szentiks (Gast)]

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