Şimdi Ara

16F84 buton

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
1
Cevap
0
Favori
623
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • merhaba arkadaşlar

    benim sorun şu port A da bulunan 4 buton var.bu butonlara hangisine bastığımda o buton (RA0 ,..,RA4) ait komutlar çağrılarak portB'deki ledler (8 led) yanacak.böyle bir devre yapmaya çalışıyorum..kodlarıda aşağıda verdim.bu kodlar kara şimşek devresi..devreye enerji verildiğinde ledler direk yanıyor. yani hiçbir butona basmıyorum...

    LIST P=16F84
    INCLUDE "P16F84A.INC"
    __CONFIG _CP_OFF &_WDT_OFF &_XT_OSC &_PWRTE_ON
    ORG 0X00
    SAYAC1 EQU H'0C'
    SAYAC2 EQU H'0D'
    SAYAC3 EQU H'0E'
    CLRF PORTA
    MOVLW h'00001111'
    MOVWF TRISA
    BSF STATUS,RP0
    CLRF TRISB
    BCF STATUS,5
    CLRF PORTB
    BAS BTFSS PORTA,0
    GOTO BAS
    MOVLW B'00000001'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00000010'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00000100'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00001000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00010000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00100000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'01000000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'10000000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'01000000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00100000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00010000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00001000'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00000100'
    MOVWF PORTB
    CALL GECIKME
    MOVLW B'00000010'
    MOVWF PORTB
    CALL GECIKME
    GOTO BAS
    GECIKME
    MOVLW D'1'
    MOVWF SAYAC1
    DON1
    MOVLW D'100'
    MOVWF SAYAC2
    DON2
    MOVLW D'150'
    MOVWF SAYAC3
    DON3

    DECFSZ SAYAC3,F
    GOTO DON3
    DECFSZ SAYAC2,F
    GOTO DON2
    DECFSZ SAYAC1,F
    GOTO DON1
    RETURN
    END







  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.