Libreria delle ProcedureGestione Cornici

Entra nella Libreria GIOBE.TPU

 Implosione 

ESEMPIO DI APPLICAZIONE n°2 [3 di 6]  

    
bullet Il codice propone la sequenza di istruzioni necessarie per garantire l’originale effetto Esplosione-Implosione alla stampa di una cornice.
    
bulletPer 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:
    
bulletriga iniziale:        rig = [(25-alt) DIV 2] +1; 
bulletcolonna iniziale: col = [(80-lar) DIV 2]+1   (se 25-lar è pari) o 
                          col = [(80-lar) DIV 2]+2   (se 25-lar è dispari)
bulletdimensioni         lar1 = lar - 2 , alt1 = alt - 1  (dato che RECUPcorn prevede la presenza dell'ombra):
    
Esempio di Applicazione n°2 Es. n°1 Mostra Effetto Esegui il Programma Scarica l'Esempio d'Applicazione

PROGRAM Prova_Implosione_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   *}
                  {**************************************}

 {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.

    
Pagina Precedente Cornici Pagina Successiva   Implosione Lezioni - Vai al DownLoad dei files DOC Torna al Menu "Cornici"
Esempio1/Esempio2 Sorgente Mostra1/Mostra2
33 di 51

    

PASCAL  »

Libreria Giobe | Librerie Standard | Allegati | Applicazioni | Info | Download
PROCEDURE  »   Caratteri | Mouse | Tastiera | Tempo, Data & Ora
Box | Cornici | Cursore | Aree a Riga Intera | Aree a Schermo Totale
FUNZIONI  »   Caratteri | Mouse | Tastiera | Tempo, Data & Ora
Home 
Pascal|Manuali|Tabelle|Schede
Tutorial Assembly|Palestra Assembler
Aggiungi Giobe®2000 ai preferiti  
Motore
Ricerca
  Rendi Giobe®2000 pagina di Default
© 2001-2010  -  Studio Tecnico ing. Giorgio OBER
Tutti i diritti sono riservati