***/// PIC DÖKÜMANLARI-PROGRAMLARI \\\*** Güncellenmektedir... (3. sayfa)

quote:

Orjinalden alıntı: karauydu

arkadaşlar lütfen sahibinden izin almadan ve kaynak göstermeden buraya proje eklemeyelim...
...emeğe saygı lütfen...

quote:


arkadaslar bu code'u microcode studio ile compile edin ve semayı boarda hazırlayın
Proteusta denemeyin calısmaz cunku ilk sifreyi propic2 de programlarken ''EE WRİTE'' menusunden girilecek.


PAUSE 200
' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1

[ 0, 1, 2, 3,................................................]
burada puf nokta ''0'' icin ''215'' i propic2 programının ''EEWRİTE'' menusunde 1. haneye yaz


'****************************************************************
'* Name : SIFRE1.BAS *
'* Author : [************HEN*********] *
'* Notice : Copyright (c) 2002 [set under view...options] *
'* : All Rights Reserved *
'* Date : 31.07.2002 *
'* Version : 1.0 *
'* Notes : *
'* : *
'

Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTD
Define LCD_RSBIT 0
Define LCD_EREG PORTD
Define LCD_EBIT 1
Define LCD_LINES 2
Define LCD_BITS 4

B0 VAR BYTE
B1 VAR BYTE
B2 VAR BYTE
B3 VAR BYTE
B4 VAR BYTE
B5 VAR BYTE
' A1 VAR BYTE
' A2 VAR BYTE
' A3 VAR BYTE
' A4 VAR BYTE
' A5 VAR BYTE
C2 VAR BYTE
C3 VAR BYTE
C4 VAR BYTE
C5 VAR BYTE
A VAR BYTE
I VAR BYTE
C VAR BYTE
D VAR BYTE
D1 VAR BYTE
D2 VAR BYTE
D3 VAR BYTE
D4 VAR BYTE
E VAR BYTE
LED VAR PORTD.2
LED1 VAR PORTD.3
LED2 VAR PORTA.0


TRISD=0
TRISA=0
TRISB=$F0
INTCON=$88
Option_reg.6=0
Option_reg.7=0
I=0
E=0 'Hata girisi sayısı

'C2=235 EB 'master sifre degerleri TUS TAKIMINDA 1 ALTTA ISE
'C3=219 DB
'C4=187 BB
'C5=237 ED

' VEYA TUS TAKIMINA GORE
'C2=238 EE 'master sifre degerleri TUS TAKIMINDA 1 ÜSTTE ISE
'C3=222 DE
'C4=190 BE
'C5=237 ED


READ 1,C2
READ 2,C3
READ 3,C4
READ 4,C5

B2=0
B3=0
B4=0
B5=0

LED=0
LED1=0
LED2=0
D=0


LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"
PAUSE 50

GOSUB LCD_1

ON INTERRUPT GOTO ALT
X:
GOSUB YENILE
GOTO X

ALT:

DISABLE
PAUSE 1

B0=PORTB


IF B0=231 AND E=<5 THEN
I=0
C=0
D=0
LED2=1
LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"
PAUSE 1000
LED2=0
ELSE

IF B0=183 AND C=0 THEN
LED2=1
PAUSE 3000 'MASTER SIFREYE GECIS
LED2=0
IF PORTB=183 THEN
LED2=1
C=1
ENDIF
ENDIF
IF C=1 THEN
D=D+1
IF D=1 THEN
LCDOUT $FE,1
LCDOUT " ESKI SIFREYI"
LCDOUT $FE,$C0
LCDOUT " GIRINIZ"
PAUSE 400
I=0

ENDIF

IF D>=2 AND D<7THEN

PAUSE 200
' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1
IF I=1 THEN
B2=B0
LCDOUT $FE,1
LCDOUT " *"
ENDIF
IF I=2 THEN
B3=B0
LCDOUT $FE,1
LCDOUT " **"
ENDIF
IF I=3 THEN
B4=B0
LCDOUT $FE,1
LCDOUT " ***"
ENDIF
IF I=4 THEN
B5=B0
LCDOUT $FE,1
LCDOUT " ****"
PAUSE 500
ENDIF
IF I=5 THEN
IF B2=C2 AND B3=C3 AND B4=C4 AND B5=C5 AND B0=183 THEN
LCDOUT $FE,1
LCDOUT " YENI SIFREYI "
LCDOUT $FE,$C0
LCDOUT " GIRINIZ "
I=0
LED1=0
PAUSE 500
ELSE
LCDOUT $FE,1
LCDOUT " ESKI SIFREYI "
LCDOUT $FE,$C0
LCDOUT " YANLIS GIRDINIZ "
PAUSE 2000
GOSUB LCD_1
ENDIF
ENDIF
ENDIF

IF D>=7 THEN

PAUSE 200
' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1
IF I=1 THEN
D1=B0
LCDOUT $FE,1
LCDOUT " *"
ENDIF
IF I=2 THEN
D2=B0
LCDOUT $FE,1
LCDOUT " **"
ENDIF
IF I=3 THEN
D3=B0
LCDOUT $FE,1
LCDOUT " ***"
ENDIF
IF I=4 THEN
D4=B0
LCDOUT $FE,1
LCDOUT " ****"
WRITE 1,D1
WRITE 2,D2
WRITE 3,D3
WRITE 4,D4
PAUSE 300
LCDOUT $FE,1
LCDOUT " SIFRE "
LCDOUT $FE,$C0
LCDOUT " DEGISTIRILDI "
PAUSE 2000
LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"

C=0
D=0
I=0
E=0
LED2=0
LED1=0
ENDIF
ENDIF

ELSE


IF B0<>183 AND B0<>231 AND E<5 THEN
LED2=1
PAUSE 100


