Typecast für ADC-Wert??

[niemalsaufgeben]

Hallo Miteinand

Gibt es im Bascom eigentlich die möglichkeit eines Typecasts?
Ich möchte auch einen negativen Wert vom ADC anzeigen können.

Local Vr As Single 
...
Start Adc
   Vr[single] = Getadc(0)
   Vr = Vr - 10
   Vr = Vr / 2

   Print N ; ". Die Temperatur beträgt : " ; Vr ; " C."

Eigentlich müßte so ja für ADC = 0V ein Wert von -5 angezeigt werden?!
Es gint aber immmer einen Zahlenüberlauf!
Hat jemand ne Idee?

[PicNick]

EInmal um die ecke:

LOCAL adcval AS WORD
LOCAL asingle AS single
    adcval = getadc(..)
    asingle = adcval
   asingle = asingle - 10
  ...usw...

[niemalsaufgeben]

Hey cool. So geht es jetzt. Vielen Dank!
Warum ist denn der Umweg nötig?

[PicNick]

Getadc() ist dodel. der schreibt sein 16 Bit in das Return-Feld und tschüss.
C-mäßiges casten in der Klammer tut der Bascom nicht

[niemalsaufgeben]

ok, danke dir.

Habe da aber noch ne kleine Frage.
Bin noch viemlich frisch in der Materie, wie ist das mit dem Syntax für Funktionen?

Declare Function Tmessen(Byte) As Single 
...
Function Tmessen(byte)

   Start Adc
   Vrtemp = Getadc(0)
   Tmessen = Vrtemp
   Tmessen = Tmessen - 10
   tmessen = tmessen / 2

End Function

Ich will einen Wert des entspechenden ADC Eingang übergeben und den Messwert zurück haben.

[PicNick]

Declare Function Tmessen(byval Arg As Byte) As Single


Dim Varia As Single


' haupt programm
   Start Adc           ' das solltest du nur einmal am anfang machen

  Do

 Varia = Tmessen(4)
     print varia
     Loop
End



Function Tmessen(byval Arg As Byte) As Single
Local Vrtemp As Word

   Vrtemp = Getadc(arg)
   Tmessen = Vrtemp
   Tmessen = Tmessen - 10
   tmessen = tmessen / 2

End Function

das ginge zum beispiel

[niemalsaufgeben]

Ja genau.
Das hab ich gesucht. Vielen Dank.