Hallo zusammen,

mittlerweile habe ich mein RN-Control dank toller Hilfe aus dem Forum wieder zum laufen gekriegt und bin mich gerade wieder fleißig am einarbeiten.

Leider bekomme die Spannungsmessung nicht so zum laufen wie ich das möchte.
Habe 3 1.5 Volt Batterien an GND und an Porta0 angeschlossen, sobald die Batterien angeschlossen sind bekomme ich die richtige Spannung ausgegeben.
Aber sobald ich die Batterien abklemme, zeigt er mir wirre Spannungswerte von 0-5 Volt an eigentlich sollte am Port dann ja nichts mehr gemessen werden. Nur finde ich den Fehler nicht. Hoffe mir kann jemand helfen.



Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600

Config Adc = Single , Prescaler = Auto                      'Für Spannungsmessung

Config Porta.0 = Input                                      'Für Spannungsmessung Porta.0 = 1                                                 'Pullup Widerstand ein

Const Ref = 5 / 1023                                        'Für Batteriespannungsberechnung
Dim Volt As Single
Dim W As Word
Start Adc
Do
   W = Getadc(0)
   Volt = W * Ref
   Print "Die aktuelle Spannung beträgt: " ; Volt ; " Volt"
   If Volt > 1 Then
   Print "Ausgelöst"
   End If

   Waitms 100
Loop

End