Beim Schreiben muss das Bit 0 = 0 sein bei der Adresse.
Folglich muss in der Sub W_EE24Cxx folgendes Stehen:
Shift ICAdr,Left,1 ' ICAdr höherwertig verschieben
ICAdr = ICAdr And &b1111_1110 ' Bit0 (Read=&B1/Write=&B0)
Bits löschen mit OR geht nicht
Alternativ auf geht auch
Reset I2CAdr.0 ' Bit 0 löschen (schreiben)
Beim Lesen muss das Bin 0 gesetzt sein.
In der Function R_EE24Cxx muss es logisch dann
ICAdr = ICAdr OR 1 ' Bit0(Read=&B1/Write=&B0)hinzu
heißen oder Alternativ
Set I2CAdr.0 ' Bit 0 setzen (Lesen)
Versuchs mal!
Folglich muss in der Sub W_EE24Cxx folgendes Stehen:
Shift ICAdr,Left,1 ' ICAdr höherwertig verschieben
ICAdr = ICAdr And &b1111_1110 ' Bit0 (Read=&B1/Write=&B0)
Bits löschen mit OR geht nicht
Alternativ auf geht auch
Reset I2CAdr.0 ' Bit 0 löschen (schreiben)
Beim Lesen muss das Bin 0 gesetzt sein.
In der Function R_EE24Cxx muss es logisch dann
ICAdr = ICAdr OR 1 ' Bit0(Read=&B1/Write=&B0)hinzu
heißen oder Alternativ
Set I2CAdr.0 ' Bit 0 setzen (Lesen)
Versuchs mal!