Recuperer texte et afficher *
Fermé
drodidier
Messages postés
3
Date d'inscription
jeudi 24 mars 2011
Statut
Membre
Dernière intervention
16 mai 2011
-
Modifié par drodidier le 15/05/2011 à 23:57
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 16 mai 2011 à 10:52
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 16 mai 2011 à 10:52
A voir également:
- Recuperer texte et afficher *
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Recuperer message whatsapp - Guide
4 réponses
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 004
Modifié par KX le 16/05/2011 à 10:49
Modifié par KX le 16/05/2011 à 10:49
Je ne sais pas trop comment le faire avec des étoiles, mais voici une méthode qui t'ira surement.
1) Je change la couleur du texte avec celle du fond de la console.
2) Je remonte mon curseur pour effacer les lignes que je ne veux plus voir affichées.
Tu trouveras plus d'informations sur le tutoriel de Cyberzoïde auquel je me réfère toujours lorsque je veux faire des trucs un peu sophistiqué de ce genre.
1) Je change la couleur du texte avec celle du fond de la console.
2) Je remonte mon curseur pour effacer les lignes que je ne veux plus voir affichées.
Tu trouveras plus d'informations sur le tutoriel de Cyberzoïde auquel je me réfère toujours lorsque je veux faire des trucs un peu sophistiqué de ce genre.
program drodidier;
uses crt; // ou wincrt selon les versions
const FONDECRAN = 0; // noir
const COULEURTEXTE = 7; // gris
var s:string; i,y:integer;
begin
// Début du programme
textbackground(FONDECRAN);
textcolor(COULEURTEXTE);
for i:=1 to 5 do
writeln('bla bla bla');
// Début de la section à protéger
y:=wherey; // position de la ligne à partir de laquelle effacer
write('Entrez un texte secret : ');
// On cache le texte écrit
textcolor(FONDECRAN);
readln(s);
// On efface les lignes précédentes
for i:=wherey downto y do // on remonte jusqu'à l'indicateur
begin
gotoxy(1,i); // on remonte d'une ligne
clreol; // on efface la ligne
end;
// On reprend le cours normal du programme
textcolor(COULEURTEXTE);
writeln('Votre texte a bien ete pris en compte, merci.');
for i:=1 to 5 do
writeln('bla bla bla');
readln;
end.La confiance n'exclut pas le contrôle
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 004
15 mai 2011 à 23:51
15 mai 2011 à 23:51
Bonne idée !
Et bien, en cas de problème tu sais où nous trouver ;-)
Et bien, en cas de problème tu sais où nous trouver ;-)
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 004
16 mai 2011 à 00:14
16 mai 2011 à 00:14
Bon alors je m'y colle quand même, qu'est-ce que tu veux faire exactement ?
drodidier
Messages postés
3
Date d'inscription
jeudi 24 mars 2011
Statut
Membre
Dernière intervention
16 mai 2011
16 mai 2011 à 00:22
16 mai 2011 à 00:22
Ce que je veux faire exactement: un programme en turbo pascal.
lorsqu'on tape une lettre sur le clavier au lieu d'afficher la lettre en question qu'il affiche * a la place de cette lettre.
exemple:
bonjour --->*******.
lorsqu'on tape une lettre sur le clavier au lieu d'afficher la lettre en question qu'il affiche * a la place de cette lettre.
exemple:
bonjour --->*******.
16 mai 2011 à 10:52