Du kannst ja das aus dem Beispielcode verwenden. Du musst nur den richtigen ADC Kanal einsetzen und eventuell den Ausgabetext ändern.
Code:
'Diese Unterfunktion zeigt Batteriespannung an
Sub Batteriespannung()
Local W As Word
Start Adc
W = Getadc(6)
Volt = W * Ref
Volt = Volt * 5.2941
Print "Die aktuelle Spannung beträgt: " ; Volt ; " Volt"
End Sub