 | Per la natura autocentrante di
Esplosione bisogna calcolare per tentativi le coordinate
"rig”,”col" del suo angolo in alto a sinistra a partire dalle dimensioni
“lar“,“alt“ dell’ingombro finale di Esplosione, a partire dai seguenti algoritmi:
 | riga
iniziale:
rig = [(25-alt) DIV 2] +1; |
| colonna
iniziale: col = [(80-lar) DIV 2]+1
(se 25-lar è pari) o
col = [(80-lar) DIV 2]+2
(se 25-lar è dispari) |
| dimensioni
lar1 = lar - 2 ,
alt1 = alt - 1
(dato che
RECUPcorn
prevede la presenza dell'ombra): |
|
Esempio di
Applicazione n°2 |
Es.
n°1 |
 |
 |
 |
|
PROGRAM Prova_Esplosione_B;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{*
Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
{Esplosione (ritardo,lar,alt,txt,sfo,tipo,numPAG);}
Esplosione(
10 , 40, 15, 14, 1 , 2 , 2
);
GotoXY (30,8);
write ('Prova di Esplosione');
{**************************************}
tasto:=readkey; {* Aspetta la
pressione di un tasto *}
{**************************************}
{RECUPcorn (rig, col, lar1, alt1, numPAG);}
RECUPcorn (
6 , 21, 40-2, 15-1, 2 );
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
