PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : A/D-Port: EInzelne Pins aus- und einschalten...



tobimc
01.07.2004, 20:57
HI;

Frage: Ist es mit BASCOM (bzw. allgemein) möglich,
einzelne Pins des A/D-Wandler Ports von I/O auf A/D
umzuschalten, anstatt man den ganzen Port aus/einschält?

Also z.B.:
Pin1 soll A/D-Wandler sein,
Pin2 soll I/O Pin sein,
und so weiter...

Die Betreffende CPU ist ein MEGA16.

Liebe Grüße und
vielen Dank schonmal,

Tobi

God
01.07.2004, 23:04
Also,
dein Problem ist, dass du ein Port mal als I/O oder mal als ADC in dem Programm verwenden willst, oder? :-k
Ich hab gedacht, man könnte den ADC ja paussieren, wenn man den Pin als I/O brauch:

$regfile = "at26def.dat"
Config Pina.0 = Output
Config Adc = Single , Prescaler = 2

Dim Result As Integer


Start Adc
Result = Getadc(0)
Stop Adc

Porta.1 = 1

Start Adc
Result = Getadc(0)
Stop Adc

Bascom zeigt scho ma keinen Fehler an. =D> (Geht der Smilie nur bei mir nich??)


mfg God

Frank
01.07.2004, 23:17
Nein ich glaube tobimc will nur Pin 1 als A/D Wandler und Pin 2 als I/O Port nehmen. Das ist kein Problem, man kann alle einzelnen Ports (PIN´s) unterschiedlich konfigurieren.
Also in dem Fall so:

Config Pina.1 = Output

God
01.07.2004, 23:23
Aso, könnte ja auch sein das er ein Pin einsparen will. Obwohl, was sollte dann mal nur Low und High und dann mal 0-5 Volt liefern? :-k

mfg

tobimc
02.07.2004, 12:08
Hi,

Ich möchte den ADC Port einerseits als ADC nutzen, andererseits als
normalen I/O.
also soll man z.b. an Pin1 Spannung x auslesen können,
an Pin2 0 oder 1 auslesen
und an Pin 3 soll man z.B. auf 0 oder 1 setzen können.

Versteht ihr was ich meine?

Liebe Grüße, und Danke bis jeztz,

Tobi

Frank
02.07.2004, 12:56
Ja so hatte ich es schon verstanden. Wie schon zuvor gesagt, du kannst einfach einzelne Pins unterschiedlich konfigurieren. Beispiel war ja oben!

tobimc
03.07.2004, 15:15
Hi, Frank,

sprich du mienst so.

Config Adc = Single , Prescaler = 2
Config Pina.1 = Input
Config Pina.2 = Output
Dim Result As Integer


Start Adc
Result = Getadc(0)

Porta.1 = 1


usw.?

Liebe Grüße, Tobi