PIC 16F628A ile Şifreli kilit

[sonmoikan]

Basit ve kullanılışlı bir şifreli kilit sistemi.

Özellikleri:
8 haneli şifre
Şifre değiştirme özelliği
şifre unutulduğunda varsayılan şifre verme

-Şifre sorma ekranında iken şifre 8 hane girildiğinde kapı açılır.
-Şifre sorma ekranında * tuşuna basılırsa şifre değiştirme ekranı gelir. 8 haneli eski şifre
girildikten sonra 8 haneli yeni şifre girilir.
-Şifre sorma ekranında # tuşuna basılırsa ekran temizlenir.
-PIC e ilk enerji verildiğinde varsayılan şifre eeproma kaydedilir.
-Elektrik kesilse dahi şifre kaybolmaz.
-Şifre unutulduğu takdirde kutu içerisine konulan Şifre Reset Butonu sayesinde şifre varsayılan (12345678) yapılır.

Erol Hocaya saygılarımla.

[assyh]

Merhaba,
kaynak kodunu alabilirmiyiz mümkünse c yada basic.
hex ile bunun mantığını öğrenilebileceğini zannetmiyorum ancak kilit yaparız

teşekkürler

[MS_59]

Arkadaş bütün dosyaları paylaşmış zaten 628 kilit dosyası içinde bas dosyası var

[assyh]

Bas yok. Hex var. Pbp var.
Dsn var.. başka dosya yok
Ben mi göremiyorum.

[ete]

Pbp uzantısı basic dosyası olduğunu gösteriyor. Onu aç.
Ete

[assyh]

 

[ersangundogdu]

Ete hocam konu üzerinde uzun zaman geçmiş ama sizden bir ricam olacak. Hata ledi iptal olsa onun yerine alarm çıkışı olsa. Şifre 3 defa yanlış girildiğinde 1 dakika alarm çıkışı verse. 1 dakika dolmadan doğru şifre girildiğinde alarm çıkışı kapansa. Bu değişikliği yapmak zor mudur? Vaktiniz varsa tabi. Şimdiden teşekkür ederim. 

[ete]

Birincisi programı ben yazmadım. İkincisi bir istek olsa hadi neyse diyeyim ama bu istediklerin başlı başına bir program eder.

Ete

[ersangundogdu]

Devredeki röle yerine rf verici kullanmak istiyorum.  İnşallah başarırım.  Hafta sonu uğraşacağım.

[ferdi07]

GÜZEL BİR ÇALIŞMA ELİNE SAĞLIK

[yolcu27]

merhaba devrenin pcb çizimi mevcut mu acaba=?

[COTYORA]

sonmoikan  hocam şifrelii kilit örneğinizden kod örneği aldım
saygılarımı sunuyorum paylaşım için  çok teşekkür ediyorum.

[rhoca68]

tesekkür ederim kardesim

[ersangundogdu]

Bu projede şifreyi 4 haneliye nasıl çevirebilirim?

[ete]

Aşağıdaki deşiklikleri uygula,

1.  for i=0 to 7
      READ i,SIFRE[i]     ; eppromdaki bilgiyi şifre değişkenine ata
 next i
döngüsünü
 for i=0 to 3
      READ i,SIFRE[i]     ; eppromdaki bilgiyi şifre değişkenine ata
 next i

şeklinde değiştir.

2.  if x=>8 then Gosub KONTROL_EKRAN
satırını 
 if x=>4 then Gosub KONTROL_EKRAN

şeklinde değiştir.

3.     if x=>8 then 
        sifreg=0
        Gosub kayit  ;8 adet key girince kontrol ekranına git
    endif
yer alan if x=>8 then ifadesini if x=>4 then şeklinde değiştir

4.  if x=>8 then Gosub eski_kontrol 
satırınıdaki 8 rakamını 4 olarak değiştir.

5.     LCDOUT $FE,$C0,"   12345678     " satırını
    LCDOUT $FE,$C0,"      1234      "
şeklinde değiştir

6. KAYIT:
 for i=0 to 7 
      write i,SIFRE[i]     ; sifreyi eproma kaydet
 next i
döngüsünü 0 to 7 yerine 0 to 3  şeklinde değiştir.

Hepsi bu kadar
ete