Visual Basic - Conexión con báscula VD-310 DIBAL desde PC

Conexión con báscula VD-310 DIBAL desde PC

Publicado por Federico (1 intervención) el 24/09/2015 09:39:57

Buenos días,
Estoy tratando de realizar una petición desde el PC para que la báscula VD-310 devuelva el peso y, según el manual, está configurada la opción de Comunicaciones (7.10) en el valor 7. “Protocolo F501 con envío de peso por parte del VD-300 bajo petición desde el PC.”
Sin embargo, no consigo averiguar qué parámetro o parámetros enviar desde el PC para que devuelva el peso.
Les agradecería cualquier indicación.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Conexión con báscula VD-310 DIBAL desde PC

Publicado por Aki_Villarta (18 intervenciones) el 29/09/2015 19:40:33

Hola, Amigo
Desconozco totalmente el modelo de bascula, pero te puedo comentar que antes de liarte a realizar ningún programa para conectarte con la bascula prueba con el hiper terminal de Windows, si aquí consigues hacer algo luego con el programa es mas fácil.
hace tiempo hice algo con VB, pero básicamente es decirle que puerto comunicas COM1, velocidad Baud "8"
Te paso una ayuda

Private Sub CM_Bascula1_Click()

    Dim Buffer As String

    Dim Temporal As String

'CommPort = Puerto de Comunicación (procurar que sea = 1)

'Settings = Establece Velocidad baudios, paridad, bits de datos bits de parada

                                    '"9600,N,8,1"

'TB_105!B0 = PUERTO

'TB_105!C0 = Settings

    MSComm1.CommPort = TB_105!B0

    MSComm1.Settings = TB_105!C0

    MSComm1.InputLen = 0

    'MSComm1.RTSEnable = True

'Abrir puerto

    If Not MSComm1.PortOpen Then MSComm1.PortOpen = True

    MSComm1.Output = "AT" + Chr$(13)

Do

        DoEvents

        Loop Until MSComm1.InBufferCount >= "2"

            Buffer = MSComm1.Input

            Bruto = Mid(Buffer, 2, 100)

'cerrar puerto

    If MSComm1.PortOpen Then MSComm1.PortOpen = False

    CalculoNeto

    CB_Conforme.SetFocus

End Sub

Prueba con esto a ver si lo consigues.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar