Radyo frekansıyla bina aydınlatma güvenlik kontrolü
PİC’E YÜKLENEN PROGRAMIN JAL DİLİ İLE YAZILMIŞ HALİ
Alıcı final;
include 16f877_4 include jlib include rf port_b_direction = all_output pin_d0_direction = output pin_d1_direction = output pin_d2_direction = output pin_d3_direction = output pin_d4_direction = input pin_d5_direction = input pin_d6_direction = input pin_d7_direction = input port_e_direction = all_output port_c_direction = all_output var byte veri , a = 0 , fan = 0 , izin = 0 , yangin_sens = 0 ,izin1 = 0 ,öncelik = 0 var byte hirsiz_sens = 0 , sulama = 0 , flash = 0 port_b = 0 port_c = 0 port_d = 0 port_e = 0 forever loop if rf_recv (veri) then -- ************************** if veri == "a" then pin_b0 = high elsif veri == "A" then pin_b0 = low -- ************************** elsif veri == "b" then pin_b1 = high elsif veri == "B" then pin_b1 = low -- ************************** elsif veri == "c" then pin_b2 = high elsif veri == "C" then pin_b2 = low -- ************************** elsif veri == "d" then pin_b3 = high elsif veri == "D" then pin_b3 = low -- ************************** elsif veri == "e" then a = a + 1 if a == 1 then port_e = 1 elsif a == 2 then port_e = 2 elsif a == 3 then port_e = 3 elsif a == 4 then port_e = 4 elsif a == 5 then port_e = 5 elsif a == 6 then port_e = 6 elsif a == 7 then port_e = 7 elsif a == 8 then port_e = 0 a = 0 end if -- ************************** elsif veri == "f" then pin_b4 = high elsif veri == "F" then pin_b4 = low -- ************************** elsif veri == "g" then pin_b5 = high elsif veri == "G" then pin_b5 = low -- ************************** elsif veri == "h" then pin_b6 = high elsif veri == "H" then pin_b6 = low -- ************************** elsif veri == "ý" then delay_200ms pin_b7 = ! pin_b7 -- ************************** elsif veri == "k" then pin_d2 = high elsif veri == "K" then pin_d2 = low -- ************************** elsif veri == "m" then port_b = 0 port_c = 0 port_d = 0 port_e = 0 fan = 0 izin = 0 izin1 = 0 yangin_sens = 0 hirsiz_sens = 0 öncelik = 0 a = 0 end if -- ************************** end if -- ************************** if pin_d4 == high then delay_200ms pin_b7 = ! pin_b7 end if -- ************************** if (veri == "l") | (pin_d7 == high) then delay_200ms pin_d3 = ! pin_d3 end if -- ************************** -- hirsiz alarmý bloku -- ************************** if veri == "j" then -- hirsiz alarmina izin verildi delay_200ms izin1 = 1 pin_c1 = high end if if veri == "J" then -- hirsiz alarmina izin verilmedi delay_200ms izin1 = 0 pin_c1 = low end if öncelik = izin + yangin_sens -- yangin ve hirsizlik durumu ayný anda gerceklesirse öncelik yangin alarmýnda if pin_d6 == high then -- yangin sensorunun role kontaðý kapattý hirsiz_sens = 1 elsif pin_d6 == low then -- yangin bitti role acti ya da manuel kapatildi hirsiz_sens = 0 end if if ((öncelik == 1)| (öncelik == 0))&(izin1 == 1 ) & (hirsiz_sens == 1) then -- yangin basladiginda sireni açar sistem lambalarini yakip sondurur pin_d0 = high flash = 1 if flash == 1 then port_b = 0b01111111 port_e = 7 pin_d3 = high delay_500ms port_b = 0 port_e = 0 pin_d3 = low delay_500ms end if end if -- hirsiz alarmi kontrol sonu -- ************************** -- ************************** -- yangin alarmi bloku if veri == "i" then -- yangin alarmina izin verildi delay_200ms pin_c0 = high izin = 1 end if if veri == "Ý" then -- yangin alarmina izin verilmedi delay_200ms izin = 0 pin_c0 = low end if if pin_d5 == high then -- yangin sensorunun role kontaðý kapattý yangin_sens = 1 elsif pin_d5 == low then -- yangin bitti role acti ya da manuel kapatildi yangin_sens = 0 end if -- sireni kapatma if (yangin_sens == 0)& (hirsiz_sens == 0)then pin_d0 = low flash = 0 end if -- yangin bittiyse sireni kapatýr if (izin == 1)&(yangin_sens == 1 ) then -- yangin basladiginda sireni açar sistem lambalarini yakip sondurur pin_d0 = high flash = 2 if flash == 2 then port_b = 0b11111111 port_e = 7 pin_d3 = high delay_500ms port_b = 0b10000000 port_e = 0 pin_d3 = low delay_500ms end if end if -- yangin alarmi kontrolü sonu end loop
Verici final;
-- aralik 2009
-- *******Aytac Durgen tarafindan yazilmistir********
-- **** KOCAELI UNIVERSITESI *******
include 16f877_4
include jlib
include rf
include hd447804
port_b_direction = all_output
port_c_direction = all_input
port_e_direction = all_output
port_b = 0
port_d = 0
port_e = 0 -- kesme ile backround isik
hd44780_clear
procedure acilis is
hd44780_line1
hd44780 ="R" hd44780 ="F" hd44780 =" " hd44780 ="I"
hd44780 ="L" hd44780 ="E" hd44780 =" " hd44780 =" "
hd44780 ="K" hd44780 ="A" hd44780 ="B" hd44780 ="L"
hd44780 ="O" hd44780 ="S" hd44780 ="U" hd44780 ="Z"
hd44780_line2
hd44780 ="B" hd44780 ="I" hd44780 ="N" hd44780 ="A"
hd44780 =" " hd44780 =" " hd44780 ="O" hd44780 ="T"
hd44780 ="O" hd44780 ="M" hd44780 ="A" hd44780 ="S"
hd44780 ="Y" hd44780 ="O" hd44780 ="N" hd44780 ="U"
delay_500ms
hd44780_clear
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 ="A" hd44780 ="Y"
hd44780 ="T" hd44780 ="A" hd44780 ="C" hd44780 =" "
hd44780 =" " hd44780 ="D" hd44780 ="U" hd44780 ="R"
hd44780 ="G" hd44780 ="E" hd44780 ="N" hd44780 =" "
hd44780_line2
delay_1s
hd44780 =" " hd44780 ="F" hd44780 ="E" hd44780 ="R"
hd44780 ="D" hd44780 ="I" hd44780 =" "
hd44780 =" " hd44780 ="Z" hd44780 ="A" hd44780 ="R"
hd44780 ="A" hd44780 ="R" hd44780 ="S" hd44780 ="I"
hd44780 ="Z"
delay_500ms
hd44780_clear
end procedure
procedure univ is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 ="K" hd44780 ="O" hd44780 ="C" hd44780 ="A"
hd44780 ="E" hd44780 ="L" hd44780 ="I" hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780_line2
hd44780 =" "
hd44780 =" " hd44780 ="U" hd44780 ="N" hd44780 ="I"
hd44780 ="V" hd44780 ="E" hd44780 ="R" hd44780 ="S"
hd44780 ="I" hd44780 ="T" hd44780 ="E" hd44780 ="S"
hd44780 ="I" hd44780 =" " hd44780 =" "
delay_500ms
hd44780_clear
hd44780_line1
hd44780 = " " hd44780 = " "
hd44780 = "H" hd44780 = "O" hd44780 = "S" hd44780 = " "
hd44780 = " " hd44780 = "G" hd44780 = "E"
hd44780 = "L" hd44780 = "D" hd44780 = "I" hd44780 = "N"
hd44780 = "I" hd44780 = "Z" hd44780 = " "
end procedure
procedure acik is
hd44780_line2
hd44780 ="<" hd44780 ="<" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 ="A" hd44780 ="C"
hd44780 ="I" hd44780 ="K" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =">" hd44780 =">"
end procedure
procedure kapali is
hd44780_line2
hd44780 ="<" hd44780 ="<" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 ="K" hd44780 ="A" hd44780 ="P"
hd44780 ="A" hd44780 ="L" hd44780 ="I" hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =">" hd44780 =">"
end procedure
procedure konum is
hd44780_line1
hd44780 ="K" hd44780 ="O" hd44780 ="N" hd44780 ="U"
hd44780 ="M" hd44780 =" " hd44780 ="D" hd44780 ="E"
hd44780 ="G" hd44780 ="I" hd44780 ="S" hd44780 ="T"
hd44780 ="R" hd44780 ="M" hd44780 ="E" hd44780 ="K"
hd44780_line2
hd44780 ="I" hd44780 ="C" hd44780 ="I" hd44780 ="N"
hd44780 =" " hd44780 ="O" hd44780 ="K" hd44780 ="A"
hd44780 =" " hd44780 ="B" hd44780 ="A" hd44780 ="S"
hd44780 ="I" hd44780 ="N" hd44780 ="I" hd44780 ="Z"
end procedure
procedure izinver is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 ="I" hd44780 ="Z"
hd44780 ="I" hd44780 ="N" hd44780 =" " hd44780 =" "
hd44780 ="V" hd44780 ="E" hd44780 ="R" hd44780 ="M"
hd44780 ="E" hd44780 ="K" hd44780 =" " hd44780 =" "
hd44780_line2
hd44780 ="I" hd44780 ="C" hd44780 ="I" hd44780 ="N"
hd44780 =" " hd44780 ="O" hd44780 ="K" hd44780 ="A"
hd44780 =" " hd44780 ="B" hd44780 ="A" hd44780 ="S"
hd44780 ="I" hd44780 ="N" hd44780 ="I" hd44780 ="Z"
end procedure
procedure izinli is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 ="I" hd44780 ="Z"
hd44780 ="I" hd44780 ="N" hd44780 =" " hd44780 ="V"
hd44780 ="E" hd44780 ="R" hd44780 ="I" hd44780 ="L"
hd44780 ="D" hd44780 ="I" hd44780 =" " hd44780 =" "
end procedure
procedure sistem is
hd44780_line2
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 ="S" hd44780 ="I" hd44780 ="S" hd44780 ="T"
hd44780 ="E" hd44780 ="M" hd44780 ="I" hd44780 ="N"
hd44780 ="E" hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure ok is
hd44780_line2
hd44780 ="<" hd44780 ="<" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 ="M" hd44780 ="E"
hd44780 ="N" hd44780 ="U" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =">" hd44780 =">"
end procedure
procedure okk is
hd44780_line2
hd44780 ="<" hd44780 ="<" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =">" hd44780 =">"
end procedure
procedure menu_tus is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 ="M" hd44780 ="E"
hd44780 ="N" hd44780 ="U" hd44780 =" " hd44780 =" "
hd44780 ="T" hd44780 ="U" hd44780 ="S" hd44780 ="U"
hd44780 ="N" hd44780 ="A" hd44780 =" " hd44780 =" "
hd44780_line2
hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 ="B"
hd44780 ="A" hd44780 ="S" hd44780 ="I" hd44780 ="N"
hd44780 ="I" hd44780 ="Z" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
-- buradan itibaren oda çýktýlarý
procedure aydin is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 ="A"
hd44780 ="Y" hd44780 ="D" hd44780 ="I" hd44780 ="N"
hd44780 ="L" hd44780 ="A" hd44780 ="T" hd44780 ="M"
hd44780 ="A" hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure hava is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 ="H" hd44780 ="A"
hd44780 ="V" hd44780 ="A" hd44780 ="L" hd44780 ="A"
hd44780 ="N" hd44780 ="D" hd44780 ="I" hd44780 ="R"
hd44780 ="M" hd44780 ="A" hd44780 =" " hd44780 =" "
hd44780_line2
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 ="S" hd44780 ="I" hd44780 ="S" hd44780 ="T"
hd44780 ="E" hd44780 ="M" hd44780 ="I" hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure salon is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 ="S" hd44780 ="A" hd44780 ="L"
hd44780 ="O" hd44780 ="N" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure misafir is
hd44780_line1
hd44780 =" " hd44780 ="O" hd44780 ="T" hd44780 ="U"
hd44780 ="R" hd44780 ="M" hd44780 ="A" hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 ="O" hd44780 ="D"
hd44780 ="A" hd44780 ="S" hd44780 ="I" hd44780 =" "
end procedure
procedure c_oda is
hd44780_line1
hd44780 =" "
hd44780 =" " hd44780 ="C" hd44780 ="O" hd44780 ="C"
hd44780 ="U" hd44780 ="K" hd44780 =" " hd44780 =" "
hd44780 ="O" hd44780 ="D" hd44780 ="A" hd44780 ="S"
hd44780 ="I" hd44780 =" " hd44780 =" "
end procedure
procedure mutfak is
hd44780_line1
hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 ="M" hd44780 ="U" hd44780 ="T" hd44780 ="F"
hd44780 ="A" hd44780 ="K" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure banyo is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 ="B" hd44780 ="A" hd44780 ="N"
hd44780 ="Y" hd44780 ="O" hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure wc is
hd44780_line1
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 ="W"
hd44780 ="C" hd44780 =" " hd44780 =" " hd44780 =" "
hd44780 =" " hd44780 =" " hd44780 =" " hd44780 =" "
end procedure
procedure antre is
hd44780_line1
hd44780 =" "
hd44780 ="A" hd44780 ="N" hd44780 ="T" hd44780 ="R"
hd44780 ="E" hd44780 =" " hd44780 =" " hd44780 ="K"
hd44780 ="O" hd44780 ="R" hd44780 ="I" hd44780 ="D"
hd44780 ="O" hd44780 ="R" hd44780 =" "
end procedure
procedure yangin is
hd44780_line1
hd44780 =" "
hd44780 ="Y" hd44780 ="A" hd44780 ="N" hd44780 ="G"
hd44780 ="I" hd44780 ="N" hd44780 =" " hd44780 =" "
hd44780 ="A" hd44780 ="L" hd44780 ="A" hd44780 ="R"
hd44780 ="M" hd44780 ="I" hd44780 =" "
end procedure
procedure hirsiz is
hd44780_line1
hd44780 =" " hd44780 ="H" hd44780 ="I"
hd44780 ="R" hd44780 ="S" hd44780 ="I" hd44780 ="Z"
hd44780 =" " hd44780 =" " hd44780 ="A" hd44780 ="L"
hd44780 ="A" hd44780 ="R" hd44780 ="M" hd44780 ="I"
end procedure
procedure rgb is
hd44780_line1
hd44780 = " " hd44780 = " "
hd44780 = "Y" hd44780 = "A" hd44780 = "T" hd44780 = "A"
hd44780 = "K" hd44780 = " " hd44780 = "O" hd44780 = "D"
hd44780 = "A" hd44780 = "S" hd44780 = "I" hd44780 = " "
hd44780 = " " hd44780 = " "
end procedure
procedure klima is
hd44780_line1
hd44780 = " " hd44780 = " " hd44780 = " "
hd44780 = " " hd44780 = " " hd44780 = "K" hd44780 = "L"
hd44780 = "I" hd44780 = "M" hd44780 = "A" hd44780 = " "
hd44780 = " " hd44780 = " " hd44780 = " " hd44780 = " "
hd44780 = " "
end procedure
procedure bahce is
hd44780_line1
hd44780 = " " hd44780 = " " hd44780 = "B" hd44780 = "A"
hd44780 = "H" hd44780 = "C" hd44780 = "E" hd44780 = " "
hd44780 = " " hd44780 = "I" hd44780 = "S" hd44780 = "I"
hd44780 = "G" hd44780 = "I" hd44780 = " " hd44780 = " "
end procedure
procedure kapa is
hd44780_line1
hd44780 = " " hd44780 = "T" hd44780 = "U" hd44780 = "M"
hd44780 = " " hd44780 = " " hd44780 = " " hd44780 = " "
hd44780 = "S" hd44780 = "I" hd44780 = "S" hd44780 = "T"
hd44780 = "E" hd44780 = "M" hd44780 = " " hd44780 = " "
hd44780_line2
hd44780 = " " hd44780 = " " hd44780 = "K"
hd44780 = "A" hd44780 = "P" hd44780 = "A" hd44780 = "T"
hd44780 = "I" hd44780 = "L" hd44780 = "I" hd44780 = "Y"
hd44780 = "O" hd44780 = "R" hd44780 = " " hd44780 = " "
hd44780 = " "
end procedure
procedure dede is
hd44780_line1
hd44780 = ":" hd44780 = ")" hd44780 = ")"
hd44780 = "D" hd44780 = "E" hd44780 = "D" hd44780 = "E"
hd44780 = " " hd44780 = "T" hd44780 = "O" hd44780 = "R"
hd44780 = "U" hd44780 = "N" hd44780 = "(" hd44780 = "("
hd44780 = ":"
hd44780_line2
hd44780 = " " hd44780 = " " hd44780 = " " hd44780 = " "
hd44780 = " " hd44780 = "B" hd44780 = "A" hd44780 = "Y"
hd44780 = "B" hd44780 = "A" hd44780 = "Y"
hd44780 = " "hd44780 = " " hd44780 = " " hd44780 = " "
hd44780 = " "
end procedure
-- kesme icin ayarlamalar
var byte sure = 0
var byte kesm = 0 , konm = 0
procedure kesme_altprg is -- kesme alt programý
pragma interrupt
if (kesm == 14) then
sure = (sure + 1) % 8 -- arka plan isigi süresi 8i degistirerek ayarlanýr
konm = (konm + 1) % 2
end if
kesm = (kesm + 1 ) % 15
intcon_t0if = low
end procedure
option = 0b10000111
intcon_t0ie = true
intcon_gie = true
-- kesme icin ayar sonu
-- ******** ana program burdan itibaren ******
-- degiskeneer tanimlaniyor ********
var byte baslat = 0 , altmenu = 0, yngin = 0, anamenu = 0 ,
slon = 0 , aydinlatma = 0 , mtfk = 0, msfr = 0, fan = 0 ,
cocuk = 0 , ytkod = 0 , bnyo = 0
var byte vc = 0, koridor = 0
var byte hrszalrm = 0
var byte klma = 0
var byte sulama = 0
var byte kapanis = 0
pin_e0 = on
acilis
univ
delay_500ms
pin_e0 = off
forever loop
if baslat == 0 then
menu_tus
anamenu = 0
end if
-- kesme ile lcd isigi yakma giris
if ((pin_c0 == high) | (pin_c1 == high) | (pin_c2 == high)
| (pin_c3 == high)| (pin_c4 == high)) & ((kapanis == 0)
| (kapanis == 1)| (kapanis == 2)| (kapanis == 3)| (kapanis == 4)) then
sure = 0
pin_e0 = on
end if
if (sure == 7) then
pin_e0 = off
sure = 0
end if
-- kesme ile lcd isigi yakma cikis
-- menu icine girme
if (pin_c1 == high)& (altmenu == 0) then
delay_200ms
baslat = baslat + 1
altmenu = 1
end if
if baslat == 2 then
hd44780_clear
anamenu = 0
baslat = 0
end if
-- ana menuleri ileri geri sarma
if (pin_c0 == high) & (baslat == 1) & (altmenu == 1) then -- menu artirir
delay_200ms
anamenu = (anamenu + 1) % 6
end if
if (pin_c2 == high) & (baslat == 1) & (altmenu == 1) then -- menu azaltir
delay_200ms
anamenu = (anamenu + 1) % 6
end if
-- aydinlatmada menusu ileri geri sarma
if (pin_c0 == high) & (altmenu == 2) then -- menu artirir
delay_200ms
aydinlatma = (aydinlatma + 1) % 8
end if
if (pin_c2 == high) & (altmenu == 2) then -- menu azaltir
delay_200ms
aydinlatma = (aydinlatma - 1) % 8
end if
-- aydýnlatma menusu icine girmek icin
if (baslat == 1)& ( pin_c1 == high)& (anamenu == 0) then
delay_200ms
altmenu = altmenu + 1
end if
if altmenu == 3 then
baslat = 0
aydinlatma = 0
altmenu = 0
end if
-- aydinlatma alt mnu1
-- aydinlatma bloku
if ( baslat == 1) & (anamenu == 0) then
if altmenu == 1 then
aydin
ok
end if
-- aydinlatma alt mnu1
if (altmenu == 2)&(aydinlatma == 0) then
if ( pin_c3 == high) & (aydinlatma == 0) then
slon = slon + 1
delay_200ms
if slon == 1 then
rf_trans = "a"
end if
if slon == 2 then
rf_trans = "A"
slon = 0
end if
end if
if slon == 1 then
salon
acik
end if
if slon == 0 then
salon
kapali
end if
end if
-- aydinlatma alt mnu2
if (altmenu == 2)&(aydinlatma == 1) then
if ( pin_c3 == high) & (aydinlatma == 1) then
mtfk = mtfk + 1
delay_200ms
if mtfk == 1 then
rf_trans = "b"
end if
if mtfk == 2 then
rf_trans = "B"
mtfk = 0
end if
end if
if mtfk == 1 then
mutfak
acik
end if
if mtfk == 0 then
mutfak
kapali
end if
end if
-- aydinlatma alt mnu3
if (altmenu == 2)&(aydinlatma == 2) then
if ( pin_c3 == high) & (aydinlatma == 2) then
msfr = msfr + 1
delay_200ms
if msfr == 1 then
rf_trans = "c"
end if
if msfr == 2 then
rf_trans = "C"
msfr = 0
end if
end if
if msfr == 1 then
misafir
acik
end if
if msfr == 0 then
misafir
kapali
end if
end if
end if
-- aydinlatma alt mnu4
if (altmenu == 2)&(aydinlatma == 3) then
if ( pin_c3 == high) & (aydinlatma == 3) then
cocuk = cocuk + 1
delay_200ms
if cocuk == 1 then
rf_trans = "d"
end if
if cocuk == 2 then
rf_trans = "D"
cocuk = 0
end if
end if
if cocuk == 1 then
c_oda
acik
end if
if cocuk == 0 then
c_oda
kapali
end if
end if
-- aydinlatma alt mnu5
if (altmenu == 2)&(aydinlatma == 4) then
if ( pin_c3 == high) & (aydinlatma == 4) then
delay_200ms
ytkod = ytkod + 1
if (ytkod == 1)then
rf_trans = "e"
delay_200ms
elsif (ytkod == 2)then
rf_trans = "e"
delay_200ms
elsif (ytkod == 3)then
rf_trans = "e"
delay_200ms
elsif (ytkod == 4)then
rf_trans = "e"
delay_200ms
elsif (ytkod == 5)then
rf_trans = "e"
delay_200ms
elsif (ytkod == 6)then
rf_trans = "e"
delay_200ms
elsif (ytkod == 7)then
rf_trans = "e"
delay_200ms
elsif ytkod == 8 then
rf_trans = "e"
ytkod = 0
delay_200ms
end if
end if
if (ytkod == 1)| (ytkod== 2) | (ytkod == 3) | (ytkod == 4)
| (ytkod == 5) | (ytkod == 6 | (ytkod == 7)) then
rgb
hd44780_line2
hd44780 = " "
hd44780 = "I" hd44780 = "S" hd44780 = "I" hd44780 = "K"
hd44780 = " " hd44780 = " " hd44780 = " " hd44780 = "R"
hd44780 = "E" hd44780 = "N" hd44780 = "G" hd44780 = "I"
hd44780 = " "
print_decimal_2 ( hd44780, ytkod )
end if
if ytkod == 0 then
rgb
kapali
end if
end if
-- aydinlatma alt mnu6
if (altmenu == 2)&(aydinlatma == 5) then
if ( pin_c3 == high) & (aydinlatma == 5) then
bnyo = bnyo + 1
delay_200ms
if bnyo == 1 then
rf_trans = "f"
end if
if bnyo == 2 then
rf_trans = "F"
bnyo = 0
end if
end if
if bnyo == 1 then
banyo
acik
end if
if bnyo == 0 then
banyo
kapali
end if
end if
-- aydinlatma alt mnu7
if (altmenu == 2)&(aydinlatma == 6) then
if ( pin_c3 == high) & (aydinlatma == 6) then
vc = vc + 1
delay_200ms
if vc == 1 then
rf_trans = "g"
end if
if vc == 2 then
rf_trans = "G"
vc = 0
end if
end if
if vc == 1 then
wc
acik
end if
if vc == 0 then
wc
kapali
end if
end if
-- aydinlatma alt mnu8
if (altmenu == 2)&(aydinlatma == 7) then
if ( pin_c3 == high) & (aydinlatma == 7) then
koridor = koridor + 1
delay_200ms
if koridor == 1 then
rf_trans = "h"
end if
if koridor == 2 then
rf_trans = "H"
koridor = 0
end if
end if
if koridor == 1 then
antre
acik
end if
if koridor == 0 then
antre
kapali
end if
end if
-- ana menu 2
if ( baslat == 1) & (anamenu == 1) then
if ( pin_c3 == high) & (anamenu == 1) then
fan = fan + 1
delay_200ms
if fan == 1 then
rf_trans = "ý"
end if
if fan == 2 then
rf_trans = "ý"
fan = 0
end if
end if
if (konm == 0) & (anamenu == 1)then
hava
end if
if (konm == 1) & (anamenu == 1)then
konum
end if
end if
-- ana menu 3
if ( baslat == 1) & (anamenu == 2) then
if ( pin_c3 == high) & (anamenu == 2) then
yngin = yngin + 1
delay_200ms
if yngin == 1 then
rf_trans = "i"
end if
if yngin == 2 then
rf_trans = "Ý"
yngin = 0
end if
end if
if (konm == 0) & (anamenu == 2)&(yngin == 0)then
yangin
okk
end if
if (konm == 1) & (anamenu == 2)&(yngin == 0)then
izinver
end if
if (konm == 0) & (anamenu == 2)&(yngin == 1)then
yangin
sistem
end if
if (konm == 1) & (anamenu == 2)&(yngin == 1)then
izinli
okk
end if
end if
-- ana menu 4
if ( baslat == 1) & (anamenu == 3) then
if ( pin_c3 == high) & (anamenu == 3) then
hrszalrm = hrszalrm + 1
delay_200ms
if hrszalrm == 1 then
rf_trans = "j"
end if
if hrszalrm == 2 then
rf_trans = "J"
hrszalrm = 0
end if
end if
if hrszalrm == 1 then
hirsiz
acik
end if
if hrszalrm == 0 then
hirsiz
kapali
end if
end if
-- ana menu 5
if ( baslat == 1) & (anamenu == 4) then
if ( pin_c3 == high) & (anamenu == 4) then
klma = klma + 1
delay_200ms
if klma == 1 then
rf_trans = "k"
end if
if klma == 2 then
rf_trans = "K"
klma = 0
end if
end if
if klma == 1 then
klima
acik
end if
if klma == 0 then
klima
kapali
end if
end if
-- ana menu 6
if ( baslat == 1) & (anamenu == 5) then
if ( pin_c3 == high) & (anamenu == 5) then
sulama = sulama + 1
delay_200ms
if sulama == 1 then
rf_trans = "l"
end if
if sulama == 2 then
rf_trans = "l"
sulama = 0
end if
end if
if (konm == 0) & (anamenu == 5)then
bahce
okk
end if
if (konm == 1) & (anamenu == 5)then
konum
end if
end if
-- sistem kontolleri sonu bu kisim sistemi kapatip en az enerji harcama moduna gecirir.
if pin_c4 == high then
delay_200ms
kapanis = (kapanis + 1)
if kapanis == 5 then
rf_trans = "m"
kapa
delay_1s
dede
delay_1s
hd44780_clear
anamenu = 7
baslat = 3
sure = 7
altmenu = 4
end if
if (kapanis == 6) | (kapanis == 7)
| (kapanis == 8) | (kapanis == 9)
& (anamenu == 7) & (baslat == 3)
& (altmenu == 4)
then
end if
if kapanis == 14 then
hd44780_clear
sure = 0
pin_e0 = on
univ
delay_1s
baslat = 0
altmenu = 0
anamenu = 0
aydinlatma = 0
kapanis = 0
slon = 0
mtfk = 0
msfr = 0
cocuk = 0
ytkod = 0
vc = 0
koridor = 0
fan = 0
yngin = 0
klma = 0
sulama = 0
hrszalrm = 0
end if
end if
end loop
Alıcı ve verici devrelerin isis simülasyon görüntüleri
Devrelerin baskı devre ve tamamlanmış halinin görüntüsü
KOCAELİ ÜNİVERSİTESİ TEKNİK EĞİTİM FAKÜLTESİ ELEKTRİK ÖĞRETMENLİĞİ BÖLÜMÜ
7.DÖNEM PROJE DERSİ RF İLE UZAKTAN BİNA OTOMASYONU.
sorularınız olursa cevaplamaya çalışırım
Radyo frekansıyla (RF) bina aydınlatma ve güvenlik kontrolü projesine ait isis simülasyon ares pcb ve jal program dosyaları rf-bina-kontrol-jal-pic16f877.zip
Yazar: Aytaç Dürgen
Yazarımızın 320volt.com Blog üzerinde şu an okuduğunuz yazı dahil 26 yazısı bulunmaktadır. Yazarımız hakkında bilgileri ve diğer yazılarını görmek için bakınız; Aytaç Dürgen
Güzel bir proje olmuş çok teşekkürler
MERHABA PROJE Tarafımdan bitirme projesi olarak hazırlandı.
Kısaca açıklama gereği duydum Dosyalara genel çalışma tarıfini yazmayı unutmuşum.
Öncelikle proje alıcı ve verici ksım olmak üzere iki modülden oluşmaktadır.
Kumanda modulünde yalnızca dört tuş bulunmakta ve proje için yeterli miktarda olan 11 cihaz + 2 güvenlik sistemi ( yangın hırsız) kontrol edilebilmektedir.
alarm çıkısına bir transistör aracılığı ile bimilyonlukçulardaki hırsız alarmları bağlanmıştır. Böylece güvenlik tehtidi oluştuğunda bir siren çalışmakta ve tüm sistem aydınlatması 1sn ara ile yakıp söndürüldü.
Kullanığım rf modül bobinli tip olup algılama mesafesi açık alanda 200 300m kadardır. mesafeden dolayı .sistem kararsız çalışabiliyor.
Projeyi biraz daha geliştirebilir şekilde esnek bir programla sundum.
eksik bir noktasını görenler inceleyip geliştirebilirler.
aytacdurgen@gmail.com
merhaba
güzel bir çalışma olmuş
hocam ben buna benzer bir devre yapmak istiyorum amacım 16 verici 1 adet alıcısı olan bir alarm sistemi tasarlamak..vericilerin hepsi kablosuz olacak ve sisteme bir şekilde kodlama yöntemi ile tanıtılacak istenildiğinde sisteme basit bir şekilde ilave vericiler bağlanabilcek (örnek şifresi yazlıcak )gibi bu konu hakkında nerden başlamam lazım yardımcı olursanız sevinirim