Qbasic
Je souaiterais dans la programation en qbasic faire écrir un texte à l'écran mais qu'il aparaisse comme ci j'était entrain de le taper letres par letres.
Merci d'avance
Merci d'avance
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 -
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 -
affiche de texte deroulant vers la droite (mode a l'americaine)
CYCLE = 1750000
f$ = CHR$(27)
i = 1
CLS
INPUT "tapez votre texte:"; txt$
LOCATE 10, 30
DO
PRINT MID$(txt$, i, 1);
i = i + 1
FOR K = 1 TO CYCLE: NEXT K
LOOP UNTIL i = LEN(txt$) + 1
END
