Bascom ADC umrechnen

[Igor (Gast)]

Hallo!
Tolles Forum hier, konnte schon Eigines für mich finden.

Ich habe jetzt ein Problem, bei dem ich nicht so richtig weiter komme.
Ich lese mit einim ADC Pin des m8 ein analoges Wert ein, und den will 
ich in Spannung umrechnen.
Eigentlich ist das alles klar, aber es klappt nicht.
hier mein Code:

CONFIG ADC = SINGLE, PRESCALER = AUTO, REFERENCE = AVCC
Start Adc
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 1

Dim Adcwert As Word
Dim Volt As Word

Do
Cls
Adcwert = Getadc(0)
Volt = 0.0048875855327468 * Adcwert

 Locate 1 , 1
 Lcd Adcwert
 Locate 2 , 1
 Lcd Volt
 Waitms 500

Loop
End

ich teile 5(V) durch 1023, um dann den Wert zum Rechnen zu benutzen.
Auf dem LCD erscheint der richtige ADC wert, aber in der 2. Zeile nur 0.
Woran liegt das?
wenn ich 4.8875... * Adcwert rechne, kommt da was raus, aber in mV halt.
Kann ich 0.00... * Adcwert nicht rechnen, oder was ist da los?

Danke
lg Igor

[MichaelH (Gast)]

Hallo,


deine Variable "Volt" ist als Word deklariert. Ein Word kann aber nur 
Ganzzahlen speichern... Probiers mal mit einem Single oder Double.


Viele Grüße
Michi

[Karl H. (kbuchegg)]

Wie groß ist denn dein ADC Wert?

Da du Volt als WORD definiert hast, können da auch nur ganze Zahlen 
drinnen stehen. Ein ADC Wert von 200 ergibt dann nun mal 0 und nicht 0.9 
als Wert in Volt

[Lukas K. (carrotindustries)]

Igor schrieb:
> wenn ich 4.8875... * Adcwert rechne, kommt da was raus, aber in mV halt.

Passt doch wenn du das Komma ein wenig verschiebst.
siehe Festkommaarithmetik

[Paul Baumann (Gast)]

Du kannst auch den Faktor zur Umrechnung als Konstante definieren,
damit der nicht jedes Mal neu ausgerechnet werden muß.

Dim ADC-Speicher as word
Dim Volt as Single
CONST ADC_Faktor = 0.0048828125

Volt=Getadc(0)*ADC_Faktor

MfG Paul

[Igor (Gast)]

Danke, hat mit Single funktioniert.
Gruss Igor

[Falk B. (falk)]

@Igor (Gast)

>Danke, hat mit Single funktioniert.

Sicher, braucht aber einiges an Speicher. Siehe Festkommaarithmetik.

MFG
Falk