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

tcrymz

Üye
Katılım
26 Şub 2018
Mesajlar
1
Puanları
1
Yaş
27
devre şeması: (hata olabilir ama bulamadım)
upload_2018-3-13_14-36-51.png

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
 

Forum istatistikleri

Konular
127,956
Mesajlar
913,899
Kullanıcılar
449,606
Son üye
rasit.

Yeni konular

Geri
Üst