




























































































Estude fácil! Tem muito documento disponível na Docsity
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Prepare-se para as provas
Estude fácil! Tem muito documento disponível na Docsity
Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity
Encontra documentos específicos para os exames da tua universidade
Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade
Responda perguntas de provas passadas e avalie sua preparação.
Ganhe pontos para baixar
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
COMANDOS DA LINGUAGEM CLIPPER 5.2 Clipper 5.2 Comandos e Funções
Tipologia: Manuais, Projetos, Pesquisas
1 / 137
Esta página não é visível na pré-visualização
Não perca as partes importantes!





























































































CLEAR / / limpa a tela ? “Exemplo do comando ?” / / exibe a informação no vídeo ? date ( ) / / exibe a data ( nova linha ) ? ”a data de hoje é..:” ?? date ( ) / / exibe na mesma posição anterior do cursor
/* MODULO : M.PRG FUNÇÃO: ACESSAR TODOS OS PROGRAMAS */ SAVE SCREEN TO TECLADOS CLEAR SET DATE BRIT SET CONFIRM ON SET DELETE 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
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 20,20 DOUBLE / / desenha uma moldura (quadro)
// os pontos serão editados, porem não serão gravados na // variável. @ 12,15 SAY “CÓDIGO....:” GET VCODIGO PICTURE “@R 99.999.999” READ
VALORI : = 0 // será aceito na digitação um valor que esteja compreendido // entre 0 e 1000. @ 15,15 SAY “VALOR....:” GET VALORI PICT “ 9999 ” RANGE (0,1000) READ
VALORII : = 0 // aceita apenas valores positivos
@ 16,50 SAY “VALOR....:” GET VALORII VALID (VALORII > 0) READ
Local OPC : = 1 SET WRAP ON // habilita a rolagem da barra entre os extremos // do menu SET MESSAGE TO 23 CENTER // determina a saída de mensagens da // linha 23 da tela DO WHILE .T. CLEAR // LIMPA A TELA // cria variáveis para facilitar as coordenadas do menu
L: = 8
C: = 32 // montar a tela @ 01,01 TO 24,79 DOUBLE @ 02,02 TO 04, @ 03,01 SAY “ALT CONTROL INFORMÁTICA LTDA.” @ 03,60 SAY DATE( ) @ 03,70 SAY TIME( ) // detalha o menu de barras @ L,C PROMPT ”INCLUSÃO” MESSAGE “INCLUSÃO DE DADOS” @ L+1,C PROMPT “ALTERAÇÃO” MESSAGE “ALTERAÇÃO DE DADOS”
@ L+2,C PROMPT “CONSULTA” MESSAGE “CONSULTA DE DADOS”
// executa o menu e controla a barra MENU OPC DO CASE // faca os casos
CASE OPC = 1 DO PROG CASE OPC = 2 DO PROG CASE OPC = 3 DO PROG CASE OPC = 4 DO PROG CASE OPC = 5 DO PROG CASE OPC = 6 DO PROG CASE OPC = 7 CANCEL // cancela a execução do programa ENDCASE INKEY(0) // aguarda QQ tecla ENDDO
IF CODVAR = 0 // verifica se o usuário não digitou o código
OP: = “S” // cria a variável OP @ 21,15 SAY “SAI DESTE MODULO.(S/N)..:” GET OP PICT “A” READ IF OP = “S” // verifica a resposta do usuário RETURN // retorne ENDIF LOOP // sobe a execução para linha do DO WHILE ENDIF // fim do se SEEK CODVAR // pesquisa no índice o conteúdo da variável // CODVAR IF EOF( ) // se não existe APPEND BLANK // tenta criar um registro em branco // entra com o restante dos dados do funcionário @ 10,10 SAY “NOME FUNCIONÁRIO..:” GET NOMEVAR PICTURE “@!” @ 12,10 SAY “SETOR TRABALHO....:” GET SETORVAR PICT “@9” @ 14,10 SAY “CARGO FUNCIONAL...:” GET CARGOVAR PICT “@!” @ 16,10 SAY “SALÁRIO...........:” GET SALARIOVAR PICT “9999999.99” @ 18,10 SAY “FUNCIONÁRIO ATIVO.:” GET ATIVOVAR @ 20,10 SAY “DATA ADMISSÃO.....:” GET DATAVAR READ // grava os dados no registro em branco REPLACE COD WITH CODVAR REPLACE NOME WITH NOMEVAR REPLACE SETOR WITH SETORVAR REPLACE CARGO WITH CARGOVAR REPLACE ATIVO WITH ATIVOVAR REPLACE DTADM WITH DATAVAR REPLACE SALÁRIO WITH SALARIOVAR @ 21,20 SAY “** CADASTRO ” WAIT “ “ // aguarda QQ tecla COMMIT // atualiza fisicamente o registro ELSE // se não @ 21,20 SAY “ REGISTRO JÁ CADASTRADO **” WAIT “ “ // aguarda QQ tecla ENDIF ENDDO
APPEND FROM COPIAF FOR .NOT. DELETED( ) // copia apenas os //registros não marcados
? “termino da copia”
USE FOLHA // abre o arquivo de dados AVERAGE SALÁRIO, COMISSÃO TO vcom // calcula e armazena nas // variáveis
? “media salarial....:”+str(vsal) ? “media das comissões...:”+str(vcom = “A” // calcula a media // salarial, armazenando o // resultado na variável VSAL, // porém somente dos funcionários // que trabalhem no setor A.
/* Neste exemplo antes de folhear o banco de dados com a função BROWSE( ) é garantido que não existirá nenhuma pendência de teclas do buffer do teclado, pois o mesmo será limpo através de
BROWSE (5, 5, 23, 75) // folheia os registros do B.D.
CLOSE ALL // fecha todos os arquivos, de qualquer tipo // abertos em todas as áreas. CLOSE folha INDEXES // fecha todos os arquivos de índices // que estiverem abertos na área //(ALIÁS) FOLHA.
/* NOME DO PROGRAMA: CADMONO1.PRG AUTOR : GORKI STARLIN FUNÇÃO: ESTE MODULO ANEXA DADOS NO ARQUIVO PAGAMENTO / SET DATE TO BRIT // põe as datas no formato DD/MM/AA CLEAR // abre o arquivo e o incide USE FOLHA INDEX CODX,NOMEX // abre o arquivo de dados e o de índice DO WHILE .T. CLEAR SET COLOR TO //põe cor padrão // lay out @ 01,01 TO 24,79 DOUBLE @ 02,02 TO 04, @ 03,03 SAY “ALT CONTROL INF” @ 03,60 SAY DATE( ) @ 03,70 SAY TIME( ) // CRIAR VARIÁVEIS CODVAR := SETORVAR := SALARIOVAR := 0 NOMEVAR := SPACE(35) CARGOVAR := SPACE(15) ATIVOVAR := (.T.) DATAVAR := CTOD (“ / / “) // entrada de dados @ 06,10 SAY “* CADASTRAMENTO DE FUNCIONÁRIOS **” @ 08,10 SAY “CÓDIGO...........:” GET CODVAR PICTURE “ 9999 ” READ IF CODVAR = 0 // verifica se o usuário não digitou o código OP := “S” // cria variável OP // pergunta se o usuário deseja sair do programa