Fehler gefunden!

Hatte eine Klammer in der Rechnung nicht beachtet
Wie kann ich die Zahl auf eine Kommastelle begrenzen?
Temp: 24.83618164°C

Also dass funktioniert nicht: Print "Temp: " ; Temp , "###.#" ; "°C"



Code:
$regfile = "m8def.dat"                                      'AT-Mega8
$crystal = 1000000                                          'Quarz: 1 MHz
$baud = 2400                                                'Baudrate der UART: 2400 Baud

'===============================================================================
' Variablen
'===============================================================================
Dim Result As Word
Dim Ohm As Single
Dim Temp1 As Single                                         'wegen den negativen Zahlen!!!
Dim Temp2 As Single
Dim Temp3 As Single
Dim Temp As Single



Config Portc = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc




Start Adc

'-------------------------------------------------------------------------------
'Programm:
'-------------------------------------------------------------------------------

Do

Result = Getadc(1)
Ohm = 2.0238 * Result

'Temp = 3730 / (Log(ohm) + 5.59017600439636)
Temp1 = Log(ohm)
Temp2 = Temp1 + 5.59017600439636
Temp3 = 3730 / Temp2
Temp = Temp3 - 273

Print "Result: " ; Result
Print "ohm: " ; Ohm

Print "Temp1: " ; Temp1
Print "Temp2: " ; Temp2
Print "Temp3: " ; Temp3
Print "Temp: " ; Temp , "###.#" ; "°C"

Wait 1

Loop

End