Hi Rolf und Dirk,

werde es heute Abend mal So ausprobieren.
Ich denke das meint ihr so oder?


Dim Timer_Flag as Byte

If Timer_Flag =1 Then
Timer_flag=0
Ah_zaehler = Ah_zaehler + Adcstrom 'ADC Shunt jede secunde in Ah_zaehler addiert
Ah = Ah_zaehler * 0.00488 'Spannung ausrechnen
Ah = Ah / 3.9 ' Strom Ausrechnen 3,9 Ohm
Ah = Ah / 3600 ' Ah Ausrechnen 1/sec = 3600
Locate 2 , 8
Lcd Fusing(ah , "##.###") ; "Ah"
End If

loop

Isr_von_timer1: 'ISR von Timer1
Timer1 = 61630 'Timer1 soll wieder von 61630 wegzählen
Toggle Portc.4 'schaltet Portd.0 im Sekundentakt 'EIN und AUS
Timer_flag = 1
Return