Tekil Mesaj gösterimi
Alt 23. August 2012, 11:27 PM   #3 (permalink)
muratyamak10
Amatör
 
Üyelik tarihi: Jun 2008
Mesajlar: 1
Thumbs up Cevap: PIC16F84 ile Yapılmış Basılan Tuşa Karşılık Gelen Ledi Yakma Uygulaması

hangi led yanıyorsa butona devamlı basınca o led yanık kalır
list p=16f84A/pic tanıtılıyor
#include "p16f84A.inc"/kütüphane dosyası ekleniyor
sayac1 equ h'0C'/ramde değişken tanımı yapılıyor
sayac2 equ h'0D'/ramde değişken tanımı yapılıyor
clrf PORTB/b portu siliniyor
bcf STATUS0/elde biti siliniyor
bsf STATUS5/bank 1'e geçiliyor
clrf TRISB/portb çıkış yapılıyor
bcf STATUS5/bank 0'a geçiliyor

basla
movlw h'01'/w'ye 01 atanıyor
movwf PORTB/bu değer portb'de
TEKRAR
call gecikme/gecikme altprogramı çağırılıyor
rlf PORTBF/portb bir bit sola kaydırılıyor
btfss STATUS0/elde biti test ediliyor
test
btfss PORTA1/port a'daki buton test ediliyor buton basılımı
goto test/basılı
goto TEKRAR/basılı değil
sekiz
btfss PORTB7/portb 7.bit test ediliyor
goto bir/diğer bit test ediliyor
bsf PORTB7/portb 7.bit 1 yapılıyor
bir
btfss PORTB6/portb 6.bit test ediliyor
goto iki//diğer bit test ediliyor
bsf PORTB6/portb 6.bit bir yapılıyor
iki
btfss PORTB5/portb 5.bit test ediliyor
goto uc/diğer bit test ediliyor
bsf PORTB5//portb 5.bit bir yapılıyor

uc
btfss PORTB4/portb 4.bit test ediliyor
goto dort/diğer bit test ediliyor
bsf PORTB4//portb 4.bit bir yapılıyor
dort
btfss PORTB3/portb 3.bit test ediliyor
goto bes/diğer bit test ediliyor
bsf PORTB3//portb 3.bit bir yapılıyor
bes
btfss PORTB2/portb 2.bit test ediliyor
goto alti/diğer bit test ediliyor
bsf PORTB2//portb 2.bit bir yapılıyor
alti
btfss PORTB1/portb 1.bit test ediliyor
goto yedi/diğer bit test ediliyor
bsf PORTB1//portb 1.bit bir yapılıyor
yedi
btfss PORTB0/portb 0.bit test ediliyor
goto sekiz/diğer bit test ediliyor
bsf PORTB0//portb 0.bit bir yapılıyor
goto sekiz





DONGU /gecikme alt programı
goto DONGU
gecikme
movlw h'FF'
movwf sayac1/sayac1
dongu1
movlw h'FF'
movwf sayac2/sayac2
dongu2
decfsz sayac2F/sayac 1 azaltılıyor sıfır olup olmadığına bakılıyor
goto dongu2/sayac sıfır değil
decfsz sayac1F/sayac 1 azaltılıyor sıfır olup olmadığına bakılıyor
goto dongu1/sayac sıfır değil
return
end
sormak istediğiniz bir şey olursa [email protected] yada [email protected] asorabilirsiniz.

Konu muratyamak10 tarafından (23. August 2012 Saat 11:48 PM ) değiştirilmiştir.
muratyamak10 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla