TODOPIC

Microcontroladores PIC => * PROYECTOS * => Mensaje iniciado por: todopic en 17 de Agosto de 2010, 21:14:05

Título: Baliza a LED , simil policia,bomberos
Publicado por: todopic en 17 de Agosto de 2010, 21:14:05
Hola Amigos, con mis alumnos, intentamos "imitar" los tiempos de destellos y efectos de las luces o balizas de emergencias...

auqí el codigo, que es muy simple, pero sirve para los que se inician...

Luego subo un "mal" video para que vean el efecto...
Código: ASM
  1. ;
  2. ;  º                                                                    º
  3. ;  º        _\\|//_                            BALIZAS DESTELLANTES PARA LED    º
  4. ;  º       (` o-o ')                                                    º
  5. ;  º------ooO-(_)-Ooo----------------------------------------------------º
  6. ;  º                                                                     º
  7. ;  º                              www.todopic.com.ar                     º
  8. ;  º    .oooO     Oooo.                                                  º
  9. ;  º    (   )     (   )                                                  º
  10. ;  º_____\ (_______) /___________________________________________________º
  11. ;  º      \_)     (_/      
  12. ;   17/08/2010  - GENERACION DE DESTELLOS PARA LED - SIMIL BALIZA POLICIA
  13.  
  14.         list p=16f628a
  15.         #include p16f628a.inc
  16.         errorlevel -302,-307
  17.  
  18.         CBLOCK 20h
  19. temp
  20. tempo
  21. PEPE
  22. COCO
  23.         endc
  24.  
  25.         __CONFIG  _XT_OSC &  _WDT_OFF & _PWRTE_ON  & _BODEN_ON & _LVP_OFF & _MCLRE_ON
  26.  
  27.         movlw .7
  28.         movwf CMCON
  29.  
  30.         bsf STATUS,RP0
  31.         movlw B'00000000'       ;PUERTOB
  32.         movwf TRISB             ;como salida
  33.         movwf TRISA            
  34.         bcf STATUS,RP0         
  35.  
  36. ;********************* PROGRAMA PRINCIPAL **************************
  37. BALIZAS         CALL BALIZA1
  38.                 CALL BALIZA2
  39.                 CALL BALIZA1
  40.                 CALL BALIZA3
  41.                 CALL BALIZA2
  42.                 CALL BALIZA2
  43.                 CALL BALIZA2
  44.                 CALL BALIZA1
  45.                 CALL BALIZA3
  46.                 CALL BALIZA2
  47.                 CALL BALIZA3
  48.                 GOTO BALIZAS
  49. ;********************************************************************
  50.  
  51. BALIZA1         MOVLW .6
  52.                 MOVWF COCO      ;repeticiones del efecto
  53.  
  54. BALIZAI         MOVLW .5
  55.                 MOVWF PEPE
  56.                 MOVLW B'11100000'
  57.                 MOVWF PORTB
  58.                 MOVLW .9        ;tiempo de encendido en milisegundos
  59.                 CALL DEMORA
  60.  
  61.                 CLRF PORTB
  62.                 MOVWF .12       ;tiempo de apagado en milisegundos
  63.                 CALL DEMORA
  64.                 DECFSZ PEPE,F
  65.                 GOTO BALIZAI+2
  66.  
  67. BALIZAD         MOVLW .5
  68.                 MOVWF PEPE
  69.                 MOVLW B'00011100'
  70.                 MOVWF PORTB
  71.                 MOVLW .9        ;tiempo de encendido en milisegundos
  72.                 CALL DEMORA
  73.  
  74.                 CLRF PORTB
  75.                 MOVWF .12       ;tiempo de apagado en milisegundos
  76.                 CALL DEMORA
  77.                 DECFSZ PEPE,F
  78.                 GOTO BALIZAD+2
  79.  
  80.                 DECFSZ COCO,F
  81.                 GOTO BALIZAI
  82.                 RETURN
  83. ;*************************************************
  84. BALIZA2         MOVLW B'11100000'
  85.                 MOVWF PORTB
  86.                 MOVLW .15
  87.                 CALL DEMORA
  88.                 CLRF PORTB
  89.                 MOVWF .12
  90.                 CALL DEMORA
  91.  
  92.  
  93.                 MOVLW B'00011100'
  94.                 MOVWF PORTB
  95.                 MOVLW .15
  96.                 CALL DEMORA
  97.                 CLRF PORTB
  98.                 MOVWF .12
  99.                 CALL DEMORA
  100.  
  101.                 MOVLW B'11100000'
  102.                 MOVWF PORTB
  103.                 MOVLW .15
  104.                 CALL DEMORA
  105.                 CLRF PORTB
  106.                 MOVWF .12
  107.                 CALL DEMORA
  108.  
  109.  
  110.                 MOVLW B'00011100'
  111.                 MOVWF PORTB
  112.                 MOVLW .15
  113.                 CALL DEMORA
  114.                 CLRF PORTB
  115.                 MOVWF .12
  116.                 CALL DEMORA
  117.  
  118.                 MOVLW B'11100000'
  119.                 MOVWF PORTB
  120.                 MOVLW .15
  121.                 CALL DEMORA
  122.                 CLRF PORTB
  123.                 MOVWF .12
  124.                 CALL DEMORA
  125.  
  126.                 MOVLW B'00011100'
  127.                 MOVWF PORTB
  128.                 MOVLW .15
  129.                 CALL DEMORA
  130.                 CLRF PORTB
  131.                 MOVWF .12
  132.                 CALL DEMORA
  133.  
  134.                 MOVLW B'11100000'
  135.                 MOVWF PORTB
  136.                 MOVLW .15
  137.                 CALL DEMORA
  138.                 CLRF PORTB
  139.                 MOVWF .12
  140.                 CALL DEMORA
  141.  
  142.                 MOVLW B'00011100'
  143.                 MOVWF PORTB
  144.                 MOVLW .15
  145.                 CALL DEMORA
  146.                 CLRF PORTB
  147.                 MOVWF .12
  148.                 CALL DEMORA
  149.                 RETURN
  150. ;********************************************************
  151. BALIZA3         MOVLW .4
  152.                 MOVWF COCO
  153.  
  154.                 MOVLW .5
  155.                 MOVWF PEPE
  156.  
  157.                 MOVLW B'11111100'
  158.                 MOVWF PORTB
  159.                 MOVLW .9
  160.                 CALL DEMORA
  161.  
  162.                 CLRF PORTB
  163.                 MOVWF .12
  164.                 CALL DEMORA
  165.  
  166.                 DECFSZ PEPE,F
  167.                 GOTO BALIZA3+4
  168.  
  169.                 CLRF PORTB
  170.                 MOVLW .150
  171.                 CALL DEMORA
  172.  
  173.                 DECFSZ COCO,F
  174.                 GOTO BALIZA3+2
  175.  
  176.                 RETURN
  177.  
  178. ;******************************************************************************
  179. DEMORA          movwf tempo     ;en tempo, se carga el tiempo en milisegundos
  180. otro1           movlw .110
  181.                 movwf temp
  182. otro            nop
  183.                 nop
  184.                 nop
  185.                 clrwdt
  186.                 nop
  187.                 nop
  188.                 decfsz temp,f
  189.                 goto otro
  190.                 decfsz tempo,f
  191.                 goto otro1
  192.                  return
  193. ;****************************************************************************
  194.   END
  :mrgreen:


Norberto
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: Duende_Azul en 18 de Agosto de 2010, 00:08:23
nice..  :)
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: wolfman77 en 18 de Agosto de 2010, 15:12:07
Esta bueno, ahora hay que colocarselo a una maqueta y queda de lujo :D
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: julio2828 en 04 de Septiembre de 2010, 22:25:43
hola me podrias mandar el archibo .hex ? me da error este codigo
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: martincnc en 04 de Septiembre de 2010, 23:47:31
Hola  :mrgreen:

Es un efecto muy agradable a la vista. La siguiente tarea sera que el circuito funcione con interrupciones?  ;-)

Saludos!
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: mager en 24 de Septiembre de 2010, 13:32:02
hola muy bueno!! el codigo hex lo tendrias y el circuito de aplicacion? muchas gracias
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: Marioguillote en 24 de Septiembre de 2010, 23:13:15
Cita de: julio2828 en 04 de Septiembre de 2010, 22:25:43
hola me podrias mandar el archibo .hex ? me da error este codigo

Cita de: mager en 24 de Septiembre de 2010, 13:32:02
hola muy bueno!! el codigo hex lo tendrias y el circuito de aplicacion? muchas gracias

Sí ... a mí también ... me podrías mandar el código, el circuito, el impreso de la placa y el PIC grabado ? 

Mi mail es esteesmiprimerpostyentroparamangar@hotmail.com

Ahhh... Gracias!

PD: Un abrazo Norber! Felicitaciones por el trabajo
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: martincnc en 25 de Septiembre de 2010, 01:16:12
Hola julio2828 y mager.

En el código que subió Norberto esta todo lo necesario para poder armar este proyecto.

Cita de: todopic en 17 de Agosto de 2010, 21:14:05
   list p=16f628a
PIC --> PIC16F628A

Cita de: todopic en 17 de Agosto de 2010, 21:14:05
   __CONFIG  _XT_OSC &  _WDT_OFF & _PWRTE_ON  & _BODEN_ON & _LVP_OFF & _MCLRE_ON
Oscilador --> Cristal, MCLRE --> Activado

Cita de: todopic en 17 de Agosto de 2010, 21:14:05
    movlw B'00000000'    ;PUERTOB
     movwf TRISB       ;como salida
        movwf TRISA
Puertos A y B como salidas

Cita de: todopic en 17 de Agosto de 2010, 21:14:05
       MOVLW B'11100000'
        MOVWF PORTB
        [...]
        MOVLW B'00011100'
        MOVWF PORTB
        [...]
        MOVLW B'11111100'
        MOVWF PORTB
etc...
Las salidas son los bits <7:2> del Puerto B, los LED's van conectados cada uno con una resistencia en serie de 330 ohms a masa. Según el código, los demás pines salvo la alimentación del PIC, MCLR y el cristal con sus respectivos capacitores de 22pF quedan sin usar.

Para compilar el programa y generar el archivo *.hex pueden usar el MPLAB IDE, cualquier versión.

Cita de: julio2828 en 04 de Septiembre de 2010, 22:25:43
hola me podrias mandar el archibo .hex ? me da error este código
Acabo de compilar el código y funciona perfectamente, verifica que hayas seleccionado correctamente el dispositivo.

Bueno eso es todo, la próxima vez no cometan el mismo error, pregunten, participen, no pidan todo servido (me refiero al fichero *.hex, lo del circuito de aplicación es entendible), cualquier duda pueden buscar en el foro donde hay muchísima información al respecto.

Saludos.
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: matu673 en 06 de Noviembre de 2013, 17:52:33
buenas tardes, mi consulta es la siguiente. despues de mucho intertar logramos grabar un pic con esta secuencia pero al compararlo con el original nos dimos cuenta que los led no brillan igual. (utilizamos led de 1watt color rojo), porque puede ser que nos suceda esto? gracias por responder
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: sebarincon en 05 de Agosto de 2014, 22:24:48
Hola Gente, es mi primera consulta. La verdad que el foro es espectacular!

Mi consulta es la siguiente:

Tengo el pic funcionando con 1 led en cada salida de 10mm, resistencia de 330 ohms. Destella perfecto.

Ahora bien, cuando quiero pasar a utilizar una lampara mas grande, ahi viene el problema.

Tengo un foco armado con 9 led (3 led en serie, con su respectiva resistencia) que esta pensado para funcionar a 12v.

La idea mia es poner un 2n2222a en la salida del pic, pero no hay forma de hacerlo andar. Calculo al resistencia de base, pero sea cual sea el valor, siempre los led quedan encendidos muy tenuemente. Ni siquiera hacen los destellos del programa.

La verdad que no lo puedo hacer funcionar de ninguna manera. Alguna sugerencia?

Saludos
Título: Re: Baliza a LED , simil policia,bomberos
Publicado por: tapi8 en 06 de Agosto de 2014, 05:00:56
Pon el esquema que estas usando, debes tener algo mal. O que el transistor este mal.