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
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.
Limpa a tela e coloca o cursor no canto superior esquerdo.
Sintaxe: Clrscr;
Exemplo:
Uses Crt;
Begin
Write( 'Isto vai ser apagado');
Clrscr;
End.
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.
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.
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.
Seleciona exibição de vídeo de alta intensidade.
Sintaxe: HighVideo;
Exemplo:
Uses Crt;
Begin
Write( ' Texto cinza');
HighVideo;
Write( ' Texto branco');
End.
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.
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.
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.
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.
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.
Desativa o som emitido pelo speaker
Sintaxe: Nosound;
Exemplo:
Uses Crt;
Begin
Sound(800);
Delay(200);
Nosound;
End.
É uma função que lê uma tecla e retorna sem ecoá-la.
Exemplo:
Begin
Write(' Tecle Algo')
Write(' Você digitou ', readkey);
End.
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.
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.
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.
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.
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.
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.