Libreria delle ProcedureGestione Caratteri

Entra nella Libreria GIOBE.TPU

 RECUPchr

ESEMPIO DI APPLICAZIONE [2 di 4]  

    
bulletIl codice mostra l'azione di RECUPchr
bulletviene creata una fascia di 9 righe centrali formata da asterischi bianchi (15) su sfondo rosso (4)
bulletdopo la pressione di un tasto qualunque la SalvaChr provvede a salvare nella Pagina 2 della Ram del Video la stringa di 80 caratteri posta sulla riga mediana (80 asterischi Ascii e 80 codici di colore)
bulletsubito dopo la fascia di nove righe centrali viene sostituita con un'altra di uguali dimensioni, ma formata da cancelletti gialli (14) su sfondo blu (1)
bulletdopo la pressione di un tasto qualunque la RECUPchr recupera dalla Pagina 2 della Ram del Video la stringa salvata in precedenza (80 asterischi Ascii e 80 codici di colore bianco brillante su rosso), che appare in tutta evidenza in mezzo all'area blu
    
Esempio di Applicazione   Mostra Effetto Esegui il Programma Scarica l'Esempio d'Applicazione

PROGRAM Prova_Salva_Recup_Chr;
USES Crt, giobe;
VAR i: integer;
    tasto:char;
BEGIN
  TextBackground(0);
  Clrscr;
  Viacur;
  TextBackground(4);            {************************}
  TextColor(15); GotoXY (1,8);  {* Stampa nove righe di *}
  FOR i:=1 to 720 DO            {* asterischi   bianchi *}
    write ('*');                {* su   campo   rosso   *}
                                {************************}

                   {*************************************}
  tasto:=readkey;  {* Aspetta la pressione di un  tasto *}
                   {*************************************}

                         {*******************************}
                         {* Salva il testo posto al cen-*}
  FOR i:=1 to 80 do      {* tro dello schermo (80 carat-*}
                         {* teri) nella  seconda pagina *}
                         {* alternativa della Ram Video *}
                         {*******************************}


  TextBackground(1);            {************************}
  TextColor(14); GotoXY (1,8);  {* Stampa nove righe di *}
  FOR i:=1 to 720 DO            {* asterischi   gialli  *}
    write ('*');                {* su   campo   blu     *}
                                {************************}

                   {*************************************}
  tasto:=readkey;  {* Aspetta la pressione di un  tasto *}
                   {*************************************}

                         {*******************************}
                         {* Recupera il testo posto  al *}
  FOR i:=1 to 80 do      {* tro dello schermo (80 carat-*}
    RECUPchr (12,i,2);   {* ratteri) dalla seconda pagi-*}
                         {* na  alternativa  Ram  Video *}
                         {*******************************}


  tasto:=readkey; {**************************************}
  GotoXY (1,25);  {* Aspetta un tasto e poi torna a DOS *}
  RipCur;         {**************************************}
END.

    
Pagina Precedente Caratteri Pagina Successiva   RECUPchr Lezioni - Vai al DownLoad dei files DOC Torna al Menu "Caratteri"
Esempio Sorgente Mostra
19 di 20

    

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