[Resolvido]Capturar peso de balança rodoviária

Bom dia Pessoal !
Alguém pode me dar uma ajuda ?

Estou desenvolvendo uma tela para recebimento e carregamento de grãos para empresa que trabalho o que eu realmente preciso é capturar o peso da balança em tempo real pela da porta COM1 através de um arquivo dll chamado "BalancaLider.dll" e jogá-lo em um determinado campo em meu form.

No site da balança tem um código desenvolvido para visual basic mas não estou conseguindo adaptá-lo em meu form, alguém pode me ajudar com o código?

Segue o código de exemplo do fabricante:

Public Declare Function CapturarPeso Lib "BalancaLider.dll"(ByVal Porta As Integer, ByVal Velocidade As Integer) As Double

Public Declare Function Zerar Lib "BalancaLider.dll" (ByVal Porta As Integer, ByVal Velocidade As Integer) As Double

Captura o peso da balança na porta COM1 com velocidade de 9600 bps.

Dim Peso As Double
Peso = CapturarPeso(1, 9600)
Label1.Caption = Str(Peso)

Zera a balanca na porta COM1 com velocidade de 9600 bps.

Dim Peso As Double
Peso = Zerar(1, 9600)
Label1.Caption = Str(Peso)


Desde já fico no aguardo !

Claudinei

Bem vindo ao Fórum


Em um módulo coloque:

Public Declare Function CapturarPeso Lib "BalancaLider.dll"(ByVal Porta As Integer, ByVal Velocidade As Integer) As Double

Public Declare Function Zerar Lib "BalancaLider.dll" (ByVal Porta As Integer, ByVal Velocidade As Integer) As Double

Function PegaPeso() as string

Dim Peso As Double
Peso = CapturarPeso(1, 9600)
PegaPeso = Str(Peso)

End Function


Crie uma caixa de texto em um formulário.

Ex.:
Nome da caixa de texto: txtPeso

Crie um botão nesse formulário e coloque no evento Ao clicar:
Me!txtPeso = PegaPeso

Faça testes, e tente ir adaptando o código.

Acredito que a função zerar é para manter a balança calibrada, portanto, de inicio
não irá precisar dela e uma vez que acertar o código para capturar o peso,
poderá usar a mesma estrutura da função PegaPeso e criar uma outra função ZeraPeso.

Abraços

Obrigado pela ajuda Balem.

Vou fazer a adaptação e dou o retorno...


Abraços !

Claudinei

Esqueci de comentar:

Creio que não seja preciso, mas talvez tenha que registrar a dll no windows,isso você terá que verificar junto ao fabricante da balança, ou no manual.

Percebi que você tem 2 registros no fórum, qual pretende manter, assim eu deleto o outro.

Putz Balem !

Não me lembro de ter dois registros no fórum, mas sendo assim quero manter esse que estou conectado agora !

Abraço !

Melhor você dizer qual dos dois, pois a cada post você usa um nick name diferente.

marcandalli ou Claudinei

Deve estar havendo alguma confusão pq hoje de manhã tinha certeza que estava digitando o nome de usuário e senha corretos e não conseguia entrar.
Mas tudo bem.
Eu quero ficar com o nome Claudinei, pode deletar o marcandalli

Vou sair do fórum agora e aguardar vc fazer a atualização do cadastro, depois do almoço logarei novamente com o nome Claudinei.

Obrigado !

Abraço!

Claudinei

Já exclui o registro citado.

Muito obrigado Balem!!!

Deu certo!

O erro estava ao escrever a função PegaPeso no evento timer do formulário.
Agora eu fiz como vc me passou:
1º o módulo como vc descreveu acima
2º o comando do botão eu adaptei no evento timer do form, assim ele atualiza o peso a cada segundo.

Obrigado.

Ótimo Claudinei

Agradecemos o retorno

Boa sorte!

bom dia, este codigo serve para aquelas balança pequenas de supermercado.

Jorge

jntrindade

Creio que não. pois como você pode ver nos posts anteriores, são funções exclusivas da biblioteca (dll) daquele produto.

Creio que terá que procurar junto ao fabricante da balança os meios de comunicação com ela.

Abraços

ok, vou verificar qualquer eu pergunto. Obrigado

Bom dia jntrindade...

Se vc está se referindo às balanças Toledo tem um material exclusivo no site do fabricante.

Veja !
http://www.toledobrasil.com.br/suporte/softwares.php

Abraço.