 | Da notare il piano di lavoro riempito di caratteri '▒', senza la presenza del Cursore
lampeggiante e con 2 fasce bianche esterne per il
titolo del programma e per i messaggi interattivi.
La pressione di un tasto qualunque riabilita il Cursore e termina il programma.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_Delay2;
USES Crt,
giobe;
VAR tasto:char;
n:integer;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,
 ');
{*
Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
{******************************}
{* Riempie la prima e l'ultima*}
Riempi3 ( 1, 1,0,7,' ');{* riga con il carattere '
', *}
Riempi3 (25,25,0,7,' ');{* (uno spazio) con colore
Ne-*}
{* ro su Bianco (7)
*}
{******************************}
TextColor (0);
TextBackground (7);
GotoXY (22,1);
write ('Programma Test per la procedura ~Delay2~');
{Cornice5
(rig,lar,alt,txt,sfo,tipo,modo);}
Cornice5 (
11, 30, 5 , 15, 4 ,
2 , 1 );
FOR n:= 1 TO 10 DO {***********************************}
begin
{*Realizza il contatore e ne stampa*}
GotoXY (41,13); {*il valore;
poiché "ritardo"=18 e *}
write (10-n);
{*il valore minimo è di 1 millise-*}
Delay2 (1000); {*condo, il ritardo è di 1 secondo *}
end;
{***********************************}
TextColor (0);
TextBackground (7);
GotoXY (27,25);
write ('Premi un tasto per terminare');
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un tasto e poi torna a DOS *}
RipCur;
{**************************************}
END.
|
|
