« anterior próximo »
Páginas: [1]   Ir Abajo

Autor Tema: Secuenciador de 6 canales, para chapa patente de auto Tuning  (Leído 5968 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado todopic

  • Administrador
  • DsPIC30
  • *******
  • Mensajes: 3495
    • http://www.todopicelectronica.com.ar
Secuenciador de 6 canales, para chapa patente de auto Tuning
« 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

« Última modificación: 09 de Septiembre de 2010, 21:23:11 por todopic »
En línea
Firmat - Santa Fe - Argentina

www.TodoPic.net
Solo se tiran piedras, al arbol que tiene frutos...

Desconectado Suky

  • Moderadores
  • DsPIC33
  • *****
  • Mensajes: 6758
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #1 en: 09 de Septiembre de 2010, 22:34:43 »
Muy bueno!  :-/ Felicitaciones por el trabajo!  8)


Saludos!
En línea
No contesto mensajes privados, las consultas en el foro

Desconectado migsantiago

  • Colaborador
  • DsPIC33
  • *****
  • Mensajes: 8257
    • Sitio de MigSantiago
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #2 en: 09 de Septiembre de 2010, 22:56:07 »
Se ve muy padre.

¿Qué dimensiones tiene?
En línea

Desconectado PulKon

  • PIC12
  • **
  • Mensajes: 70
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #3 en: 10 de Septiembre de 2010, 03:26:53 »
A mi también me gustó.
En línea
La felicidad no consiste en tener lo que quieres, sino en querer lo que tienes.

Desconectado todopic

  • Administrador
  • DsPIC30
  • *******
  • Mensajes: 3495
    • http://www.todopicelectronica.com.ar
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #4 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
En línea
Firmat - Santa Fe - Argentina

www.TodoPic.net
Solo se tiran piedras, al arbol que tiene frutos...

Desconectado cerebro

  • Colaborador
  • PIC24F
  • *****
  • Mensajes: 735
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #5 en: 10 de Septiembre de 2010, 11:42:29 »
Sencillo y se ve muy bien. Un buen trabajo, si señor!  :mrgreen:
En línea
LAS MALVINAS SON ARGENTINAS!

Desconectado wolfman77

  • PIC12
  • **
  • Mensajes: 82
    • Dos en la ruta
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #6 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 :)
En línea
Volviendo al mundo de los PIC....

Desconectado Veguepic

  • Moderadores
  • PIC24H
  • *****
  • Mensajes: 2119
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #7 en: 10 de Septiembre de 2010, 21:39:08 »
Mi padre para enchular la maquina!!!!!!

Felicitaciones Norberto.
En línea
“Si la gente es buena sólo porque temen al castigo y porque esperan una recompensa, entonces verdaderamente somos un grupo lastimoso." Albert Einstein.

Saludos desde Lima , Peru    -    Hugo

Desconectado Nocturno

  • Administrador
  • DsPIC33
  • *******
  • Mensajes: 18286
    • MicroPIC
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #8 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.
En línea

Desconectado doppel

  • Moderadores
  • PIC24H
  • *****
  • Mensajes: 1534
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #9 en: 11 de Septiembre de 2010, 09:17:09 »
que lindo laburito!! que espectacular, saludos
En línea
" Para ser exitoso no tienes que hacer cosas extraordinarias. Haz cosas ordinarias, extraordinariamente bien "

Desconectado migsantiago

  • Colaborador
  • DsPIC33
  • *****
  • Mensajes: 8257
    • Sitio de MigSantiago
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #10 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...  :)
En línea

Desconectado doppel

  • Moderadores
  • PIC24H
  • *****
  • Mensajes: 1534
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #11 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
En línea
" Para ser exitoso no tienes que hacer cosas extraordinarias. Haz cosas ordinarias, extraordinariamente bien "

Desconectado todopic

  • Administrador
  • DsPIC30
  • *******
  • Mensajes: 3495
    • http://www.todopicelectronica.com.ar
Re: Secuenciador de 6 canales, para chapa patente de auto Tuning
« Respuesta #12 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
En línea
Firmat - Santa Fe - Argentina

www.TodoPic.net
Solo se tiran piedras, al arbol que tiene frutos...
Páginas: [1]   Ir Arriba
« anterior próximo »
 

anything