Pic16f84a ile 0-99 display sensörlü sayıcı

[ALBAYRAK55]

Devrede 74HC14 Sayıcı entegresi bulunmaktadır.Devrenin kodları pic basicte yazılmıştır devre denenmiş olup sorunsuz çalışmaktadır.Devrede 2 tane foto diyot bulunmaktadır.Siyah olan alıcıdır ,Kırmızı vericidir.Foto diyotların arasından bir cisim geçtiğinde led sönüp sayma işlemi yapmaktadır.

Devre Sıfırdan Doksan Dokuza kadar saymaktadır.99 Olunca sıfırlanıp DİSPLAY EKRANDA yeni yazmaktadır.



#include "E:\MASAüSTü\9999 SAYıCı V2\YAZV2.PBP"
LIST

_X = 16
_Y = 17
_W = 18
_Z = 19
SAYI1 = 20
SAYI2 = 21
SAYI3 = 22
SAYI4 = 23
F2_SOF equ $ ; YAZV2.PRP
F2_EOF equ $ ; YAZV2.PRP
F1_SOF equ $ ; YAZV2.BAS
F1_000012 equ $ ; in [YAZV2.BAS] TRISA=0 : TRISB=%10000000
Bsf STATUS,5
ram_bank = 1
Clrf TRISA
Movlw 128
Movwf TRISB
F1_000013 equ $ ; in [YAZV2.BAS] PORTB=0 : PORTA=0
Bcf STATUS,5
ram_bank = 0
Clrf PORTB
Clrf PORTA
F1_000022 equ $ ; in [YAZV2.BAS] X=0 : Y=0 : W=0 : Z=0
Clrf _X
Clrf _Y
Clrf _W
Clrf _Z
F1_000023 equ $ ; in [YAZV2.BAS] GOTO GOSTER
Goto GOSTER
BASLA
F1_000025 equ $ ; in [YAZV2.BAS] WHILE PORTB.7=0
bc@LL1
Btfsc PORTB,7
Goto bc@LL2
F1_000026 equ $ ; in [YAZV2.BAS] PORTA=7 : PORTB=SAYI1
Movlw 7
Movwf PORTA
Movf SAYI1,W
Movwf PORTB
F1_000027 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000028 equ $ ; in [YAZV2.BAS] PORTA=11 : PORTB=SAYI2
Movlw 11
Movwf PORTA
Movf SAYI2,W
Movwf PORTB
F1_000029 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000030 equ $ ; in [YAZV2.BAS] PORTA=13 : PORTB=SAYI3
Movlw 13
Movwf PORTA
Movf SAYI3,W
Movwf PORTB
F1_000031 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000032 equ $ ; in [YAZV2.BAS] PORTA=14 : PORTB=SAYI4
Movlw 14
Movwf PORTA
Movf SAYI4,W
Movwf PORTB
F1_000033 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000034 equ $ ; in [YAZV2.BAS] WEND
Goto bc@LL1
bc@LL2
F1_000035 equ $ ; in [YAZV2.BAS] WHILE PORTB.7=1
bc@LL3
Btfss PORTB,7
Goto bc@LL4
F1_000036 equ $ ; in [YAZV2.BAS] PORTA=7 : PORTB=SAYI1
Movlw 7
Movwf PORTA
Movf SAYI1,W
Movwf PORTB
F1_000037 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000038 equ $ ; in [YAZV2.BAS] PORTA=11 : PORTB=SAYI2
Movlw 11
Movwf PORTA
Movf SAYI2,W
Movwf PORTB
F1_000039 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000040 equ $ ; in [YAZV2.BAS] PORTA=13 : PORTB=SAYI3
Movlw 13
Movwf PORTA
Movf SAYI3,W
Movwf PORTB
F1_000041 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000042 equ $ ; in [YAZV2.BAS] PORTA=14 : PORTB=SAYI4
Movlw 14
Movwf PORTA
Movf SAYI4,W
Movwf PORTB
F1_000043 equ $ ; in [YAZV2.BAS] DELAYMS 5
Movlw 5
Call dl@ms
F1_000044 equ $ ; in [YAZV2.BAS] WEND
Goto bc@LL3
bc@LL4
F1_000045 equ $ ; in [YAZV2.BAS] IF W>=1 THEN BASLA
Movf _W,F
Btfsc STATUS,2
Goto bc@LL6
Goto BASLA
bc@LL6
F1_000046 equ $ ; in [YAZV2.BAS] INC X
Incf _X,F
GOSTER
F1_000048 equ $ ; in [YAZV2.BAS] IF X=10 THEN
Movlw 10
Subwf _X,W
Btfss STATUS,2
Goto bc@LL8
F1_000049 equ $ ; in [YAZV2.BAS] X=0 : INC Y
Clrf _X
Incf _Y,F
F1_000050 equ $ ; in [YAZV2.BAS] ENDIF
bc@LL8
F1_000051 equ $ ; in [YAZV2.BAS] IF Y=10 THEN
Movlw 10
Subwf _Y,W
Btfss STATUS,2
Goto bc@LL10
F1_000052 equ $ ; in [YAZV2.BAS] X=0 : Y=0 : INC W
Clrf _X
Clrf _Y
Incf _W,F
F1_000053 equ $ ; in [YAZV2.BAS] ENDIF
bc@LL10
F1_000054 equ $ ; in [YAZV2.BAS] IF W>=1 THEN
Movf _W,F
Btfsc STATUS,2
Goto bc@LL12
F1_000055 equ $ ; in [YAZV2.BAS] X=14 : Y=13 : W=12 : Z=11
Movlw 14
Movwf _X
Movlw 13
Movwf _Y
Movlw 12
Movwf _W
Movlw 11
Movwf _Z
F1_000056 equ $ ; in [YAZV2.BAS] ENDIF
bc@LL12
F1_000057 equ $ ; in [YAZV2.BAS] LOOKUP X,[63,6,91,79,102,109,125,7,127,111,65,110,121,55,48],SAYI1
Movf _X,W
Sublw 14
Btfss STATUS,0
Goto Le@lb1
Call l@lb3
Movwf SAYI1
Goto Le@lb1
l@lb3
Movlw ((lk@lb2 >> 8) & 255)
Movwf PCLATH
Movf _X,W
if($ >> 8) != (($ + 15) >> 8)
Goto so@lb13
Org (($ + 255) & 65280)
so@lb13
endif
Addwf PCL,F
lk@lb2
Retlw 63
Retlw 6
Retlw 91
Retlw 79
Retlw 102
Retlw 109
Retlw 125
Retlw 7
Retlw 127
Retlw 111
Retlw 65
Retlw 110
Retlw 121
Retlw 55
Retlw 48
Le@lb1
F1_000058 equ $ ; in [YAZV2.BAS] LOOKUP Y,[63,6,91,79,102,109,125,7,127,111,65,110,121,55,48],SAYI2
Movf _Y,W
Sublw 14
Btfss STATUS,0
Goto Le@lb4
Call l@lb6
Movwf SAYI2
Goto Le@lb4
l@lb6
Movlw ((lk@lb5 >> 8) & 255)
Movwf PCLATH
Movf _Y,W
if($ >> 8) != (($ + 15) >> 8)
Goto so@lb14
Org (($ + 255) & 65280)
so@lb14
endif
Addwf PCL,F
lk@lb5
Retlw 63
Retlw 6
Retlw 91
Retlw 79
Retlw 102
Retlw 109
Retlw 125
Retlw 7
Retlw 127
Retlw 111
Retlw 65
Retlw 110
Retlw 121
Retlw 55
Retlw 48
Le@lb4
F1_000059 equ $ ; in [YAZV2.BAS] LOOKUP W,[63,6,91,79,102,109,125,7,127,111,65,110,121,55,48],SAYI3
Movf _W,W
Sublw 14
Btfss STATUS,0
Goto Le@lb7
Call l@lb9
Movwf SAYI3
Goto Le@lb7
l@lb9
Movlw ((lk@lb8 >> 8) & 255)
Movwf PCLATH
Movf _W,W
if($ >> 8) != (($ + 15) >> 8)
Goto so@lb15
Org (($ + 255) & 65280)
so@lb15
endif
Addwf PCL,F
lk@lb8
Retlw 63
Retlw 6
Retlw 91
Retlw 79
Retlw 102
Retlw 109
Retlw 125
Retlw 7
Retlw 127
Retlw 111
Retlw 65
Retlw 110
Retlw 121
Retlw 55
Retlw 48
Le@lb7
F1_000060 equ $ ; in [YAZV2.BAS] LOOKUP Z,[63,6,91,79,102,109,125,7,127,111,65,110,121,55,48],SAYI4
Movf _Z,W
Sublw 14
Btfss STATUS,0
Goto Le@lb10
Call l@lb12
Movwf SAYI4
Goto Le@lb10
l@lb12
Movlw ((lk@lb11 >> 8) & 255)
Movwf PCLATH
Movf _Z,W
if($ >> 8) != (($ + 15) >> 8)
Goto so@lb16
Org (($ + 255) & 65280)
so@lb16
endif
Addwf PCL,F
lk@lb11
Retlw 63
Retlw 6
Retlw 91
Retlw 79
Retlw 102
Retlw 109
Retlw 125
Retlw 7
Retlw 127
Retlw 111
Retlw 65
Retlw 110
Retlw 121
Retlw 55
Retlw 48
Le@lb10
F1_000061 equ $ ; in [YAZV2.BAS] GOTO BASLA
Goto BASLA
F1_EOF equ $ ; YAZV2.BAS
LIST
END

