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?
Lesezeichen