TRISA=1
TRISB=0
;K5 SAĞ MOTORU YUZDE 20 İLE CALISTIRIYOR
BASLA: ;K4 SAĞ MOTORU YUZDE 50 İLE CALISTIRIYOR
PORTA=0 ;K6 SAĞ SOL MOTORU YUZDE 100 İLE CALISTIRIYOR
PORTB=0 ;K3 SOL MOTORU YUZDE 20 DEVİR İLE CALISTIRIYOR
IF PORTA.2=1 THEN ;K7 SOL MOTORU YUZDE 50 DEVİR İLE CALISTIRIYOR
PORTB.0=1
PORTB.2=1
GOTO K1
ELSE
GOTO BASLA
ENDIF
;MOTOR BASLANGICI
K1:
PORTB.0=1
PORTB.2=1

IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K1
ENDIF
ENDIF
ENDIF
ENDIF


K4: ; SAG MOTORU YARIM DEVİRDE DONDURME
PORTB.0=1
PAUSEUS 3750
PORTB.0=0
PAUSEUS 3750


IF PORTA.0=1 THEN
GOTO K5

ELSE

IF PORTA.3=1 THEN
GOTO K3
ELSE
IF PORTA.4=1 THEN
GOTO K7
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
GOTO K4


ENDIF
ENDIF
ENDIF
ENDIF


K6: ;SAG SOL MOTORU TAM DEVİRDE DONDURME
PORTB.0=1
PORTB.2=1
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.3=1 THEN
GOTO K3
ELSE
IF PORTA.4=1 THEN
GOTO K7
ELSE
GOTO K6
ENDIF
ENDIF
ENDIF
ENDIF




K7: ;SOL MOTORU YUZDE 50 İLE CALISTIRMA
PORTB.2=1
PAUSEUS 3750
PORTB.2=0
PAUSEUS 3750
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K7
ENDIF
ENDIF
ENDIF
ENDIF



K5: ;SAG MOTORU YUZDE 20 İLE DONDURME
PORTB.0=1
PAUSEUS 1500
PORTB.0=0
PAUSEUS 6000
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
IF PORTA.4=1 THEN
GOTO K3
ELSE
GOTO K5
ENDIF
ENDIF
ENDIF
ENDIF
K3: ;SOL MOTORU YUZDE 20 İLE CALIŞTIRMA
PORTB.2=1
PAUSEUS 1500
PORTB.2=0
PAUSEUS 6000
IF PORTA.0=1 THEN
GOTO K5
ELSE
IF PORTA.1=1 THEN
GOTO K4
ELSE
IF PORTA.2=1 THEN
GOTO K6
ELSE
IF PORTA.3=1 THEN
GOTO K7
ELSE
GOTO K3
ENDIF
ENDIF
ENDIF
ENDIF



END

kodda bir sıkıntı varmı bakarmsınıız
__________________