TODOPIC

Microcontroladores PIC => * PROYECTOS * => Mensaje iniciado por: todopic en 09 de Septiembre de 2010, 21:21:02

Título: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: todopic en 09 de Septiembre de 2010, 21:21:02
Hola Amigos, me han pedido que armara una matrícula o chapa patente para un vehiculo tuning, que emplearian en los concursos o exposiciones...
Es la firma del diseñador de autos, que empleando ArtCamam, perforamos con mecha de 3mm
Algo mas de 200 led azules, y 77 rojos... les dejo un videito, y todo lo necesario para armar ;-) :mrgreen:
Rufino, es una localidad, a unos 200km de mi ciudad...


Código: ASM
  1. ;***************************************************************************
  2. ;PROGRAMA DE SECUENCIADOR DE 6 CANALES DE EFECTOS
  3. ;PARA UNA CHAPA PATENTE ( MATRICULA ) DE UN AUTO TUNING
  4. ;TODOPIC - SEPTIEMBRE 2010
  5. ;***************************************************************************
  6.  
  7.  
  8.         list p=16f628a
  9.          #include p16f628a.inc
  10.         errorlevel -302,-307
  11.  
  12.         CBLOCK 20h
  13. tiempo
  14. temp
  15. CONTA
  16. TEMPORAL
  17.         endc
  18.  
  19.  
  20.  __CONFIG   _INTOSC_OSC_NOCLKOUT & _PWRTE_ON & _WDT_OFF & _CP_ON & _MCLRE_OFF & _BOREN_ON & _LVP_OFF & _DATA_CP_ON
  21.  
  22.         movlw .7
  23.         movwf CMCON
  24.         CLRF CONTA
  25.         bsf  STATUS,RP0
  26.         movlw B'00000000' ;PUERTOB
  27.         movwf TRISB       ;como salida
  28.         movlw B'11111111'
  29.          movwf TRISA       ;porta como
  30.         bcf  STATUS,RP0   ;entrada
  31.  
  32.  
  33.  
  34. ;*************************************************************************************************
  35. INICIO INCF CONTA,F
  36.          MOVF CONTA,W
  37.  
  38.         CALL letrademora
  39.  
  40.  
  41.          MOVWF PORTB
  42.         BCF  PORTB,0
  43.         BCF  PORTB,1
  44.  
  45.         ANDLW B'00000011' ;SELECCION DE 4 TIEMPOS DE DEMORA
  46.         MOVWF TEMPORAL    ;segun los valores , obtengo 4
  47.         ADDWF PCL,F     ; demoras en los efectos
  48.         GOTO CERO
  49.         GOTO UNO
  50.         GOTO DOS
  51.         GOTO TRES
  52.  
  53.  
  54.  
  55. letrademora ADDWF PCL,F
  56.    RETLW B'00000000'
  57.  
  58. ;-------------------------------
  59.    RETLW B'10000011'
  60.    RETLW B'11000011'
  61.    RETLW B'11100011'
  62.    RETLW B'11110011'
  63.    RETLW B'11111011'
  64.    RETLW B'11111111'
  65.    RETLW B'11111111'
  66.    RETLW B'11111111'
  67. ;--------------------------------------------
  68.    RETLW B'11111111'
  69.    RETLW B'01111111'
  70.    RETLW B'00111111'
  71.    RETLW B'00011111'
  72.    RETLW B'00001111'
  73.    RETLW B'00000111'
  74.    RETLW B'00000011'
  75.    RETLW B'00000000'
  76.  
  77. ;-------------------------------
  78.    RETLW B'10000000'
  79.    RETLW B'11000000'
  80.    RETLW B'11100000'
  81.    RETLW B'11110000'
  82.    RETLW B'11111000'
  83.    RETLW B'11111100'
  84.    RETLW B'11111100'
  85.    RETLW B'11111111'
  86. ;--------------------------------------------
  87.    RETLW B'11111111'
  88.    RETLW B'01111100'
  89.    RETLW B'00111100'
  90.    RETLW B'00011100'
  91.    RETLW B'00001100'
  92.    RETLW B'00000100'
  93.  
  94. ;-------------------------------
  95.    RETLW B'10000000'
  96.    RETLW B'11000000'
  97.    RETLW B'11100000'
  98.    RETLW B'11110000'
  99.    RETLW B'11111000'
  100.    RETLW B'11111100'
  101.    RETLW B'11111100'
  102.    RETLW B'11111100'
  103. ;--------------------------------------------
  104.    RETLW B'11111100'
  105.    RETLW B'01111100'
  106.    RETLW B'00111100'
  107.    RETLW B'00011100'
  108.    RETLW B'00001100'
  109.    RETLW B'00000100'
  110.  
  111. ;-------------------------------
  112.    RETLW B'10000000'
  113.    RETLW B'11000000'
  114.    RETLW B'11100000'
  115.    RETLW B'11110000'
  116.    RETLW B'11111000'
  117.    RETLW B'11111100'
  118.    RETLW B'11111100'
  119.    RETLW B'11111100'
  120. ;--------------------------------------------
  121.    RETLW B'11111100'
  122.    RETLW B'01111100'
  123.    RETLW B'00111100'
  124.    RETLW B'00011100'
  125.    RETLW B'00001100'
  126.    RETLW B'00000100'
  127.  
  128. ;-------------------------------
  129.    RETLW B'10000010'
  130.    RETLW B'11000010'
  131.    RETLW B'11100010'
  132.    RETLW B'11110010'
  133.    RETLW B'11111010'
  134.    RETLW B'11111111'
  135.    RETLW B'11111111'
  136.    RETLW B'11111111'
  137. ;:--------------------------------------------
  138.    RETLW B'11111111'
  139.    RETLW B'01111111'
  140.    RETLW B'00111111'
  141.    RETLW B'00011111'
  142.    RETLW B'00001111'
  143.    RETLW B'00000111'
  144.    RETLW B'00000011'
  145.    RETLW B'00000000'
  146.  
  147. ;-----------------------------------------------------------------------
  148.  
  149.    RETLW B'00000011'
  150.    RETLW B'11111110'
  151.    RETLW B'00000000'
  152.    RETLW B'11001110'
  153.    RETLW B'00000000'
  154.    RETLW B'10000110'
  155.    RETLW B'00000000'
  156.    RETLW B'11111110'
  157.    RETLW B'00000000'
  158.    RETLW B'11111110'
  159.    RETLW B'00000001'
  160.    RETLW B'11111110'
  161.    RETLW B'00000001'
  162.    RETLW B'11111110'
  163.    RETLW B'00000001'
  164.    RETLW B'11111110'
  165.    RETLW B'00000001'
  166.    RETLW B'11111110'
  167.    RETLW B'00000001'
  168. ;:--------------------------------------------
  169.    RETLW B'11111111'
  170.    RETLW B'01111111'
  171.    RETLW B'00111111'
  172.    RETLW B'00011111'
  173.    RETLW B'00001111'
  174.    RETLW B'00000111'
  175.    RETLW B'00000011'
  176.    RETLW B'00000000'
  177. ;----------------------------------------------
  178.    RETLW B'10000000'
  179.    RETLW B'01000000'
  180.    RETLW B'00100000'
  181.    RETLW B'00010000'
  182.    RETLW B'00001000'
  183.    RETLW B'00000110'
  184.    RETLW B'10000100'
  185.    RETLW B'01000100'
  186.    RETLW B'00100100'
  187.    RETLW B'00010100'
  188.    RETLW B'00001110'
  189.    RETLW B'10001100'
  190.    RETLW B'01001100'
  191.    RETLW B'00101100'
  192.    RETLW B'00011100'
  193.    RETLW B'00011110'
  194.    RETLW B'10011100'
  195.    RETLW B'01011100'
  196.    RETLW B'00111110'
  197.    RETLW B'10111100'
  198.    RETLW B'01111110'
  199.    RETLW B'11111111'
  200.    RETLW B'11111111'
  201.  
  202.  
  203. ;----------------------------------------------
  204.    RETLW B'10000001'
  205.    RETLW B'01000001'
  206.    RETLW B'00100001'
  207.    RETLW B'00010001'
  208.    RETLW B'00001001'
  209.    RETLW B'00000111'
  210.    RETLW B'10000101'
  211.    RETLW B'01000101'
  212.    RETLW B'00100101'
  213.    RETLW B'00010101'
  214.    RETLW B'00001111'
  215.    RETLW B'10001101'
  216.    RETLW B'01001101'
  217.    RETLW B'00101101'
  218.    RETLW B'00011101'
  219.    RETLW B'00011111'
  220.    RETLW B'10011101'
  221.    RETLW B'01011101'
  222.    RETLW B'00111111'
  223.    RETLW B'10111101'
  224.    RETLW B'01111111'
  225.    RETLW B'11111111'
  226.    RETLW B'11111111'
  227. ;----------------------------------------------
  228.  
  229.    RETLW B'00000011'
  230.    RETLW B'11111110'
  231.    RETLW B'00000000'
  232.    RETLW B'11111110'
  233.    RETLW B'00000000'
  234.    RETLW B'11111110'
  235.    RETLW B'00000001'
  236.    RETLW B'11111110'
  237.    RETLW B'00000001'
  238.    RETLW B'11111110'
  239.    RETLW B'00000001'
  240.    RETLW B'11111110'
  241.    RETLW B'00000001'
  242.  
  243. ;----------------------------------------------
  244.    RETLW B'10000001'
  245.    RETLW B'01000001'
  246.    RETLW B'00100001'
  247.    RETLW B'00010001'
  248.    RETLW B'00001001'
  249.    RETLW B'00000111'
  250.    RETLW B'10000101'
  251.    RETLW B'01000101'
  252.    RETLW B'00100101'
  253.    RETLW B'00010101'
  254.    RETLW B'00001111'
  255.    RETLW B'10001101'
  256.    RETLW B'01001101'
  257.    RETLW B'00101101'
  258.    RETLW B'00011101'
  259.    RETLW B'00011111'
  260.    RETLW B'10011101'
  261.    RETLW B'01011101'
  262.    RETLW B'00111111'
  263.    RETLW B'10111101'
  264.    RETLW B'01111111'
  265.    RETLW B'11111111'
  266.    RETLW B'11111111'
  267.  
  268. ;----------------------------------------------------------------------
  269.    RETLW B'00000010'
  270.    RETLW B'00000110'
  271.    RETLW B'00001110'
  272.    RETLW B'00011110'
  273.    RETLW B'00111110'
  274.    RETLW B'01111110'
  275.    RETLW B'11111110'
  276.    RETLW B'11111110'
  277.    RETLW B'11111110'
  278.    RETLW B'01111110'
  279.    RETLW B'00111110'
  280.    RETLW B'00011110'
  281.    RETLW B'00001110'
  282.    RETLW B'00000110'
  283.    RETLW B'00000010'
  284.    RETLW B'00000000'
  285.    RETLW B'00000000'
  286.  
  287.    RETLW B'00000100'
  288.    RETLW B'00001100'
  289.    RETLW B'00011100'
  290.    RETLW B'00111100'
  291.    RETLW B'01111100'
  292.    RETLW B'11111100'
  293.    RETLW B'11111100'
  294.    RETLW B'11111100'
  295.    RETLW B'01111100'
  296.    RETLW B'00111100'
  297.    RETLW B'00011100'
  298.    RETLW B'00001100'
  299.    RETLW B'00000100'
  300.    RETLW B'00000000'
  301.  
  302.    RETLW B'00000100'
  303.    RETLW B'00001100'
  304.    RETLW B'00011100'
  305.    RETLW B'00111100'
  306.    RETLW B'01111100'
  307.    RETLW B'11111100'
  308.    RETLW B'11111100'
  309.    RETLW B'11111100'
  310.    RETLW B'01111100'
  311.    RETLW B'00111100'
  312.    RETLW B'00011100'
  313.    RETLW B'00001100'
  314.    RETLW B'00000100'
  315.    RETLW B'00000000'
  316.  
  317.  
  318.    RETLW B'00000000'
  319.  
  320.    RETLW B'00000001'
  321.    CLRF CONTA
  322.    GOTO  letrademora+1
  323.  
  324.  ORG 100H
  325.  
  326. ;*************************************************************************************************
  327. ;-------------------------------------------------------------------
  328. CERO  MOVLW  .30
  329.   CALL DEMORA
  330.   GOTO INICIO
  331. ;-------------------------------------------------------------------
  332. UNO  MOVLW .80
  333.   CALL DEMORA
  334.   GOTO INICIO
  335. ;-------------------------------------------------------------------
  336. DOS  MOVLW  .150
  337.   CALL DEMORA
  338.   GOTO INICIO
  339. ;-------------------------------------------------------------------
  340. TRES MOVLW  .250
  341.   CALL DEMORA
  342.   GOTO INICIO
  343. ;-------------------------------------------------------------------
  344.  
  345.    movwf PORTB
  346.    
  347.  
  348. DEMORA
  349. demora ; movlw .250
  350.   movwf tiempo
  351. otro1 movlw .110
  352.   movwf temp
  353. otro nop
  354.   nop
  355.   nop
  356.   nop
  357.   nop
  358.   nop
  359.   decfsz temp,f
  360.   goto otro
  361.   decfsz tiempo,f
  362.   goto otro1
  363.   return
  364.  
  365.  
  366.   END


