#include <16F877A.h>     // Kullanılacak denetleyicinin başlık dosyası tanıtılıyor. 
  
 // Denetleyici konfigürasyon ayarları 
 #device ADC=16 
 #fuses XT,NOWDT,NOPROTECT,NOBROWNOUT,NOLVP,NOPUT,NOWRT,NODEBUG,NOCPD 
  
 #use delay (clock=4000000) // Gecikme fonksiyonu için kullanılacak osilatör frekansı belirtiliyor. 
  
  
 #include <lcd_4bit.c> 
  
 #use fast_io(b) 
 //#use fast_io(d) 
 #include <string.h> 
 // //Port yönlendirme komutları C portu için geçerl 
  
  
 #define use_portb_lcd TRUE 
 #define LCD_ENABLE_PIN  PIN_B2 
 #define LCD_RS_PIN      PIN_B0                                  
 #define LCD_RW_PIN      PIN_B1                                  
 #define LCD_DATA4       PIN_B4                                    
 #define LCD_DATA5       PIN_B5                                   
 #define LCD_DATA6       PIN_B6                                    
 #define LCD_DATA7       PIN_B7  
  
 #define sat1 PIN_D4 
 #define sat2 PIN_D5 
 #define sat3 PIN_D6 
 #define sat4 PIN_D7 
 #define sut1 PIN_D2 
 #define sut2 PIN_D1 
 #define sut3 PIN_D0 
  
  // karakter tipinde değişken tanımlanıyor 
 int i =0; 
 int tus=0; 
 //*********** Keypad Tarama Fonksiyonu ********* 
 char u1[]="1234",p[10]; 
 int d1; 
 int key() // Fonksiyon ismi 
 { 
    output_d(0x00); // D portu çıkışı sıfırlanıyor 
 while(TRUE){ 
    output_high(sat1); // 1. satır lojik-1 yapılıyor 
   if(input(sut1)){  
       while (input(sut1)); 
       return('1'); 
       
       goto k; 
       } 
   if(input(sut2)){  
       while (input(sut2));   // 1. sütun okunuyor 
       return('2'); 
       goto k; 
       } 
       if(input(sut3)){  
       while (input(sut3));   // 1. sütun okunuyor 
       return('3'); 
       goto k; 
       } 
    output_low(sat1); // 1. satır lojik-0 yapılıyor 
  
    output_high(sat2); // 2. satır lojik-1 yapılıyor 
   if(input(sut1)){  
       while (input(sut1));   // 1. sütun okunuyor 
       return('4'); 
       goto k; 
       } 
       if(input(sut2)){  
       while (input(sut2));  // 1. sütun okunuyor 
       return('5'); 
       goto k; 
       } 
       if(input(sut3)){  
       while (input(sut3));  // 1. sütun okunuyor 
       return('6'); 
       goto k; 
       } 
  
    output_low(sat2); // 2. satır lojik-0 yapılıyor 
  
    output_high(sat3); // 3. satır lojik-1 yapılıyor 
   if(input(sut1)){  
       while (input(sut1));   // 1. sütun okunuyor 
       return('7'); 
       goto k; 
       } 
       if(input(sut2)){  
       while (input(sut2));   // 1. sütun okunuyor 
       return('8'); 
       goto k; 
       } 
       if(input(sut3)){  
       while (input(sut3));   // 1. sütun okunuyor 
       return('9'); 
       goto k; 
       } 
    output_low(sat3); // 3. satır lojik-0 yapılıyor 
  
    output_high(sat4); // 3. satır lojik-1 yapılıyor 
   if(input(sut1)){  
       while (input(sut1));  // 1. sütun okunuyor 
       return('*'); 
       goto k; 
       } 
       if(input(sut2)){  
       while (input(sut2));  // 1. sütun okunuyor 
       return('0'); 
       goto k; 
       } 
       if(input(sut3)){  
       while (input(sut3)); // 1. sütun okunuyor 
       return('#'); 
       goto k; 
       } 
    output_low(sat4); // 3. satır lojik-0 yapılıyor 
 } 
 k:delay_ms(1); 
     // Fonksiyon "tus" değeri ile geri döner 
 } 
  
 //********** ANA PROGRAM FONKSİYONU******* 
  
 void main ( ) 
 { 
 setup_psp(PSP_DISABLED);        // PSP birimi devre dışı 
 setup_timer_1(T1_DISABLED);   
 setup_timer_2(T2_DISABLED,0,1); 
 setup_adc_ports(NO_ANALOGS); 
 setup_adc(ADC_OFF); 
 setup_ccp1(CCP_OFF); 
 setup_ccp2(CCP_OFF); 
 set_tris_b(0x00);   // a portu giris olarak tanimladim. 
 set_tris_d(0xF0);    
 set_tris_a(0x00); 
    lcd_init();   // LCD hazırlanıyor 
 l1:     
     lcd_clear(); 
     gotoxy(2,0); 
     lcd_str("Enter Password:"); 
     gotoxy(0,1); 
    while(TRUE) 
    { 
     tus=key(); 
     delay_ms(20); 
     if(tus=='*') 
     { 
       lcd_clear(); 
       delay_ms(20); 
     gotoxy(0,0); 
     lcd_str("Enter Password:"); 
     gotoxy(0,1); 
     i=0; 
     } 
     else if(tus=='#') 
     { 
     p[i]='\0'; 
     delay_ms(20); 
     goto l; 
     } 
     else 
     { 
     delay_ms(20); 
     lcd_str(tus); 
     p[i]=tus; 
     i++; 
     } 
      
    } 
    l: 
    gotoxy(0,1); 
     
    d1=strcmp(u1,p); 
    delay_ms(20); 
      
    if(d1==0) 
    { 
 delay_ms(20); 
    gotoxy(0,0); 
    lcd_str("Correct Password"); 
    gotoxy(0,1); 
    i=0; 
     
    lcd_str("Opening"); 
    delay_ms(300); 
     
     output_high(pin_a0);  
     output_low(pin_a1);  
     delay_ms(208); 
     output_low(pin_a0);  
     output_low(pin_a1); 
     delay_ms(7000); 
     output_low(pin_a0);  
     output_high(pin_a1); 
     delay_ms(208); 
     output_low(pin_a0);  
     output_low(pin_a1); 
    goto l1; 
     
     
    }else{ 
    lcd_str("Incorrect"); 
    i=0; 
    delay_ms(3500); 
    goto l1; 
     
    } 
    
  
     
    }