Temperatur berechnen

**TobiasBlome** · 18.11.2006, 19:33

hmm, nein

es geht um einen NTC und der ist natürlich nicht linear.

Die Frage ist ob, wenn sich der Widerstand ändert - ob sich dann auch genau so der Wert aus dem A/D Wandler ändert - meiner Meinung nach JA. Aber ich kann ja auch einen Denkfehler machen.
Hab´die 504/1020=2,0238 gerechnet -> also den Wert aus dem AD Wandler *2,0238 = Ohm vom Widerstand?

Tobias

**TobiasBlome** · 18.11.2006, 19:41

Hallo,
ich habe noch ein Problem mit dem rechnen im µC:

Error256:Single expected - was ist denn das und warum?!

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




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                   'WO IST DENN HIER DER FEHLER





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

Loop

End

**magnetix48** · 18.11.2006, 19:48

Hallo Tobias,

Bascom mag nur eine Berechnung pro Befehl. Du musst die Berechnung in mehrere Befehle aufteilen.

Zu deiner NTC-Messung:
wie sieht deine Widerstandsmessschaltung aus?

Gruß
Detlef

**TobiasBlome** · 18.11.2006, 19:55

Werd ich gleich mal versuchen

Also ich habe: Plus 5V an NTC(1k bei25°C) - µC - Widerstand 1k - MASSE

Tobias

**TobiasBlome** · 18.11.2006, 19:59

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

**Marco78** · 18.11.2006, 20:03

Ist der Zusammenhang zwischen den 504 und 1020 linear?

Wenn man nur diese beiden Werte hat, kann man die Frage mit Ja und Nein beantworten, ohne etwas falsches zu sagen.

Der Zusammenhang des Messwertes und der gemessenen Spannung ist aber liniar (zumindest soweit annährend wie der ADC es zulässt.)

Der ADC gibt dir den digitalen Wert einer analogen Spannung aus. Der Endwert des digitalen Wertes wird durch die Auflösung des ADC festgelegt. 256 bei 8Bit und 1024 bei 10-Bit. Bzw. 0-255 und 0-1023.
Die Referenzspannung bestimmt, bei welcher analogen Spannung der digitale Endwert erreicht wird. Um genau zu sein, Vref - 1 LSB ist der digitale Endwert. Und der Verlauf ist sinnvollerweise liniar.