Data und EEprom

**for_ro** · 17.04.2011, 16:28

Zitat von Duesentrieb

Wie geht das?

Z.B. so:

Code:

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

**Duesentrieb** · 17.04.2011, 16:33

Danke! Jetzt kann ich gut weiter experimentieren

**for_ro** · 17.04.2011, 16:37

Und denke dran, dass du das EEPROM nur eine begrenzte Anzahl mal beschreiben kannst. In einer falsch programmierten Schleife kann das sehr schnell gehen.
Im Simulator kannst du die Schreib- und Lesevorgänge im EEPROM übrigens auch sehr gut testen.