(16f876 )pic basic pro ile asansör devresi yardım!

[tcrymz]

devre şeması: (hata olabilir ama bulamadım)

program hatalı ama hatayı bulamadım)

'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2018 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 6.03.2018 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************

@ __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF& _DEBUG_ON & _CPD_OFF


TRISA=%11111100
TRISB=%10010000
TRISC=%00000000

SYMBOL ALTCNY=PORTA.2
SYMBOL ORTACNY=PORTA.3
SYMBOL USTCNY=PORTA.4
SYMBOL ALTBTN=PORTA.5
SYMBOL ORTABTN=PORTB.7
SYMBOL USTBTN=PORTB.4
SYMBOL MOTORI=PORTA.0
SYMBOL MOTORI2=PORTC.2
SYMBOL MOTORG=PORTA.1
SYMBOL MOTORG2=PORTC.3
SYMBOL LEDR=PORTB.3
SYMBOL LEDY=PORTB.2

PORTA=0
PORTB=0
PORTC=0

ANA:
IF ALTBTN=1 THEN goto ALT
IF ORTABTN=1 THEN goto ORTA
IF USTBTN=1 THEN goto UST
IF ALTBTN=0 AND ORTABTN=0 AND USTBTN=0 THEN goto YAK


ALT:
IF ALTCNY=1 THEN goto ANA
IF ALTCNY=0 THEN goto ASAGIA


ORTA:
IF ORTACNY=1 THEN goto ANA
IF ORTACNY=0 THEN goto A2

UST:
IF USTCNY=1 THEN goto ANA
IF USTCNY=0 THEN goto YUKARIU


A2:
IF ALTCNY=1 THEN goto YUKARIO
IF USTCNY=1 THEN goto ASAGIO
HIGH LEDR
LOW LEDY
PAUSE 4000
GOTO ANA
YAK:
HIGH LEDY
LOW LEDR
PAUSE 4000
GOTO ANA
YUKARIO:

HIGH MOTORI
HIGH MOTORI2
LOW MOTORG
LOW MOTORG2
PAUSE 4000
IF ORTACNY=1 THEN goto DUR
HIGH LEDR
LOW LEDY
PAUSE 4000
GOTO ANA

YUKARIU:
HIGH MOTORI
HIGH MOTORI2
LOW MOTORG
LOW MOTORG2
PAUSE 4000
IF USTCNY=1 THEN goto DUR
HIGH LEDR
LOW LEDY
PAUSE 4000
GOTO ANA

ASAGIO:

HIGH MOTORG
HIGH MOTORG2
LOW MOTORI
LOW MOTORI2
PAUSE 4000
IF ORTACNY=1 THEN goto DUR
HIGH LEDR
LOW LEDY
PAUSE 4000
GOTO ANA
ASAGIA:
HIGH MOTORG
HIGH MOTORG2
LOW MOTORI
LOW MOTORI2
PAUSE 4000
IF ALTCNY=1 THEN goto DUR
HIGH LEDR
LOW LEDY
PAUSE 4000
GOTO ANA
DUR:

LOW MOTORG
LOW MOTORG2
LOW MOTORI2
LOW MOTORI
LOW LEDR
LOW LEDY
PAUSE 4000
GOTO ANA
END