Saludos!

Norberto

Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: Suky en 09 de Septiembre de 2010, 22:34:43
Muy bueno!  :-/ Felicitaciones por el trabajo!  8)


Saludos!
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: migsantiago en 09 de Septiembre de 2010, 22:56:07
Se ve muy padre.

¿Qué dimensiones tiene?
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: PulKon en 10 de Septiembre de 2010, 03:26:53
A mi también me gustó.
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: todopic en 10 de Septiembre de 2010, 10:59:26
Hola, gracias por los comentarios!  :-/
Reemplaza la chapa patente del vehiculo, creo que lo recubriran con acrilico o metacrilato... mide 31cm x14cm..

No es nada de otro mundo... pero queda muy bonito, y además, me ha servido para que los alumnos, trabajen en el diseño con la fresadora como perforadora, y en el diseño de las tablas para los efectos  ;-)

Lo más complicado es la soldadura de los led...  los azules, de a 4 en serie, los rojos, con resistencias individuales, ya que cada letra, enciende por separado, y no tienen la misma cantidad de led...
La entrada de alimentacion está limitada por 3 diodos, por lo que al variar la carga (cantidad de letras encendidas) varia el brillo de los led azules... (parece PWM  :D )

Saludos

Norberto
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: cerebro en 10 de Septiembre de 2010, 11:42:29
Sencillo y se ve muy bien. Un buen trabajo, si señor!  :mrgreen:
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: wolfman77 en 10 de Septiembre de 2010, 16:05:34
Muy bueno! Felicitaciones! y te voy a robar el diseño para colocar algo asi en la puerta para las fiestas :)
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: Veguepic en 10 de Septiembre de 2010, 21:39:08
Mi padre para enchular la maquina!!!!!!

