Haz una pregunta
  Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

30/07/2012 #21

Avatar de tatajara

Mira no tengo nada en mis manos, ya que lo hicimos en la escuela y quedo todo allí, ni siquiera le tomamos fotos
Perdona por no poder darte más info, pero si tienes alguna duda que yo te pueda ayudar pregunta
Saludos
30/07/2012 #22

Avatar de romyggar

alexis487 dijo: Ver Mensaje
y tienes algun video o en planteamiento para poder verificarlo ya que yo empeze el mio y quisiera tener una idea de como seguirle ya que tiene q tener memoria por si se pulsa un boton del 2 piso y si ese esta en el primero pase al segundo y siga al 3 pèro si esta en el 1do y pulsan el 1 siga al 3 piso y de ahi baje??
Amigo alexis487.

Si eres tan amable de especificar mas claramente tu proyecto quizá te pueda ayudar un poco con el código. Pero es clave que no me pongas a descifrar jeroglíficos (al tratar de entender que es lo que buscas).

Estaré por acá todo el dia.
30/07/2012 #23

Avatar de DJ DRACO

El que inició el post ya no ha vuelto, y creo que se subieron bastante de tono algunos...

Estamos todos de acuerdo que para ciertos proyectos importa tanto lo mécanico, lo electrónico pero por sobretodo la seguridad

Un Ascensor justamente tiene los grados de seguridad más elevados...por ejemplo en tolerancia de peso...si un ascensor dice: carga máx 500Kg (por lo general se usan indices de seguridad de 15) o sea que puede tolerar hasta 7500Kg

Hay que tomar las cosas en serio siempre...por seguridad...por la vida.
25/10/2013 #24


romyggar dijo: Ver Mensaje
Amigo alexis487.

Si eres tan amable de especificar mas claramente tu proyecto quizá te pueda ayudar un poco con el código. Pero es clave que no me pongas a descifrar jeroglíficos (al tratar de entender que es lo que buscas).

Estaré por acá todo el dia.
este es mi codigo solo me falta las combinaciones y esta en el 1 piso bajar al 3 o al 2 piso....y al reves

ahi tiene las variables de llegada para saber en que piso se encuentra el ascensor.............


dato: no se si estara bien las ordenes del motor para subir o bajar........


Código:
'-----------------------PROYECTO ASCENSOR 5 PLANTAS-----------------------------
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 5

ADCON1 = %0110
I Var Byte 
TRISC = 0 
PORTC = 0

'-----------Constantes para definir en que piso se encuentra (llamada)----------
Uno CON %00000110
Dos CON %01011011
Tres CON %01001111
Cuatro CON %01100110
Cinco CON %01101101

'-------------------------PULSADORES ACCIONADOS POR CABINA----------------------
piso1 var porta.4
piso2 var porta.3
piso3 var porta.2
piso4 var porta.1
piso5 var porta.0
'------------------------------PULSADORES DE LLAMADA----------------------------
llama1 var portb.4
llama2 var portb.3
llama3 var portb.2
llama4 var portb.1
llama5 var portb.0
'------------------------------PULSADORES DE LLEGADA----------------------------
LLEGADA1 VAR PORTE.0
LLEGADA2 VAR PORTE.1
LLEGADA3 VAR PORTE.2
'--------------------------------SALIDAS DE MOTOR-------------------------------
bajar var portb.5
subir var portb.6

PAUSE 200
Lcdout $fe, 1 'Limpia la pantalla
lcdout $fe,2,"ASCENSOR 3 PISOS"
pause 2000
LCDOUT $fe,1
PORTC = uno 'empesamos por el primer piso
i = 1
lcdout $fe,2,"ESTADO ="
lcdout $fe,$c2,"PISO =",dec i 'aparece en el display y LCD
'************************************************* *********
inicio: 
if i = 1 then PORTC = uno
if i = 2 then PORTC = dos
if i = 3 then PORTC = tres
if piso1 = 0 then pisouno
if piso2 = 0 then pisodos
if piso3 = 0 then pisotres
if LLEGADA1 = 0 then pisouno1
if LLEGADA2 = 0 then pisodos2
if LLEGADA3 = 0 then pisotres3

goto inicio
'************************************************* *********
pisouno:
if piso1 = 0 and PORTC != uno then
i = 1 : gosub subeA : portc = i : gosub lcd

endif 
goto inicio
'************************************************* *********
pisodos:
if piso2 = 0 and portc != dos then
i = 2 : gosub subeA : portc = i : gosub lcd 
endif
goto inicio
'************************************************* *********
pisotres:
if piso3 = 0 and portc != tres then
i = 3 : gosub subeA : portc = i : gosub lcd 
endif
goto inicio
'************************************************* *********
este codigo hay que modificar para que cumpla las llamadas de los pisos... aki tengo el problema-.....

pisouno1:
if LLEGADA1 = 0 gosub bajaA 
endif 
goto inicio

pisodos2:
if LLEGADA2 = 0 and PORTC != DOS then
i = 2 : gosub bajaA : portc = i : gosub lcd
endif 
goto inicio

pisotres3:
if LLEGADA3 = 0 and PORTC != Tres then
i = 3 : gosub bajaA : portc = i : gosub lcd
endif 
goto inicio


'************************************************* *********
lcd:
lcdout $fe,$c2,"PISO = ",dec i
return
'************************************************* *********
bajaA:
high bajar
pause 1000
low bajar 
RETURN
'************************************************* *********
subeA:
high subir
pause 1000
low subir 
RETUrn
Archivos Adjuntos
Tipo de Archivo: rar ASCENSOR NUEVO.rar (8,4 KB (Kilobytes), 38 visitas)
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.