Also wenn ich das etz richtig deute, dann braauche ich sehr woll einen externen takt
Etwas anderes habe ich auch gar nicht behauptet. Ich habe nur gesagt, dass es nicht unbedingt ein Quarz sein muss.
Code:
Dim Adress as Word, H as byte, L as Byte, Wert as Byte
H=High(Adress)
L=Adress
'schreibt einen Wert in den 24C256
I2cstart
I2cwbyte &B1010_0000 'Adresse des Eeprom
I2cwbyte H 'Speicherstelle im Eeprom als Word
I2cwbyte L 'da der Bereich von 0 - 7FFF geht
I2cwbyte Wert 'Wert schreiben
I2cstop
'liest einen Wert aus dem 24C256
I2cstart
I2cwbyte &B1010_0000 'Adresse des Eeprom
I2cwbyte H 'Speicherstelle wo der Wert steht
I2cwbyte L
I2cstart
I2cwbyte &B1010_0001 'Lese Kommando
I2crbyte Wert , Nack 'Wert auslesen
I2cstop
Ich hoffe es stimmt alles, den Code habe ich gerade aus dem Kopf erstellt, da ich im Moment das Datenblatt nicht hier habe.
Lesezeichen