termometru cu LM75 si PIC16F84, PIC18F2550

[ovydiub]

Buna.

Are cineva o schema de termometru cu PIC16F84 ca senzor LM75 si afisaj LCD, ma intereseaza cu aceste componente, am aceste componente si as vrea sa fac un termometru cu ele (e criza), bineinteles ca am nevoie si de codul sursa sau hexu-l aplicatiei.

Am gasit o aplicatie dar in loc de PIC16F84 foloseste PIC16F628 http://www.sprut.de/electronic/pic/prog ... ermo75.htm

ma ajuta cineva sa modifice codul pentru F84 cu cuart de 4MHz, rog mult daca poate cineva.

Nu stiti unde pot comanda online un PIC18F2550 SMD

O seara placuta

[ovydiub]

Am modificat programul copiind inceputul de la un program pentru PIC16F84, nu stiu daca e bun. Imi da ceva avertismente dar il compileaza:Clean: Deleting intermediary and output files.Clean: Done.Executing: "C:\Program Files\MPLAB IDE\MCHIP_Tools\mpasmwin.exe" /q /p16F876 "iicsoft.asm" /l"iicsoft.lst" /e"iicsoft.err"Warning[215] C:\1\IICSOFT.ASM 37 : Processor superseded by command line. Verify processor symbol.Message[301] C:\PROGRAM FILES\MPLAB IDE\MCHIP_TOOLS\P16F84.INC 37 : MESSAGE: (Processor-header file mismatch. Verify selected processor.)Message[302] C:\1\IICSOFT.ASM 96 : Register in operand not in bank 0. Ensure that bank bits are correct.Message[302] C:\1\IICSOFT.ASM 98 : Register in operand not in bank 0. Ensure that bank bits are correct.Message[302] C:\1\IICSOFT.ASM 100 : Register in operand not in bank 0. Ensure that bank bits are correct.Message[302] C:\1\IICSOFT.ASM 448 : Register in operand not in bank 0. Ensure that bank bits are correct.Message[302] C:\1\IICSOFT.ASM 467 : Register in operand not in bank 0. Ensure that bank bits are correct.Loaded C:\1\iicsoft.CODBUILD SUCCEEDED: Fri Nov 06 23:11:40 2009Programul e acesta;**************************************************************;* Pinbelegung;* ---------------------------------- ;* PORTA: 0 SDA out;* 1 CLK in;* 2 SDA in;* 3 CLK out;* 4 -;* 5 -;* 6 -;* 7 -;*;* PORTB: 0 LCD Display E;* 1 ;* 2 LCD Display RS;* 3 LCD Display R/W;* 4 LCD Display D4;* 5 LCD Display D5;* 6 LCD Display D6;* 7 LCD Display D7;* ;* ;**************************************************************;; Temperaturmessung mit LM75; Anzeige am LCD-Display;; IIC am PortA; LCD am PortB;; Temperaturanzeige mit 0,5°C Genauigkeit;;;**********************************************************; Includedatei für den 16F628 einbinden LIST P=16F84 ; 16F84 Runs at 4 MHz INCLUDE "p16f84.inc" __CONFIG _PWRTE_ON & _LP_OSC & _WDT_OFF ; ERRORLEVEL -224 ; Variablen festlegenbuf equ 0x22 ; puffer für I2CTemp_h equ 0x23 ; Temperatur in gradTemp_l equ 0x24 ; 0.5°C auf Bit 7count equ 0x2B ; universeller zählerloops equ 0x2C ; timer für waitloops2 equ 0x2D ; timer für waitLcdStatus equ 0x2E ;LcdDaten equ 0x2F ;; 8-Bit Rechenregisterxw0 EQU 0x32 ;LSB; 8-Bit Rechenregisterf0 EQU 0x3A ;LSB; DezimalstellenHdH EQU 0x4B ;3 HunderterHdZ EQU 0x4C ;2 ZehnerHdE EQU 0x4D ;1 EinerHdX EQU 0x4E ; Puffer für eine DezimalstelleBcdDaten equ 0x4FBcdDaten1 equ 0x50; Konstanten festlegen; für LCD-Pins#define LcdE PORTB,0 ; enable Lcd#define LcdRw PORTB,3 ; read Lcd#define LcdRs PORTB,2 ; Daten Lcd (nicht control) #define LcdPort PORTB ; Datenbus des LCD (obere 4 Bit); für I2C#define SDAo PORTA,0 ;Daten output#define SDAi PORTA,2 ;Daten input#define SCL PORTA,3 ;Takt#define SCLo PORTA,3 ;Takt#define SCLi PORTA,1 ;Takt inputIni_con Equ B'00000000' ; TMR0 -> Interupt disableIni_opt Equ B'00000010' ; pull-up;******************************************************** org 0 goto Init;********************************************************; Das Programm beginnt mit der InitialisierungInit bsf STATUS, RP0 ; Bank 1 movlw Ini_opt ; pull-up on movwf OPTION_REG movlw B'00000000' ; PortB alle outputs movwf TRISB movlw B'11100110' ; PortA alle input außer RA0,3,4 movwf TRISA bcf STATUS, RP0 ; Bank 0 clrf PORTA clrf PORTB movlw Ini_con ; Interupt disable movwf INTCON ;Display initialisieren call InitLcd call i2c_reset nop nop ; Temp register einstellen call i2c_on ; Bus aktiv movlw H'90' ; 1001 0000 call i2c_tx ; LM75 zum schreiben adressieren movlw 0 call i2c_tx ; Temp adressieren call i2c_off ; Bus freigebenmainloop ; Cursor home movlw 1 call OutLcdControl ; Temp messen bsf PORTA,4 ; DEBUG call i2c_on ; Bus aktiv movlw H'91' ; 1001 0001 call i2c_tx ; LM75 zum lesen adressieren call i2c_rxack movwf Temp_h ; Byte in Speicherzelle Datenpuffer retten call i2c_rx movwf Temp_l ; Byte in Speicherzelle Datenpuffer retten call i2c_off ; Bus freigeben bcf PORTA,4 ; DEBUG ; Temp anzeigen movfw Temp_h movwf f0 call OutDez8 ; Anzeige der Grad movlw '.' movwf LcdDaten call OutLcdDaten movlw '0' btfsc Temp_l, 7 movlw '5' movwf LcdDaten call OutLcdDaten call OutGC movlw D'250' ; 250 ms Pause movwf loops call WAIT goto mainloop;*****************************************************************; Routinen für I2C; Bus übernehmen i2c_on; W senden i2c_tx; Byte empfangen i2c_rx (nach w und RXData und SSPBUF); Bus freigeben i2c_off;*****************************************************************i2c_reset bsf SDAo bsf SCLo nop movlw 9 movwf bufi2c_reset1 nop bcf SCLo nop nop nop nop nop bsf SCLo nop decfsz buf, f goto i2c_reset1 nop call i2c_on nop bsf SCLo nop nop bcf SCLo nop call i2c_off returni2c_on ; wenn SDA und SCL beide High, dann SDA auf Low ziehen bsf SCL ; failsave bsf SDAo ; failsave ;testen, ob der Bus frei ist btfss SCLi goto i2c_on ; Taktleitung frei? btfss SDAi goto i2c_on ; Datenleitung frei? bcf SDAo nop bcf SCL returni2c_tx ; w über i2c senden ; takt ist unten ; daten sind unten call WrI2cW ; 8 Bit aus W nach I2C ; ACK muß nun empfangen werden ; Takt ist low bsf SDAo ;Datenleitung loslassen bsf SCL ; ACK Takt highi2c_tx2 btfss SCLi goto i2c_tx2 nop;i2c_tx1; btfsc SDAi ; ACK empfangen?; goto i2c_tx1 ; nein SDA ist high bcf SCL ; ja , Takt beenden bcf SDAo return i2c_rxack ; takt ist unten ; daten sind unten call RdI2cW ; 8 von I2C nach W ; Takt ist unten ; ACK muß nun gesendet werden bcf SDAo nop nop nop nop bsf SCLi2c_rxack1 btfss SCLi goto i2c_rxack1 nop bcf SCL bcf SDAo returni2c_rx ; takt ist unten ; daten sind unten call RdI2cW ; 8 von I2C nach W ; Takt ist unten ; kein ACK nop nop bsf SDAo nop bsf SCLi2c_rx1 btfss SCLi goto i2c_rx1 nop bcf SCL bcf SDAo returni2c_off ; SCL ist Low und SDA ist Low nop nop bsf SCL nop bsf SDAo return;*****************************************************; I2C-Peride ist 2,5 ?s; PIC-Zyklus ist 4/10MHz = 0,4?s; -> Takt muß für 3 Zyklen H und für 3 Zyklen L sein; + 1 Zyklus Reserve;schiebt das Byte aus W in den I2C; MSB zuerst; 78 TakteWrI2cW ; Takt unten, Daten unten ; Datenbyte in w movwf buf movlw 8 movwf count ; 8 BitsWrI2cW1 ; Datenleitung setzen bcf SDAo rlf buf,f btfsc STATUS,C ; 0? bsf SDAo ; nein, 1 nop bsf SCL ; Taht highWrI2cW2 btfss SCLi goto WrI2cW2 bcf SCL ; Takt low decfsz count,f ; 8 Bits raus? goto WrI2cW1 ; nein return ; ja ;liest das Byte aus I2C nach W ; takt ist unten ; daten sind untenRdI2cW clrf buf movlw 8 movwf count bsf SDAo ;failsaveRdI2cW1 nop clrc btfsc SDAi setc rlf buf,f bsf SCL ; Takt highRdI2cW2 btfss SCLi goto RdI2cW2 bcf SCL ; Takt low decfsz count,f ; 8 Bits drinn? goto RdI2cW1 ; nein movfw buf ; ja fertig return;***************************************************************** ;Zeitverzögerung um loops * 1 ms; 10 MHz externer Takt bedeutet 2,5 MHz interner Takt; also dauert 1 ms genau 2500 Befehle; 250 Schleifen a 10 Befehle sind 2500 Befehle = 1 msWAITtop movlw .250 ; timing adjustment variable (1ms) movwf loops2top2 nop ; sit and wait nop nop nop nop nop nop decfsz loops2, F ; inner loops complete? goto top2 ; no, go again ; decfsz loops, F ; outer loops complete? goto top ; no, go again retlw 0 ; yes, return from subWAIT;*****************************************************;+++LCD-Routinen**************************************;*****************************************************;LCD initialisieren, Begrüßung ausgebenInitLcd movlw D'255' ; 250 ms Pause nach dem Einschalten movwf loops call WAIT movlw B'00110000' ; 1 movwf LcdPort bsf LcdE nop bcf LcdE movlw D'50' ; 50 ms Pause movwf loops call WAIT movlw B'00110000' ; 2 call Control8Bit movlw B'00110000' ; 3 call Control8Bit movlw B'00100000' ; 4 call Control8Bit movlw B'00000001' ; löschen und cusor home call OutLcdControl movlw B'00101000' ; 5 function set, 4-bit 2-zeilig, 5x7 call OutLcdControl movlw B'00001000' ; 6 display off call OutLcdControl movlw B'00000110' ; 7 entry mode, increment, disable display-shift call OutLcdControl movlw B'00000011' ; 8 cursor home, cursor home call OutLcdControl movlw B'00001111' ; 9 display on call OutLcdControl return;*****************************************************; ein Steuerbyte 8-bittig übertragenControl8Bit movwf LcdPort bsf LcdE nop bcf LcdE movlw D'10' movwf loops call WAIT return;*****************************************************; darauf warten, daß das Display bereit zur Datenannahme istLcdBusy bsf STATUS, RP0 ; make Port B4..7 input movlw B'11110000' iorwf TRISB, f bcf STATUS, RP0BusyLoop bcf LcdRs bsf LcdRw ; Lesen bsf LcdE nop movf LcdPort, w movwf LcdStatus bcf LcdE nop bsf LcdE ; Enable nop bcf LcdE btfsc LcdStatus, 7 ; teste bit 7 goto BusyLoop bcf LcdRw bsf STATUS, RP0 ; make Port B4..7 output movlw B'00001111' andwf TRISB, f bcf STATUS, RP0 return ;*****************************************************; aus W ein Byte mit Steuerdaten zum Display übertragenOutLcdControl movwf LcdDaten call LcdBusy movf LcdDaten, w andlw H'F0' movwf LcdPort ; Hi-teil Daten schreiben bsf LcdE nop bcf LcdE ; Disable LcdBus swapf LcdDaten, w andlw H'F0' movwf LcdPort ; Lo-teil Daten schreiben bsf LcdE nop bcf LcdE ; Disable LcdBus return;*****************************************************; aus W ein Datenbyte zum Display übertragenOutLcdDaten movwf LcdDaten call LcdBusy movf LcdDaten, w andlw H'F0' movwf LcdPort ; Hi-teil Daten schreiben bsf LcdRs ; Daten bsf LcdE ; Enable LcdBus nop bcf LcdE ; Disable LcdBus swapf LcdDaten, w andlw H'F0' movwf LcdPort ; Lo-teil Daten schreiben bsf LcdRs ; Daten bsf LcdE nop bcf LcdE ; Disable LcdBus bcf LcdRs ; return;*******************************************************************************; String ' °C' am LCD ausgebenOutGC movlw ' ' movwf LcdDaten call OutLcdDaten movlw B'11011111' ; ° movwf LcdDaten call OutLcdDaten movlw 'C' movwf LcdDaten call OutLcdDaten return;*****************************************************;+++Mathematik-Routinen*******************************;*****************************************************;**************************************************************; 8 Bit Wert (f1,f0) auf LCD dezimal anzeigenOutDez8 ;8-bit (f0) als Dez zum Lcd call Hex2Dez8 movfw HdH Call Bcd4Bit movfw HdZ Call Bcd4Bit movfw HdE Call Bcd4Bit return; 100 = 0000 0064 h; 10 = 0000 000A h; 1 = 0000 0001 hHex2Dez8 ; 8-bit (f1) in 3-stellen BCD movlw 0x64 movwf xw0 call Hex2Dez1 ; 100er movfw HdX movwf HdH movlw 0x0A movwf xw0 call Hex2Dez1 ; 10er movfw HdX movwf HdZ movfw f0 movwf HdE returnHex2Dez1 clrf HdX decf HdX, fHdLoop incf HdX, f movf xw0, w ; f0=f0-xw0 subwf f0, f btfsc STATUS, C ;Überlauf goto HdLoop ;Stelle 1 mehr movf xw0,W ; low byte addwf f0,F ; low byte add returnBcd4Bit ;low-4 Bit als BCD ausgeben movwf BcdDaten movlw B'00110000' ADDwf BcdDaten, f ;ASCII-wandeln (+48) movlw B'00111010' subwf BcdDaten, w btfss STATUS, C ;Test auf A ... F goto BcdOk movlw .7 addwf BcdDaten, f ;korrigiere A...F (+7)BcdOk movfw BcdDaten call OutLcdDaten return end

[XAN77]

o mentiune am, LM75 e un senzor prost, cel putin asa erau cei 2 care i-am avut si folosit, rezolutie mica de 0,5 grade dar si acea jumate de grad foarte instabila. In plus, conform datasheet are o abatere de +/- 2 grade, ei mie exact asa imi mergeau amandoi, cu 2 grade in plus (sau minus, nu mai tin minte) decat temperatura corecta. Apoi am trecut la DS18B20; concluzia acum pentru LM75, parerea mea, jafuri, nu merita banii.

[ratza]

Eu am unul cu LM335Z, merge destul de bine, dar ?i ?sta are problee cu offsetul.

[Stefan]

LM335 e analogic iar LM75 si DS18B20 sunt digitale.DS18B20 isi merita banii, il folosesc la webserverul de la tuxgraphics si imi inica cu maxim 0.5gradeC in plus dar cred ca se poate remedia din soft.