PIC16F628 Lcd Display Göstergeli Şifreli Kapı Kilidi

| Mart 26, 2021 Tarihinde güncellendi
PIC16F628 Lcd Display Göstergeli Şifreli Kapı Kilidi

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 Dosya indirme LINK listesi (TXT 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

Yayım tarihi: 2008/11/21 Etiketler: , , , , , ,



9 Yorum “PIC16F628 Lcd Display Göstergeli Şifreli Kapı Kilidi

  1. Mesut

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

    CEVAPLA
      1. mustafa

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

        CEVAPLA
  2. 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ç?

    CEVAPLA
    1. 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ş.

      CEVAPLA
  3. 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 ?

    CEVAPLA
  4. 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

    CEVAPLA

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir