Thermometer
Angelegt Sonntag 29 September 2024
(Picomite Programm)
Dim MYTEMP As Float = 0.0
Dim MYHUMI As Float = 0.0
Dim n As integer = 0
Dim length As integer = 10
Dim m As float = 0.0
CLS
Color RGB(Green)
Do
Device HUMID GP16, MYTEMP, MYHUMI,1
n = Min(length, n+1)
m = m + (MYTEMP-m)/n
Font 2
Text 1,1,"Temperatur:"
Font 3
Text 10,40," "
Text 10,40,Str$(int(m*100)/100.0)
Pause 1000
Loop
n = Min(length, n+1)
m = m + (MYTEMP-m)/n
Font 2
Text 1,1,"Temperatur:"
Font 3
Text 10,40," "
Text 10,40,Str$(int(m*100)/100.0)
Pause 1000
Bleibt nur die Frage, ob Selbstbauen noch lohnt, wenn es fertige Messstationen für 5€ gibt?
Der Spaß und die Flexibilität beim Selbermachen ist natürlich größer ;-)
