hobby3232
Üye
- Katılım
- 21 Mar 2011
- Mesajlar
- 20
- Puanları
- 1
merhabalar
bitane sorum var cevabını yaptım ama doğruluğundan emin değilim bilen arkadaşlar varsa bakabilirlermi sınavda bu soru çıkıcak büyük bir ihtimalle yardım ederseniz çok sevinirim
SORU
portA nın birinci bitine bağlı butona basılı tutulduğu sürece portB deki bütün ledlerin yanıp sönmesini portA nın ikinci(2.) bitine bağlı butona basılı tutulduğu sürece 7segment dısplayer da 1 degeerinin gözükmesini ve hiçbir butona basmadığımızda portB nin sadece sıfırıncı(0.)
bitine bağlı ledin yanmasını sağlayan programı yazınız ?*
CEVAP:
Kod:
LIST P=16F84A
INCLUDE "P16F84A.INC"
SAYAÇ1 EQU H'0C'
SAYAÇ2 EQU H'0D'
BSF STATUS,5
MOVLW H'FF'
MOVWF TRISA
CLRF TRISB
BCF STATUS,5
TEST
BTFSS PORTA,1
GOTO LED
NOP
BTFSS PORTA,2
GOTO SEC
NOP
BSF PORTB,0
GOTO TEST
LED
MOVLW H'FF'
MOVWF PORTB
CALL GECIKME
MOVLW H'00'
MOVWF PORTB
CALL GECIKME
GOTO TEST
SEC
MOVLW H'00'
CALL CEV_TAB
MOVWF PORTB
CALL GECIKME
MOVLW H'00'
MOVWF PORTB
GOTO TEST
CEV_TAB
ADDWF PLC,.F
RETLW B'00111111'
RETLW B'00000110'
GECIKME
MOVLW H'FF'
MOVWF SAYAÇ1
DONGU1
MOVLW H'FF'
MOVWF SAYAÇ2
DONGU2
DECFSZ SAYAÇ2,F
GOTO DONGU2
DECFSZ SAYAÇ1,F
GOTO DONGU1
RETURN
END
bitane sorum var cevabını yaptım ama doğruluğundan emin değilim bilen arkadaşlar varsa bakabilirlermi sınavda bu soru çıkıcak büyük bir ihtimalle yardım ederseniz çok sevinirim
SORU
portA nın birinci bitine bağlı butona basılı tutulduğu sürece portB deki bütün ledlerin yanıp sönmesini portA nın ikinci(2.) bitine bağlı butona basılı tutulduğu sürece 7segment dısplayer da 1 degeerinin gözükmesini ve hiçbir butona basmadığımızda portB nin sadece sıfırıncı(0.)
bitine bağlı ledin yanmasını sağlayan programı yazınız ?*
CEVAP:
Kod:
LIST P=16F84A
INCLUDE "P16F84A.INC"
SAYAÇ1 EQU H'0C'
SAYAÇ2 EQU H'0D'
BSF STATUS,5
MOVLW H'FF'
MOVWF TRISA
CLRF TRISB
BCF STATUS,5
TEST
BTFSS PORTA,1
GOTO LED
NOP
BTFSS PORTA,2
GOTO SEC
NOP
BSF PORTB,0
GOTO TEST
LED
MOVLW H'FF'
MOVWF PORTB
CALL GECIKME
MOVLW H'00'
MOVWF PORTB
CALL GECIKME
GOTO TEST
SEC
MOVLW H'00'
CALL CEV_TAB
MOVWF PORTB
CALL GECIKME
MOVLW H'00'
MOVWF PORTB
GOTO TEST
CEV_TAB
ADDWF PLC,.F
RETLW B'00111111'
RETLW B'00000110'
GECIKME
MOVLW H'FF'
MOVWF SAYAÇ1
DONGU1
MOVLW H'FF'
MOVWF SAYAÇ2
DONGU2
DECFSZ SAYAÇ2,F
GOTO DONGU2
DECFSZ SAYAÇ1,F
GOTO DONGU1
RETURN
END