DHT22

//T[C] = -45 +175 * ST / 2^16 -1 <-- Formel aus Datasheet
float sht31_calculate_temperature(SHT31 *sensor) {
  return (((sensor->read_buffer[0] << 8)| sensor->read_buffer[1]) * 175.0) / 65535.0 - 45.0;
}
//RH = 100 * SRH / 2^16 -1
float sht31_calculate_humudity(SHT31 *sensor) {
  return (((sensor->read_buffer[3] << 8) | sensor->read_buffer[4])) * 100.0 / 65535.0;
}

   T              : word;
   tLow[@T]       : byte;
   tHigh[@T+1]    : byte;
   temp           : integer;
   tempF1          : fix64;
   temp1          : fix64;

   R              : word;
   rhLow[@R]      : byte;
   rhHigh[@R+1]   : byte;
   RHum           : word;
   RHumF          : fix64;

   TT, RR         : fix64;    //ausgabe TFT
   Bool1          : Boolean;
   dataSHT31      : array[0..5] of byte;
//----------------------------------------------------

{
  SHT31_HIGH_ENABLED     : word = $2C06;
  SHT31_MEDIUM_ENABLED   : word = $2C0D;
  SHT31_LOW_ENABLED      : word = $2C10;
  SHT31_HIGH_DISABLED    : word = $2C00;
  SHT31_MEDIUM_DISABLED  : word = $2C0B;
  SHT31_LOW_DISABLED     : word = $2C16;
}

//============================================================================
Procedure Get_SHT31;
begin

  //SHT31 = $44
  if TWIstatC(SHT31) then
    uDelay(5);
    TWIOutC(SHT31, SHT31_HIGH_ENABLED);  //2C06

    uDelay(5);
    TWIinpC(SHT31, dataSHT31 );

    //Temperatur
    tHigh:=  dataSHT31[0];
    tLow :=  dataSHT31[1];

    rhHigh:= dataSHT31[3];
    rhLow := dataSHT31[4];

    temp1:=  IntToFix64(T);
    temp1:= temp1 / 65534;
    temp1:= temp1 * 175;
    TT:= temp1 - 47;             //<============  alt 45
    
    
    //RH
    temp1:=  IntToFix64(R);
    temp1:=  temp1 / 65534;
    RR:=  temp1 * 100;
    Bool1 := true;

  else
    writeLn(SerOutE0, 'ERROR');
    Bool1 := false;
  endif;

end;