ich möchte einen 24c16 beschreiben mit daten. bis jetzt hat es nicht geklappt. es wurde geschrieben: "der bus mus auf 5 volt gezogen werden". ist das der anschluss "scl und sda mit 10 kiloohmf auf 5 volt setzen"?
mfg pebisoft
Druckbare Version
ich möchte einen 24c16 beschreiben mit daten. bis jetzt hat es nicht geklappt. es wurde geschrieben: "der bus mus auf 5 volt gezogen werden". ist das der anschluss "scl und sda mit 10 kiloohmf auf 5 volt setzen"?
mfg pebisoft
jepp in was proggst du?
mit dem bascom-compiler-vollversion. in einem tread wurde mir geschrieben, der bus muss auf 5 volt gezogen . nach einer anfrage habe ich darauf keine antwort mehr bekommen was das heisst, "den bus auf 5 volt ziehen". ich hier die frage schon einmal gestellt, aber für den 24c65 i2c-eeprom. schau mal einpaar zeilen zurück.
für eine antwort wäre ich dankbar.
mfg pebisoft
den bus auf 5v ziehen bedeutet das, das du nen widerstand nimmst ca. 4,7 kOhm und dann haste:
5V-----Widerstand---+----SDA (eeprom)
5V-----Widerstand---|--+-SCL (eeprom)
| |
| |
SDA SCL
(jeweils zum Controller)
Verstanden oder willste nen Schaltplan?
EDIT: Scheint so als würde es nicht gehen ich mach nen Plan!
So:
Hallo
Ja, so ist es gut.
MFG
Dieter
beitragsschinder
danke für die antwort. werde es morgen ausprobieren, weil ich keine widerstände mehr habe.
mfg pebisoft
der 24c16 funktioniert mit bascom und er obigen schaltung. danke.
jetzt suche ich eine lösung um über die adresshürde von 255 zu kommen.
mfg pebisoft
kannst doch einfach mal word ausprobieren
Hallo
Versuch mal das so zu probieren.
'Code:Eeprom schreiben mit Word Adresse
Dim Adresse As Word
Dim Adresse_high As Byte
Adresse = 1234 'zum testen
Adresse_high = High(adresse) 'die oberen 8 Bit von Adresse speichern
I2cstart 'start condition
I2cwbyte &B1010_0000 'slave address, nur ein Beispiel
I2cwbyte Adresse_high 'high address
I2cwbyte Adresse 'low address, es werden automatisch die unteren 8 Bits genommen
I2cwbyte 44 'value to write
I2cstop 'stop condition
Waitms 10
Do
Loop
MFG
Dieter
hallo, vielen dank. jetzt kann ich endlich das 24c16 eeprom beschreiben und lesen.
mfg pebisoft
ich brauche die adresse nicht aufteilen. wenn ich "i2cwbyte wordadresse" eingebe, funktioniert es.
hallo, wie heisst der i2c-eeprom für 32 oder 64kbyte den ich auf die gleiche weise programmieren kann wie den 24c16.
mfg pebisoft
24c32 und 24c64
Martin
Hallo
Dann wohl eher 24C256 Oder 24C512, da 32 KByte bzw 64 KByte gefragt waren.
O:)
MFG
Dieter
den 24c64 kann ich auch programmieren, aber er liest nur kauderwelsch aus. hat das etwas mit der word-daten zu tun, der verschwendet nämlich für ein byte was ich rein schreibe 2 byte.
mfg pebisoft
Hallo
Anscheinend hast du meinen rat doch nicht befolgt.Zitat:
ich brauche die adresse nicht aufteilen. wenn ich "i2cwbyte wordadresse" eingebe, funktioniert es.
I2cwbyte Ee_adresse 'write low adressCode:'Einstellen des I"C Buses +++++++++++++++++++++++++++++++++++++++++++++++++++++
Config Scl = Portd.6 'PIN für I2C Bus
Config Sda = Portd.7
'Definition der Funktionen ++++++++++++++++++++++++++++++++++++++++++++++++++++
Declare Sub Read_byte(byval Ee_adresse As Byte)
Declare Sub Write_byte(byval Ee_adresse As Word , Byval Ee_daten As Byte)
Declare Sub Erase_eeprom(byval Ee_adresse As Word )
'Routine zum schreiben von Daten in das EEPROM ++++++++++++++++++++++++++++++++
Sub Write_byte(byval Ee_adresse As Word , Byval Ee_daten As Byte)
Disable Interrupts
Print Ee_adresse
Temp = High(ee_adresse) 'MSB von ee_adresse speichern
I2cstart 'generate start
I2cwbyte &B10100000 'write addres of24C65
I2cwbyte Temp 'write high adress
I2cwbyte Ee_adresse 'write low adress
I2cwbyte Ee_daten 'write daten
I2cstop 'Stop senden zum schreiben
Enable Interrupts
End Sub
'Routine zum lesen von Daten aus dem EEPROM ++++++++++++++++++++++++++++++++++++
Function Read_byte(byval Ee_adresse As Byte)
Disable Interrupts
Temp = High(ee_adresse) 'MSB von ee_adresse speichern
I2cstart 'generate start
I2cwbyte &B10100000 'write addres of 24C65
I2cwbyte Temp 'write high adress
I2cwbyte Ee_adresse 'write low adress
I2cstart 'generate repeated start
I2cwbyte &B10100001 'write read commando
For C = 0 To 1000
I2crbyte Daten , Ack 'LSB von Spannung einlesen
I2crbyte Temp , Ack 'MSB von Spannung einlesen
Spannung = Temp * 256 'MSB an die richtige Stelle von Spannung setzen
Spannung = Spannung + Daten 'LSB von Spannung dazu und fertig
Print C ; "," ; Spannung 'Ausgeben Speicherstelle, Spannung
Next C
I2cstop
Enable Interrupts
End Function
'Routine zum löschen von Daten in dem EEPROM Dauer ca 5,5 Sek ++++++++++++++++++
Sub Erase_eeprom(byval Ee_adresse As Word )
Disable Interrupts
For B = 0 To 8192 Step 64 '128 Page a 64 Byte löschen
Temp = High(b) 'MSB von B speichern
I2cstart 'generate start
I2cwbyte &B10100000 'write addres of24C65
I2cwbyte Temp 'write high adress
I2cwbyte B 'write low adress
For C = 1 To 64 'Page weise beschreiben mit 255
I2cwbyte 255
Next C
I2cstop 'Stop senden zum schreiben
Waitms 40 '8 * 5 ms warten zum schreiben der Pages
Next B
Enable Interrupts
End Sub
EE-adresse ist zwar als WORD definiert, beim schreiben werden aber nur die unteren 8 Bits gesendet, da der Befehl I2Cwbyte heißt. Daher der Umweg mit Temp = High(ee_adresse) .
In der Funktion Read_byte werden jetzt 1000 * 2 bytes ausgelsen, zusammen gesetzt in eine Word Variable und dann ausgegeben.
Erase_eeprom schreibt das ganze EEPROM mit 255 voll und zwar wird immer erst eine ganze Page geschrieben. Das geht dann schneller.
Hoffe der Code hilt dir etwas.
MFG
Dieter
hallo, bei read hast du die adresse als bytevarivale, ist das richtig?
mfg pebisoft
Hallo
Ja, das ist ein klarer Fehler , sollte schon word sein.
MFG
Dieter
hallo, vielen dank. es funktioniert.
mfg pebisoft
warum kommst du auf die Größe von 64 Bytes pro Page und wieso genau auf Waitms 40 '8 * 5 ms warten
ich möchte auch gleich mehrere bytes auf einmal schreiben aber irgendwie steht dann beim auslesen nur müll drin vielleicht kann ja jemand einen fehler finden.
gruß werner...
---------
Epromoffset = &b00000001
Epromadresse = 0
I2cstart
I2cwbyte &HA0
I2cwbyte Epromoffset
I2cwbyte Epromadresse
For J = 1 To 24
Epromchar = Mid(epromstring24 , J , 1)
Eprombyte = Asc(epromchar)
I2cwbyte Eprombyte
Waitms 20
Next I
I2cstop
Waitms 5
-------------
eigentlich sollte doch dann an der adresse 11110001 00000000 der anfang der daten sein
Hallo
Ich habe ein 24C65 im Einsatz. Dieses unterstützt das sogenannte Page Write. Eine Page hat die Größe von 8 Bytes. Intern hat das EEPROM einen Zwischenspeicher von 8 Pages, bevor gespeichert werden muß. Für eine Page brauchst es 5 ms zum speichern.Zitat:
warum kommst du auf die Größe von 64 Bytes pro Page und wieso genau auf Waitms 40 '8 * 5 ms warten
Die Anzahl der Pages ist von Chip zu Chip unterschiedlich
Daher 8 Pages * 5ms = 40 ms für 64 Bytes.
MFG
Dieter