Docsity
Docsity

Prepare-se para as provas
Prepare-se para as provas

Estude fácil! Tem muito documento disponível na Docsity


Ganhe pontos para baixar
Ganhe pontos para baixar

Ganhe pontos ajudando outros esrudantes ou compre um plano Premium


Guias e Dicas
Guias e Dicas


Apostila de Clipper 5.2, Manuais, Projetos, Pesquisas de Linguagem de Programação

COMANDOS DA LINGUAGEM CLIPPER 5.2 Clipper 5.2 Comandos e Funções

Tipologia: Manuais, Projetos, Pesquisas

2021

Compartilhado em 31/05/2021

anderson-diniz-7
anderson-diniz-7 🇧🇷

5

(1)

2 documentos

1 / 137

Toggle sidebar

Esta página não é visível na pré-visualização

Não perca as partes importantes!

bg1
Clipper 5.2 Comandos e Funções
GEEK BRASIL http://www.geekbrasil.com.br 1
ÍNDICE
COMANDOS DA LINGUAGEM CLIPPER 5.2............................................................09
?/?? ......................................................................................................................09
@... BOX.............................................................................................................09
@... CLEAR........................................................................................................10
@... SAY...GET ..................................................................................................11
@... PROMPT.....................................................................................................12
@... TO................................................................................................................13
ACCEPT .............................................................................................................13
APPEND BLANK...............................................................................................14
APPEND FROM.................................................................................................15
AVERAGE..........................................................................................................16
BEGIN SEQUENCE...........................................................................................16
CALL ..................................................................................................................17
CANCEL.............................................................................................................17
CLEAR ALL.......................................................................................................17
CLEAR GETS ...................................................................................................18
CLEAR MEMORY.............................................................................................18
CLEAR SCREEN ...............................................................................................18
CLEAR TYPEAHEAD.......................................................................................18
CLOSE................................................................................................................18
COMMIT ............................................................................................................19
CONTINUE ........................................................................................................20
COPY FILE.........................................................................................................21
COPY STRUCTURE..........................................................................................21
COPY STRUCTURE EXTENDED ...................................................................21
COPY TO............................................................................................................22
COUNT...............................................................................................................22
CREATE.............................................................................................................22
CREATE FROM.................................................................................................23
DECLARE ..........................................................................................................23
DELETE..............................................................................................................23
DELETE FILE ....................................................................................................24
DIR......................................................................................................................24
DISPLAY............................................................................................................25
DO.......................................................................................................................25
DO CASE............................................................................................................25
DO WHILE .........................................................................................................26
EJECT.................................................................................................................27
pf3
pf4
pf5
pf8
pf9
pfa
pfd
pfe
pff
pf12
pf13
pf14
pf15
pf16
pf17
pf18
pf19
pf1a
pf1b
pf1c
pf1d
pf1e
pf1f
pf20
pf21
pf22
pf23
pf24
pf25
pf26
pf27
pf28
pf29
pf2a
pf2b
pf2c
pf2d
pf2e
pf2f
pf30
pf31
pf32
pf33
pf34
pf35
pf36
pf37
pf38
pf39
pf3a
pf3b
pf3c
pf3d
pf3e
pf3f
pf40
pf41
pf42
pf43
pf44
pf45
pf46
pf47
pf48
pf49
pf4a
pf4b
pf4c
pf4d
pf4e
pf4f
pf50
pf51
pf52
pf53
pf54
pf55
pf56
pf57
pf58
pf59
pf5a
pf5b
pf5c
pf5d
pf5e
pf5f
pf60
pf61
pf62
pf63
pf64

Pré-visualização parcial do texto

Baixe Apostila de Clipper 5.2 e outras Manuais, Projetos, Pesquisas em PDF para Linguagem de Programação, somente na Docsity!

ÍNDICE

Comandos da Linguagem Clipper 5.

