PIC16F84 ve DS1621 ile sıcaklık ısı ölçümü röle kontrol

[Linkleri görebilmek için üye olun veya giriş yapın.]



[Linkleri görebilmek için üye olun veya giriş yapın.]

Devre pic16f84 üzerine kurulu ds1621 ısı sensörü ile alınan bilgiyi
2×16 lcd üzerinde görüntülüyor ayrıca belirli bir ısıda RA0 pinine bağlı
rölenin çalışması için sıcaklık değeri belirlenebiliyor (emin değilim
alt ya da üst sınır olabilir) ayarlar dec, inc, set butonları ile
yapılıyor
PIC16F84 ve DS1621 ile sıcaklık ısı ölçümü röle kontrol devresinin
kaynak .bas, hex kodları isis simülasyon ve pcb dosyaları var
Not: Yeni versiyon isis içindeki ds1621 library dosyası ile simülasyon
çalışmıyor /MODELS kılasörü içindeki ds1621.dll yedeğini alıp dosya
içindeki ds1621.dll dosyasını kullanın
Dosyalar: [Linkleri görebilmek için üye olun veya giriş yapın.]

TempControl.bas yazılımı
‘**************************************************************
‘* Name : PIC-Temp.BAS *
‘* Author : F. San *
‘* Date : 10.10.2003 *
‘* Notes : Temperature control, -55°C to +125°C *
‘* : Using the PIC16F84 and DS1621 temp.sens *
‘**************************************************************
@ device xt_osc, wdt_off, pwrt_on, protect_off
Define LCD_DREG PORTB
Define LCD_DBIT 0
Define LCD_EREG PORTB
Define LCD_EBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 5
Temp var word ‘DS1621 Temperature
TempLo var byte ‘DS1621 Temp. Low byte
TempHi var byte ‘DS1621 Temp. High byte
TempX var byte ‘misc. storage variables
TempNeg var byte ‘ ”
SetTemp var bit ‘ ”
i2c_sda var PortA.2 ‘DS1621 Data pin
i2c_scl var PortA.3 ‘DS1621 Clock pin
RelayOut var PortA.0 ‘Relay output pin
Sw_SET var PortA.1 ‘Set temp. switch
Sw_DEC var PortB.6 ‘Dec temp. switch
Sw_INC var PortB.7 ‘Inc temp. switch
TrisA = %11110
PortA = 0
TrisB = %11000000
PortB = 0
SetTemp = 0
EEPROM 0,[22,0] ‘Default temp. 22.0°C, stored at EEprom location 0 and 1
Read 0, TempHi ‘Get Temp. High.byte from EEprom address 0
Read 1, TempLo ‘Get Temp. Low.byte from EEprom address 1
Main:
gosub Read_Temp
gosub Chk_RelayOut
gosub Chk_Switches
if not settemp then gosub Disp_Temp
pause 100
goto Main
Read_Temp:
i2cwrite i2c_sda,i2c_scl,$90,$ac,[0] ‘Access Config [ACh]
Pause 1
I2CWrite i2c_sda, i2c_scl,$90,[$ee] ‘Start Convert T [EEh]
Pause 1
I2CRead i2c_sda, i2c_scl, $90,$aa,[Temp],Error ‘Read Temperature [AAh]
TempNeg = ” ”
TempX = Temp.HighByte
if TempX >= 128 then
TempNeg = “-”
TempX = 256 – (TempX + Temp.7)
endif
return
Disp_Temp:
Lcdout $fe, 1, TempNeg, Dec TempX,”.”, Dec (Temp.7/1*50/10),223,”C Tout:”,dec Relayout
Lcdout $fe, $c0, “(“,SDec TempHi,”.”,Dec(TempLo/1*50/10),223,”C)”
return
Disp_SetTemp:
Lcdout $fe,1,TempNeg, Dec TempX,”.”, Dec (Temp.7/1*50/10),223,”C Tout:”,dec Relayout
Lcdout $fe, $c0, “Tset: “,sDec TempHi,”.”,Dec(TempLo/1*50/10),223,”C”
return
Error:
Lcdout $fe, 1, “Error!”, $fe, $C0, “Reading Temp.”
goto Main
Chk_RelayOut:
if Temphi < 128 then 'Set Temp = pos.temp.
if temp.highbyte < 128 then 'Temp = pos.temp
if temp.highbyte = temphi then
if temp.7 < Templo then
RelayOut = 1
else
RelayOut = 0
endif
else
if temp.highbyte < temphi then
RelayOut = 1
else
RelayOut = 0
endif
endif
else 'Set Temp = neg.temp.
RelayOut = 1
endif
else 'Set Temp = neg.temp.
if temp.highbyte > 128 then ‘Temp = neg.temp
if temp.highbyte = temphi then
if temp.7 > Templo then
RelayOut = 1
else
RelayOut = 0
endif
else
if temp.highbyte > temphi then
RelayOut = 0
else
RelayOut = 1
endif
endif
else ‘Set Temp = pos.temp.
RelayOut = 0
endif
endif
return
Chk_Switches:
if Sw_SET = 0 then
if SetTemp then
gosub Disp_Temp
else
gosub Disp_SetTemp
endif
while SW_SET = 0 : wend
if SetTemp then
Write 0, TempHi ‘Store TempHi to EEprom location 0
Write 1, TempLo ‘Store TempLo to EEprom location 1
endif
settemp = not Settemp
endif
if not settemp then return
if Sw_DEC = 0 then
if TempHi > 128 then
if Temphi > 201 then
TempLo = TempLo ^ 1 ‘invert state of TempLo
if TempLo = 1 then TempHi = TempHi – 1
endif
else
TempLo = TempLo ^ 1
if TempLo = 1 then TempHi = TempHi – 1
endif
endif
if Sw_INC = 0 then
if TempHi < 128 then
if TempHi < 125 then
TempLo = TempLo ^ 1
if TempLo = 0 then TempHi = TempHi + 1
endif
else
TempLo = TempLo ^ 1
if TempLo = 0 then TempHi = TempHi + 1
endif
endif
gosub Disp_SetTemp
return
end