Bei mir hat sich leider ein kleiner Fehler ins Board eigeschlichen. Der Pin7 (WP) des EEproms ist mit +5V verbunden was den Schreibschutz des EEproms aktiviert. Um nun aufs EEprom Schreiben zu können muß Pin7 nach GnD oder frei bleiben da er über einen internen Pulldown verfügt.


Hier noch ein kleiner Beispielcode
Code:
$regfile = "m8def.dat"
$crystal = 16000000

Config Sda = Portc.4                                        'SDA und SCL definieren
Config Scl = Portc.5                                        'für TWI-Bus-Konfiguration

Dim X As Byte
Dim Lesen As Byte

X = "R"                                                     'Wert der zu schreiben ist
'---- schreibe in EEprom ----
I2cstart                                                    'Start I2C
I2cwbyte &HA0                                               'Sende Slave Adresse+0 fü schreiben (Spreche EEPROM an)
I2cwbyte 0                                                  'Sende Speicheradresse High
I2cwbyte 0                                                  'Sende Speicheradresse Low
I2cwbyte X                                                  'Sende Wert
I2cstop                                                     'Stop I2C
'--- lesen vom EEprom ----
I2cstart                                                    'Start I2C
I2cwbyte &HA0                                               'sende Slave Adresse
I2cwbyte 0                                                  'sende Speicheradresse High
I2cwbyte 0                                                  'sende Speicheradresse Low

I2cstart                                                    'Start I2C
I2cwbyte &HA1                                               'sende Slave Adresse +1 für lesen
I2crbyte Lesen , Nack                                       'lese Adresse vom EEprom
I2cstop                                                     'Stop I2C

Print "Lese  EEprom= " ; Lesen ; "  ";                      'Ausgabe der EEprom Werte


Do
Loop