Re: Code for thermostat with 18b20
OK, but how to this codeadd thisCode:clear DEFINE OSC 8 '8MHz << NOTICE UPPERCASE ON DEFINE 'END of timer/oscillator defines OSCCON = %01110001 'Int CLK 8MHz ANSEL = %00000000 'All digital ANSELH = %00000000 OPTION_REG.7 = 1 'Weak pull-ups enabled DEFINE LCD_DREG PORTC DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 1 'Register select pin DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 0 'Enable pin DEFINE LCD_BITS 4 '4-bitni data bus DEFINE LCD_LINES 2 'LCD DEFINE BUTTON_PAUSE 100 '***************************************************************************** 'Pinout for EasyPic5 DQ Var PORTA.0 ' One-wire data pin Mode_B Var PORTC.2 DOWN_B Var PORTC.3 UP_B Var PORTC.0 symbol UP=PORTC.0 symbol SET=PORTC.1 symbol MO=PORTC.2 symbol DN=PORTC.3 symbol STA=PORTA.5 symbol STO=PORTA.4 symbol SO=PORTA.2 ' symbol GR=PORTB.3 symbol DOZ=PORTB.4 symbol VE=PORTB.5 TRISA= %00111111 TRISB= %00000000 '***************************************************************************** portb = %00000000 '***************************************************************************** ' Variables '***************************************************************************** I var word J var word tmp1 var byte tmp2 var byte Temperature Var Word ' Temperature storage TempC Var Word Float Var Word TargetTemp Var Word ' Desired Temperature Hyst Var Word ' Hystereris V Var Word ' Var. for display B1 Var Byte ' Byte for TargetTemp calculation B2 Var Byte ' Byte for TargetTemp calculation Count_Remain Var Byte ' Count remaining Count_Per_C Var Byte ' Count per degree C Sign Var Byte ' +/- sign Mode Var Byte ' 0=Temp. display, 1=Set Temp, 2=Set Hysteresis Twist Var Bit '***************************************************************************** ' Resolution '***************************************************************************** DS18B20_9bit CON %00011111 ' 93.75ms, 0.5°C DS18B20_10bit CON %00111111 ' 187.5ms, 0.25°C <-- My favorite DS18B20_11bit CON %01011111 ' 375ms, 0.125°C DS18B20_12bit CON %01111111 ' 750ms, 0.0625°C (default) DATA 46, 224, 20 ' Temp MSB, TEMP LSB, Hysteresis DIV 10 Mode=0 ' Temperature display mode Twist = 0 PAUSE 500 LCDOUT $FE, 1, $FE, $0C ' Clear display, cursor off PAUSE 250 '------------------------------------------------------------------------------- OWOUT DQ, 1, [$CC, $4E, 0, 0, DS18B20_10bit] 'Skip ROM search and write N_bits ' resolution to scratch pad Read 0, B1 ' Read TargetTemp MSB Read 1, B2 ' Read TargetTemp LSB TargetTemp=B1*256+B2 ' Calculate TargetTemp value (Default=20.0 C.) Read 2, B1 ' Read Hysteresis Hyst=10*B1 ' Calculate Hysteresis value (Default= 2.0 C.) '------------------------------------------------------------------------------- MainLoop: If Mode_B=0 then ' Mode switch pressed Pause 50 ' Debounce LcdOut $FE, $8F, "*" ' Show that command is accepted If Mode_B=0 then MainLoop ' Wait until button is released Mode=Mode+1 ' Increment mode If Mode=1 then ' Save Target Temperature (Mode1 -> Mode2) Write 0, TargetTemp / 256 ' TargetTemp MSB Write 1, TargetTemp MOD 256 ' TargetTemp LSB EndIf If Mode > 1 Then ' Save Hysteresis (Mode 2 -> Mode 0) Mode=0 ' Only 0, 1, 2 are valid Write 2, Hyst / 10 ' Divide Hyst value to fit in Byte EndIf EndIf If Mode =0 then ' Set Target Temperature LcdOut $FE, $80, "Set Temp1 " ' Show function V=TargetTemp ' TargetTemp in V Gosub SelectSign ' Select +/blank/- Gosub DisplayTemp ' Display Target Temperature If (UP_B=0) Or (DOWN_B=0) then ' Up or Down button pushed If DOWN_B=0 then ' Down button If TargetTemp > 7500 then ' Not lower than -25 C. (10000-MinTemp * 100) TargetTemp=TargetTemp-25 ' Decrease temperuture with 0.25 C. EndIf EndIf If UP_B=0 then ' Up button If TargetTemp < 17500 then ' Not higher than 75 C. (10000+MaxTemp * 100) TargetTemp=TargetTemp+25 ' Increase temperature with 0.25 C. EndIf EndIf GoSub SetTargetTemp ' Display TargetTemp and delay 0.25 Sec. EndIf EndIf If Mode=1 then ' Set Hysteresis LcdOut $FE, $80, "Hysteresys: " ' Show function Sign= " " ' No sign V= 10000+Hyst ' Set value for V Gosub DisplayTemp ' Display Hysteresis If (UP_B=0) Or (DOWN_B=0) then ' Up or down button pushed Sign= " " ' No sign for Hysteresis If DOWN_B=0 then ' Down button If Hyst > 10 then Hyst=Hyst-10 ' Not less than 0.1 C. EndIf If UP_B=0 then ' Up button If Hyst < 1000 then Hyst=Hyst+10 ' Not more than 10.0 C. EndIf V= 10000+Hyst ' Set value for V Gosub DisplayTemp ' Display Hysteresis Pause 250 ' Delay 0.25 Sec. EndIf EndIf if Mode > 0 then Mainloop ' Setting TargetTemperature or Hysteresis goto mainloop ' Check again '------------------------------------------------------------------------------- ' SUBROUTINES: '---------------------------------------- SelectSign: If v = 10000 then ' Temperature = 0 C. Sign=" " ' No sign Else If v < 10000 then ' <> 0 Sign="-" ' Temperature below 0 C. Else Sign="+" ' Temperature above 0 C. EndIf EndIf Return '---------------------------------------- DisplayTemp: If V >= 10000 then ' Above 0 C. Temperature=V-10000 Else Temperature=10000-V ' Below 0 C. EndIf LcdOut $FE, $C0, Sign, DEC (Temperature / 100), ".", DEC2 Temperature, " ",223,"C " Return '----------------------------------------- SetTargetTemp: V=TargetTemp Gosub SelectSign Gosub DisplayTemp Pause 250 Return
but for Set temp 2Code:If Mode =0 then ' Set Target Temperature LcdOut $FE, $80, "Set Temp1 " ' Show function V=TargetTemp ' TargetTemp in V Gosub SelectSign ' Select +/blank/- Gosub DisplayTemp ' Display Target Temperature If (UP_B=0) Or (DOWN_B=0) then ' Up or Down button pushed If DOWN_B=0 then ' Down button If TargetTemp > 7500 then ' Not lower than -25 C. (10000-MinTemp * 100) TargetTemp=TargetTemp-25 ' Decrease temperuture with 0.25 C. EndIf EndIf If UP_B=0 then ' Up button If TargetTemp < 17500 then ' Not higher than 75 C. (10000+MaxTemp * 100) TargetTemp=TargetTemp+25 ' Increase temperature with 0.25 C. EndIf EndIf GoSub SetTargetTemp ' Display TargetTemp and delay 0.25 Sec. EndIf EndIf
What to modify?
Bookmarks