Ajuda - Busca - Membros - Calendário
Versão Completa: Balança X Vb.net

Google
FórumWEB > Desenvolvimento > Automação Comercial
Smith
Olá....
estou com dificuldades em comunicar com uma balança Toledo modelo 9094,
ocorre erro de Timed Out, acho q não estou conseguindo enviar uma solicitação correta para a balança, preciso de ajuda, desde já muito obrigado.

abaixo um trecho do manual da balança:

Protocolo de Comunicação
A balança aguarda uma solicitação do dispositivo externo, para o iniciar a transmissão de dados, relativo a peso.
O envio dos dados é iniciado, quando a balança receber o sinal de controle “ENQ”.
ENQ = Caracter ASCII ( 05 h ) enviado pelo dispositivo externo.



abaixo um trecho do código que estou utilizando
CODE

Try
porta_serial = New IO.Ports.SerialPort

With porta_serial
.PortName = "COM" & intport
.BaudRate = 9600
.DataBits = intDatabits

Select Case strParidade
Case "EVEN"
.Parity = IO.Ports.Parity.Even
Case "MARK"
.Parity = IO.Ports.Parity.Mark
Case "NONE"
.Parity = IO.Ports.Parity.None
Case "ODD"
.Parity = IO.Ports.Parity.Odd
Case "SPACE"
.Parity = IO.Ports.Parity.Space
End Select

.StopBits = intstopbits
.WriteTimeout = 4000
.ReadTimeout= 4000

if .IsOpen Then .Close()
.Open()
.DiscardInBuffer
.DiscardOutBuffer
.WriteLine("ENQ")
LER = porta_serial.ReadLine()

End With

msgbox(ler)

Catch ex As IO.IOException
msgbox("Erro : " & ex.Message, MsgBoxStyle.Exclamation,"Erro na Comunicação")
Catch ex As System.TimeoutException
Msgbox("Erro : " & ex.Message, MsgBoxStyle.Exclamation,"Erro ao Ler Porta COM")
Catch
msgbox("erro")
Finally
porta_serial.Close()
End Try

JNPace
Olá Smith, verifique qual a velocidade (e outras configurações) que está configurada sua balança, normalmente elas vem 2400 ou 4800 se não me engano...
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.
Invision Power Board © 2001-2008 Invision Power Services, Inc.