Code:
Sub Showporta() 
Local Ws As Word 

   Config Porta = Input 
   For I = 0 To 5                        ' Alle internen Pullup Widerstände ein, bis auf Batteriespannungsmessungsport 
      Porta.i = 1 
   Next I 

   Print 
   Print "Ermittelte Messwerte an Port A:" 
   For I = 0 To 7                        ' Alle Eingänge inkl. messen 
      Start Adc 
      Ws = Getadc(i) 
      Volt = Ws * Ref 
      Print "Pin " ; I ; " ADC-Wert= " ; Ws ; " bei 5V REF waeren das " ; Volt ; " Volt" 
   Next I 
End Sub
@oberallgeier habe genau diese Demo genommen. Hatte den Sensor an PortA.0 angeschlossen.

Ich müsste dann ja eigentlich die Spannung raus bekommen, die ich auch rausbekomme wenn ich mit dem Multimeter nachmesse, es kommt aber wirklich nur schrott bei rum, er gibt sowas aus wie 3.6 obwohl das ja weit über der maximal ausgabe des sensors liegt. Normalerweise sollte das mit der Demo doch klappen.

@ikarus du hast jetzt schon mit der Nährungsformel gearbeitet oder? Die Spannung die das RN-Control ausgibt ist aber richtig oder?