AIde sur Prog simple en basic

[invite8e8b3404]

Hello!
Voilà, je préfère refaire un post que de continuer le précédent pour plus de clarté. (cfr ou trouver des exemples de prog en basic)

J'aurais maintenant une petite question sur la programmation en elle-même:
Je veux déclencher un évènement après soit un temps défini, soit l'appuis sur un bouton.
J'arrive à faire l'un ou l'autre mais pas les 2 en même temps...

En clair:

button A.0 ->attend changt d'état sur A.0
delayms (20000) -> attend 20sec

Ca ca fonctionne sans problème.

Pour les deux en même temps, j'ai tenté des trucs du genre:
If button A.0 or delayms (20000) then goto flash
Mais là sans résultats.

Auriez-vous une idée de commande ou de structure pour moi?
Merci
-----

[invite6ceed97c]

essaie quelque chose du genre...

Boutton var PORTA.0
led     VAR PORTA.1
Delais  var word

delais=0
LED=0

Start:
      If (boutton=1) or (delais=2000) THEN ' 2000*10mSec=20Secondes
         delais=0       ' remettre compteur a zero
         led=1          ' activer Led
         pause 500      ' pause de 500mSec
         led=0          ' desactiver Led
         endif
         
      pause 10          ' pause 10mSec
      delais=delais+1        
      goto start

Sans utiliser les Timers Internes ni interruptions, ca peut fonctionner.

[invite8e8b3404]

J'essaye, ca a l'air bien...

Merci!

PS: quelle est la différence entre pause et delay?

[invite6ceed97c]

en fait PAUSE origine du Basic Stamp et est utilisé par Melabs PicBasic. Si tu utilise Proton DelayMS est la même chose que Pause. Pause est maintenant inclue dans Proton pour être compatible avec Melabs... meme chose pour PauseuS et Hserout

Si tu utilise Proton, tu devras modifier ton code comme suit... pour être en Pure PROTON

Symbol Boutton = PORTA.0
Symbol led     = PORTA.1
Dim    Delais  As Word

Delais=0
led=0

Start:
      If Boutton=1 Or Delais=2000 Then ' 2000*10mSec=20Secondes
          Delais=0       ' remettre compteur a zero
          led=1          ' activer Led
          DelayMS 500    ' pause de 500mSec
          led=0          ' desactiver Led
          EndIf

      DelayMS 10         ' pause 10mSec
      Delais=delais+1        
      GoTo Start

[A voir en vidéo sur Futura]

[invite8e8b3404]

Rhhhaaaaaa! J'ai beau essayer dans tous les sens et y a rien à faire. J'ai l'impression que c'est le logiciel Win PicBasic qui est foireux.
Même ce que je pensais qui fonctionnait, ben en fait c'était un hasard, ca marche pas du tout.
J'arrive même pas à faire une bête tempo de qlq secondes: pause 1000 / pause (1000) / pause(1000) / delayms (1000) / delayms 1000 etc..... rien de tout ca ne va!

Pourriez-vous me conseiller un autre logiciel gratuit, pcq je compte pas programmer des pic régulièrement, c'est juste une application que je veux faire...?

Merci

[Gérard]

C'est rarement le logiciel (compilateur), c'est rarement le PIC, c'est (très) souvent ce que le programmeur a écrit.
Gérard.

[dannydan]

Tu peut peut etre essayer de voir sur le site 'officiel' de
winpicbasic . Tu y trouveras certainement de l'aide
sur le language (mot clef utilisés !)