Code:
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