proyectos productivos

ELEVADOR DE 3 NIVELES
Esta aplicación más seria un elevador de 3 pisos que empieza en un sótano y subirá de piso en piso en forma ascendente del 1 al 2 y del 2 al 3 y en la misma forma endescender(3-2-1), los botones de llamada son: Rb0=piso1
Rb1=piso2
Rb2=piso3
y los stop finales de carrera ubicados en su piso correspondiente:
Rb5=piso1
Rb6=piso2
Rb7=piso3
todos los botonespulsadores de llamada y finales de carrera (o sensor magnetico) normalmente conectados a tierra, el motor usado es de corriente continua y se usa el Ra2 y Ra1 como salidas para el motor DC, sin más que decirvamos al programa principal.

;ELEVADOR DE 3 NIVELES

INCLUDE "P16F84A.INC"
ORG 0X00
BSF STATUS,5
CLRF PORTA ;puerto A es de salida
MOVLW B'11111111'
MOVWF TRISB ;puerto B es entrada desensores
BCF STATUS,5
CLRF PORTB

;programa principal

INICIO
SUBEPISO1 BTFSS PORTB,0
GOTO SUBEPISO1
CALL SUBE
STOP1 BTFSS PORTB,5
GOTO STOP1
CALL STOP
SUBEPISO2 BTFSS PORTB,1
GOTO SUBEPISO2CALL SUBE
STOP2 BTFSS PORTB,6
GOTO STOP2
CALL STOP
SUBEPISO3 BTFSS PORTB,2
GOTO SUBEPISO3
CALL SUBE
STOP3 BTFSS PORTB,7
GOTO STOP3
CALL STOP

BAJAPISO2 BTFSS PORTB,1
GOTO BAJAPISO2
CALLBAJA
PARADA2 BTFSS PORTB,6
GOTO PARADA2
CALL STOP
BAJAPISO1 BTFSS PORTB,0
GOTO BAJAPISO1
CALL BAJA
PARADA1 BTFSS PORTB,5
GOTO PARADA1
CALL STOP
GOTO INICIO

;Subrutinas de stop, bajada ysubida de motor

STOP MOVLW B'00000000'
MOVWF PORTA
RETURN
SUBE MOVLW B'00000010'
MOVWF PORTA
RETURN
BAJA MOVLW B'00000100'
MOVWF PORTA
RETURN
END

A pedido de muchos lectores aquí les dejoel link para descargar el archivo HEX, probado y comprobado
http://www.4shared.com/file/yZXHAim-/elevador3.html
Aquí una maqueta sugerida de un elevador de 3 niveles, con pulsadores de llamadatanto de la cabina como del panel frontal para poder llamarlo desde las 2 posiciones, para esto solo colocamos en paralelo otro pulsador en paralelo para cada piso desde Rb0 a Rb2.


ETAPA DE...