Mit einem kleinen Korrekturprogramm in startIDE habe ich die Abweichungen zwischen TXT-Werten und Multimeterangaben auf meist unter 2% gedrückt.
Zunächst habe ich 10-mal den Widerstand gemessen und den Durchschnitt R1 (TXT) berechnet.
Dann erfolgen die Korrekturen für Widerstände bis 6600 Ohm bzw. darüber (ab Tag C)
Tag A
FromKeypad R0 0 32768 // Eingabe des mit dem Multimeter gemessenen Wertes
QueryVar R0 // Ausgabe dieses Wertes auf Bildschirm (und später in der Exel-Datei)
FromIn TXT 1 R R1 // Einlesen des 1. Widerstandswertes
Tag B
FromIn TXT 1 R R1s // Einlesen weiterer Werte R1s
Delay 10 // 10 ms Pause
Calc R1 R1 + R1s // Summe der Werte R1 = R1 + R1s
LoopTo B 9 // 9-mal Wiederholung
Calc R1 R1 / 10 // Division durch 10 R1 = R1 / 10
QueryVar R1 // Ausgabe von R1
IfVar R1 > 6600 C // wenn R1 über 6600 Ohm, dann weiter bei Tag C
Calc h1 R1 - 3200 // Korrekturvariable h1 = R1 - 3200
Calc h1 h1 exp 2 // h1 = h1^2
Calc h1 h1 * 106 // h1 = h1 * 106
Calc h1 h1 / 10000000 // h1= h1 / 10000000
Calc h1 209 - h1 // h1 = 209 - h1
Calc R R1 - h1 // R = R1 - h1
Jump D
Tag C
Calc h1 R1 * 21 // h1 = R1*21
Calc h1 h1 / 100 // h1 = h1 / 100
Calc h1 1412 - h1 // h1 = 1412 - h1
Calc R R1 - h1 // R = R1 - h1
Tag D
QueryVar R // Ausgabe
Delay 3000 // Pause zur Kontrolle der Ausgabe
Jump A // Sprung zum Anfang
Gruß
Rolf