ERAM Problem mit Mega8

[for_ro]

Hallo Andy,

Dim Ecodestring(30) As Eram String * 13
If Pointer = 50 Then Pointer = 0

Du deklarierst dir 30 Strings, benutzt aber 50.

If Richtung = 0 Then Incr Position
If Richtung = 1 Then Decr Position
If Position = 31 Then Position = 1
If Position = 0 Then Position = 30
If Position = 255 Then Position = 30
Pointer = Eepointer
Sprung = Pointer - Position
Sprung = Sprung + 1
If Sprung >= 0 Then
    Stelle = Pointer
    Stelle = Stelle - Position
    Stelle = Stelle + 1
  Else
    Stelle = Pointer
    Stelle = Stelle - Position
    Stelle = Stelle + 31
End If

Mit dieser Berechnung der Stelle zum Lesen komme ich nicht klar. Wenn in EEPointer die aktuelle Position steht, dann brauchst du doch eigentlich nur
Stelle = EEPointer * 14 'Stringlänge 13 + Ende 0