EEPROM 24LC16 schneller Schreiben mit ACKNOWLEDGE POLLING

Es klappt !  

Der Test dauert jetzt 6 Sek statt 25 Sek.

Ich hatte noch ein Hardware-Problem, zwei in SCL und SDA eingefügte
ESD-Schutzbauelemente haben mit ihrer Kapazität die Flanken zu stark
verschliffen.

Nachfolgend der Code:

Sub Write_eeprom_ack(byval Adresse As Byte , Byval Block As Byte , Byval Wert As Byte)
   24c16_w = Block * 2                            ' Blockstart im EEPROM
   24c16_w = 24c16_w + &B1010_0000                ' + Bausteinadresse
   Nochmal:
   Err = 0                                        ' allg. Fehlervar. auf Null
   I2cstart                                       ' I2C Start
   I2cwbyte 24c16_w                               ' "Device Adres Word"
   If Err = 1 Then
      Waitus 1                                    ' Bus free time
      Goto Nochmal
   End If
   I2cwbyte Adresse                               ' Adresse im Block
   I2cwbyte Wert
   I2cstop                                        ' I2C Stopp
End Sub