ad_wandler an atmega 8

Da die REFS1 REFS0 Bits beide 0 sind, ist eine externe Ref.Spannung am 
AREF-Pin gewählt. Falls Du da nichts angeschlossen hast, musst Du 
entweder die internen 2.54V oder VCC als Referenzspannung wählen.

zB:
    ldi temp, (1<<REFS1) | (1<<REFS0) | (0<<MUX3) |(0<<MUX2) | (1<<MUX1) 
| (1<<MUX0)  ; Kanal 3  int. ref Spannung 2,56V
    out ADMUX, temp
    ldi temp, (1<<ADEN) | (1<<ADPS2) | (1<<ADPS1) | (1<<ADPS0)
    out ADCSRA, temp


Gute Nacht.

erstmal danke an 'herrmüller',
jedoch funktioniert die schlatung immer noch nicht bzw hab ich was 
übersehen bzw falsch verstanden. anbei das modifizierte listing und ein 
bild des boards.

gruss bernhard.

hallo spess53,

laut datenblatt table74 habe ich beide optionen ohne erfolg probiert,

refs1=0 & refs0=1  avcc with external capacitor at aref pin

refs1=1 & refs0=1 internal 2.56 voltage ref

kondensator habe ich noch keinen dran, ich denke eine reaktion müsste 
auch ohne denselben erfolgen.

gruss bernhard.

hallo spess53,

ich denke das waere der code für die messung ?!?
wenn ich werte in das adch register schreibe und mit f11 durchtippe, 
funktioniert es auch.

zum monitor: hab leider nur ein altes laptop und mit einer kleineren 
auflösung habe ich probleme mit den augen.




sbic adcsra,adsc            ; warte bis adc fertig
rjmp warte        ; skip if bit in i/o is cleard
in r16,adch        ; lese ergebnis

mfg ernhard.

hall spess53,
habe das ganze jetzt mit bascom probiert, funktioniert wunderbar, hätte 
aber gerne was ähnliches in assembler. das ich noch am anfang meiner 
kariere muss ich nicht extra betonen. gibt es eine möglichkeit den code 
zu disamblieren um fehler zu erkennen ?

$regfile "m8def.dat"
$crystal = 3686400
Dim Ad As Word
Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Do

Ad = Getadc(0)

If Ad <= 340 Then
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 0
Elseif Ad > 340 And Ad <= 680 Then
Portb.0 = 0 : Portb.1 = 1 : Portb.2 = 0
Elseif Ad > 680 Then
Portb.0 = 0 : Portb.1 = 0 : Portb.2 = 1
End If
Loop

gruss bernhard.

lo,

vielen dank für deine geduld, hab das programm geändert, funktioniert
immer noch nicht schluchz.
warum funktioniert es im simulator, wenn ich das acsc-bit setze bzw 
lösche
und in das adch register werte reinschreibe ???

gruss bernhard.

noch eine frage: muss das ddrc pc3(adc3) auf null (eingang) gesetzt 
werden?
mfg b

mit diesem listing kann ich leider noch gar nichts anfangen. das 
datenblatt
kenne ich inzwischen, haette gerne gewusst wo der fehler liegt.


; ad wandler mit atmega 8

;.nolist
.include "m8def.inc"
.list


; led an portb, pb0 als ausgabe
; ddrb = 1

sbi ddrb,pb0

;port c3 auf eingang
cbi ddrc,pc3



;** herr müller kanal int ref spannung 2,56 v, adc0
ldi r16,(0<<refs1)|(1<<refs0)|(0<<mux3)|(0<<mux2)|(0<<mux1)|(0<<mux0)
out admux,r16

ldi r16,(1<<aden)|(1<<adfr)|(1<<adps2)|(1<<adps1)|(1<<adps0)
out adcsra,r16



convert:

sbi adcsra,adsc      ; start conversion
warte:
sbic adcsra,adsc    ; warte bis adc fertig
rjmp warte        ; skip if bit in i/o is cleard
in r16,adch        ; lese ergebnis




