Página Principal     Variáveis da Crt     Índice das Aulas

UNIT  CRT    -   VIDEO E SOM

Observação:  Para usar os  comandos a Unit CRT  deve ser declarada.

Exemplo:

Uses CRT;  { Declaração da Unit  CRT }

Begin

< Comando da Unit CRT >

End.

Índice dos Procedimentos e Funções
 

  •         Clreol - Limpa até o fim da linha
  •         Clrscr - Limpa a  tela
  •         Delay - Retarda o  processamento
  •         Delline - Apaga linha
  •         Gotoxy - Move o Cursor
  •         HighVideo - Muda a intensidade do video
  •         Insline - Insere um  Linha
  •         Keypressed - Devolve true caso uma tecla seja  pressionada
  •         Lowvideo - Muda a intensidade do video
  •         Normvideo - Muda o video para os atributos originais
  •         Nosound - Desativa o comando sound
  •         Readkey - Devolve a tecla pressiona
  •         Sound - Emite um tom ( Pc speaker )
  •         Textbackgound - Muda a cor de fundo
  •         Textcolor - Muda a cor do texto
  •         Textmode - Muda o modo do texto
  •         Wherex - Devolve a posição do cursor (em x)
  •         Wherey - Devolve a posição do curso (em y)
  •         Window - Redefine a "janela de trabalho"

  •  

     

    ClrEol

    Limpa a linha a partir da posição atual do cursor.

    Sintaxe: ClrEol;

    Exemplo:

    Uses Crt;

    { Veja mais  abaixo o uso Gotoxy }

    Begin

    Gotoxy(1,1); { Posiona o cursor nas coordenada 1,1 }
    Write(' TURBO PASCAL 7 ');
    Gotoxy(4,1)  { Posiciona o cursor nas coordenadas 4,1 }
    ClrEol;

    End.

    Voltar ao Índice

    ClrScr

    Limpa a tela e coloca o cursor no canto superior esquerdo.

    Sintaxe: Clrscr;

    Exemplo:

    Uses Crt;

    Begin

    Write( 'Isto vai ser apagado');
    Clrscr;

    End.

    Voltar ao Índice

    Delay

    Retarda  o processamento durante um certo tempo que é  medido em milisegundos.

    Sintaxe:  Delay( Tempo_de_Retardo)

    Tempo_de_Retardo é do tipo Word ( 0 a 65535 )

    Exemplo:

    Uses Crt;

    Begin

    Write( 'Isto vai ser apagado após 5 segundos');
    delay(5000)
    Clrscr;

    End.

    Voltar ao Índice
     

    DelLine

    Apaga  a linha que contém o cursor

    Sintaxe: DelLine;

    Exemplo:

    Uses Crt;

    { Veja logo abaixo o uso Gotoxy }

    Begin

    Gotoxy(1,1); { Posiona o cursor nas coordenada 1,1 }
    Write(' TURBO PASCAL 7 ');
    Gotoxy(4,1)  { Posiciona o cursor nas coordenadas 4,1 }
    DelLine;

    End.

    Voltar ao Índice
     

    Gotoxy

    Posiciona o cursor em uma coordenada da  tela

    Observação : O sistema de coordenadas do pascal tem origem (1,1)  no canto esquerdo superior da tela .Veja a figura abaixo.

    Sintaxe: Gotoxy( Coordenada_X, Coordenada_Y)
     

    Coordenada_X e Coordenada_Y são do tipo Byte  ( 0 a 255 )

    Exemplo:

    Uses Crt;

    { Veja mais  abaixo o uso Gotoxy }

    Begin

    Gotoxy(10,10); { Posiona o cursor nas coordenada 1,1 }
    Write(' TURBO PASCAL 7 ');

    End.

    Voltar ao Índice

    HighVideo

    Seleciona exibição de vídeo de alta intensidade.

    Sintaxe: HighVideo;

    Exemplo:

    Uses Crt;

    Begin
    Write( ' Texto cinza');
    HighVideo;
    Write( ' Texto branco');
    End.

    Voltar ao Índice

    Insline

    Insere Linha em branco onde o cursor está.

    Sintaxe: Insline;

    Exemplo:

    Uses Crt;

    Begin

    ClrScr; { apaga a tela  }
    Writeln(' TURBO PASCAL 7' );
    Write('e sim do algoritmo');
    Gotoxy(1,2);
    Insline;
    Write('Um bom programa não depende da linguagem')

    End.

    Voltar ao Índice

    Keypressed

    Keypressed é uma função que retorna o valor  true se o usuário pressionou alguma tecla.

    Exemplo:

    Uses Crt;

    Begin

    Repeat
    Writeln('Tecle algo');
    Delay(2000); { Retarda o processamento em 2 segundos }
    Until Keypressed;
    Write('Valeu!!');

    End.

    Voltar ao Índice
     

    LowVideo

    Seleciona exibição de vídeo de baixa intensidade.

    Sintaxe: LowVideo;

    Exemplo:

    Uses Crt;

    Begin

    Textcolor(white);
    Write(' Texto Branco ');
    LowVideo;
    Write(' Texto Cinza ');

    End.

    Voltar ao Índice

    NormVideo

    Retorna os atributos de texto para o valor original quando o programa foi inicializado.

    Sintaxe: Normvideo;

    Exemplo:

    Uses Crt;

    Begin
    Writeln('Cor original do seu video');
    Textcolor( red );
    Textbackground(white)
    Writeln('Os atributos do video mudaram');
    NormVideo;
    Write('Os atributos do video voltaram ao original');

    End.

    Voltar ao Índice

    Sound

    Emite um tom a partir do speaker

    Sintaxe: Sound( frequencia );

    A frequencia é do tipo Word ( 0 a 65535 ) e sua unidade é  o Hz.

    Depois de ativado, o tom permanece ligado até ser desativado pelo Nosound

    Exemplo:

    Uses Crt;

    Begin

    Sound(800);
    Delay(200);
    Nosound;

    End.

    Voltar ao Índice

    Nosound

    Desativa o som emitido pelo speaker

    Sintaxe: Nosound;

    Exemplo:

    Uses Crt;

    Begin

    Sound(800);
    Delay(200);
    Nosound;

    End.

    Voltar ao Índice

    ReadKey

    É uma função que lê uma tecla e retorna sem ecoá-la.

    Exemplo:

    Begin
    Write(' Tecle Algo')
    Write(' Você digitou ', readkey);
    End.

    Voltar ao Índice

    TextBackGround

    Seleciona a cor de fundo paraa saída de texto.

    Sintaxe1: TextBackGround (Nome_da_cor_em_ingles);
    Sintaxe2: TextBackGround (Valor_numerico_da_cor);
     
     
    Nome_da_cor_em_ingles Valor_numérico_da_cor Cor em Portugues
    Black ou DarkGray 0 Preto
    Blue ou LightBlue 1 Azul
    Green  ou   LightGreen 2 Verde
    Cyan   ou  LightCyan 3 Ciânico
    Red ou LightRed 4 Vermelho
    Magenta ou LightMagenta 5 Magenta
    Brown ou Yellow 6 Marrom
    White ou  LightGray 7 Branco

    Observação: Para valores maiores que 7 as cores vão repetindo-se.

    Exemplo:

    Uses Crt;

    Begin

    TextBackground(Green);
    Writeln( 'O fundo está verde );
    TextBackground(4);
    Write('O fundo está vermelho');

    End.

    Voltar ao Índice

    TextColor

    Seleciona a cor do caracter do texto

    Sintaxe1: TextColor(Nome_da_cor_em_ingles);
    Sintaxe2: TextColor(Valor_numerico_da_cor);
     
     
    Nome_da_cor_em_ingles Valor_numérico_da_cor Cor em portugues
    Black 0 Preto
    Blue 1 Azul
    Green 2 Verde
    Cyan 3 Ciânico
    Red 4 Vermelho
    Magenta 5 Magenta
    Brown 6 Marrom
    LightGray 7 Cinza Claro
    DarkGray 8 Cinza Escuro
    LightBlue 9 Azul Claro
    LightGreen 10 Verde Claro
    LightCyan 11 Ciânico Claro
    LightRed 12 Vermelho Claro
    LightMagenta 13 Magenta Claro
    Yellow 14 Amarelo
    White 15 Branco Brilhante

    Exemplo:

    Uses Crt;

    Begin

    TextColor(Green);
    Writeln( 'Este Texto está verde');
    Textcolor(4);
    Write('Este texto está vermelho');

    End.
     

    Observação: Para  valores maiores que 15  as cores repetem-se porém o texto  pisca.

    Exemplo:

     TextColor(17);  Este comado faz o texto ficar com a cor azul e piscar.

    Uma outra forma de fazer o texto piscar é usar a cor e adiciona + Blink

    Sintaxe1: TextColor(Nome_da_cor_em_ingles + Blink );
    Sintaxe2: TextColor(Valor_numerico_da_cor + Blink);

    Exemplo:

    Uses Crt;

    Begin

    TextColor(Green + Blink);
    Writeln( 'Este Texto está verde e piscando' );
    TextColor(17);
    Write('Este texto está azul o piscando');

    End.

    Voltar ao Índice

    Textmode

    Seleciona o modo de exibição de vídeo do texto especificado

    Sintaxe
     
    Comando Modo
    TextMode(CO40) 40 colunas e 25 linhas 
    TextMode(CO40 + font8X8) 40 colunas e 50 linhas
    TextMode(CO80) 80 colunas e 25 linhas
    TextMode(CO80 + font8x8) 80 colunas e 50 linhas

    Exemplo:

    Uses Crt;

    Begin

    TextMode(CO40)
    Writeln( 'Letras  grandes');
    Delay(5000);  { Retarda o processo por 5 segundos }
    TextMode(CO80 + font8x8)
    Write('Letras Pequenas');
    Readln;

    End.

    Voltar ao Índice

    Wherex

    Função que retorna a coordenada x ( posição da coluna atual)  do cursor

    Sintaxe

    Wherex;

    Exemplo:

    Uses Crt;

    Begin

    Gotoxy(3,4); { Coloca o cursor na posição 3,4 )
    Writeln('A coordenada x do cursor é', Wherex);

    End.

    Voltar ao Índice

    Wherey

    Função que retorna a coordenada y ( posição da linha atual )  do cursor

    Sintaxe

    Wherey;

    Exemplo:

    Uses Crt;

    Begin

    Gotoxy(3,4); { Coloca o cursor na posição 3,4 )
    Writeln('A coordenada y do cursor é', Wherey);

    End.

    Voltar ao Índice

    Window

    Define a área da tela à qual deve-se restringir a saída de texto.

    Sintaxe

    Window(x1,y1,x2,y2);

    x1 - coordenada x do canto  superior esquerdo da janela
    y1 - coordenada y do canto  superior esquerdo da janela
    x2 - coordenada x do canto  inferior   direito da janela
    y2 - coordenada y do canto  superior direito da janela

    Veja a figura abaixo:

    Exemplo:

    Uses Crt;

    Begin

    Window(10,10,30,20);
    Write('TURBO PASCAL 7');

    End.


     Página Principal     Variáveis da Crt     Índice das Aulas