Erro Clipper

gamstalden · 04-06-2003, 9:27

Bom pessoal, estou fazendo um sisteminha de principiante em Clipper onde terá inclusão, alteração, exclusão de alunos por exemplo!

A parte de inclusão ja fiz e esta ok! agora comecei a fazer a parte de alteração! mas esta dando um erro que não sei oque pode ser!

O erro é o seguinte:

Código:

Error base/1004 no exported method: display

a compilação é feita com sucesso, link tb! mas quando execulto o prog da isso!

obrigado

Lgub · 04-06-2003, 11:04

Post o codigo, por favor, assim fica muito dificil saber o que ocorre, mais parece que vc esta usando un FUNCTION que não criou, mais daria erro de link,.... Post o codigo...

gamstalden · 04-06-2003, 12:26

Bem, o código fonte deste programa de alteracao não esta aqui no momento... mas assim que puder postarei aqui!

Mas estou fazendo um programinha simples para cáculo de média e esta dando erro também:

"Error BASE/1081 Argument error: +"

Pensei que fosse algum erro de concatenação, mas tirei e coloquei apenas a variável para ser impressa na tela, msm assim o erro persistiu!

O código fonte esta abaixo:

Código:

#INCLUDE "INKEY.CH"
#INCLUDE "BOX.CH"

FUNCTION MAIN()
LOCAL NOME, N1, N2, N3, MEDIA, RESULT
CLS

DO WHILE .T.

@ 1, 1 TO 24, 78 DOUBLE
@ 1, 30 SAY " CÁLCULO DE MÉDIA "

@ 06,20 SAY "NOME   > " GET NOME PICTURE "@!"
@ 08,20 SAY "NOTA 1 > " GET N1 PICTURE "99,99" 
@ 10,20 SAY "NOTA 2 > " GET N2 PICTURE "99,99"
@ 12,20 SAY "NOTA 3 > " GET N3 PICTURE "99,99"
READ

MEDIA := (N1+N2+N3)/3
RESULT := "O ALUNO " + NOME + " OBTEVE A MÉDIA: " + MEDIA

@ 17,20 SAY RESULT                

IF ALERT("DESEJA SAIR ?", {"SIM","NÃO"}) == 1
    EXIT
ELSE
    LOOP
END IF
END DO

RETURN NIL

Bom, se possível analisar a lógica se esta correta!

Obrigado

gamstalden · 05-06-2003, 9:07

Bom dia pessoal!
Alguém teria alguma indicação sobre que livro eu poderia comprar para começar, e tb os mais avançados... se possível algum livro que abranja assunto para iniciantes e mais avançados!!!

Vou postar aqui tb o fonte do programa de alteração que esta apresentando erro que citei na primeira postagem:

Código:

#INCLUDE "INKEY.CH"
#INCLUDE "BOX.CH"

FUNCTION MAIN()
LOCAL NI, cResp:="N", Getlist:={}, aVet:={}

SETCOLOR("W/N,N/W")
CLS
DISPBOX(01,01,24,79,B_DOUBLE)

@ 01, 30 SAY " ALTERA€ÇO DE ALUNOS "

USE ALUNO INDEX RA, NOME

DO WHILE .T.
   @ 09, 17 SAY "RA.....:" GET aVet[1]
   READ
   IF LASTKEY() = K_ESC
        NI:=ALERT("DESEJA CONTINUAR?", {"SIM","NÇO"})
        IF NI == 2
        EXIT
        ENDIF
   ENDIF
   IF DBSEEK(aVet[1])
      @ 11, 17 SAY "NOME....:     " GET aVet[2]
      @ 13, 17 SAY "DATA/NASC....:" GET aVet[3]
      @ 15, 17 SAY "CIDADE....:   " GET aVet[4]
   READ
   IF INKEY() == K_ENTER
      FIELDPUT (2, aVet[2])
      FIELDPUT (3, aVet[3])
      FIELDPUT (4, aVet[4])

      ALERT("ALTERA€ÇO BEM SUCEDIDA")
      ELSE
         ALERT("NÇO FOI POSSÖVEL ALTERAR OS DADOS")
      ENDIF
     ENDIF
     ENDDO
RETURN NIL

Obrigado

Eric Gagulich · 08-06-2003, 21:01

Citação:

Postado Originalmente por gamstalden

MEDIA := (N1+N2+N3)/3
RESULT := "O ALUNO " + NOME + " OBTEVE A MÉDIA: " + MEDIA

