Baliza a LED , simil policia,bomberos

[todopic]

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

 

Norberto

[Duende_Azul]

nice.. 

[wolfman77]

Esta bueno, ahora hay que colocarselo a una maqueta y queda de lujo

[julio2828]

hola me podrias mandar el archibo .hex ? me da error este codigo

[martincnc]

Hola 

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

Saludos!

[mager]

hola muy bueno!! el codigo hex lo tendrias y el circuito de aplicacion? muchas gracias

[Marioguillote]

hola me podrias mandar el archibo .hex ? me da error este codigo

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

[martincnc]

Hola julio2828 y mager.

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

   list p=16f628a

PIC --> PIC16F628A

   __CONFIG  _XT_OSC &  _WDT_OFF & _PWRTE_ON  & _BODEN_ON & _LVP_OFF & _MCLRE_ON

Oscilador --> Cristal, MCLRE --> Activado

    movlw B'00000000'    ;PUERTOB
     movwf TRISB       ;como salida
        movwf TRISA

Puertos A y B como salidas

       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.

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.

[matu673]

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

[sebarincon]

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

[tapi8]

Pon el esquema que estas usando, debes tener algo mal. O que el transistor este mal.