hi, hab in einem anderen Thread hier im Forum folgenden Code gefunden:


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
kann man damit schon was anfangen? wenn das gehen würde wäre klasse. Weil hier hab ich schon mal nen anfang versteh das in dem code nur mit den 1024 nich so ganz^^

Gruß