Elektronik / Mikrodenetleyici Projeleri/

PIC16F628 Lcd Display Göstergeli Şifreli Kapı Kilidi

Sponsorlu Bağlantılar

Ne yazıkki detaylı açıklama yok untitled.bas yazılımında şifrenin 1111 olduğunu gördüm (satır 43) hata için alarm göstergesi var (led) 1 adet çıkışı var (röle) projede pic16f628 kullanılmış bu denetleyicinin maliyeti düşük ve buyutlarıda küçük. Projenin isis simülasyon dosyası pic16f628-sifreli-kilit Emeği geçen Kişilere ve 67proje ekibine Teşekkürler

PIC16F628 şifreli kilit Devre Şeması
pic16f628-sifreli-kilit-devresi

Yazılım dosyaları PIC16F628 Lcd Display Göstergeli Şifreli Kapı Kilidi

Dosya indirme LINK listesi (HTML formatında) link-4181.zip şifre-pass: 320volt.com

Untitled.bas

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2006 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 13.03.2006                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
CMCON=7
TRISA=$1F
TRISB=$00
PORTA=00
PORTB=00

ALARM VAR PORTB.0
KAPI VAR PORTB.1

SIFRE VAR WORD
SIFRE1 VAR WORD
SIFRE2 VAR WORD
SIFRE3 VAR WORD
SURE VAR WORD
KUL VAR BYTE
ADR VAR BYTE
FLAGS=0
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_LINES 2
DEFINE LCD_COMMANBUS 2000
DEFINE LCD_DATAUS 50
PAUSE 100

ENBAS:
READ 02,SIFRE.BYTE0
READ 03,SIFRE.BYTE1
IF SIFRE=>65000 THEN
SIFRE=11111
ADR=02
DEG:
WRITE ADR,SIFRE.BYTE0
ADR=ADR+1
WRITE ADR,SIFRE.BYTE1
ADR=ADR+1
IF ADR=>20 THEN ENBAS1
GOTO DEG
ENDIF
ENBAS1:
SIFRE=00
LCDOUT $FE,1,"SIFRE GIRINIZ"
ENBAS2:
LCDOUT $FE,$C0,"SIFRE=",#SIFRE," ONAY"
ENBAS3:
IF PORTA>00 THEN ENBAS3
ENBAS4:
IF PORTA=00 THEN ENBAS4
IF PORTA=11 THEN BASLA
IF PORTA=12 THEN SIFRE=00 : GOTO ENBAS2
IF SIFRE=>6500 THEN SIFRE=00 : GOTO ENBAS2
SIFRE=SIFRE*10
IF PORTA=10 THEN ENBAS2
SIFRE=SIFRE+PORTA
GOTO ENBAS2

BASLA:
LCDOUT $FE,1,"KULLANICI NO:"
LCDOUT $FE,$C0,"YAZIMIZ"
BASLA1:
IF PORTA>00 THEN BASLA1
BASLA2:
IF PORTA=00 THEN BASLA2
KUL=PORTA
ADR=PORTA*2
READ ADR,SIFRE1.BYTE0
ADR=ADR+1
READ ADR,SIFRE1.BYTE1
IF SIFRE=SIFRE1 THEN
LCDOUT $FE,1,"KAPI AC-KAPA=> 1"
LCDOUT $FE,$C0,"SIFRE DEGIS => 2"
GOTO KOMUT
ENDIF
ALARM=1
GOTO ENBAS

KOMUT:
IF PORTA>00 THEN KOMUT
KOMUT1:
IF PORTA=00 THEN KOMUT1
IF PORTA=01 THEN
ALARM=0
TOGGLE KAPI
GOTO ENBAS
ENDIF
IF PORTA=02 THEN SIFRED
GOTO KOMUT

SIFRED:
ALARM=0
SIFRE=00
SIFRED1:
LCDOUT $FE,1,"YENI SIFRE GIR"
SIFRED2:
LCDOUT $FE,$C0,"SIFRE=",#SIFRE," ONAY"
SIFRED3:
IF PORTA>00 THEN SIFRED3
SIFRED4:
IF PORTA=00 THEN SIFRED4
IF PORTA=11 THEN SIFK
IF PORTA=12 THEN SIFRE3=00 : GOTO SIFRED2
IF PORTA=>11 THEN SIFRED3
IF SIFRE=>6500 THEN SIFRE=00 : GOTO SIFRED2
SIFRE=SIFRE*10
IF PORTA=10 THEN SIFRED2
SIFRE=SIFRE+PORTA
GOTO SIFRED2

SIFK:
ADR=KUL*2
WRITE ADR,SIFRE.BYTE0
ADR=ADR+1
WRITE ADR,SIFRE.BYTE1
GOTO ENBAS
  • Mesut

    Ne yazikki zip dosyasının icinde .bas dosyası yok bilginize

  • Perviz

    sifreyi kullanamadim

  • Aykut

    Diyot olarak ne kullanıyoruz

    • 1n4148 kullanabilirsiniz

      • mustafa

        sağ olun bende bunu arıyordum
        ama kullanıcı kodunu bulamadım hala

  • mustafa

    meraba ben 5 tane 1 giriyorum şifreye sonra onaya basıyorum sonra kullanıcı no cıkıyor ama onu bulamıyorum yardımcı olurmusunuz kullanıcı kodu kaç?

    • ahmet baş

      Hazır tuş takımı alırsan pic16f628a da 12 tuşlu bir hazır tuş takımını bağlayacak port bulamazsın çünkü böyle bir takımdan 7 uç çıkar. Arkadaşın yaptığı sistemde 4 uçla işi halletmiş.

  • Mutlu

    Şifre: 11111 Kullanıcı No: 2 dir. Benim merak ettiğim devrede yapan arkadaş tuş takımını kendisi tasarlamış butonlarla. Onun yerine hazır yapılmış tuş takımları var. Hazır tuş takımı alsak nasıl bağlayabiliriz devreye ?

  • onur

    Peki arkadaşlar, kilit kısmı nasıl olacak? Herşey tamam sifre dogru ve röle aktif oldu. Kilidi cekecek manyetik sistem nasıl olacak? Bilgisi olanlardan bir yardım. Teşekkürler