Pascal: Villogó szöveg

Ismét egy csodálatos programocska. E remek annyit csinál, hogy bekér egy szöveget, majd kiírja villogva. Beállítható a villogás színe, sebessége, időtartama is.

[Letöltöm]

Szerkezete:

Program villog;

Uses crt;

Var b,i,s,z,mit,mennyi,sebesseg :integer;
a,k :string;

Procedure villog;

Begin

//Itt megadom az értékeket

b:=12;
i:=0;
Clrscr;
TextColor(7);
GoToXY(4,4);
Writeln(‘Kérem a szöveget!’);
Readln(a);
Repeat

//Kikapcsolom a kurzort

CursorOFF;
Clrscr;

//Számoltatok a programmal. Ahányszor lefut, az i értéke annyi lesz
//ezért adtam meg az elején, ha többször futtatod, 0ról kezdje a számolást

inc(i);

//Megadod: HA b = zölddel akkor b legyen egyenlő kékkel
//különben b legyen egyenlő zölddel

if  b=s then b:=z
Else b:=s;

//Elhelyezem a szöveget az X,Y tengelyeken

GoToXY(10,10);

//Megadom a szöveg színt

TextColor(b);
Writeln(a);

//Delay várakozást jelent ms-ben

Delay(sebesseg);
Until i=mennyi;
End;

// Itt bekérem a színeket
//Vigyázz, a színeket számok formályában add meg
//0-tól 15-ig !
//PL.: 12 = piros

Procedure szin;
Begin
Repeat
Clrscr;
Writeln(‘Add meg az első színt: ‘);
Readln(s);
Writeln(‘Add meg a második színt: ‘);
Readln(z);
Writeln(‘A mostrani színek: ‘);
Writeln;

//Megmutatom őket

TextColor(s);
Writeln(‘Első’);
TextColor(z);
Writeln(‘Második’);
TextColor(7);

//Majd megkérdem, jók-e

Writeln(‘ Megfelelnek a színek? (i)Igen – (n)Nem’);
Readln(k);
Until k=’ i ‘;
End;

Procedure hossz;
Begin
Clrscr;

//Bekérem a gyorsaságot és a hosszt

Writeln(‘Kérem a villogás hosszát [ Ajánlott: 10 ]‘);
Readln(mennyi);
Writeln;
Writeln(‘Most kérem a sebességét [ Ajánlott: 100 ]‘);
Readln(sebesseg);
End;

//Ez a menü lelke - Bővebben ITT

Begin
Clrscr;
Repeat;
GoToXY(2,4);
TextColor(7);
Writeln(‘ 1 – Villog’);
Writeln(‘  2- Színt váltok’);
Writeln(‘  3 – Villogás hosszát, sebességét állítom’);
Writeln(‘  1 – Kilépés’);
Readln(mit);

Case mit of
1: villog;
2: szin;
3: hossz;
End;
Until mit=0;
End.

Bárki bármilyen hibát észlel, tessék jelezni !