Hallo zusammen
ich hab noch mal ne Frage, vorab ich hab für das oben genannte Groblem jetzt einen Spannugsteiler deren Widerstände aus 240 kOhm und 330kOhm betsehn somit ist er hochohmig genug und die 5Volt werden auch nicht überschritten. Ich hab nun aber volgendes Problem wenn ich den Spannugssteiler überhauptnicht anschließ Zeigt gibt mir das Display schon 9V aus Schließ ich den Spannugsteiler an zeigt es mir 26V an. Hat jemand ne Ahnung was an meinem Programm vieleicht falsch ist. Danke schon mal im voraus.
LG micha
Code:
$regfile = "m32def.dat"                                     'für Mega32
$crystal = 16000000      
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Porta.3 , Db6 = Portc.2 , Db7 = Porta.4 , E = Porta.2 , Rs = Portc.0
Config Lcdbus = 4

'ADC einstellen, Vorteiler Automatisch wählen, Referenz Intern 5V
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Declare Sub _betriebsspannung()                            'Subroutine der Messung
 Const Ref = 5 / 1023                                       'Auflösung berechnen 0.005V = 5mV
 Dim Volt As Single
 Dim Betriebsspannung As Single  

Main:
Do
 Call _betriebsspannung()                                   'Routine aufrufen
 Locate 4 , 1
 Volt = Volt + 0.5
 Volt = Int(volt)
 Lcd Volt ; " Volt"
waitms 45


   Loop

End  

Sub _betriebsspannung()

   Local W As Word                                          'Variable die nur in der Sub benutzt wird
   W = Getadc(0)                                            'Rohwert einlesen 0 bis 1023
   Betriebsspannung = W * Ref                               'auf V umrechen
   Betriebsspannung = Betriebsspannung * 5.2941             'Spannungsteiler Verhältnis einbeziehen
   Volt = Betriebsspannung                                  'Ausgabe in Volt

End Sub