A voir également:
- Qbasic
- Qbasic - Télécharger - Édition & Programmation
3 réponses
y a une methode un peu crassouille, mais ki marche
entre chake lettre tu mets un
for i=0 to 1000
next i
c pas tres propre mais bon....
remarke, il y a peut etre une primitive "sleep"ki traine, mais je suis franchement pas sur
entre chake lettre tu mets un
for i=0 to 1000
next i
c pas tres propre mais bon....
remarke, il y a peut etre une primitive "sleep"ki traine, mais je suis franchement pas sur
Duch
Messages postés
27
Statut
Membre
61
Dans mes souvenirs, la fonction sleep() (ou wait() d'ailleurs) prend en paramètre un nombre de secondes. La boucle For Next est donc plus appropriée.
Fais plutôt comme ceci:
CLS
CLEAR
f$=CHR$(27)
PRINT("Tapez votre texte: ")
DO
e$=INKEY$
IF(e$<>f$) THEN
PRINT e$;
END IF
LOOP UNTIL e$=f$
PRINT
PRINT ("Saisie du texte terminée")
END
Tu peux définir le caractère qui termine la saisie en modifiant la valeur de f$. Ci-dessus, CHR$(27) corrspond à la touche <ESC>
;-)
HackTrack
CLS
CLEAR
f$=CHR$(27)
PRINT("Tapez votre texte: ")
DO
e$=INKEY$
IF(e$<>f$) THEN
PRINT e$;
END IF
LOOP UNTIL e$=f$
PRINT ("Saisie du texte terminée")
END
Tu peux définir le caractère qui termine la saisie en modifiant la valeur de f$. Ci-dessus, CHR$(27) corrspond à la touche <ESC>
;-)
HackTrack
