le peso acbrbal

[[email protected]]

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.prg

[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.

[[email protected]]

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

 

[[email protected]]

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

11 minutos atrás, [email protected] disse:

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

    RETURN bufferLen

tente assim:

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

    RETURN @buffer

[[email protected]]

11 minutos atrás, 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

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/

[[email protected]]

4 horas atrás, 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/

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.txt

    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

 

[[email protected]]

2 minutos atrás, 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

 

deu mesmo erro. 

[Daniel Simoes]

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

 

[[email protected]]

10 minutos atrás, Daniel Simoes disse:

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

 

consegue criar pra min?

 

[Rafael Dias]

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

[[email protected]]

4 horas atrás, Rafael Dias disse:

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

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.

8 horas atrás, [email protected] disse:

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

Por favor anexe o arquivo alterado.

Att.

[[email protected]]

20 horas atrás, Rafael Dias disse:

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

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.txt

[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]

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]

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

[[email protected]]

11 minutos atrás, 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...

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

[[email protected]]

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.