Hallo Jaecko,

hier der Code.....

Code:
$regfile = "m16def.dat"
$crystal = 8000000

'Konfigurieren von Timer 1
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq
Timer1 = 34286
Enable Timer1
Enable Interrupts

Gruß

Jens


'Konfiguration der Displayports





Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcdbus = 4
Config Adc = Single , Prescaler = , Reference = Avcc
Start Adc
Config Portb.0 = Output



Dim Anain1 As Integer                                       'Variablendefinition Analog In als Integer (0-1023)
Dim Anain2 As Integer                                       ' generated. Take care that the chip supports all fuse bytes.$PROG &HFF,&HE1,&H99,&H00' generated. Take care that the chip supports all fuse bytes.$PROG &HFF,&HE1,&H99,&H00' generated. Take care that the chip supports all fuse bytes.Dim Anain2 As Integer
Dim Anain3 As Integer
Dim Anain4 As Integer
Dim Anain5 As Integer
Dim Zeit As Integer


Dim Multipli5 As Single
Dim Stunde As Single

Dim Strom As Single
Dim Ladung As Single
Dim Ladunggesamt As Single
Dim Amperesekunden As Single

Dim Ergebnis As String * 10                                 'Definition der Ausgabevariable als 10 stelliger String
Dim Ergebnis2 As String * 10
Dim Ergebnis3 As String * 10
Dim Ergebnis4 As String * 10
Dim Ergebnis5 As String * 10
Dim Stromfluss As String * 10


Cursor Off
Cls

'Konstanten
Zeit = 0
Ladung = 0
Ladunggesamt = 0
Stunde = 3600

Do
Portb.0 = 1
Waitms 50
Portb.0 = 0
Waitms 50
Zeit = 1
Cursor Off
Loop

End
                                                 'Endlosschleife

            'Abfrage der ADC´s und Parametrierung des Wertebereichs

Timer_irq:
Timer1 = 34286
Anain5 = Getadc(4)
Multipli5 = 152 / 1023
Multipli5 = Multipli5 * Anain5
Strom = Multipli5
Ladung = Strom * Zeit
Ladung = Ladung - 1.0399
Ladung = Ladung
Ladunggesamt = Ladunggesamt + Ladung
Amperesekunden = Ladunggesamt / Zeit
Amperesekunden = Amperesekunden / 3600
Amperesekunden = Amperesekunden
Ergebnis5 = Str(amperesekunden , 5)
Ergebnis5 = Left(ergebnis5 , 5)
Stromfluss = Str(ladung , 5)
Stromfluss = Left(stromfluss , 5)
Locate 1 , 6
Lcd Ergebnis5
Locate 2 , 6
Lcd Stromfluss
Return

                                                          'Ende der Endlosschleife