Hallo,
hat jemand den SHT21 erfolgreich eingestzt
Bei mir liest der Chip immer nur den 1 Wert aus und den 2X (z.B.9898)
Auch $f3($f5) bringt nichts!
// SHT21: byte = $40;
procedure TF_SHT21; // Temp & Feuchte
begin
if TWIstat(SHT21)= true then
TEXT_(73); // SHT21 found
else
TEXT_(74); // SHT221 not found
endif;
CRLF;
TWIout(SHT21,$e3); // ($f3) // Send Start Temp!
mdelay(100);
TWIinp(SHT21,t_sht211); // liest 2 x
TWIinp(SHT21,t_sht212);
// TWIinp(SHT21,CRC);
write(serout,ByteToStr(t_sht211)+ByteToStr(t_sht212));
CRLF;
// dto Feuchte
TWIout(SHT21,$e5); //($f5) // Send Start Feuchte!
mdelay(100);
TWIinp(SHT21,f_sht211);
TWIinp(SHT21,f_sht212);
// TWIinp(SHT21,CRC);
write(serout,ByteToStr(f_sht211)+ByteToStr(f_sht212));
end;
hat jemand den SHT21 erfolgreich eingestzt
Bei mir liest der Chip immer nur den 1 Wert aus und den 2X (z.B.9898)
Auch $f3($f5) bringt nichts!
// SHT21: byte = $40;
procedure TF_SHT21; // Temp & Feuchte
begin
if TWIstat(SHT21)= true then
TEXT_(73); // SHT21 found
else
TEXT_(74); // SHT221 not found
endif;
CRLF;
TWIout(SHT21,$e3); // ($f3) // Send Start Temp!
mdelay(100);
TWIinp(SHT21,t_sht211); // liest 2 x
TWIinp(SHT21,t_sht212);
// TWIinp(SHT21,CRC);
write(serout,ByteToStr(t_sht211)+ByteToStr(t_sht212));
CRLF;
// dto Feuchte
TWIout(SHT21,$e5); //($f5) // Send Start Feuchte!
mdelay(100);
TWIinp(SHT21,f_sht211);
TWIinp(SHT21,f_sht212);
// TWIinp(SHT21,CRC);
write(serout,ByteToStr(f_sht211)+ByteToStr(f_sht212));
end;