ELEVADOR DE 3 NIVELES

Esta aplicacion mas seria un elevador de 3 pisos que empieza en un sotano y subira de piso en piso en forma ascendente del 1 al 2 y del 2 al 3 y en la misma forma en descender(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 botones pulsadores 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 mas que decir vamos 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 de sensores
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 SUBEPISO2
                      CALL 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
                      CALL BAJA
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 y subida 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 aqui les dejo el link para descargar el archivo HEX, probado y comprobado
http://www.4shared.com/file/yZXHAim-/elevador3.html
Aqui una maqueta sugerida de un elevador de 3 niveles, con pulsadores de llamada tanto 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 POTENCIA PARA MOTOR dC
Para el motor DC hacemos un puente H con  transistores 2n3904 para motores pequeños  y los cambian por tip41 si usan  motores DC mas grandes. Conectar la salida  Ra1 y Ra2 del PIC a la entrada del puente H (izquierda y derecha), los diodos d1-d4 son de proteccion contra chispazos que produce el motor DC.
Si es posible prueben el puente H solo para ver si sus entradas son excitadas con 0 y 5 voltios, generalmente los TIP41 necesitan mas corriente que la que genera un pic, lo mejor es usar darlingtongs y solucionamos el problema.

Para un ascensor de 4 pisos (que sube y baja a cualquier piso) el programa  en asembler seria muy extenso y engorroso, por eso hice el programa en  PICBASICPRO y lo pueden ver en mi pagina
http://www.proyectoselectronicoos.blogspot.com/  ascensor de 4 pisos con picbasic.

CONTROL PUERTA DE GARAGE CON PAP

El control se hara con un motor PAP  unipolar por ser de la velocidad adecuada para abrir y cerrar el porton , al cual le colocaremos finales de carrera para detener la abrida o cerrada de la puerta.

El programa sera para el circuito siguiente donde en vez de relays  empleamos el ULN2803 como driver para el PAP conectando  Rb1, Rb2, Rb3 y Rb4  a las entradas del uln2803, y las salidas del uln2803 al motor pap unipolar. Rb5 colocar un led que indicara solo la subida (se enciende) y la bajada (apagado)

INCLUDE "P16F84A.INC"

REG1 EQU 0X0C                          ; Registro para hacer  un retardo
REG2 EQU 0X0D                         ; Registro para hacer  un retardo

; ***Configuracion de puertos******
ORG    0X00
BSF STATUS,5
CLRF PORTB                              ; Puerto B es de salida
MOVLW B'11111111'          
MOVWF TRISA                         ; Puerto A es de entrada de sensores
BCF STATUS,5

; *****Programa principal**********

INICIO         BTFSS PORTA,3               ;espero llamada RA3 para abrir la puerta
                     GOTO INICIO
ABRIENDO  CALL ABRIR                       ; subrutina abrir
                     BTFSS PORTA,1                ;chequea swicht de stop de abrir
                     GOTO ABRIENDO 
                     CALL STOP
ESPERA1    BTFSS PORTA,0              ; espero llamada RA2 para cerrar puerta
                     GOTO ESPERA1
CERRANDO  CALL CERRAR              ;subrutina de cerrar
                     BTFSS PORTA,2              ;chequea swicht de stop de cerrar
                    GOTO CERRANDO
                    CALL STOP
                    GOTO INICIO

; ******Parada del motor PAP********

STOP    MOVLW B'00000000'
              MOVWF PORTB
              RETURN

; *****Secuencia pasos de subida de motor PAP****

ABRIR    MOVLW B'00110000'     
               MOVWF PORTB
               CALL     RETARDO                          
                MOVLW B'00101000'
                MOVWF PORTB
                CALL RETARDO
               MOVLW B'00100100'
               MOVWF PORTB
               CALL RETARDO
               MOVLW B'001000010'
               MOVWF PORTB
               CALL RETARDO
               RETURN
; *****Secuencia pasos de subida de motor PAP****

CERRAR  MOVLW B'00000010' 
                 MOVWF PORTB
                 CALL RETARDO 
                 MOVLW B'00000100'
                 MOVWF PORTB
                 CALL RETARDO
                 MOVLW B'00001000'
                 MOVWF PORTB
                 CALL RETARDO
                 MOVLW B'00010000'
                 MOVWF PORTB
                 CALL RETARDO
                 RETURN

; *****Secuencia de retardo*********RETARDO  MOVLW 60                 
                     MOVWF REG1               
         DOS   MOVLW 60
                    MOVWF REG2
          UNO  DECFSZ REG2,1
                     GOTO UNO
                     DECFSZ REG1,1
                    GOTO DOS
                     RETURN
                     END                              ; fin

Aqui tienen el archivo HEX. del proyecto probado, lo  pueden bajare del siguiente link:
http://www.4shared.com/file/dBXkgKG4/puertagaraje.html