erolcom06
Üye
- Katılım
- 11 Kas 2012
- Mesajlar
- 27
- Puanları
- 1
- Yaş
- 43
Merhaba arkadaşlar pıc 16f84a ile yaptığım devre gayet güzel çalışıyor ancak ledler sönmüyor ve başa geldiğinde ufak 1 den 2 ye atlama yaparak geçiyor bunun sebebi nedir teşekkürler
[video=youtube;MABBcKoj4KY]https://www.youtube.com/watch?v=MABBcKoj4KY[/video]
LIST P=16F84A
INCLUDE "P16F84A.INC"
SAYACl EQU h'0C'
SAYAC2 EQU h'0D'
CLRF PORTB ; portb sifirlaniyor
BCF STATUS, 0 ;Carry flag'isifirla
BSF STATUS, 5 ;bank1 yani 2. banka geçiliyor
CLRF TRISB ;b portu çikis olarak ayarlaniyor
BCF STATUS, 5 ;bank0 a yani 1. banka geçiliyor
MOVLW h'01' ;b'0000000l' sayisiniW'ye yükle
MOVWF PORTB ;W registerini PortB'ye yükle
SOL CALL GECIKME ;Gecikme yap
RLF PORTB, F ;PortB'deki veriyi sola kaydir.
BTFSS PORTB, 7 ;PortB 7. Bit 1 mi?
GOTO SOL ;Hayir, sola kaydir.
SAG CALL GECIKME ;Gecikme yap
RRF PORTB, F ;PortB'deki veriyi saga kaydir.
BTFSS PORTB, 0 ;PortB 0. Bit 1 mi?
GOTO SAG ;Hayir, saga kaydir
GOTO SOL ;Evet, sola kaydir.
GECIKME ;Gecikme alt programi
MOVLW h'FF'
MOVWF SAYACl
DONGUl
MOVLW h'FF'
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2, F
GOTO DONGU2
DECFSZ SAYACl, F
GOTO DONGUl
RETURN
END
[video=youtube;MABBcKoj4KY]https://www.youtube.com/watch?v=MABBcKoj4KY[/video]
LIST P=16F84A
INCLUDE "P16F84A.INC"
SAYACl EQU h'0C'
SAYAC2 EQU h'0D'
CLRF PORTB ; portb sifirlaniyor
BCF STATUS, 0 ;Carry flag'isifirla
BSF STATUS, 5 ;bank1 yani 2. banka geçiliyor
CLRF TRISB ;b portu çikis olarak ayarlaniyor
BCF STATUS, 5 ;bank0 a yani 1. banka geçiliyor
MOVLW h'01' ;b'0000000l' sayisiniW'ye yükle
MOVWF PORTB ;W registerini PortB'ye yükle
SOL CALL GECIKME ;Gecikme yap
RLF PORTB, F ;PortB'deki veriyi sola kaydir.
BTFSS PORTB, 7 ;PortB 7. Bit 1 mi?
GOTO SOL ;Hayir, sola kaydir.
SAG CALL GECIKME ;Gecikme yap
RRF PORTB, F ;PortB'deki veriyi saga kaydir.
BTFSS PORTB, 0 ;PortB 0. Bit 1 mi?
GOTO SAG ;Hayir, saga kaydir
GOTO SOL ;Evet, sola kaydir.
GECIKME ;Gecikme alt programi
MOVLW h'FF'
MOVWF SAYACl
DONGUl
MOVLW h'FF'
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2, F
GOTO DONGU2
DECFSZ SAYACl, F
GOTO DONGUl
RETURN
END