le peso acbrbal

[carlosvieiralza@gmail.com]

Alguem poderia me dar uma ajuda no metodo LePeso no Xharbour. ja fiz de vairas maneiras e não consegui pegar o retorno. as configurações da balanca estão corretas.

 

se alguem com mais experiencia puder reescrever o metodo LePeso ficarei muito Grato.

acbbalanca2.prgFetching info...

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

Bom dia.

Oque ocorre quando vc aciona a leitura do peso? Por favor anexe também os logs da lib.

Att.

[carlosvieiralza@gmail.com]

Ja refiz de varias formas. acredito que esteja errado. estou simulando a balança. teria como reescrever ele da forma correta. ai testo aqui.

 

[carlosvieiralza@gmail.com]

METHOD LePeso(Timeout) CLASS AcbrBalanca
        buffer := Space(bufferLen)
        DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso",Timeout, @bufferLen)        

    RETURN bufferLen

o erro esta nesse metodo. acredito que na forma de pegar o retorno. 

[Daniel Simoes]

vc consegue ler o Peso, com o Demo compilado do ACBr ?

[Daniel Simoes]

Isso parece errado...

  Em 02/04/2020 at 14:52, carlosvieiralza@gmail.com disse:

METHOD LePeso(Timeout) CLASS AcbrBalanca
        buffer := Space(bufferLen)
        DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso",Timeout, @bufferLen)        

    RETURN bufferLen

Expandir  

tente assim:

METHOD LePeso(Timeout) CLASS AcbrBalanca
        buffer := Space(bufferLen)
        DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso",Timeout, @buffer)        

    RETURN @buffer

[carlosvieiralza@gmail.com]

  Em 02/04/2020 at 15:03, Daniel Simoes disse:

Isso parece errado...

tente assim:

METHOD LePeso(Timeout) CLASS AcbrBalanca
        buffer := Space(bufferLen)
        DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso",Timeout, @buffer)        

    RETURN @buffer

Expandir  

da erro no @ tirei ai da "Error BASE/1003  Vari vel nÆo existe: BUFFER"

 

[Daniel Simoes]

Eu realmente não sou conhecedor de xHarbour... notei que o nome do @Eric.Developer, está no .PRG que vc anexou... Talvez ele possa lhe prestar alguma assessoria, para criar um "Bind" para a nossa DLL

[Rafael Dias]

eu enviei um demo para o SVN poderia testar com ele.

http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/BAL/

[carlosvieiralza@gmail.com]

  Em 02/04/2020 at 15:49, Rafael Dias disse:

eu enviei um demo para o SVN poderia testar com ele.

http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/BAL/

Expandir  

Trava na hora de retornar o peso. não le mas no log ate aparece o peso. so que trava o sistema 

     Balanca:= ACBrBal():New('acbrbal.ini','')            
     Balanca:ativar()             
     peso = Balanca:Lepeso(200)             
     Balanca:desativar()             
     Balanca := nil
 

logbal.txtFetching info...

    hResult := DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso", MillisecTimeOut, @ePeso)
 

trava bem nessa linha

[Rafael Dias]

pelo visto é algo no Harbour, ali precisamos passar um tipo double por referencia, mas o harbour não é tipado o que provavelmente esta causando o erro.

[Daniel Simoes]

humm.. talvez tenhamos que criar um novo método, que retorno o Peso como String...

O Harbor (clipper) define o tipo da variável, conforme algo é atribuído a ela... tente algo como:

METHOD LePeso(MillisecTimeOut) CLASS ACBrBAL
    local hResult
    local ePeso

    ePeso := 1.23456

    hResult := DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso", MillisecTimeOut, @ePeso)
    ::CheckResult(hResult)
    RETURN ePeso

 

[carlosvieiralza@gmail.com]

  Em 02/04/2020 at 21:09, Daniel Simoes disse:

humm.. talvez tenhamos que criar um novo método, que retorno o Peso como String...

O Harbor (clipper) define o tipo da variável, conforme algo é atribuído a ela... tente algo como:

METHOD LePeso(MillisecTimeOut) CLASS ACBrBAL
    local hResult
    local ePeso

    ePeso := 1.23456

    hResult := DllCall(::hHandle, DLL_OSAPI, "BAL_LePeso", MillisecTimeOut, @ePeso)
    ::CheckResult(hResult)
    RETURN ePeso

 

