ADC zeigt Komische werte

OP #3215812
Lesenswert?

Hallo zusammen,
Ich habe ein Problem mit dem Adc vom Atmega 8.
Und zwar zeigt mir das Simulationsprogram von Bascom alles Richtig an.
Wenn ich das Programm auf den mc schiebe, zeigt er mir bei der Spannung 
irgendwas mit 1.xxx und beim analogwert 4xx an obwohl noch nicht einmal 
was angeschlossen ist!?

Bitte um hilfe und danke schonmal!
1
'Bibliothek Festlegen
2
$regfile = "m8def.dat"
3
'$sim
4

5
'Ports Festlegen
6
Config Portd = Output                                       'Fuer LCD
7

8

9
'Festlegung LCD
10
Config Lcd = 20 * 4
11
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , Rs = Portd.6 , E = Portd.7
12
Config Lcdbus = 4
13
Cursor Off
14

15
'Festlegung ADC
16
Const Adc_scala = 0.0046875                                 ' = 5.0/1024.0
17
Config Adc = Single , Prescaler = Auto , Reference = Avcc
18
Start Adc
19

20
'Festlegung Variablen / Unterprogram
21
Dim Analo As Word , Volt As Single , Altvolt As Single
22

23
'Declare Sub Messen
24
'Declare Sub Skalieren
25
'Declare Sub Anzeige
26

27
'Hauptprogramm
28
Do
29
   Analo = Getadc(0)                                        'Liest den Analogwert ind eine Variable
30
   Volt = Analo * Adc_scala                                 'Rechnet analogwert * der Aufloesung
31
   If Altvolt <> Volt Then                                  'Wenn der Wert in der Alten Spannung anders ist als in der Spannung
32
         Cls
33
         Altvolt = Volt                                     'Schiebe die Aktuelle Spannung ind die Alte Spannung
34
         Lcd "Volt = " ; Fusing(volt , "#.###")             'Zeige in Zeile 1 des Lcd die Aktuelle Spannung und Runde diese
35
         Locate 4 , 1 : Lcd "Analogwert:" ; Analo           'Zeige in Zeile 4 des Lcd Den Analogwert
36
   End If
37
Loop
38
'Unterprogramme
39
End

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren