chimere322
Senior Member
Bonjour à tous,
Je sollicite votre aide pour un programme de sirène récupéré sur l'excellent site de electromag1 : http://electromag1.wifeo.com/sirenes-pompier-police-samu-ambulance-etc.php
Programme que j'ai modifié car je n'ai besoin que de 2 sirènes(Police et gendarmerie)à implanter dans une maquette.Cela fonctionne bien.J'ai
modifier le schéma afin de créer un flash de pénétration avec deux LEDS bleue haute luminosité et fait le programme qui tourne parfaitement.Mon
problème et le suivant: à la mise sous tension je souhaiterais que la sirène s'enclenche (ce qui est le cas)et en même temps que le flash
fonctionne en permanence.J'ai lu des tas de docs ainsi que les manuels Picaxe,mais je n'ai pas réussi à fusionner les deux programmes tout au
plus à les faire tourner l'un après l'autre mais c'est pas cool. J'ai essayer de comprendre mais je n'en suis pas encore au pseudo multitâche.
Pouvez vous m'aider SVP à résoudre le problème.Si le programme fonctionne,je pense que je comprendrais la logique.
ci joint les fichiers et le schéma:
[CODE
][/CODE]
[/CODE]
Grand merci à vous.
Je sollicite votre aide pour un programme de sirène récupéré sur l'excellent site de electromag1 : http://electromag1.wifeo.com/sirenes-pompier-police-samu-ambulance-etc.php
Programme que j'ai modifié car je n'ai besoin que de 2 sirènes(Police et gendarmerie)à implanter dans une maquette.Cela fonctionne bien.J'ai
modifier le schéma afin de créer un flash de pénétration avec deux LEDS bleue haute luminosité et fait le programme qui tourne parfaitement.Mon
problème et le suivant: à la mise sous tension je souhaiterais que la sirène s'enclenche (ce qui est le cas)et en même temps que le flash
fonctionne en permanence.J'ai lu des tas de docs ainsi que les manuels Picaxe,mais je n'ai pas réussi à fusionner les deux programmes tout au
plus à les faire tourner l'un après l'autre mais c'est pas cool. J'ai essayer de comprendre mais je n'en suis pas encore au pseudo multitâche.
Pouvez vous m'aider SVP à résoudre le problème.Si le programme fonctionne,je pense que je comprendrais la logique.
ci joint les fichiers et le schéma:
[CODE
Code:
[COLOR=Green]'SIRENES 01/02/2012 MM
[/COLOR][COLOR=Navy]#picaxe [/COLOR][COLOR=Black]08M2 [/COLOR][COLOR=Green]'
[/COLOR][COLOR=Blue]setfreq m4 [/COLOR][COLOR=Green]'Fr�quence � 4MHz,les pauses sont en mS
[/COLOR][COLOR=Blue]read [/COLOR][COLOR=Navy]0[/COLOR][COLOR=Black],[/COLOR][COLOR=Purple]b1 [/COLOR][COLOR=Green]'Lecture derni�re sir�ne utilis�e[/COLOR]
[COLOR=Black]debut:
[/COLOR][COLOR=Blue]on [/COLOR][COLOR=Purple]b1 [/COLOR][COLOR=Blue]goto [/COLOR][COLOR=Black]police,gendarme [/COLOR][COLOR=Green]'adressage suivant b1
[/COLOR]
[COLOR=Black]police:
[/COLOR][COLOR=Green]; un 2 tons de police (1er ton : 435Hz, 2�me ton : 580 Hz, cadence : 55 cycles/minute)
[/COLOR][COLOR=Blue]do
pwmout pwmdiv16[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]2[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]143[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]287
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]545
[/COLOR][COLOR=Blue]pwmout pwmdiv16[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]2[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]107[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]216
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]545
[/COLOR][COLOR=Blue]if [/COLOR][COLOR=Purple]pin3[/COLOR][COLOR=DarkCyan]=[/COLOR][COLOR=Navy]1 [/COLOR][COLOR=Blue]then [/COLOR][COLOR=Black]change
[/COLOR][COLOR=Blue]loop
[/COLOR]
[COLOR=Black]gendarme:
[/COLOR][COLOR=Green]; un 2 tons de gendarmerie (1er ton : 435Hz, 2�me ton : 732Hz, cadence : 55 cycles/minute)
[/COLOR][COLOR=Blue]do
pwmout pwmdiv16[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]2[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]143[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]287
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]545
[/COLOR][COLOR=Blue]pwmout pwmdiv16[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]2[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]84[/COLOR][COLOR=Black], [/COLOR][COLOR=Navy]171
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]545
[/COLOR][COLOR=Blue]if [/COLOR][COLOR=Purple]pin3[/COLOR][COLOR=DarkCyan]=[/COLOR][COLOR=Navy]1 [/COLOR][COLOR=Blue]then [/COLOR][COLOR=Black]change
[/COLOR][COLOR=Blue]loop
[/COLOR]
[COLOR=Black]change:
[/COLOR][COLOR=Blue]pwmout [/COLOR][COLOR=Navy]2[/COLOR][COLOR=Black],[/COLOR][COLOR=Blue]off [/COLOR][COLOR=Green];Arret sortie PWM
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]100 [/COLOR][COLOR=Green]'anti rebond, on laisse passer l'orage
[/COLOR][COLOR=Black]att: [/COLOR][COLOR=Blue]if [/COLOR][COLOR=Purple]pin3[/COLOR][COLOR=DarkCyan]=[/COLOR][COLOR=Navy]1 [/COLOR][COLOR=Blue]then [/COLOR][COLOR=Black]att [/COLOR][COLOR=Green]'attente relachement touche
[/COLOR][COLOR=Blue]inc [/COLOR][COLOR=Purple]b1 [/COLOR][COLOR=Green]'incr�mentation b1
[/COLOR][COLOR=Purple]b1[/COLOR][COLOR=DarkCyan]=[/COLOR][COLOR=Purple]b1[/COLOR][COLOR=DarkCyan]//[/COLOR][COLOR=Navy]2
[/COLOR][COLOR=Blue]write [/COLOR][COLOR=Navy]0[/COLOR][COLOR=Black],[/COLOR][COLOR=Purple]b1 [/COLOR][COLOR=Green]'memo derni�re sir�ne
[/COLOR][COLOR=Blue]goto [/COLOR][COLOR=Black]debut[/COLOR]
Code:
[code]
[COLOR=Green]'BASIC converted from flowchart:
'
'Converted 2014-11-29 at 16:38:09[/COLOR]
[COLOR=Gray]{ [/COLOR][COLOR=Green];Symbols[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varA [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b0[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varB [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b1[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varC [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b2[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varD [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b3[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varE [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b4[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varF [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b5[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varG [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b6[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varH [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b7[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varI [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b8[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varJ [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b9[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varK [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b10[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varL [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b11[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varM [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b12[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varN [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b13[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varO [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b14[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varP [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b15[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varQ [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b16[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varR [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b17[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varS [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b18[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varT [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b19[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varU [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b20[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varV [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b21[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPBYTE1 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b22[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPBYTE2 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b23[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPBYTE3 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b24[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPBYTE4 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b25[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPBYTE5 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b26[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPBYTE6 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]b27[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPWORD1 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]w11[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPWORD2 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]w12[/COLOR]
[COLOR=Blue]symbol [/COLOR][COLOR=Black]varTEMPWORD3 [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Purple]w13[/COLOR]
[COLOR=Gray]}[/COLOR]
[COLOR=Black]main:
[/COLOR][COLOR=Blue]let [/COLOR][COLOR=Purple]dirsC [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Navy]7[/COLOR]
[COLOR=Black]Cell_7_3:
[/COLOR][COLOR=Blue]for [/COLOR][COLOR=Black]varH [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Navy]1 [/COLOR][COLOR=Blue]to [/COLOR][COLOR=Navy]3
[/COLOR][COLOR=Blue]gosub [/COLOR][COLOR=Black]prc_FLASH_GAUCHE
[/COLOR][COLOR=Blue]next [/COLOR][COLOR=Black]varH
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]300
[/COLOR][COLOR=Blue]for [/COLOR][COLOR=Black]varH [/COLOR][COLOR=DarkCyan]= [/COLOR][COLOR=Navy]1 [/COLOR][COLOR=Blue]to [/COLOR][COLOR=Navy]3
[/COLOR][COLOR=Blue]gosub [/COLOR][COLOR=Black]prc_FLASH_DROIT
[/COLOR][COLOR=Blue]next [/COLOR][COLOR=Black]varH
[/COLOR][COLOR=Blue]pause [/COLOR][COLOR=Navy]300
[/COLOR][COLOR=Blue]goto [/COLOR][COLOR=Black]Cell_7_3
prc_FLASH_DROIT:
[/COLOR][COLOR=Blue]high C.4
pause [/COLOR][COLOR=Navy]10
[/COLOR][COLOR=Blue]low C.4
pause [/COLOR][COLOR=Navy]100
[/COLOR][COLOR=Blue]return[/COLOR]
[COLOR=Black]prc_FLASH_GAUCHE:
[/COLOR][COLOR=Blue]high C.1
pause [/COLOR][COLOR=Navy]10
[/COLOR][COLOR=Blue]low C.1
pause [/COLOR][COLOR=Navy]100
[/COLOR][COLOR=Blue]return[/COLOR]
[COLOR=Navy]#no_data [/COLOR][COLOR=Green]'reduce download time[/COLOR]
Grand merci à vous.