[serarslan52]

güzel bir devre kardeşim

[ALBAYRAK55]

Eyvallah sağolasın

[meftun]

Teşekkürler arkadaşım ödevini hallettiğine sevindim.

Devrede 74HC14 Sayıcı entegresi bulunmaktadır.

Demişsiniz 74hc14 entegresi içinde 6 adet değil kapısı bulunduran bir entegredir yani sayıcı entegresi değildir. Siz 74hc154 demek istediniz galiba.

[ALBAYRAK55]

Teşekkürler arkadaşım ödevini hallettiğine sevindim.

Demişsiniz 74hc14 entegresi içinde 6 adet değil kapısı bulunduran bir entegredir yani sayıcı entegresi değildir. Siz 74hc154 demek istediniz galiba.

Kullandığım entegre 74HC14 datasheeti hakkında fazla bir bilgim yok ama düşüncem displayin sürücü entegresıdır foto diyotlardan gelen 1 ve 0 ları değerlendiriyordur muhtemelen.

[meftun]

Şimdi oldu sayılır. Foto diyotlardan anolog bilgi gelir. 74hc14 sayesinde belli bir gerilimin altındakiler 0v, belli bir gerilimin üstündekiler 5v olarak değerlendirilir. Yani süzgeç gibi diyebiliriz. Bu entegre sensör okumak için bire bir. Ha şunu yazmayı unutmuşum bu entegrenin asıl işi not kapsıdır. Girişe uygulanan anolog sinyali hem dijitale çevirir hem tersler + giriyorsa - çıkar, - giriyorsa + çıkar.

[ALBAYRAK55]

Devre denenmiştir sorunsuz çalısmaktadır.3 Tane yapdım üçüde hiç uğraştırmadı

[jra]

kardesım ben alıcıları gormedım yardımcı olurmusun butonların yerıne mı koycam

[jra]

kardesım ben alıcıları gormedım yardımcı olurmusun butonların yerıne mı koycam

isi devresini tam anlayamadım yardımcı olurmusun

[jra]

Rica etsem mazeme listesinide verrmisin

[eşsizaykut]

oncelıkle elıne saglık usta başarılı daha da gelıstırılebılır dıye dusunuyom ve dırek sorumda su oluyor bu devrede sensorlerı çoğaltıp örneğin turnike sistemi tasarlanabılırmı?