Aide pour programmation Picaxe 08M2

[banquise42]

Bonjour a tous

Je sollicite votre aide pour peaufiner un programme Picaxe, très simple, mais compliqué pour moi .
Ce programme servira pour piloter des feux tricolore.

Voici mon cahier des charges :

* Mise sous tension = état 0
- Buzzer sonne 1sec
- Led rouge ON
- Led orange OFF
- Led verte OFF
Ces quatre étape doivent s'accomplirent en même temps.

*Lors d'un appui court sur un poussoir on passe a l'état 1
A Led rouge OFF
B Led orange ON X seconde , puis s’éteint
C Led verte ON X seconde , puis s'éteint
D Led orange ON X seconde , puis s'éteint
E Retour a l'état 0

* Lors d'un appui long supérieur a 2 sec , quand on est a l'état 1 on repasse a l'état 0

Pour le moment mon programme fonctionne , mais il bug lors d'appui court quand on est a l'état 1 ,
je m'explique , si l'on fait un appuie court quand on est a l'état 1 , il faudrait que rien ne ce passe et pour le moment c'est pas le cas , il enchaîne
les étape A, B, C, D a chaque appuie court .

N'étant pas une lumière en programmation , merci par avance de votre aide .

Voici mon programme actuel :

#picaxe 08M2

 
symbol pous=pinC.3
symbol ledorange=C.1
symbol ledverte=C.2
symbol ledrouge=C.0
symbol buzzer=C.4
symbol etat =b1

setint %0,%1000 ;interrupt sur C.3 niveau bas
pullup %1000		
etat=0          ;etat au demarrage

      do
		select etat
		
		case 0
			low ledorange			
			low ledverte
	            high ledrouge ;ON
	            high buzzer 
	            pause 1000 
	            low buzzer  
			do loop while etat=0
			
		case 1
		      low ledrouge
			high ledorange  ;ON
			pause 3000     ;led orange ON 30sec
			low ledorange 
			high ledverte   ;ON
			pause 45000     ;led verte ON 45sec
			pause 45000     ;led verte ON 45sec
			low ledverte
			high ledorange  ;ON
			pause 3000     ;led oronge ON 30sec
			low ledorange
			high ledrouge   ;ON
			etat=0

		end select	
	loop
	
interrupt:
	time=0	
	do loop while pous=0 and time<2 
	if time>1 then high buzzer	;remise a l'état 0 apres 2sec
		if etat=1 then
	      reset
		endif
	else
		if etat=0 then
		etat=1
		endif
	endif
      setint %0,%1000		;interrupt sur C.3 niveau bas
      
	return

-----

[mag1]

Je sollicite votre aide pour peaufiner un programme Picaxe, très simple, mais compliqué pour moi .
Ce programme servira pour piloter des feux tricolore.

Voici mon cahier des charges :

* Mise sous tension = état 0
- Buzzer sonne 1sec
- Led rouge ON
- Led orange OFF
- Led verte OFF
Ces quatre étape doivent s'accomplirent en même temps.

*Lors d'un appui court sur un poussoir on passe a l'état 1
A Led rouge OFF
B Led orange ON X seconde , puis s’éteint
C Led verte ON X seconde , puis s'éteint
D Led orange ON X seconde , puis s'éteint
E Retour a l'état 0

* Lors d'un appui long supérieur a 2 sec , quand on est a l'état 1 on repasse a l'état 0

Pour le moment mon programme fonctionne , mais il bug lors d'appui court quand on est a l'état 1 ,
je m'explique , si l'on fait un appuie court quand on est a l'état 1 , il faudrait que rien ne ce passe et pour le moment c'est pas le cas , il enchaîne
les étape A, B, C, D a chaque appuie court .

N'étant pas une lumière en programmation , merci par avance de votre aide .
Voici mon programme actuel :

Bonsoir,

Non, ce n'est pas un bug, le programme fait exactement ce qu'on lui demande.

En voici un autre, traité en pseudo multitâches, j'espère qu'il répond à la question.

#picaxe 08M2
#no_data 
start0:
symbol pous=pinC.3
symbol ledorange=C.1
symbol ledverte=C.2
symbol ledrouge=C.0
symbol buzzer=C.4

	pullup %1000
	do loop while pous=0		;au cas où le poussoir serait appuyé
	do		
		low ledorange			
		low ledverte
            high ledrouge ;ON
            high buzzer 
            pause 1000 
            low buzzer  
		do loop while pous=1		;attente appui

      low ledrouge
		high ledorange  ;ON
		pause 3000     ;led orange ON 30sec
		low ledorange 
		high ledverte   ;ON			
		pause 45000     ;led verte ON 45sec
		low ledverte
		high ledorange  ;ON
		pause 3000     ;led oronge ON 30sec
		low ledorange
		high ledrouge   ;ON				
	loop
	
start1:	;tache reset par appui 3s sur le poussoir
	do
		do loop while pous=1
		time=0	
		do loop while pous=0 and time<2 
		if time>1 then
			high buzzer	;remise a l'état 0 apres 2sec
			pause 1000			
		   reset
		endif
	loop

A tester
MM

[mag1]

Doublon........
MM

[banquise42]

Merci Mag1

ça fonctionne nickel !!!

Cela parais tellement simple pour toi , mais de mon coté c'est hard .
Je me suis bien plongé dans les différent manuel , mais ça ne ce fait pas comme ça du jour au lendemain ...

Heureusement il y a des personne comme toi ,qui donne de leur temps et de leur savoir pour autres .

Merci, bonne soirée et bonne fin de weekend.

[A voir en vidéo sur Futura]

[albanxiii]

Heureusement il y a des personne comme toi ,qui donne de leur temps et de leur savoir pour autres .

J'aurais plutôt dit qui ne leur rendent pas service en leur mâchant le travail. A moins qu'il n'aille passer vos examens et vos entretiens à votre place.

[banquise42]

J'aurais plutôt dit qui ne leur rendent pas service en leur mâchant le travail. A moins qu'il n'aille passer vos examens et vos entretiens à votre place.

Excusé moi mon cher albanxiii, de ne pas avoir la science infuse , comme vous semblez l'avoir....

cordialement

[JPL]

Ce que veut dire albanxiii c’est qu’il aurait été plus pédagogique, donc profitable pour toi de te faire réfléchir sur des pistes pour améliorer ton programme plutôt de t’en donner un tout prêt.

[mag1]

Ce que veut dire albanxiii c’est qu’il aurait été plus pédagogique, donc profitable pour toi de te faire réfléchir sur des pistes pour améliorer ton programme plutôt de t’en donner un tout prêt.

Bonsoir Messieurs les Modos.

Faut pas tout mélanger.
Je ne suis ni pro ni prof et je n'ai aucune prétention pédagogique. Il y a une rubrique spéciale pour les projets étudiants et je n'y vais pas.
Je suis un simple bricoleur qui répond à d'autres bricoleurs venus poser un problème de bricolage.
Et j'essaie simplement d’apporter une solution la plus simple et la moins chère possible. Cela passe souvent par un µC simple et facile d'emploi accessible à tous, même les moins compétents en électronique et programmation.
Pour aboutir à la finalisation, j'explique la solution et répond à toutes les questions posées si le demandeur s'y intéresse.
Je vous prie de consulter les discutions auxquelles j'ai participé sur ce forum (et sur d'autres).

Désolé, Messieurs les Modos, je ne suis pas un donneur de leçons (enfin, pas toujours).

MM

[JPL]

Rappel de la charte du forum :

Tout acte de modération est écrit en vert ; dans les autres cas les modérateurs s'expriment à titre personnel.