Expandir  

deu mesmo erro. 

[Daniel Simoes]

nesse caso, somente criando um novo método na ACBrLib... algo como: "BAL_LePesoStr"

 

[carlosvieiralza@gmail.com]

  Em 02/04/2020 at 21:13, Daniel Simoes disse:

nesse caso, somente criando um novo método na ACBrLib... algo como: "BAL_LePesoStr"

 

Expandir  

consegue criar pra min?

 

[Rafael Dias]

Eu atualizei e classe e mandei uma nova versão da dll favor testar com as mesmas.

[carlosvieiralza@gmail.com]

  Em 02/04/2020 at 22:06, Rafael Dias disse:

Eu atualizei e classe e mandei uma nova versão da dll favor testar com as mesmas.

Expandir  

Boa noite. mais cedo estava testando direto na balança pra não ter duvidas. mas não funcionava nem no emulador nem na balança. agora acabei de testar no emulador e funcionou. 

amanha cedo vou testar na balança e qualquer coisa eu aviso.  tive que fazer uma pequena modificação. Depois atualiza o exemplo. 

METHOD LePeso(MillisecTimeOut) CLASS ACBrBAL
    local hResult, buffer, bufferLen
    bufferLen := STR_LEN
    buffer := Space(bufferLen) 

    hResult := DllCall(::hHandle, DLL_OSAPI, "BAL_LePesoStr", MillisecTimeOut, @buffer, @bufferLen)
    ::CheckResult(hResult)

RETURN val(  StrTran(AllTrim(buffer),",","."))
 

o Xharbour quando puxa o peso da balanca ele vem string com , 'Virgula' ai e necessário transformar em . 'ponto' para depois fazer a conversão.  

Diante de tudo so tenho que agradecer o suporte top de vcs. Muito obrigado. 

[Juliana Tamizou]

Bom dia.

  Em 03/04/2020 at 02:27, carlosvieiralza@gmail.com disse:

amanha cedo vou testar na balança e qualquer coisa eu aviso.  tive que fazer uma pequena modificação. Depois atualiza o exemplo

Expandir  

Por favor anexe o arquivo alterado.

Att.

[carlosvieiralza@gmail.com]

  Em 02/04/2020 at 22:06, Rafael Dias disse:

Eu atualizei e classe e mandei uma nova versão da dll favor testar com as mesmas.

Expandir  

na balanca de um pequeno erro. uso a balança digitron e ela me parece que tem algumas particularidades ao inves de responder o peso a dll pegou -9 

 

logbal.txtFetching info...

[Daniel Simoes]

A balança não respondeu conforme o protocolo dela... Veja, essa é uma resposta correta

  Citar

 - 23:28:35:219 TX -> [ENQ]
 - 23:28:35:647 RX <- [STX]08071[ETX]
              UltimoPesoLido: 8,071 - Resposta: [STX]08071[ETX]

Expandir  

Já na resposta inválida, não existe o marcador de início STX ou #2, nem o ETX

  Citar

 - 15:56:08:796 TX -> [ENQ]
 - 15:56:09:848 RX <- D0004.15[CR]
              UltimoPesoLido: -9 - Resposta: D0004.15[CR]

Expandir  

Por isso o componente acredita que a resposta não chegou, e acusa o erro de leitura -9

Verifique com o fabricante, porque o equipamento, está respondendo de duas formas diferentes...

[carlosvieiralza@gmail.com]

  Em 03/04/2020 at 19:13, Daniel Simoes disse:

A balança não respondeu conforme o protocolo dela... Veja, essa é uma resposta correta

Já na resposta inválida, não existe o marcador de início STX ou #2, nem o ETX

Por isso o componente acredita que a resposta não chegou, e acusa o erro de leitura -9

Verifique com o fabricante, porque o equipamento, está respondendo de duas formas diferentes...

Expandir  

a primeira foi pelo emulador e a segunda pela balança. como o emulador não emula digitron teste como filizola. 

[Daniel Simoes]

realmente... agora que notei... que mudou o modelo...

Pelo que li nos fontes... o protocolo dessa balança é o balDigitron_UL

[carlosvieiralza@gmail.com]

e no aplicativo de teste do acbr le normal. então acredito que nao seja na balança.

descobri. ufa o modelo da balanca tem que ser 27 e não 8 igual tinha colocado. 

Muito obrigado.

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.