 | l codice proposto disegna un’area di spazi di tipo
Cornice1, colorati in Bianco Brillante
("txt"=15) su Blu ("sfo"=1), racchiusa tra il carattere in alto a sinistra posto alle coordinate
5,20
("ri,co“),
larga “lar“=40 e alta
“alt“=15,
con bordo di
“tipo“=1 (“ “)
, in “modo”=1, cioè con l’aggiunta di uno spazio a sinistra e a destra dei lati verticali del bordo. |
| Per la natura dedicata di
PreImplos
(che, dopo aver chiamato
|
Esempio di
Applicazione n°1 |
Es.
n°2 |
 |
 |
 |
|
PROGRAM Prova_Implosione_A;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
{PreImplos(rig,col,lar,alt,txt,sfo,numPAG);)
PreImplos
( 5, 20, 40, 15, 14, 1 , 2 );
GotoXY (30,8);
write ('Prova di Esplosione');
{**************************************}
tasto:=readkey; {*
Aspetta la pressione di un tasto *}
{**************************************}
{Implosione (ritardo, rig, col, lar, alt, sfo, numPAG);}
Implosione
( 10 , 5 , 20,
40, 15, 1 , 2) ;
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
