WDragon91
29.12.2010, 12:23
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.
$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
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.
$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