I2C BUS LM75A Temperatur sensor Problem

[yacdrak]

Delphi-Quellcode:

 //Register Temp configurate
 ic := Ti2cUsb.Create;
 ic.Init(3);
 start_i2c(144);
 ACK_Slave;
 write(init_temp);
 ACK_Slave;
 stop_i2c;


 //Read Temp register with preset Pointer (2 Byte Data)
 start_i2c(145);
 ACK_Slave;
 val1 := temperature_LM75_lesen;
 ACK_Master;
 val2 := temperature_LM75_lesen;
 No_ACK_Master;
 stop_i2c;