PREGUNTAS CONTESTADAS - Otros

Private Function LeerPesoBascula()

Dim cCadIni As String

Dim cCadFin As String

Dim cBuffer As String

Dim cResult As String

Dim cCharVa As String

Dim nAux1   As Integer



On Error GoTo Error

    'Caracteres validos

    cCharVa = "+.0123456789"

    ' Parametros para bascula EPELSA  MODELO MARTE 10 V4

    cCadIni = "$" + vbCrLf

    cCadFin = vbCr + Chr$(3)

    cBuffer = ""

    cResult = ""

    'Compruebo si el puerto esta abierto y lo cierro

    If MSComm1.PortOpen Then

        MSComm1.PortOpen = False

    End If

    ' Usar COM1.

    MSComm1.CommPort = ConfLocalTPV.Basculas.Puerto

    ' 9600 baudios, sin paridad, 8 bits de datos y 1 bit de parada.

    MSComm1.Settings = "9600,n,8,1"

    'MSComm1.Handshaking = comNone

    ' Indicar al control que lea todo el búfer al usar Input.

    MSComm1.InputLen = 0

    ' Abrir el puerto.

    MSComm1.PortOpen = True

    ' Pero me aseguro que el puerto este abierto

    If MSComm1.PortOpen Then

        ' Enviar al puerto serie la petición de datos

        MSComm1.Output = cCadIni

        'Esperar a que vuelvan los datos al puerto serie.

        Do

            DoEvents

            cBuffer = cBuffer & MSComm1.Input

        Loop Until InStr(cBuffer, cCadFin)

    End If

    ' Leer los datos de respuesta de aceptación en el puerto serie.

    ' Cerrar el puerto.

    MSComm1.PortOpen = False

    'If insstr(cBuffer, "A") > 0 Then

    'Limpiamos los datos

    For nAux1 = 1 To Len(cBuffer)

        If InStr(cCharVa, Mid$(cBuffer, nAux1, 1)) > 0 Then

            cResult = cResult + Mid(cBuffer, nAux1, 1)

        End If

        

    Next

    gridLineas.Columns(cCantidad).text = fVal(cResult)

    gridLineas.Update

    CalcularTicket

    Exit Function

Error:

    ' Cerrar el puerto.

    If MSComm1.PortOpen Then MSComm1.PortOpen = False



End Function