cpi r16,128
brlo convert_led_an

sbi portb,pb0
rjmp convert



convert_led_an:
cbi portb, pb0
rjmp convert

Bernhard Fraunhofer schrieb:

> ldi r16,(1<<aden)|(1<<adfr)|(1<<adps2)|(1<<adps1)|(1<<adps0)
> out adcsra,r16

Du veränderst deine Konfigurationsbits schneller, als andere Leute ihre 
Unterwäsche.
Was hat auf einmal ADFR da drinnen zu suchen.
Selbst wenn die den Free Running MOdus benutzt, musst du die erste 
Messung immer noch händisch durch Setzen des ADSC starten.

> convert:
>
> sbi adcsra,adsc      ; start conversion
> warte:
> sbic adcsra,adsc    ; warte bis adc fertig

Das wirst du im Free Running Modus nicht erleben. Denn im Free Running 
ist der ADC NIEMALS fertig, weil sofort mit Abschluss einer Messung die 
nächste Messung beginnt.

> das datenblatt kenne ich inzwischen

vielleicht hilft dir das mehr:
http://www.mikrocontroller.net/articles/AVR-Tutorial:_ADC

Und arbeite an deiner Formatierung!
Deine ist grauenhaft!
Alles an den linken Rand zu quetschen ist maximal der Versuch, 
Labelnamen im Text unergehen zu lassen.
Wenn eine einzelne Leerzeile nicht ausreicht, eine Blockstruktur zu 
erreichen, dann schaffen das mehrere Leerzeilen hintereinander auch 
nicht. Sie ziehen nur den Code in die Länge, bringen aber ansonsten 
genau 0 mehr an Übersicht.

1

; ad wandler mit atmega 8

2

3

;.nolist

4

.include "m8def.inc"

5

.list

6

7

; led an portb, pb0 als ausgabe

8

; ddrb = 1

9

      sbi DDRB, PB0

10

11

;port c3 auf eingang

12

      cbi DDRC, PC3

13

14

      ldi r16, (0<<REFS0) | (1<<REFS1) | (1<<ADLAR) | 0   ; 0 .. ADC Kanal 0

15

      out ADMUX, r16

16

17

      ldi r16, (1<<ADEN) | (1<<ADPS2) | (1<<ADPS1) | (1<<ADPS0)

18

      out ADCSRA, r16

19

20

convert:

21

      sbi ADCSRA, ADSC      ; start conversion

22

warte:

23

      sbic ADCSRA, ADSC     ; ADC löscht ADSC wenn er fertig ist

24

      rjmp warte

25

26

      in r16, ADCH          ; wegen ADLAR reicht das High Byte

27

28

      cpi r16, 128          ; mindestens halbe Referenzspannung gemessen?

29

      brlo convert_led_an   ; Nein -> Sprung

30

31

      sbi PORTB, PB0        ; Ja -> Led aus

32

      rjmp convert          ; ab zur nächsten Messung

33

34

convert_led_an:

35

      cbi PORTB, PB0        ; Led ausschalten

36

      rjmp convert          ; ab zur nächsten Messung

Wenn du nur das ADCH Register benutzen willst, musst du ADLAR benutzen. 
Ansonsten kann ADCH nur die Werte 0, 1, 2 und 3 haben.

Und wenn du das nächste mal einen LÖtkolben zur Hand nimmst, dann setz 
deine Kondensatoren tiefer! Die Beinchen werden dir bald abreissen. Ein 
paar mal unabsichtlich hin und her und schon sind sie durch. Oder du 
drückst unabsichtlich von oben auf einen der Kondensatoren und reißt 
damit von der Unterseite die Leiterbahn von der Platine weg.
Schieb sie rein, bis du sie nicht mehr weiter reinkriegst! Am besten 
soll das Gehäuse auf der Platine aufsitzen und der Kondi sich nicht mehr 
bewegen lassen.