Hallo,
ich versuch grad nen kleinen AD-Wandler auf meinem AVR-Evaluations-Board hinzukriegen.Will aber nicht so richtig funktionieren.Hab einen einstellbaren Wiederstand an PortC.0 und AREF gesetzt.
Der mega8 soll eine LED zum Leuchten bringen wenn er eine Spannung an PortC.0 hat.
Hoffe mir kann jemand sogen was ich falsch gemacht hab und sagen was noch fehlt.
mfg tilo
ich versuch grad nen kleinen AD-Wandler auf meinem AVR-Evaluations-Board hinzukriegen.Will aber nicht so richtig funktionieren.Hab einen einstellbaren Wiederstand an PortC.0 und AREF gesetzt.
Der mega8 soll eine LED zum Leuchten bringen wenn er eine Spannung an PortC.0 hat.
Hoffe mir kann jemand sogen was ich falsch gemacht hab und sagen was noch fehlt.
Code
procedure Init;
begin
ADCSRA:=%11101110; //free running mode; presc 64
ADMUX :=%11000000; //interner Spannung 2.56V;PortC.0 meßender Kanal
end;
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
Init;
EnableInts;
loop
a:= GetAdc (1);
IF a>=0 THEN PortD.5:=1;
endif;
endloop;
end AD_Wandler.
begin
ADCSRA:=%11101110; //free running mode; presc 64
ADMUX :=%11000000; //interner Spannung 2.56V;PortC.0 meßender Kanal
end;
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
Init;
EnableInts;
loop
a:= GetAdc (1);
IF a>=0 THEN PortD.5:=1;
endif;
endloop;
end AD_Wandler.
mfg tilo
