Proyecto 1. Elevador de Paletas

1.ELEVADOR DE CAJAS Y DISTINCIÓN DE COLOR MOSTRADO EN PANTALLA LCD

Este proyecto de tecnología consiste en automatizar un elevador de paletas para que suba una serie de cajas y nos indique el color de las mismas.

Ganador del concurso mensual de la página oficial Picaxe. Diciembre 2013. www.picaxe.com

Enlace a la página del concurso: Elevador de paletas

Para ello dispone de un sensor de distancia digital que nos permitirá averiguar cuando está llegando la caja.

Al mismo tiempo hay otro sensor de reflectancia analógico que mediante una variable b0 que hemos programado, cambia su valor según el color de la caja.







Con esta valor podemos programar el mensaje que aparecerá en la pantalla LCD.

Todo esto va acompañado de un motorreductor con engranajes que podemos regular su velocidad gracias a la placa Picaxe

Todo ello programado mediante una placa picaxe y el chip 18M2.

Vídeo del funcionmiento del elevador

Algunos detalles constructivos del elevador:

Rodillos inferiores

 Código del programa:

'C.0  Detector de color
'pin5  Interruptor general
'pin6  sensor distancia (presencia)
'B.6 Motor directo porque da problemas LCD al conectar motor
'B.7 Pantalla LCD

inicio:
if pin5=1 then goto encendermotor
if pin5=0 then goto inicio

apagarmotor:
low B.6
serout B.7,n2400,(254,1)
pwmout B.6, off 'apagar motor
goto inicio

encendermotor:
high B.6
pwmout B.6,99,280; regular motor 70

pantalla:
serout B.7,n2400,(254,128);                   
pause 30
serout B.7,n2400,(254,1)
serout B.7,n2400,( "Esperando...")

deteccion:
if pin5=0 then goto apagarmotor
if pin6=1 then goto deteccion  'No hay nada
if pin6=0 then goto color  'Detecta pieza

color:
 readadc 0, b0
 debug b0                                 
 if b0<38 then goto cajablanca
 if b0>38 then goto cajanegra

cajablanca:
serout B.7,n2400,(254,128);                    Borrar pantalla
pause 30
serout B.7,n2400,(254,1)                    'limpiar pantalla
serout B.7,n2400,( "Caja Blanca")
pause 3000
if pin5=0 then goto apagarmotor
goto pantalla

cajanegra:
serout B.7,n2400,(254,128);                 limpiar pantalla
pause 30
serout B.7,n2400,(254,1)
serout B.7,n2400,( "Caja Negra")
pause 3000
if pin5=0 then goto apagarmotor
goto pantalla