Thema: Sehr viele Daten speichern - wie am günstigsten?

zahlentyp am besten als byte, das vereinfacht auch den speicherzugriff...

das interne flash hält nur 10000 zyklen aus, ist also wohl nciht die beste wahl. das interne eeprom hat nur 512 bye, reicht also nicht.

du könnest zb ein externes eeprom per I2C anschließen. nen kilobyte für 27 cent...

Zitat von Björn

Meinst du sowas?

in der Richtung. gebräuchlicher sind die 24c64/256/512 Typen.

Mit Bascom ist das auch recht einfach zu handhaben. Ein Beispielprogramm alá "Klein Erna" hänge ich mal dran, in der Praxis geht das eleganter, so wird aber das Prinzip IMHO am deutlichsten:

Code:

'----------------- EEPROM Test für Mega168-Experimenter -----------------------
'Juli 2005 - HR
'------------------------------------------------------------------------------

$regfile = "m168def.dat"                     'bzw "m8def.dat"
$crystal = 7372800

Enable Interrupts

Declare Sub Read_eeprom()
Declare Sub Write_eeprom()

Dim Address As Word At &H112
Dim Address_low As Byte At &H112 Overlay
Dim Address_high As Byte At &H113 Overlay

Dim I As Word
Dim Temp As Byte
Dim Dev As Byte

Dim Wert As Byte

Const Ext_eeprom = 162                       'I2C Geräteadresse ggf. anpassen

'------------------------------------------------------------------------------

Cursor Off

Cls
Lcd "EEPROM TEST"
Locate 2 , 1
Lcd "SCHREIBE"
'------------------------------------------
Dev = Ext_eeprom

For Address = 0 To 49
 Wert = Address                              'schreibt die Adresse als Wert
 Call Write_eeprom()                         'ins EEprom
Next

Wait 2
Cls
Lcd " LESE"

For Address = 0 To 49
  Call Read_eeprom()
  Locate 2 , 1
  Lcd "ADR: " ; Address ; " " ; "Wert: " ; Wert
  Wait 1                                     ' Pause , damit man was sieht
Next

Wait 2

Cls
Lcd "FERTIG"

End
'------------------------------------------------------
'- Byte (wert) auf EEprom Adresse (address) speichern -
'------------------------------------------------------
Sub Write_eeprom()

I2cstart
I2cwbyte Dev
I2cwbyte Address_high
I2cwbyte Address_low
I2cwbyte Wert
I2cstop

Waitms 2

End Sub
'-----------------------------------------------------------------
'---  Byte (wert) von EEprom Adresse (address) lesen           ---
'-----------------------------------------------------------------
Sub Read_eeprom()
Dim Devread As Byte

Devread = Dev + 1

I2cstart
I2cwbyte Dev
I2cwbyte Address_high
I2cwbyte Address_low
I2cstop
I2cstart
I2cwbyte Devread
I2crbyte Wert , Nack
I2cstop

End Sub
'------------------------------------------------------------------------------

Grüße
Henrik

Zitat von Björn

Moin!
Es ist nicht unbedingt notwendig dass die Daten auch nach Strom aus noch abrufbar sind, ...
Gruß, Björn

Ich würds im RAM speichern... somit hast du keine Probleme mit I2C, Anzahl der Speicherzugriffe und obendrein bekommst du schnelle Zugriffszeiten.

Gruss
Michael

Zitat von FoCus

Ich würds im RAM speichern... somit hast du keine Probleme mit I2C, Anzahl der Speicherzugriffe und obendrein bekommst du schnelle Zugriffszeiten.

Na ja, 1 KB Ram ist ja nun so üppig auch wieder nicht. Was die begrenzte Speicherlebensdauer anbelangt: durchschnittlich 1.000.000 Zyklen im High Endurence Block der Eeproms sind ein Haufen Zeug und im normalen Bereich sind auch die 100.000 nicht sooo schnell erreicht. Für kritische Scherze (und aus Bequemlickkeit, weil auch direkt am PC auszuwerten) nutze ich zur Messdatenerfassung gerne Chipkarten (genau das selbe wie die 8-pol DIP-Käferchen, nur schneller rein und rausgesteckt).

Grüße
Henrik

Das interne Ram eines Mega8 sollte dicke reichen, wenn der restliche Programmcode es nicht aufisst. Es bleiben immerhin 124 Bytes Ram übrig, so viel wie zB ein 90S2313 überhaupt an Ram hat!

Unter dem Aspekt "günstig", ist also die Ram-Variante der Gewinner. Sowohl was Aufwand in Hardware (gar keiner) als auch in Software (praktisch keiner) betrifft.