Data und EEprom

[for_ro]

Wie geht das?

Z.B. so:

Dim Zeit(20) As String * 8
Dim Modul(20) As Byte
Dim Befehl(20) As Byte
Dim Beschreibung(20) As String * 20
Dim Adresse As Word
Adresse = 1                     'Adresse 0 lässt man wegen Überschreibproblemen aus
for i = 1 to 20
   Writeeeprom Zeit(i) , Adresse : Adresse = Adresse + 9            '8 + 1 Byte
   Writeeeprom Modul(i) , Adresse : Adresse = Adresse + 1           '1 Byte
   Writeeeprom Befehl(i) , Adresse : Adresse = Adresse + 1          '1 Byte
   Writeeeprom Beschreibung(i) , Adresse : Adresse = Adresse + 21   '20 +1 Byte
Next