Propósito: Mostrar um ou mais valores na console (vídeo)

ou impressora.

Sintaxe: ?/?? <Lista de expressões>

Exemplo:

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

@... BOX

Propósito: Construir um box (caixa) na tela.

Sintaxe: @ ,, , <Col

final>, BOX

Exemplo:

LOCAL C,L

/* 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

@... CLEAR

Propósito: Apagar (limpar) apenas uma área específica da tela.

Sintaxe: @ < Lin inicial >, < Col inicial

> CLEAR

[TO,]

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 20,20 DOUBLE / / desenha uma moldura (quadro)

VCODIGO : = 0

// 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

@... PROMPT

Propósito: Montar um menu de opções selecionáveis na tela.

Sintaxe: @ < linha >, < coluna >”< opção >” [

MESSAGE ]

Exemplo:

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”

@ L+3,C PROMPT “EXCLUSÃO” MESSAGE “EXCLUSÃO DE DADOS”

@ L+4,C PROMPT “RELATÓRIOS” MESSAGE “RELATÓRIOS DO SISTEMA”

@ L+5,C PROMPT “UTILITÁRIOS” MESSAGE “UTILITÁRIOS DO SISTEMA”

@ L+6,C PROMPT “F I M” MESSAGE “RETORNO AO DOS”

// 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

@... TO

Propósito: Desenha um quadro (moldura) a partir de

coordenadas específicas da tela.

Sintaxe: @ , TO ,

[DOUBLE]

Exemplo:

SET COLOR TO B+/N

@ 10,10 CLEAR TO 20,

@ 10,10 TO 20,20 DOUBLE

ACCEPT

Propósito: Cria uma entrada de dados via teclado e armazenar

o conteúdo digitado em uma variável (tipo caracteres).

@ 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 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

Propósito: Anexa registro de um arquivo especificado para

o arquivo que se encontra aberto na área corrente

de trabalho.

Sintaxe: APPEND FROM [] [ FIELDS

] [FROM ]

[FOR <condição>] [WHILE <condição>]

[SDF/DELIMITED]

[WHITH BLANK / ]

Exemplo:

USE .....................................................................................................................

APPEND FROM COPIAF FOR .NOT. DELETED( ) // copia apenas os //registros não marcados

? “termino da copia”

AVERAGE

Propósito: Calcular a média aritmética de campos ou expressões

de arquivos de dados.

Sintaxe: AVERAGE TO <var’s> []

[FOR<condição>] [WHILE <condição>]

Exemplo:

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.

BEGIN SEQUENCE

Propósito: Define uma seqüência de comandos para uma BREAK.

Sintaxe: BEGIN SEQUENCE

... COMANDOS

[ BREAK [<expressão>] ]

... COMANDOS

[ RECOUVER [ USING <variável> ] ]

... COMANDOS

CLEAR GETS

Propósito: Libera todos os Gets pendente.

Sintaxe: CLEAR GETS

CLEAR MEMORY

Propósito: Libera todas as variáveis Públicas e Privadas

da memória.

Sintaxe: CLEAR MEMORY

CLEAR SCREEN

Propósito: Limpa a tela sem liberar os Get’s pendentes.

Sintaxe: CLEAR SCREEN

CLEAR TYPEAHEAD

Propósito: Libera todas as pendências de teclagens do Buffer

(fila) do teclado.

Sintaxe: CLEAR TYPEAHEAD

Exemplo:

/* 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

CLEAR MEMORY.............................................................................................

BROWSE (5, 5, 23, 75) // folheia os registros do B.D.

CLOSE

Propósito: Fechar arquivos, de qualquer tipo, que se

encontrem devidamente abertos.

Sintaxe: CLOSE <área>< tipo>

Exemplo:

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.

COMMIT

Propósito: Realiza a gravação em discos de todos os Buffers

dos arquivos abertos.

Sintaxe: COMMIT

Exemplo:

/* 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