Você está tentando concatenar uma variável do tipo alfanumérica (RESULT) com uma variável numérica (MEDIA), neste caso utilize a função STR() OU STRZERO(). É necessário também atribuir o valor inicial das variáveis que serão editadas através do comando GET.

Exemplo:

RESULT := "O ALUNO " + ALLTRIM( NOME ) + " OBTEVE A MÉDIA: " + STR( MEDIA, 4, 2 )

Código:

#INCLUDE "INKEY.CH" 
#INCLUDE "BOX.CH" 

FUNCTION MAIN() 
LOCAL NOME, N1, N2, N3, MEDIA, RESULT 
CLS 

NOME := SPACE( 20 )
N1   := 0
N2   := 0
N3   := 0

DO WHILE .T. 

@ 1, 1 TO 24, 78 DOUBLE 
@ 1, 30 SAY " CÁLCULO DE MÉDIA " 

@ 06,20 SAY "NOME   > " GET NOME PICTURE "@!" 
@ 08,20 SAY "NOTA 1 > " GET N1 PICTURE "99.99" 
@ 10,20 SAY "NOTA 2 > " GET N2 PICTURE "99.99" 
@ 12,20 SAY "NOTA 3 > " GET N3 PICTURE "99.99"
READ 

MEDIA  := (N1+N2+N3)/3 
RESULT := "O ALUNO " + ALLTRIM( NOME ) + " OBTEVE A MÉDIA: " + STR( MEDIA, 4, 2 )

@ 17, 20 SAY RESULT                

IF ALERT("DESEJA SAIR ?", {"SIM","NÃO"}) == 1 
    EXIT 
ELSE 
    LOOP 
END IF 
END DO 

RETURN NIL

gamstalden · 09-06-2003, 11:44

Caro Eric Gagulich,

Obrigado pela ajuda, realmente após as alterações o programa execultou perfeitamente.

Mas voce poderia me dizer oque significa as funções e por qual motivo é necessário inserir no código?

Uma outra dúvida que tenho é que não esta sendo pedido o nome do aluno, pula direto para a nota1.

E em relação ao código do programa de alteração? Voce ou alguém poderia me dizer oque esta de errado?

E por último, que livro alguém teria para indicar? ou site?

obrigado

gamstalden · 09-06-2003, 11:46

Caro Eric Gagulich,

Obrigado pela ajuda, realmente após as alterações o programa execultou perfeitamente.

Mas voce poderia me dizer oque significa as funções e por qual motivo é necessário inserir no código?

Uma outra dúvida que tenho é que não esta sendo pedido o nome do aluno, pula direto para a nota1.

E em relação ao código do programa de alteração? Voce ou alguém poderia me dizer oque esta de errado?

E por último, que livro alguém teria para indicar? ou site?

obrigado

gamstalden · 09-06-2003, 11:48

Caro Eric Gagulich,

Obrigado pela ajuda, realmente após as alterações o programa execultou perfeitamente.

Mas voce poderia me dizer oque significa as funções e por qual motivo é necessário inserir no código?

Uma outra dúvida que tenho é que não esta sendo pedido o nome do aluno, pula direto para a nota1.

E em relação ao código do programa de alteração? Voce ou alguém poderia me dizer oque esta de errado?

E por último, que livro alguém teria para indicar? ou site?

obrigado

04-06-2003, 9:27	#1 (permalink)
gamstalden Super Participante Registrado em: May 2003 Mensagens: 691 Reputação: 19	Erro Clipper Bom pessoal, estou fazendo um sisteminha de principiante em Clipper onde terá inclusão, alteração, exclusão de alunos por exemplo! A parte de inclusão ja fiz e esta ok! agora comecei a fazer a parte de alteração! mas esta dando um erro que não sei oque pode ser! O erro é o seguinte: Código: Error base/1004 no exported method: display a compilação é feita com sucesso, link tb! mas quando execulto o prog da isso! obrigado __________________ <% Gustavo %> gamstalden@yahoo.com.br

04-06-2003, 11:04	#2 (permalink)
Lgub Super Participante Registrado em: Dec 2001 Mensagens: 937 Reputação: 23	Post o codigo, por favor, assim fica muito dificil saber o que ocorre, mais parece que vc esta usando un FUNCTION que não criou, mais daria erro de link,.... Post o codigo... __________________ Linux User:#326216 Intel I7 - 920 - 6G DDR3 Tripple Channel @1600 - Geforce 285 1G. Programador ADVPL(Fazer o que é o que ta pagando as contas no momento...)