' LOOKDOWN B0,[215,235,219,187,237,221,189,238,222,190],B1
I=I+1
IF I=1 THEN
B2=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " *"
ENDIF
IF I=2 THEN
B3=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " **"
ENDIF
IF I=3 THEN
B4=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " ***"
ENDIF
IF I=4 THEN
B5=B0
'LCDOUT $FE,1
LCDOUT $FE,$C0
LCDOUT " ****"
PAUSE 300
' ENDIF
'IF I=5 THEN
READ 1,C2
READ 2,C3
READ 3,C4
READ 4,C5
IF C2=B2 AND C3=B3 AND C4=B4 AND C5=B5 THEN
LCDOUT $FE,1
LCDOUT " HOS GELDINIZ"
LED=1
E=0
PAUSE 3500

ELSE
E=E+1
IF E<5 THEN
LCDOUT $FE,1
LCDOUT " YENIDEN DENEYINIZ"
PAUSE 2000
ENDIF

IF E>=5 THEN
LED1=1
LCDOUT $FE,1
LCDOUT " ALARM "

ENDIF

ENDIF
B2=0
B3=0
B4=0
B5=0
LED=0

IF E<5 THEN
GOSUB LCD_1
ENDIF
I=0
C=0
D=0
ENDIF
ENDIF
ENDIF
ENDIF
PAUSE 175 'tuslar arası bekleme


PORTB=0
INTCON=$88


ENABLE

RESUME

LCD_1:
I=0
C=0
D=0
LED2=0
LCDOUT $FE,1
LCDOUT " SIFREYI GIRINIZ"
PAUSE 50
RETURN


YENILE:

PORTB=$F7
PAUSE 5
PORTB=$FE
PAUSE 5
PORTB=$FD
PAUSE 5
PORTB=$FB
PAUSE 5

RETURN[simage][/simage]

Başa dön


kesmez
Emektar



Kayıt: Oct 21, 2002
Mesajlar: 529
Nereden: ankaradan
Tarih: Sal Nis 22, 2003 5:08 am Mesaj konusu:

--------------------------------------------------------------------------------

yetki:
y1 VAR BYTE 'şifre 8106
y2 VAR BYTE
y3 VAR BYTE
y4 VAR BYTE
y5 VAR BYTE
y6 VAR BYTE
y7 VAR BYTE
y8 VAR BYTE
y5 = "8"
y6 = "1"
y7 = "0"
y8 = "6"
Pause 100
LCDOut $fe, 1
Pause 100
LCDOut $fe, $80, " Bu fonksiyon "
Pause 10
LCDOut $fe, $c0, " icin yetki kodu"
Pause 10
LCDOut $fe, $90, " gereklidir.!"
Pause 200

LCDOut $fe, $d0, " [ ] "
Pause 10

For kp=0 TO 3
GoSub getkey
Pause 200
ke = key - 1
LookUp ke, ["123F456K789SA0BY"], keyl

BranchL kp,[ ay1,ay2,ay3,ay4 ]
ay1:
y1 = keyl
GoTo belki
ay2:
y2 = keyl
GoTo belki
ay3:
y3 = keyl
GoTo belki
ay4:
y4 = keyl
belki:
LCDOut $fe, 214+kp, "*"
Pause 100
Next kp
IF (y1=y5) AND (y2=y6) AND (y3=y7) AND (y4=y Then art
GoTo yetki
art:
GoSub bitti
Return

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
basit bir şifre sorma alt programı ..
getkey ise tuşlardan bilgi alma alt programı...
şifreyi istediğiniz gibi şeçebilirsiniz..
ben bunu 16f877 ile yaptığım bir trafik cihazının yetki girişi için kullanıyorum.
şifre ok değilse silbaştan, ok ise döngü sonlanıyor ve diğer prg. satırları işlemeye devam ediyor.
tabii lcd define ları yapılmalı ancak yukardaki kod 4x16 lcd içindir.
214 $d6 ya eşittir. lcd 4. satır ($d0) dan başlar.
2 satırlı lcd için gerekli düzenlemeleri yapabilirsiniz.

quote:

Orjinalden alıntı: yaramazcocuk35

eyw.. saolsunnn aradıkalrımı buldum gibiii ade size hayırlıı geceler alahın sefkatii üstünüzde ollsunnn

quote:

Orjinalden alıntı: İSKORPİT-X

"Devre PIC16F877 ile LM1036 entegresinin birleştirilmesiyle yapılmıştır. BASS,TIZ,DENGE,SES seviye ayarı LCD ekranda görsel olarak 15 ayrı kademeli bişimde yapılıyor.

Devre PIC16F877 ile LM1036 entegresinin birleştirilmesiyle yapılmıştır. BASS,TIZ,DENGE,SES seviye ayarı LCD ekranda görsel olarak 15 ayrı kademeli bişimde yapılıyor.Ayrıca bu devreye başka tonkontrol entegreleri kolayca adapte edilebilinir yada eqlayzer entegresi bağlanabilir. 4 ayrı kanallı herhangibi devre eklenebilinir.


Çalışma prensibi çok basit. 4 ayrı 4er bitlik dijital veri toplanıp analog sayıya dönüştürülüyor dirençlerin ortak çıkışlarında 0v...5v arası gerilim15 ayrı kademede veriliyor.bu gerilim tonkontrol entegresisnin seviye girişlerine uygulanıyor.LM1036 stero sesin tonunu analog gerilimle kontrol edebilen bir entegredir. seviye giriş vaoltajı 0v...5,4v dur. bu seviye pıc çıkışındaki gerilime uygundur.

ASM VE HEX dosyalarını , devre şemasını , proteus6.9 similasyonunu bu linkten indiriniz:
http://www.*******.com/download/1449171/pic_tonkontrol-2.zip.html