elektronikçi piçler pic programlam yardım

ra0 a basıp bırakınca rb0 ve rb 2 yancak
ra1 e basıca rb0 la rb2 sömüp rb 1 yancak

hadi baklım kodlayın panpalar acil lazım

up up up bu gece amelelermi burda aqq...

@3 yok panpa önemli amaaaa

up up up yok mu elektronikçi - otomasyoncu falan aqqq..

@6 way aq

bende unutmuşum.bi yerden başka bi kodu modifiye ettimm...

belki birine lazım olur...

LIST P=16F84
#include "P16F84.INC"
__CONFIG _WDT_OFF &_XT_OSC &_PWRTE_ON &_CP_OFF
LSB EQU H'20'
MSB EQU H'21'
;***
ORG 0X00
GOTO BASLA
;***
BEKLE
MOVLW .45
MOVWF LSB
DON1
MOVLW .95
MOVWF MSB
DON2
DECFSZ MSB,F
GOTO DON2
DECFSZ LSB,F
GOTO DON1
RETURN
;***

BASLA
CLRF MSB
CLRF LSB
BSF STATUS,5
MOVLW B'11111111'
MOVWF TRISA
CLRF TRISB
BCF STATUS,5
CLRF PORTB
;***
TEST
BTFSS PORTA,0
GOTO SAG
BTFSS PORTA,1
GOTO SOL
GOTO TEST
;***
SOL

MOVLW B'00000010'
MOVWF PORTB
CALL BEKLE
CLRF PORTB
BTFSS PORTA,0
GOTO SAG
GOTO SOL
;***
SAG

MOVLW B'00000101'
MOVWF PORTB
CALL BEKLE
CLRF PORTB
BTFSS PORTA,1
GOTO SOL
GOTO SAG

END

@11 ne alaka

@12 gerek yok zaten biliyom. bunu ben yazmadım step motor control coduydu modifiye ettim..
benim yazdığım buu

LIST P=16F84A
INCLUDE "P16F84.INC"

SAYAC1 EQU H'20' SAYAC2 EQU H'21'
CLRF PORTB
BSF STATUS,5
CLRF TRISB
MOVLW H'FF'
MOVWF TRISA
BCF STATUS,5

TEST
BTFSS PORTA,1
GOTO YESIL
GOTO MOTOR
BTFSS PORTA,1
GOTO KIRMIZI
BTFSS PORTA,0
GOTO TEST

YESIL
BTFSC PORTA,1
GOTO YESIL
MOVLW b'00000001'
MOVWF PORTB

MOTOR
BTFSC PORTA,1
GOTO MOTOR
MOVLW b'00000100'
MOVWF PORTB


KIRMIZI
BTFSC PORTA,1
GOTO KIRMIZI
MOVLW b'00000010'
MOVWF PORTB

END


tüm değişkenlerle oynadım ama hep bozuk çalışıyo neysee..

@16 ah bi hatırlasam yazmayıı panpa
lise biteli seneler oluyo pek ilgilenmedimm kodlarla bi kitap alım calışcam yine