Felicitaciones Norberto.
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: Nocturno en 11 de Septiembre de 2010, 01:06:51
Si no me dices que es una chapa para coches, pensaría que es el rótulo de un puticlub  :D

Está muy guapo, gran jefe.
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: doppel en 11 de Septiembre de 2010, 09:17:09
que lindo laburito!! que espectacular, saludos
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: migsantiago en 11 de Septiembre de 2010, 20:49:17
Cita de: Nocturno en 11 de Septiembre de 2010, 01:06:51
Si no me dices que es una chapa para coches, pensaría que es el rótulo de un puticlub  :D

Está muy guapo, gran jefe.

Yo pensé algo así, que era el anuncio de un bar o de una cantina... por eso pregunté el tamaño y releí el tema para enterarme de que era la matrícula de un auto.  :mrgreen:

Como esos de gas Neón...  :)
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: doppel en 22 de Diciembre de 2010, 15:23:04
Hola Norberto
Si me permitis usar tu código para un pequeño cartel que estoy armando para casa, lo que no encuentro es la forma de que en lugar de usar 6 salidas enciendan 7 hice algunos cambios en la conf de los puertos pero nada, el asm no es lo mio.-
gracias
Título: Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
Publicado por: todopic en 13 de Febrero de 2011, 11:37:26
Hola Hernan, perdona por demorar tanto, recién leo tu mensaje...
lo que se complicaria,es que por la cantidad de letras (6) me quedaban 2 bit libres en las tablas, que he empleado para obtener 4 velocidades  :mrgreen:
si cambias y agregas una salida mas... perdemos 2 cambios de velocidad, si te sirve, lo corrijo ok?

Saludos!

Norberto