Informatica

[pic]
Comandos da Linguagem Clipper 5.2

?/?? Propósito: Mostrar um ou mais valores na console (vídeo) ou impressora. Sintaxe: ?/??

Exemplo:

clear / / limpa a tela
? “Exemplo do comando ?” / / exibe a informação no video
? date ( ) / / exibe a data ( nova linha )
?” a data de hoje é..:”
?? date ( ) / / exibe na mesma posição anterior do cursor

@... BOX Propósito: Construir um box (caixa) na tela. Sintaxe: @ ,, , , BOX

Exemplo:

LOCAL C,L
/* MODULO : m.PRG FUNCÃO: ACESSAR TODOS OS PROGRAMAS
*/
SAVE SCREN TO TECLADOS
CLEAR
SET DATE BRIT
SET CONFIRM ON
SET DETELE ON DO WHILE .T.
CLEAR
SET WRAP ON
SET MESSAGE TO 23 CENTER
SET COLOR TO B/W
REBOX=CHR (201) +CHR (205) +CHR (187) +CHR (186) +; CHR (188) +CHR (205) +CHR (200) +CHR (186)
PRIVATE=EMPRESA:= “FACULDADES REUNIDAS LTDA”
L = 08
C = 22
CLEAR
@ 00,00,03,39 BOX RETBOX
@ 00,40,03,79 BOX RETBOX
@ 04,00,21,79 BOX RETBOX+CHR (177)
@ 22,00,24,79 BOX RETBOX
@ 01,02 SAY EMPRESA
@ 01,42 SAY “CONTROLE DE FACULDADE”
@ 01,70 SAY DATE( )
@ 02,42 SAY “MODULO PRINCIPAL”
@ 02,70 SAY TIME ( )
@ 23,02 SAY “MENSAGEM”
@ L-1,C-2,L+7,C+35 BOX RETBOX+CHR(255)
SET COLOR TO
@ L,C PROMPT “PROCESSAR FACULDADES”
@ L+2,C PROMPT “PROCESSAR TABELA DE CURSOS”
@ L+4,C PROMPT “PROCESSAR ALUNO”
@ L+6,C PROMPT “VOLTAR AO D.O.S.”
MENU TO OPC
DO CASE CASE OPC = 1 DO MENUFACU CASE OPC = 2 DO MENUCURS CASE OPC = 3 DO MENUALUN OTHERWISE RESTORE SCREEN FROM TELA TECLADOS CANCEL
ENDCASE
ENDDO

@ . . . CLEAR Propósito: Apagar (limpar) apenas uma área específica da tela. Sintaxe: @ < Lin inicial >, < Col inicial > CLEAR [ΤΟ,]

Exemplo:

SET COLOR TO B+/W / / muda a cor
CLS // equivalente a CLEAR, ou seja limpa toda a tela
SET COLOR TO W+/N / / estabelece um novo padrão de cor
@ 10,10 CLEAR TO 20,20 / / limpa uma região da tela
@ 10,10 TO