Include "modedefs.bas"
@ Device PIC16F877,XT_OSC,WDT_off,PWRT_off,PROTECT_off ,BOD_Off
define adc_bits 8
define osc 4
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 0
low portD.2
trisa = $ff
trisb = $00
TRISD = $00
adcon1 = 7
temperature VAR WORD
count_remain VAR BYTE
count_per_c VAR BYTE
sV var byte
PV var byte
mode var porta.0
up var porta.1
down var porta.2
DQ VAR PORTA.3 ' One-wire data pin
heater VAR PORTB.0
High heater
sV = 25
LCDOut $fe, 1," TEMPS SENSOR "
LCDOut $fe, $c0,"DS1820 1WIRE BUS"
pause 2000
main:
gosub read_pv
gosub calculate
gosub display
read 0,sv
if mode = 0 then pause 200 : gosub set_temp
pause 10
GoTo main
End
read_pv:
OWOut DQ, 1,[$CC, $44]
loop:
OWIn DQ, 4, [count_remain]
IF count_remain = 0 Then loop
OWOut DQ, 1, [$CC, $BE]
OWIn DQ, 0, [temperature.LOWBYTE, temperature.HIGHBYTE, Skip 4, count_remain, count_per_c]
temperature = (((temperature >> 1) * 100) - 25) + (((count_per_c - count_remain) * 100) / count_per_c)
LCDOut $fe, 1, DEC (temperature / 100), ".", DEC2 temperature, " C"
PV = (temperature / 100)
return
calculate:
If (PV >= (SV - 1/2)) then
gosub display
write 0,sv
high heater 'off heater
Pause 100
endif
If (PV < sV ) then
gosub display
write 0,sv
low heater 'on heater
Pause 100
endif
return
display:
LCDOut $fe, 1,"PV=", DEC (temperature / 100)+1,"C"
LCDOut $fe, $c0,"SV=" ,dec SV,"C"
pause 10
return
set_temp:
LCDOut $fe, 1,"settemp "
pause 2000
LCDOut $fe, 1
pause 1000
loop2:
if mode = 1 then
IF (Up=0)THEN
PAUSE 100
SV = SV+1
IF (SV>=100)THEN SV = 100
write 0,sv
ENDIF
IF(DOWn=0)THEN
PAUSE 100
SV = Sv-1
IF(SV<=0)THEN SV = 0
write 0,sv
ENDIF
pause 100
LCDOut $fe, 1,"setpoint temp "
LCDOut $fe, $c0,"SV=", dec SV,"C"
goto loop2
endif
pause 100
goto main
RETURN
Current Project / Post can also be found using:
- 1wire picbasic pro
- ds18b20 library for PIC
- interfacing ds1302 pic-microcontroller com
- Picbasuc ds18b20 example
