La configuración del mscomm1 en el proyecto es la siguiente:
With MSComm1
.Settings = "4800,e,7,1"
.InputLen = 0
.InputMode = comInputModeText
.RThreshold = 17
.NullDiscard = False
.Handshaking = 0
End With
El envío de datos es continuo, a no ser que se haya cambiado el valor de fábrica desde el lector digital.
en el evento MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
buffer = MSComm1.Input
codlectura = Mid(lectura, 2, 1)
txtpesada.Text = Mid(buffer, 6, 5)
End Select
codlectura sirve para saber cuando el peso está oscilando (creo que era x)
cuando está estable =q
puedes utilizarlos para leer el peso correcto.
a partir de aquí es ya lo que necesites.
Con esto he hecho un programa que lleva ya funcionando mucho tiempo sin problemas.
Un saludo.