na klar kann man die "Abtastzeit" erhöhen.

Aber Thomas schrieb ja, dass der Strommessbereich zu klein sein könnte.
Ich werde am Wochenende mal den Strom mit einem "LEM HTFS 400-P" messen.

Testprogramm ist ja nicht aufwendig und das Mitloggen übernimmt der Laptop.

Code:
$regfile = "m8def.dat"                                      'AT-Mega8
$crystal = 14745600                                         'Quarz: 14,7456 MHz
$baud = 128000                                             'Baudrate der UART
'-------------------------------------------------------------------------------
'Analogmessung
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'-------------------------------------------------------------------------------
'Timer0
Config Timer0 = Timer , Prescale = 1024
Dim Timer0vorgabe As Word
Timer0vorgabe = 112                                         '100*/sec
Timer0 = Timer0vorgabe
Enable Timer0
Enable Interrupts
On Timer0 Ontimer0overflow                                  'Timer1-Interruptroutine deklarieren
Start Adc  


Do
'Incr X
Loop

'____________________
Ontimer0overflow:
Timer0 = Timer0vorgabe

'Print X
'X = 0

Analog1 = Getadc(1)                                         'Strom messen
Analog5 = Getadc(5)                                         'spannung messen

Strom1 = Analog1 - 510                                     
Strom1 = Strom1 * 1.5625                                    'Strom1 = Strom in Amperé

'Spannung errechnen
Spannung1 = Analog5 * 0.04513196481                     

Print "ADC1;" ; Analog1 ; ";" ; Round(strom1) ; ";A;" ; Round(spannung1) ; ";V"

Return