Mikrobasic et 16f84

[invitec25c7d0a]

Bonjour à tous,
je souhaite allumer 2 LED après un appuie long sur un BP.
BP sur RB0
1 LED sur RB4
et l'autre sur RB5

J'ai donc écris ce programme:

program appuie_long_bp

dim i as integer

main:
trisb.0=1
trisb.4=0
trisb.5=0
i=0
OPTION_REG=%10000000
goto hipl

hipl:
while true
if Button(PORTB,0,1,0) then
  i=i+1
  while i > 3
  if portb.4 = 1 then
    goto bp0
  else goto bp
  end if
  wend
end if
wend

bp:
portb.4=1
portb.5=1
i=0
goto hipl

bp0:
portb.4=0
portb.5=0
i=0
goto hipl
end.

Mais lorsque j'appuie sur mon BP les LED s'allument et s'éteignent aussitôt que je relache le BP.
Pouvez-vous m'aider s'il vous plaît?
Merci
-----

[invitec25c7d0a]

Please!! Aidez-moi

[invitea7fdb485]

Salut,

Je me base uniquement du point de vue algo pour répondre, et d'aileurs je connais pas ce que fait Button(PORTB,0,1,0).
Mais voici mon idée:

en gros ta temporisation va être de 3, ça fait très court, tu ne pourras pas t'en rendre compte, essaie avec beaucoup plus.

secondo, ton algo est un peu bizarre, j'ai eu un peu de mal à voir comment il marche, voici ce que j'aurai fait:

i=0
boucle infinie
  si bouton relaché alors
    i=0
    éteindre
  sinon
    si i>tempo alors
      allumer
    sinon
      i=i+1
    fin si
  fin si
fin boucle

Taiguen