04-06-2003, 12:26	#3 (permalink)
gamstalden Super Participante Registrado em: May 2003 Mensagens: 691 Reputação: 19	Bem, o código fonte deste programa de alteracao não esta aqui no momento... mas assim que puder postarei aqui! Mas estou fazendo um programinha simples para cáculo de média e esta dando erro também: "Error BASE/1081 Argument error: +" Pensei que fosse algum erro de concatenação, mas tirei e coloquei apenas a variável para ser impressa na tela, msm assim o erro persistiu! O código fonte esta abaixo: Código: #INCLUDE "INKEY.CH" #INCLUDE "BOX.CH" FUNCTION MAIN() LOCAL NOME, N1, N2, N3, MEDIA, RESULT CLS DO WHILE .T. @ 1, 1 TO 24, 78 DOUBLE @ 1, 30 SAY " CÁLCULO DE MÉDIA " @ 06,20 SAY "NOME > " GET NOME PICTURE "@!" @ 08,20 SAY "NOTA 1 > " GET N1 PICTURE "99,99" @ 10,20 SAY "NOTA 2 > " GET N2 PICTURE "99,99" @ 12,20 SAY "NOTA 3 > " GET N3 PICTURE "99,99" READ MEDIA := (N1+N2+N3)/3 RESULT := "O ALUNO " + NOME + " OBTEVE A MÉDIA: " + MEDIA @ 17,20 SAY RESULT IF ALERT("DESEJA SAIR ?", {"SIM","NÃO"}) == 1 EXIT ELSE LOOP END IF END DO RETURN NIL Bom, se possível analisar a lógica se esta correta! Obrigado __________________ <% Gustavo %> gamstalden@yahoo.com.br

09-06-2003, 11:44	#6 (permalink)
gamstalden Super Participante Registrado em: May 2003 Mensagens: 691 Reputação: 19	Caro Eric Gagulich, Obrigado pela ajuda, realmente após as alterações o programa execultou perfeitamente. Mas voce poderia me dizer oque significa as funções e por qual motivo é necessário inserir no código? Uma outra dúvida que tenho é que não esta sendo pedido o nome do aluno, pula direto para a nota1. E em relação ao código do programa de alteração? Voce ou alguém poderia me dizer oque esta de errado? E por último, que livro alguém teria para indicar? ou site? obrigado __________________ <% Gustavo %> gamstalden@yahoo.com.br

09-06-2003, 11:46	#7 (permalink)
gamstalden Super Participante Registrado em: May 2003 Mensagens: 691 Reputação: 19	Caro Eric Gagulich, Obrigado pela ajuda, realmente após as alterações o programa execultou perfeitamente. Mas voce poderia me dizer oque significa as funções e por qual motivo é necessário inserir no código? Uma outra dúvida que tenho é que não esta sendo pedido o nome do aluno, pula direto para a nota1. E em relação ao código do programa de alteração? Voce ou alguém poderia me dizer oque esta de errado? E por último, que livro alguém teria para indicar? ou site? obrigado __________________ <% Gustavo %> gamstalden@yahoo.com.br

		FórumGdH > Profissional > Programação, scripts, web e banco de dados
Erro Clipper

1. Problema com programa em Clipper no WinXP Pro 2. ERRO DOS 21 em programa clipper alguem do asilo me ajuda... 3. Erro no clipper	4. [TUTORIAL] Clipper funcionando corretamento no Windows XP
Mais resultados? Use nossa pesquisa.

09-06-2003, 11:48	#8 (permalink)
gamstalden Super Participante Registrado em: May 2003 Mensagens: 691 Reputação: 19	Caro Eric Gagulich, Obrigado pela ajuda, realmente após as alterações o programa execultou perfeitamente. Mas voce poderia me dizer oque significa as funções e por qual motivo é necessário inserir no código? Uma outra dúvida que tenho é que não esta sendo pedido o nome do aluno, pula direto para a nota1. E em relação ao código do programa de alteração? Voce ou alguém poderia me dizer oque esta de errado? E por último, que livro alguém teria para indicar? ou site? obrigado __________________ <% Gustavo %> gamstalden@yahoo.com.br

Opções do Tópico
Exibir Versão para Impressão Envie essa página por e-mail