8-Pic-İki Butonla Çok Led Açma Kapatma

  b portunun 3 numaralı bacağına bağlı bir butonla porta ya bağlı bütün ledleri yakan ve b portunun 5 numaralı bacağına bağlı bir butonla a portuna bağlı bütün ledleri söndüren program 

LIST P=16F84

;**************************************************

STATUS EQU H'03'

PORTA EQU H'05'

PORTB EQU H'06'

TRISA EQU H'85'

TRISB EQU H'86'

CLRF PORTB

CLRF PORTA

;************************************************

BSF STATUS,5 ;bank 1 e geçiş yapıldı

CLRF TRISA ;a portu çıkış yapıldı

MOVLW H'FF' ;

MOVWF TRISB ;b portu giriş yapıldı

NOT

BSF               TRISB,3                          BSF               TRISB,5

BCF STATUS,5

;****************************************************

BASLA

BT1 BTFSS PORTB,3 ; portanın 2 numaralı bacağına bağlı butona basılmışsa potb,3 ‘e 5 volt ver

GOTO BT2

MOVLW B’11111111’

MOVWF PORTA ;portA ya bağlı ledleri yak

BT2 BTFSS PORTB,5 ; portanın 3 numaralı bacağına bağlı butona basılmışsa potb,3 ‘e0 volt ver

GOTO BT1

MOVLW B’00000000’

MOVWF PORTA ;portA ya bağlı ledleri SÖNDÜR

NOT:  YUKARIDAKİ İKİ SATIR İÇİN İKİ ALTERNATİF VAR BUNLAR AŞAĞIDAKİ GİBİDİR

CLRF     PORTA ; YALNIZ BU PROGRAMA UGUN OLĞU İÇİN KULLANILDI

YA DA

COMF    PORTA ; YALNIZ BU PROGRAMA UGUN OLĞU İÇİN KULLANILDI

GOTO BASLA

;******************************************************

END

Kaynaklar
[1] Bil386 Mikrobilgisayarlı Sistem Tasarımı
[2] http://www.biltek.tubitak.gov.tr/gelisim/elektronik/dosyalar/5/5.pdf (Haziran 2007)
[3] www.datasheetcatalog.com/datasheets_pdf/L/M/3/LM35DZ.shtml (Mayıs 2007)
[4] www.microchip.com