Proteus – Yanıp Sönen Led Sistemi

Yazar: | 5 Ağustos 2014

Bu makalede basit ama yararlı olacağını düşündüğüm bir projeyi sizinle paylaşacağım.  Proteus programında tasarımı yapılmıştır. Assembly ile kodları yazılmıştır. Kod ve tasarım dosyasını buradan indirebilirsiniz.

Yanın Sönen Led Sistemi

Kodlar:

;Tanımlamalar Yapılıyor
LIST p=16F877
INCLUDE “P16F877.INC”
SAYAC1 EQU H’20’
SAYAC2 EQU H’21’
CLRF PORTB
BSF STATUS,5
CLRF TRISB
BCF STATUS,5
BASLA
;Sola doğru sırasıyla ledleri yak
CLRF PORTB
CALL BEKLE1
BSF PORTB,0
CALL BEKLE1
BSF PORTB,1
CALL BEKLE1
BSF PORTB,2
CALL BEKLE1
BSF PORTB,3
CALL BEKLE1
BSF PORTB,4
CALL BEKLE1
BSF PORTB,5
CALL BEKLE1
BSF PORTB,6
CALL BEKLE1
BSF PORTB,7
CALL BEKLE1
;Sağa doğru sırasıyla ledleri söndür
CALL BEKLE1
BCF PORTB,7
CALL BEKLE1
BCF PORTB,6
CALL BEKLE1
BCF PORTB,5
CALL BEKLE1
BCF PORTB,4
CALL BEKLE1
BCF PORTB,3
CALL BEKLE1
BCF PORTB,2
CALL BEKLE1
BCF PORTB,1
CALL BEKLE1
BCF PORTB,0
CALL BEKLE1
;Hepsini Yak
MOVLW H’FF’
MOVWF PORTB
CALL BEKLE1
CALL BEKLE1
CALL BEKLE1
;Hepsini Söndür
CLRF PORTB
CALL BEKLE1
CALL BEKLE1
CALL BEKLE1
;Hepsini Yak
MOVLW H’FF’
MOVWF PORTB
CALL BEKLE1
CALL BEKLE1
CALL BEKLE1
;Hepsini Söndür
CLRF PORTB
CALL BEKLE1
CALL BEKLE1
CALL BEKLE1
GOTO BASLA

BEKLE1
MOVLW H’60’
MOVWF SAYAC1
DONGU1
MOVLW H’60’
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2,F
GOTO DONGU2
DECFSZ SAYAC1,F
GOTO DONGU1
RETURN
END

 

Bir Cevap Yazın

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