12F683 ile Merkezi Kilit Korna Modülü Yapımı - Jalv2

Başlatan SercanTEK, 08 Haziran 2018, 16:27:04

SercanTEK

Merhaba Arkadaşlar,

Merkezi Kilitli arabalar için yaptığım bir korna modülüdür. Ben 12F683 kullandım. İSteğe Bağlı 12F629 veya 12F675 kullanılabilir. Gerekli Yazılımları ve Devre şemalarını kendi blog sitemde paylaştım.



include 12f629
pragma target clock 4_000_000      
-- kristal 4 Mhz
pragma target OSC  INTOSC_NOCLKOUT 
-- dahili OSC
pragma target WDT  Disabled        
-- watchdog Kapalı
pragma target CP  Enabled        
-- Kod Koruma Açık
pragma target CPD  Enabled        
-- Kod Koruma Açık
pragma target MCLR INTERNAL        
-- mclr kullanılmıyor

enable_digital_io
()                -- tüm pinler giriş çıkış
-- ------------------------------------------------------
--  
Pin Tanımlamaları ve ilk ayarlar
-- ------------------------------------------------------
alias  KornaRole    is pin_A4
alias  TetikSec    is pin_A3
alias  KapiTetik2  is pin_A2
alias  KapiTetik1  is pin_A1
alias  Kontak      is pin_A0

pin_A4_direction 
output          -- CIKIS
pin_A3_direction 
input          -- TETIK-SEC
pin_A2_direction 
input          -- KAPI-TETIK
pin_A1_direction 
input          -- KAPI-TETIK
pin_A0_direction 
input          -- Kontak

KornaRole 
False

-- ------------------------------------------------------
-- 
Bekleme Alt Programı
-- Süre deger x 1000ms
-- ------------------------------------------------------
procedure bekle(word in degeris
 
if deger 0 then
  
for deger loop
    _usec_delay
(1000)
  
end loop
 end 
if
end procedure
-- ------------------------------------------------------
-- 
Kapılar Kapatılınca Kornayı TEK Çalar
-- ------------------------------------------------------
procedure KapiKapaninca(byte in sureis
  Bekle
(500)
  
KornaRole true
    Bekle
(sure)
  
KornaRole false
  Bekle
(500)
end procedure
-- ------------------------------------------------------
-- 
Kapılar Acilinca Kornayı CIFT Çalar
-- ------------------------------------------------------
procedure KapilarAcilinca(byte in sureis
  Bekle
(500)
    
KornaRole true
      Bekle
(sure)
    
KornaRole false
      Bekle
(sure)
    
KornaRole true
      Bekle
(sure)
    
KornaRole false
  Bekle
(500)
end procedure
-- ------------------------------------------------------
--  
Kapıların Durumunu Kontrol Eder
-- ------------------------------------------------------
procedure Kapilari_kontrol_et is

 
if (KapiTetik1 == TetikSec) & (KapiTetik2 == !TetikSecthen
  KapiKapaninca
(50)
 
end if

 if (
KapiTetik1 == !TetikSec) & (KapiTetik2 == TetikSecthen
  KapilarAcilinca
(40)
 
end if

end procedure


forever loop
 
if Kontak == false then
  Kapilari_kontrol_et
 
else
  
KornaRole False
 end 
if
end loop



Çalışma Videosu



Kaynak : http://www.sercanca.com/modul-merkezi-kilit-korna-modulu-yapimi/
Hayat sadece bir araçtır amaca ulaşmak için; Amaç ise Hayata birşeyler Katmaktır Benim için.. www.sercanca.com