Hallo Neutro
Lass alle variablen as word bis deine effektivberechnungen , du solltest noch deine ausgabe zum lcd oder print noch formatieren mit z.b. print Fusing(effektiv , "#.##")
dim tastmessungen as Byte 'sollte die gleiche grösse wie w haben
dim w(20) as word ' getadc mag kein single
dim Maxi as word '
dim mini as word
dim Spitzenstrom as word
dim Effektiv as Single 'und alle andere variablen für die Berechnungen als single deklarieren
Poste mal dein funktionierendes Bascom code
Gruss Carlos