A/D Wandler und Joystick

**Marco78** · 28.03.2005, 22:51

Channel ist der Kanal. ADC0, ADC1 usw. Im Datenblatt steht, welche an welchem Pin ist.

Nach Config kannst du die Werte dann mit A = GETADC(1) (oder GETADC(0), GETADC(2) ) auslesen.
Vorrausgesetzt, A ist mit DIM auf Word eingestellt.

$regfile = "m16def.dat" 'Mega16
$crystal = 12000000 '12 MHz
Config Adc = Single , Prescaler = Auto , Reference = Internal 'ADC einstellen
Start Adc

DIM A As Byte
DIM I as Byte

Config Portb = Output

Do
A = GETADC(0) 'Den Pin beachten!
Portb = $ff
for i = 1 to a
Waitms 1
next i
Portb = $00
for i = 1 to a
waitms 1
next i
Loop

Musst mal ausprobieren. Ich bin mir nicht sicher, ob man in FOR ... NEXT auch Variablen einsetzen kann.

**Alter Knacker** · 28.03.2005, 22:52

ok, kurz mal ins datenblatt gesehen:
PA0 -PA7 (pin33 bis 40) sind also adc ports?
und pro poti brauch ich nur einen pin?
und den wert der variable frage ich ab und damit rechne ich weiter?

oder stellt sich klein knacki das jetzt zu einfach vor?
mfg knacki

**Alter Knacker** · 28.03.2005, 22:55

hat sich überschnitten, danke marco!

**Marco78** · 28.03.2005, 22:59

Wenn du auch ein M16 hast, stimmen die Ports.

Alternativ, damit der Erfolg nicht auf morgen verschoben werden muss, eine andere Variante des Programms. Falls die erste nicht geht

$regfile = "m16def.dat" 'Mega16
$crystal = 12000000 '12 MHz
Config Adc = Single , Prescaler = Auto , Reference = Internal 'ADC einstellen
Start Adc

DIM A As Byte
DIM I as Byte

Config Portb = Output

Do
A = GETADC(0) 'Den Pin beachten! für Mega16 wäre das Pin 40
Portb = $ff
do
decr a
Waitms 1
loop until a=0
Portb = $00

a=getadc(0) 'hier den Wert nochmal einholen, der alte A Wert ist ja schon auf 0
do
decr a
waitms 1
loop until a = 0
Loop

Waitms evtl auf ein paar ms mehr setzen.

Und dann am Poti drehen und schauen was passiert.

**Alter Knacker** · 28.03.2005, 23:04

Zitat von Marco78

Vorrausgesetzt, A ist mit DIM auf Word eingestellt.
...
...
...
DIM A As Byte
...
...

der rest ist mir theoretisch jetzt klar!

Zitat von Marco78

Alternativ, damit der Erfolg nicht auf morgen verschoben werden muss, eine andere Variante des Programms.

heute rühr ich den lötkolben nicht mehr an, so stressig ist das nicht.
der vorteil an foren ist ja, dass man/viele nachlesen können

mein mega16 läuft übrigens noch auf 1Mhz, wird aber egal sein, schätze ich.

und ok, danke: pin 40 ist also 0 und pin33 7, gut.
mfg knacki

**Marco78** · 28.03.2005, 23:07

Sorry, Word sollte es sein und nicht Byte. Also A als Word DIMmen. Gut das du aufgepasst hast!

Ja, 1MHz ändert nichts, außer das du ober bei Crystal was anderes eintragen musst.