LER PESO DA BALANCA ELGIN SA-110

CLAYTE 24/09/2016 06:46:38
#467410

Preciso ler o peso da balança Sa-110 da Elgin: https://www.elgin.com.br/portalelgin/Site/Produto/Detalhe/ProdutoDetalhe.aspx?idprod=1103&sm=p261
to usando o seguinte código no vb6:

Dim Instring As String
Private Sub Command2_Click()
Dim Instring As String
MSComm1.Output = [Ô]ENQ[Ô]
Instring = MSComm1.Input
Label1.Caption = Instring
MSComm1.PortOpen = False
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 4
MSComm1.Handshaking = 2 - comRTS
MSComm1.RThreshold = 1
MSComm1.RTSEnable = True
MSComm1.Settings = [Ô]9600,n,8,2[Ô]
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
End Sub

mas não tenho nenhum retorno, entrei em contato com a Elgin eles me passara um manual com as seguintes informações:

Definição da programação da Porta Serial Hardware:
Velocidade 9600 baunds
Start bit 1
Stop bit 1
No de bit’s de dados 8
Paridade Sem
Definição do Protocolo de Software:
Quando o indicador recebe em sua porta de comunicação serial o caráter
“ENQ” da tabela ASCII, a balança responde com a “string”, sendo que o mesmo
ocorre também quando o operador aciona a tecla “saída” no painel do indicador:
STX [Ô]NNNNN[Ô] ETX
String em ASCII
Onde: NNNNN = Peso em gramas (ex: peso = 3000g. recebo 30h, 33h, 30h, 30h). * String em ASCII

o que não me ajudou muito, alguém pode me ajudar a captura o peso dessa balança via vb6, email: clayte@clayte.com

desde já agradeço pela atenção.