Aso ich habs so gemacht: (Bascom)

Code:
$regfile = "m8def.dat"                                   

Config Adc = Free , Prescaler = Auto

Start Adc

Dim W As Word 


Do
W = Getadc(1) ' Die Spannung kommt am ADC Port 1 rein.

W=W*5000 ' Referenz: 5V
W=W/1024 ' Jetzt haben wird die Spannung, die am Port anliegt in mA

W=W/1 ' der Shunt hat den Wert 1 Ohm, W ist nun der fliessende Strom in mA

' jetzt kann man den Wert z.B. übers LCD ausgeben.
Loop
End
[/quote]