Hallo

Versuch mal das so zu probieren.


'
Code:
Eeprom schreiben mit Word Adresse

Dim Adresse As Word

Dim Adresse_high As Byte


Adresse = 1234                                              'zum testen



   Adresse_high = High(adresse)                             'die oberen 8 Bit von Adresse speichern
   I2cstart                                                 'start condition
   I2cwbyte &B1010_0000                                     'slave address, nur ein Beispiel
   I2cwbyte Adresse_high                                    'high address
   I2cwbyte Adresse                                         'low address, es werden automatisch die unteren 8 Bits genommen
   I2cwbyte 44                                              'value to write
   I2cstop                                                  'stop condition
   Waitms 10

Do

Loop

MFG
Dieter