Druckbare Version
Hallo,
ich habe mir den MAX31855K bestellt um höhere Temperaturen messen zu können.
Ich habe dazu relativ wenig im Netz gefunden.
Evtl. hat jemand Erfahrungen oder ein Bascom Code schnipsel für mich.
Vielen Dank
mfG
Mario
https://datasheets.maximintegrated.c...s/MAX31855.pdf
Codeschnipsel hab Ich jetzt nicht aber im Prinzip sollte das so machbar sein:
Letzlich ist die /CS Leitung auf 0 zu setzen ( ein Portpin auf 0 ) und die SPI muss 4 Bytes auslesen MSB first.
Die SPI zu konfigurieren sollte mit BASCOM kein Problem sein.
Welches Bit hier welche Funktion hat steht in deinem Datenblatt auf Seite 10.
Die einzelnen Bytes kannst Du ja entweder in zwei 16Bit Variablen oder eine 32 Bit Variable reintun.
Beispiel 32Bit:
/CS auf 0 setzen
32 Bit Variable mit dem Wert 0 laden.
Erstes Byte Lesen in die 32 Bit Variable reintun um 8Bit nach Links verschieben.
Nächstes Byte mit einer Oder Verknüpfung mit der 32Bit Variablen verknüpfen und 8 Bit nach links verschieben.
usw. bis das letze Byte gelesen und eingefügt wurde.
Nach dem letzten Byte darf natürlich nicht mehr geschoben werden.
/CS wieder auf 1 setzen.
Die benötigten Daten dann mit Filtern und Verschieben ( UND Verknüpfung ) rausfiltern und umrechnen.
Das sollte es gewesen sein.
Hallo,
Danke für deine Antwort.
Ich hab ne weile nichts mehr mit MC´s gemacht, muss mich erstmal wieder rein finden. Das Modul hab ich noch nicht, kann also noch nichts testen.
Was mir noch nicht klar ist, was ich mit den "Table 4. Thermocouple Temperature Data Format" und "Table 5. Reference Junction Temperature Data Format" (Seite 10.) mache. Müssen die miteinander verechnet werden, oder sind die Daten aus Tabelle 4 schon die Temperaturen am Messfühler.
Vielen Dank
mfG
Mario
Ich meine es muss vererchnet werden:
Zitat:
For a K-type thermocouple, the voltage changes by about 41μV/°C, which approximates the thermocouple characteristic with the following linear equation:VOUT = (41.276μV/°C) x (TR - TAMB)where VOUT is the thermocouple output voltage (μV), TRis the temperature of the remote thermocouple junction (°C), and TAMB is the temperature of the device (°C).
Also vom Messwert des PT100 den Messwert des internen Temperatursesors abziehen und dann verrechnen.
Vielleicht kannst du ja damit was anfangen:
PortC,5 und6 sind die /CS der beiden MAX (ich hatte 2 in der Schaltung).Code:Procedure ReadAT;
Var Error : Integer;
JT : Word; // Chip-Temperatur
B1,B2,B3,B4 : Byte;
Dummy : Byte;
Begin
For Dummy:=0 to 1 do
Excl(PortC,5+Dummy);
SDelay(200);
B1:=SPIInpByte1;
B2:=SPIInpByte1;
B3:=SPIInpByte1;
B4:=SPIInpByte1;
Error:=((256*Integer(B3))+Integer(B4)) and $0007;
If Error>0
then
ATError[Dummy]:=Error;
else
ATError[Dummy]:=0;
EndIf;
JT:=((Word(B3)*256)+Word(B4)) SHR 8;
If (B1 and $80)=$80
then
AT[Dummy]:=(-1*((((not((256*Integer(B1))+Integer(B2))) and $0FFF)+1) SHR 4))-JT+20;
else
AT[Dummy]:=(((256*Integer(B1))+Integer(B2)) SHR 4)-JT + 21; // Temperatur-Korrektur
EndIf;
Incl(PortC,5+Dummy);
EndFor;
End ReadAT;
Harry
Danke, euch beiden...
@crazy Harry, ich hab keine Ahnung... das ist PASCAL, oder?
Ok, die 32Bit werden in 4 Bytes übertragen.
Ich versuche das mal zu entschlüsseln, vorallem die Rechnung da unten...
Leider ist das Modul noch nicht da, deswegen mach ich erst mal paar "Trockenübungen".
mfG
Mario
Dieser kurze Code ist für einen MAX31855SA geschrieben:
'************************************************* ******************************
' Test Display ST7565 128x64
' Hardware: EA DOGxL128-6
'
' Display works with 3,3V Level
'
' use 1024 Byte Daten Buffer
'
' Date:22.05.2014
' By Hkipnik
' © Copyright by H.Kipnik 2012
' Date 14.01.2015
' Email: Hkipnik@aol.com
'
'************************************************* ******************************
'************************************************* ******************************
'MAX 31855SA
'2016 by WL
'************************************************* ******************************
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 150
$swstack = 150
$framesize = 200
'************************************************* ******************************
Config Portd.3 = Output 'DISPLAY_CS
Lcd_cs Alias Portd.3
Config Portc.2 = Output 'DISPLAY_A0
Lcd_rs Alias Portc.2
Config Portc.0 = Output 'DISPLAY_SI
Data_out Alias Portc.0
Config Portc.1 = Output 'DISPLAY_SCK
Lcd_clk Alias Portc.1
Config Portc.3 = Output 'DISPLAY_Reset
Lcd_rst Alias Portc.3
'Config Graphlcd = 128 * 64eadogm , Cs1 = Portd.3 , A0 = Portc.2 , Si = Portc.0 , Sclk = Portc.1 , Rst = Portc.3
Config Spi = Hard , Interrupt = Off , Data_order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 16 , Noss = 1
Spiinit
Config Portb.2 = Output
Max_cs Alias Portb.2
Max_cs = 1
$include "Eadog128declaration.inc" 'Declaration SUB
Call Lcd_init() 'Init Display
'************************************************* ******************************
'use for Demo
Dim Text11 As String * 40
Dim Temp_s As Single
Dim Element As Integer
Dim Element_l As Byte At Element Overlay
Dim Element_h As Byte At Element + 1 Overlay
Dim Referenz As Integer
Dim Referenz_l As Byte At Referenz Overlay
Dim Referenz_h As Byte At Referenz + 1 Overlay
Call Lcd_clear(white)
Do
Max_cs = 0
Spiin Element_h , 1
Spiin Element_l , 1
Spiin Referenz_h , 1
Spiin Referenz_l , 1
Max_cs = 1
Text11 = Bin(referenz)
Call Lcd_text(text11 , 0 , 25 , 1)
Text11 = Bin(element)
Call Lcd_text(text11 , 0 , 35 , 1)
Shift Referenz , Right , 4
Temp_s = Referenz \ 16
'Text11 = Str(temp_s)
Text11 = Fusing(temp_s , "#.#")
Call Lcd_text(text11 , 10 , 5 , 2)
Shift Element , Right , 2
Temp_s = Element \ 4
'Text11 = Str(temp_s)
Text11 = Fusing(temp_s , "#.#")
Call Lcd_text(text11 , 10 , 45 , 2)
Call Lcd_show()
Waitms 500
Loop
End
$include "Eadog128-6.inc"
'include used fonts
$include "Font\font8x8.font"
$include "Font\font16x16.font"
$include "Font\My12_16.font"
Die Ausgabe (EADOG-LCD) musst Du dir weg denken.
Dann bleibt nicht mehr viel übrig............;)
tausend Dank...
schade das ich´s noch nicht testen kann...
Welche Temperaturen habt ihr damit so gemessen? Ich hatte vor, Temperaturen von über 1000°C zu messen gibt dazu evtl. Erfahrungen/Hinweise? (z.B.: Genauigkeit , müssen die werte noch geglättet /gefiltert werden?, Korrekturfaktoren?)
mfG
Mario
@Mario: Ja das ist Pascal :)
Gemessen wurde die Ausgangstemperatur eines Turboladers.
Das ganze ist letztendlich eine Steuerung/Regelung für einen Keramik-Brennofen (1280°C) geworden.
Ein entsprechender Filter ist vorteilhaft.
Zur Genauigkeit kann ich nichts sagen.
Kommt im Keramikbereich auch nicht auf 1° an.
Mit der Referenztemperatur die Raumtemperatur kompensieren und gut ist.
Danke für eure Antworten...
@Wl, darum soll es bei mir auch gehen... Kannst du mir bitte ein paar Eckdaten zu deinem Projekt nennen? Hast du auch den Brennofen selber gebaut?
Erste Überlegungen sind:
-Brennraum ca. 30x30x30cm
-20m 1,2mm Kanthaldraht
-SSRelais (PWM 100Hz)
-MAX31855 mit K-Type Sensor
Mit welcher Frequenz hast dein Relais (SSR?) angesteuert?
mfG
Mario
Hallo Mario,
die Steuerung ist für mehrere verschiedene Öfen gedacht (Steingut/Steinzeug).
Im Moment benutze ich sie ab und zu mit einem DIY-Probenofen mit ca 2l Innenraum.
Aber auch 50l und mehr sind möglich.
K-Typ Sensor verschleisst schnell.
S / R hält sehr, sehr lange.;)
Die PWM-Frequenz liegt weit unter 1Hz weil die Trägheit der Regelstrecke gross ist und sie ist temperaturabhängig.
In den unteren Temperaturbereichen gibt es sonst leicht Überschwinger.
Viel Spass beim bauen!:cool:
Hallo,
so der Max ist da. Das Auslesen klappt, habe Willis Code genommen... Danke nochmal.
Ich musste nur die "Config Spi" etwas anpassen. Mit "Noss=1" hat er bei mir nichts ausgelesen und mit "Clockrate=128" schwanken die Temperaturwerte nicht so stark.
Bei den ersten Messungen habe ich folgende Abweichung feststellen können:Code:Config Spi = Hard , Interrupt = Off , Data_Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 128
Bei 25°C - ca. -2,5°C Abweichung
Bei 100°C - ca. -5°C Abweichung
Bei 250°C- ca. -10°C Abweichung
Ist das Normal?
mfG
Mario
Zitat:
Zitat von dj_cyborg
Wie hast du das ermittelt?
Hiernach ist das nicht normal:
http://www.temperaturblog.de/2017/11/20/grenzabweichung-typ-k-thermoelement/
Hast du ein (gutes) DVM?
Für die verschiedenen Thermoelemente gibt es Tabellen.
Hallo,
Bei 25°C - ca. -2,5°C Abweichung (Abweichung zur Referenztemperatur des Max31855 und Raumthermometer)
Bei 100°C - ca. -5°C Abweichung (Ermittelt im Backofen mit einsteckbarem Thermometer und die automatische Abschaltung des Backofens bei erreichen der Zieltemperatur (interne Messfühler oder Bimetall))
Bei 250°C- ca. -10°C Abweichung (Ermittelt im Backofen mit einsteckbarem Thermometer und die automatische Abschaltung des Backofens bei erreichen der Zieltemperatur (interne Messfühler oder Bimetall))
ich habe folgenden K-Typ Sensor:
https://www.amazon.de/gp/product/B00...?ie=UTF8&psc=1
Interessante Tabelle, zumindest würden die 2,5°C Abweichung bei Raumtemperatur stimmen.
Ich könnte das ja Softwaremäßig kompensieren...
mfG
Mario
ist ja offenbar recht linear, -2,5K Abweichung pro +75K = -3,3%, ausgehend von 25°C =~ 300K
Nullstelle wäre rechnerisch bei ca. -50°C =~ 225K
o.K., dann ist das erklärbar.................Zitat:
Zitat von dj_cyborg
Besorge dir für die Keramikanwendung ein paar verschiedene Segerkegel (so um 1000°C) und kalibriere damit.
Das ist Zielführender.
Ok, mir ist grad eingefallen das mein Messgerät Temperaturen bis 1000°C messen kann. (Obs der mitgelieferte Sensor kann, muss ich erstmal sehen.)
https://www.amazon.de/Profitec-MY-64.../dp/B00GL37U1W
Ich denke das sollte reichen um bis 1000°C zu kalibrieren und die restlichen 200°C werde ich liniear erweitern. (Sofern ich solche Temperaturen erreichen sollte...)
Segerkegel musste ich erstmal googeln... wieder was gelernt.
Danke
mfG
Mario
Hallo,
ich muss das Thema noch mal aufwärmen da ich noch Probleme mit der Temperaturmessung habe.
Ich benutze als Basis den hier geposteten Code von WL (Danke nochmal...)
Am Anfang waren die gemessenen Werte noch relativ Plausibel (wenn auch mit ein paar Grad Abweichung), aber seit einiger Zeit fangen die Messwerte an, stark zu springen. Teilweise mehrere 100°C.
Ich dachte erst das ich ein Zeitproblem mit der Messung und meinen Interuppts bekommen habe, daher habe ich das reine Temperaturmessprogramm auf dem MC gespielt. Funktioniert auch nicht besser.
Dann hatte ich eine unsaubere Spannungsversorgung unter Verdacht. Habe verschiedene Netzteile, USB-Versorgung, Eigenbaulösung, Kondensatoren und Batterien versucht. Funktionierte auch nicht besser.
Ich habe ein neues MAX31855 Modul und MAX6675 bestellt. Funktionierte auch nicht.
Hat jemand eine Idee / Erfahrungen woran das liegen kann?
-Pullup Widerstände am Spi?
-könnte die Spi am MC kaputt sein?
-Die Module/Spi können doch mit 5v betrieben werden, oder? (lt. schlecht übersetzter Beschreibung habe ich was vom integrierten Level Shifter 3,3-5V gelesen)
Vielen Dank für eure Hilfe
mfG
Mario
Hallo Mario,
die Temperaturerfassung ist doch nicht im ms-Takt notwendig.
Wenn du die Ausreisser herausfilterst und gleichzeitig die Werte mittelst wird das für den Regler ausreichen.
Selbst 10 Sekunden Zykluszeit würde reichen.
Hallo Willi,
danke für deine Antwort.
Da gebe ich dir Recht, aber die Zeit ist auch nicht das Problem (das war nur meine erste Vermutung). Betreibst du deine Module an 5V?
Ich lese im Hauptprogramm die Temperatur alle 500ms aus und in deinem Programm jede Sekunde und trotzdem bekomme ich so wilde Werte das da auch mit Filtern nichts zu machen ist. (Im Hauptprogramm ist ein Filter drin)
Selbst die Referenztemperatur passt überhaupt nicht mehr...
Hier mal dein angepasster TestCode und ein paar Werte (bei Raumtemperatur ca. 22°C):Anhang 35226
Code:'*******************************************************************************.
'*******************************************************************************
'******************************** MAX31855 *************************************
'*******************************************************************************
'************************** 25.08.2020 by CYBORG *******************************
'*******************************************************************************
'*******************************************************************************
$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 40
$framesize = 40
Baud = 9600
'*************************** UART - Interrupt **********************************
Dim Iuart As Integer
On Urxc Onrxd 'Interrupt-Routine setzen
Enable Urxc 'Interrupt URXC einschalten
Enable Interrupts 'Interrupts global zulassen
'************************* I2C - DISPLAY 1602 **********************************
$lib "YwRobot_Lcd_i2c.lib" 'My i2c driver for the LCD
Const Pcf8574_lcd = &H4E 'Defines the address of the I/O expander for LCD
Dim Lcd_backlight As Byte
Lcd_backlight = 1 'Hintergrundbeleuchtung einschalten (1/0)
Config Scl = Portc.5 'Configure i2c SCL
Config Sda = Portc.4 'Configure i2c SDA
Config Lcd = 16 * 2 'nicht unbedingt nötig
Config I2cdelay = 1
Waitms 300 'warte bis Kondensator bei Ta0 geladen, auch für LCD-Init!
'**************************** SPI - MAX31855 ************************************
Config Spi = Hard , Interrupt = Off , Data_Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 16 , Noss = 1
Spiinit
Config Portb.3 = Output
Max_cs Alias Portb.3
Max_cs = 1
Dim Text11 As String * 40
Dim Temp_s As Single
Dim Element As Integer
Dim Element_l As Byte At Element Overlay
Dim Element_h As Byte At Element + 1 Overlay
Dim Referenz As Integer
Dim Referenz_l As Byte At Referenz Overlay
Dim Referenz_h As Byte At Referenz + 1 Overlay
print "Start"
Locate 1 , 1
Lcd "Start"
wait 1
'**************************** HAUPTSCHLEIFE ************************************
Do
Max_cs = 0
Spiin Element_h , 1
Spiin Element_l , 1
Spiin Referenz_h , 1
Spiin Referenz_l , 1
Max_cs = 1
cls
Text11 = Bin(referenz)
print text11
Locate 1 , 8
Lcd Text11
Text11 = Bin(element)
print text11
Locate 1 , 1
Lcd Text11
Shift Referenz , Right , 4
Temp_s = Referenz \ 16
Text11 = Fusing(temp_s , "#.#")
print text11
Locate 2 , 1
Lcd Text11
Shift Element , Right , 2
Temp_s = Element \ 4
Text11 = Fusing(temp_s , "#.#")
print text11
Locate 2 , 8
Lcd temp_s
waitms 1000
Loop
end
'**************************** UART - Interrupt *********************************
Onrxd:
Iuart = Udr
Print "+++ Empfangen: " ; Iuart
Select Case Iuart
'RESET
Case 123
Print "+++ Reset: " ; Iuart
Goto &H3C00 'M328
Case Else
Print "+++ Unbekannter Befehl: " ; Iuart
End Select
Return
Nein, die gesamte Schaltung wird mit 3,3V versorgt (wegen LCD).Zitat:
Zitat von dj_cyborg
Auf deinem Modul scheint der Kondensator am Eingang zu fehlen.
Löte doch mal einen 10 oder 100n an die Klemmstelle.
Meinst du den 10nF Kondensator zwischen T+ und T- ? Der ist nicht drauf nur der 0.1uF zwischen VCC und GND ist drauf.
Ich teste das mal, Danke...
Ich vermute aber mal dass das Modul doch nicht 5V kompatibel ist... Ich wüsste auch nicht wo der Level Shifter versteckt sein sollte.
mfG
Mario
- - - Aktualisiert - - -
Ich glaube bei meinen ist kein LevelShifter drauf (trotz Beschreibung)
https://www.amazon.de/gp/product/B07...?ie=UTF8&psc=1
bei dem hier wahrscheinlich schon
https://www.ebay.de/itm/MAX31855-K-T....c100005.m1851
:(
Bild hier Anhang 35227
Der MAX31855 darf nur mit 3,3V betrieben werden (abs.Max. 4V)!
Das kann man leicht dem Datenblatt entnehmen.;)
Der Chip ja aber das BreakoutBoard kann (wenn man auch das richtige bekommt) mit 3-5V betrieben werden...
Wenn wir die ganze Zeit von diesem:
https://www.amazon.de/gp/product/B07RYD35SJ/ref=ppx_yo_dt_b_asin_title_o00_s00?ie=UTF8&psc=1
sprechen und auf der Rückseite keine weiteren Bauteile vorhanden sind ist das Board jetzt defekt.
Auch auf diesem:
https://www.ebay.de/itm/MAX31855-K-T....c100005.m1851
ist kein "richtiger" Levelshifter erkennbar (wohl mit Widerständen realisiert),nur ein 3V3 Regler (immerhin!).
Auch der Kondensator am Elementeingang scheint vorhanden zu sein.
Ich drücke dir die Daumen...........:pray: