Fast - die Zeile mit Temp1 = Log(ohm) gefällt ihm nicht: gleiche Fehlermeldung...


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 Word
Dim Temp1 As Integer                                        'wegen den negativen Zahlen!!!
Dim Temp2 As Integer
Dim Temp As Integer



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) 'WO IST DENN HIER DER FEHLER
Temp2 = 3730 / Temp1
Temp = Temp2 + 5.59017600439636

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

Waitms 500

Loop

End