Pic Programlama Ders - 11

[SagoP@]

Uygulamalar: yanıp sönen led programı,komut deneme programları, 7 segment led uygulaması
UYGULAMALAR Bu yazimizda daha evvel gördügümüz komutlarla ilgili olarak yazilmis basit programlar verilecektir.
Burada kullanilan RLF komutu yerine RRF komutunu koyarak tekrar deneyiniz.

;yanip sönen led programi
;PortB ledlerini sira ile yakan program
;sira ile yanan ledler
;RLF KOMUTU KULLANILMISTIR
LIST P=16F84 INCLUDE "P16F84A.INC" SAYAC1 EQU H'0C' SAYAC2 EQU H'0D'
SAYAC3 EQU H'0E'
BAS CLRF PORTB BCF STATUS, 0 BSF STATUS,5 CLRF TRISB BCF STATUS, 5 MOVLW B'00000001' MOVWF PORTB ;port b nin ilk bitini yak TEKRAR CALL GECIKME ;gecikme döngüsüne gir RLF PORTB, F ;port b yi sola kaydir BTFSS STATUS, 0 ;carry flag 1 ise atla GOTO TEKRAR ;carry flag 1 degilse tekrara git GOTO BAS GECIKME MOVLW D'5' MOVWF SAYAC1 DON1 MOVLW D'250' MOVWF SAYAC2 DON2 MOVLW D'250' MOVWF SAYAC3 DON3 DECFSZ SAYAC3, F GOTO DON3 DECFSZ SAYAC2, F
GOTO DON2 DECFSZ SAYAC1, F GOTO DON1 RETURN END .
.
;Deneme program
;COMF KOMUTU
;port b ye bagli 8 ledin yanip sönmesi (comf komutu ile)
LIST P=16F84 INCLUDE "P16F84A.INC" BAS CLRF PORTB ;Port b cikisleri low(sonuk) BSF STATUS, 5 ;Bank 1'e gec CLRF TRISB ;Port B yi çikis pozisyonuna getir BCF STATUS, 5 ;Bank 0 'a gel MOVLW B'11111111' ;write registere bu degeri ata MOVWF PORTB ;portb ye degeri uygula CALL GECIKME ;gecikme döngüsüne git COMF PORTB, F ;portb de bitleri sirayla 0 ve 1 yap CALL GECIKME GOTO BAS GECIKME MOVLW D'255' MOVWF SAYAC1 DON1 MOVLW D'255' MOVWF SAYAC2 DON2 DECFSZ SAYAC2,F GOTO DON2 DECFSZ SAYAC1, F GOTO DON1 RETURN END
.
.
.
;Deneme program
;SWAPF KOMUTU
;port b ye bagli 8 ledin sag sol 4 ledin yer degistirmesi
LIST P=16F84 INCLUDE "P16F84A.INC" SAYAC1 EQU H'0C' SAYAC2 EQU H'0D'
BAS CLRF PORTB BSF STATUS,5 CLRF TRISB BCF STATUS, 5 MOVLW B'00001111' MOVWF PORTB ;port b nin ilk bitini yak CALL GECIKME ;gecikme döngüsüne git SWAPF PORTB, F ;portb de bitleri sirayla 0 ve 1 yap CALL GECIKME GOTO BAS GECIKME MOVLW D'255' MOVWF SAYAC1 DON1 MOVLW D'255' MOVWF SAYAC2 DON2 DECFSZ SAYAC2,F GOTO DON2 DECFSZ SAYAC1, F GOTO DON1 RETURN END ;döngü ile ilgili bir program denemesi
;karasimsek
;PortB ye bagli ledler saga sola yanar
LIST P=16F84 INCLUDE "P16F84A.INC"
SAYAC1
SAYAC2
SAYAC3

EQU
EQU
EQU
H'0C'
H'0D'
H'0E' CLRF PORTB BCF STATUS,0 BSF STATUS,5 CLRF TRISB BCF STATUS, 5 MOVLW B'00000001' MOVWF PORTB ;port b nin ilk bitini yak CALL GECIKME ;gecikme döngüsüne git RLF PORTB,F ;port b yi sola kaydÝr BTFSS PORTB, 7 ;7. bit 1 ise atla GOTO SOL SAG CALL GECIKME RRF PORTB,F ;port b ye atanan degerleri saga kaydir BTFSS PORTB, 0 ;0 . bit 1 ise bir komut atla GOTO SAG ;0. bit 1 deðilse sag etikete git GOTO SOL GECIKME MOVLW D'5' MOVWF SAYAC1 DON1 MOVLW D'250' MOVWF SAYAC2 DON2 MOVLW D'250' MOVWF SAYAC3 DON3 DECFSZ SAYAC3, F GOTO DON3 DECFSZ SAYAC2, F
GOTO DON2 DECFSZ SAYAC1, F GOTO DON1 RETURN END
;Deneme program
;SEVEN SEGMENT
LIST P=16F84 INCLUDE "P16F84A.INC"
SAYAC1
SAYAC2
SAYAC3

EQU
EQU
EQU
H'0C'
H'0D'
H'0E' CLRF PORTB ;Port b cikislari low (sönük) BSF STATUS,5 ;Bank 1'e gec CLRF TRISB ;Port B yi cikis pozisyonuna getir BCF STATUS,5 ;Bank 0 'a gel BSF PORTB,0 ;RB0 daki led 'i yak BASLA MOVLW H'00' MOVWF SAYAC4 DONGU MOVF SAYAC4,W ANDLW B'00001111' CALL _7SEG MOVWF PORTB INCF SAYAC4,F CALL GECIKME GOTO DONGU _7SEG ADDWF PCL,F RETLW H'3F' RETLW H'06' RETLW H'5B' RETLW H'4F' RETLW H'66' RETLW H'6D' RETLW H'7D' RETLW H'07' RETLW H'7F' RETLW H'6F' RETLW H'77' RETLW H'7C' RETLW H'39' RETLW H5E'' RETLW H'79' RETLW H'71' GECIKME MOVLW D'5' MOVWF SAYAC1 DON1 MOVLW D'250' MOVWF SAYAC2 DON2 MOVLW D'250' MOVWF SAYAC3 DON3 DECFSZ SAYAC3, F GOTO DON3 DECFSZ SAYAC2, F
GOTO DON2 DECFSZ SAYAC1, F GOTO DON1 RETURN END
son program ile ilgili komutlari ileriki yazilarimizda anlatacagiz.