voir rapport entre REPEAT-UNTIL et INKEY$

Ayant fait ce matin la boite pour saisir du texte, j'ai été surpris par le comportement de la commande INKEY$. Aussi j'ai fais un micro programme pour regarder de prêt.

Code:

dim a$  ,b$
label go

edit 1:top 1,100:left 1,100
repeat
  a$=INKEY$
  text 1,time$+" "+a$+"  "+str$(len(a$))
  if mouse_x_position(0)=0 then exit_repeat
until a$=chr$(13)
print "sortie de la boucle"


go:
a$=inkey$
if a$="" then goto go
if a$<>chr$(13) then b$=b$+a$:print b$:goto go
print
print "fin du programme"

essayez-le
dans la 1ère partie, on ne récupère rien avec a$=inkey$, j'ai mis time$, pour être sûr de l'actualisation de la boucle. Par contre on sort tout de même par RETURN

J'ai repris l'exemple donné par l'aide de panoramic, en supprimant la boucle REPEAT-UNTIL, et là curieusement, ça fonctionne. Donc on a 1 bog:
1er exemple inkey$ ne fonctionne qu'avec des caractères non visible (cela fonctionne aussi avec <esc>) et voir pourquoi l'emploi de REPEAT-UNTIL, empêche le fonctionnement. (ou alors je ne comprends plus rien)
A+

J'ai renoncé d'utiliser INKEY$, car effectivement çà n'a pas l'air de marcher.
A+

J'ai également un problème avec REPEAT/UNTIL, mais sans INKEY$.

Voici le code pour illustrer

Code:

label insert,quit
dim sc%
dim a$,b$,c$

left 0,223
top 0,182
width 0,550
height 0,492
caption 0,"Form 0"

edit 1
left 1,81
top 1,64
on_change 1,insert

button 2
left 2,340
top 2,200
width 2,70
height 2,20
caption 2,"QUITTER"
on_click 2,quit

set_focus 1

end
rem -----------------------

insert:
a$=upper$(text$(1))
repeat:sc%=scancode:until sc%=13
print_locate 10,10:print a$
set_focus 2
return

quit:
terminate

il y a un message d'erreur (67) no corresponding repeat found. line 34 . Ce message n'apparait pas à tout les coups, et il n'empêche pas l'EXE de tourner.
Ce message met en surbrillance le RETURN suivant REAPEAT/UNTIL. Ce que je ne comprend pas c'est qu'en principe UNTIL est une fin de boucle, et on ne peut pas enlever le RETURN.

A+

C'est vrai que le comportement est plutôt bizarre, avec cette erreur 67 (no corresponding repeat found) qui apparaît de manière aléatoire...

Citation :

C'est vrai que le comportement est plutôt bizarre, avec cette erreur 67 (no corresponding repeat found) qui apparaît de manière aléatoire...

Tu as fait une une faute d'orthographe: aléatoire s'écrit aller à Thouars.

Qu'est-ce que tu veux que j'aille faire à Thouars ? soyons sérieux...