24c128 24c256

[Vitis]

Für diejenigen, die wie ich Probleme mit dem Umgang mit I2C EEPROM haben hab ich mal mein Ergebniss hier rein gestellt, auf dass es anderen helfen möge.

Bausteine: 24c128 , 24c256





Declare Sub Write_eeprom(byval Adresh As Byte , Byval Adresl As Byte , Byval Value As Byte)
Declare Sub Read_eeprom(byval Adresh As Byte , Byval Adresl As Byte , Value As Byte)

' Adresse erzeugen:
' Pin A0 und A1 sind intern mit Pulldowns versehen, sind also
' wenn extern nicht beschaltet 0
' Die Der Baustein halt serienmäßig die Adresse Binär:
' 1 0 1 0 0 A1 A0 R/W
' also, angenommen man möcht bei A0 = 0 und A1=0 schreiben:
' Adresse: 10100000 = 160
' Lesen Adresse: 10100001 = 161
'
' der 24c128 und 24c256 brauchen für die Adressierung 2 Byte
' Den High-Byte der Adresse und den Lowbyte der Adresse.
' Einfach, da die soviel Speicher habn :o)

Const Addressw = 160 'slave write address
Const Addressr = 161 'slave read address

Dim B1 As Byte
Dim Value As Byte 'dim byte
dim Adresse as word at &HA0 ' Der Speicherbereich ist dem jeweiligen Baustein anzupassen, muß aber den overlayvariablen gleich sein
Dim Adresh As Byte at &HA1 overlay 'Highbyte der Adresse
Dim Adresl As Byte at &HA0 overlay 'Lowbyte der Adresse
Dim A As Byte 'allgemeine Variable für Berechnungen

For Adresse = 1 To 5 ' die ersten 5 Byte schreiben
Value = Adresse + 100 'Beginnend mit Zahlenwert 105 um Verwechslungen zu vermeiden
Call Write_eeprom(1 , Adresse , Value) 'Daten schreiben
Next Adresse

For Adresse = 1 To 5 'die geschriebenen 5 Byte auslesen
Call Read_eeprom(1 , Adresse , Value) 'auslesen
Print Value 'Ausgabe an UART
Next Adresse

Sub Write_eeprom(byval Adresh As Byte , Adresl As Byte , Value As Byte)
I2cstart 'start condition
I2cwbyte Addressw 'slave address
I2cwbyte Adresh 'asdress H of EEPROM
I2cwbyte Adresl 'asdress L of EEPROM
I2cwbyte Value 'value to write
I2cstop 'stop condition
Waitms 10 'wait for 10 milliseconds
End Sub

Sub Read_eeprom(byval Adresh As Byte , Adresl As Byte , Value As Byte)
I2cstart 'generate start
I2cwbyte Addressw 'slave adsress
I2cwbyte Adresh 'asdress H of EEPROM
I2cwbyte Adresl 'asdress L of EEPROM
I2cstart 'repeated start
I2cwbyte Addressr 'slave address (read)
I2crbyte Value , Nack 'read byte
I2cstop 'generate stop
End Sub

' Wires from the I2C address that are not connected will default to 0 in most cases!

' I2cstart 'start condition
' I2cwbyte &B1010_0000 'slave address
' I2cwbyte H 'high address
' I2cwbyte L 'low address
' I2cwbyte Value 'value to write
' I2cstop 'stop condition
' Waitms 10

[Keksdose]

Ich weiß nich obs an mir liegt jedenfalls hat diese lösung mit sehr viel hin und herprobieren immernoch nicht funktioniert. Habs nu mit bisschen rumsuchen und probieren anders gelöst. Deshalb meine Lösung nochmal damit sich nich noch mehr leute damit rumärgern müssen wenns nich geht ](*,)


'Hardware: AT Mega 32
$regfile = "m32def.dat"
$crystal = 7372800

'I2C konfigurieren
Config Sda = Porta.7
Config Scl = Porta.6

Dim Wert As Byte
Dim Adresse As Word
Dim Temp As Byte

'Funktionen deklarieren
Declare Sub Read_byte(byval Ee_adresse As Word, Value As Byte)
Declare Sub Write_byte(byval Ee_adresse As Word , Byval Ee_daten As Byte)

'Hauptprogramm===================================
Print "EEPROM schreiben...";
Do

For Adresse = 1 To 5 ' die ersten 5 Byte schreiben
Wert = Adresse + 100 'Beginnend mit Zahlenwert 105 um Verwechslungen zu vermeiden
Call Write_byte(adresse , Wert) 'Daten schreiben
Next

Wait 1
Print "*2";
Print "EEPROM lesen: ";
Print "*3";

For Adresse = 1 To 5 'die geschriebenen 5 Byte auslesen
Call Read_byte(adresse , Wert) 'auslesen
Print Str(wert); 'Ausgabe an UART
Next

Loop


'Funktionen=============================

'Routine zum schreiben von Daten in das EEPROM
Sub Write_byte(byval Ee_adresse As Word , Byval Ee_daten As Byte)
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
End Sub

'Routine zum lesen von Daten aus dem EEPROM
Function Read_byte(byval Ee_adresse As Word , Value As Byte)
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
I2crbyte Value , Nack
I2cstop
End Function