Hi,

wenn du aber alle 504 Bytes hintereinder ausliest, dann gänge es bestimmt schneller.

z.b. (ich kenne aber diese Sprache nicht...!!!!)
Sub Read_eeprom(byval Adres Word , Value As Byte(sollte ein Array sein)???, Count As Word)
Temp = High(adres)
Temp2 = Low(adres)
I2cstart 'generate start
I2cwbyte Addressw 'slave adsress
I2cwbyte Temp
I2cwbyte Temp2 'address of EEPROM

I2cstart 'repeated start
I2cwbyte Addressr 'slave address (read)

for-schleife i = 0 bis Count - 2 (502)
I2crbyte Value[i] , ack 'read byte

wenn fertig dann noch mal auslesen
I2crbyte Value[503] , Nack 'read byte

I2cstop 'generate stop
Waitms 10
End Sub


Ingbo