Hey,
danke - es klappt, allerdings komischerweise nur beim ersten Durchlauf meines Loops. Ich hänge den Ausschnitt mal an, vielleicht siehst du den fehler?
GrüßeCode:Do Summe1 = 0 Summe2 = 0 N = 0 Do Temp1 = Readfront() Temp2 = Readback() Summe1 = Summe1 + Temp1 Summe2 = Summe2 + Temp2 Waitms 50 Incr N Loop Until N = 3 Summe1 = Summe1 / N Summe2 = Summe2 / N 'nachkommastellen entfernen Summe1 = Summe1 * 10 Summe1 = Round(summe1) Summe1 = Summe1 / 10 Summe2 = Summe2 * 10 Summe2 = Round(summe2) Summe2 = Summe2 / 10 Locate 1 , 4 Lcd Summe1 Locate 2 , 4 Lcd Summe2 Loop
Alex







Zitieren

Lesezeichen