Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Conexión con báscula VD-310 DIBAL desde PC

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

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar