Discussion :

[christo766100]

Bonsoir à tous,

Je voulais savoir s'il existait une fonction en Pascal qui permettait de faire clignoter du texte.

Merci d'avance.

[Roland Chastain]

Bonjour !

Faire clignoter du texte dans une console ou bien ailleurs ?

[christo766100]

Oui dans la console

[Roland Chastain]

On peut bricoler quelque chose avec l'unité Crt.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program clignotant;
 
uses
  Crt;
 
begin
  TextBackground(Black);
  TextColor(Yellow);
  ClrScr;
  repeat
    GoToXY(3, 2);
    Write('Je clignote');
    Delay(500);
    TextColor(Black);
    GoToXY(3, 2);
    Write('Je clignote');
    Delay(500);
    TextColor(Yellow);
  until KeyPressed;
end.

[christo766100]

J'ai compris. Merci de votre aide

[NOVICE76]

instruction TEXTCOLOR (128);

[yamer]

Normalement on peut faire clignoter du texte en ajoutant l'attribut Blink à la couleur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  TextBackground(Black);
  TextColor(Yellow + Blink);
  Write('texte clignotant');

Cependant cela ne fonctionne pas partout. Par exemple sous Linux cela fonctionne dans les émulateur de terminal xterm et Konsole (de KDE) mais par dans Terminal (de xfce). J'imagine que cela fonction sous windows mais je n'ai pas de quoi tester sous la main.

De toutes façons c'est le genre de truc à donner la migraine à un caméléon alors...