 Autor
|
Tema: COM1 con VB6 para leer de una balanza (Leído 14,359 veces)
|
vicfebo
 Desconectado
Mensajes: 50
|
Hola, tengo conectada una balanza para una panadería a un PC mediante el COM1, el tema esta en que tengo que leer de la aplicación el peso de la balanza con VB. Se como se configura el COM1 en VB, ambiñen como se lee y como se escribe. Pero no se construir el mensaje de la instrucción que le tengo que mandar a la balanza para que me devuelva el peso y el subtotal del artículo a partir del peso. Adjunto la imagen que viene en el PDF del manual de la balanza para que me ayude alguien a construir esa peticion.  Esa es la comunicación entre PC y balanza Gracias y saludos
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
Es bastante precario, espero que sea util Private Sub Form_Load() Dim sVal As String Dim sCheck As String Dim i As Long Dim svData() As Byte Dim sPacket As String sVal = "25" '// Valor sVal = Right$(String(5, "0") & sVal, 5) '// Formateado para tener un largo de 5 caracteres svData = StrConv(sVal, vbFromUnicode) '// Lo convertimos en un bytearray For i = 1 To 4 svData(0) = svData(0) Xor svData(i) '// Checksum Next sCheck = Chr$(svData(0)) '// convertimos el valor del checksum en un caracter '////////////////////////////////////////// Corregido sPacket = Chr$(&H39) & Chr$(&H38) & sVal & sCheck & vbCr & vbLf '// armamos el pedido Debug.Print sPacket End Sub
|
|
|
|
« Última modificación: 27 Mayo 2008, 17:11 pm por cobein »
|
En línea
|
|
|
|
vicfebo
Desconectado
Mensajes: 50
|
He cogido el codigo que me has puesto y le he añadido al final el envio:
MSComm1.PortOpen = True
MSComm1.Output = sPacket
y un boton para capturar la respuesta de la balanza mediante un Msgbox
Private Sub Command1_Click()
Dim sPacket As String
sPacket = MSComm1.Input
MsgBox sPacket
End Sub
Que puedo estar haciendo mal cobein?? Ayuda, por favor.
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
EDIT
Los flags estan al reves ahora los corrijo
|
|
|
|
« Última modificación: 27 Mayo 2008, 17:10 pm por cobein »
|
En línea
|
|
|
|
vicfebo
Desconectado
Mensajes: 50
|
Sigue sin funcionarme, el Cr y Lr estan bien puestos?
Es que es muy raro, no ocurre absolutamente nada. la manera de enviar y recibir que te he puesto es correcta?
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
como dije anteriormente nunca en mi vida use una balanza de esas ni tengo una para probar nada.
La estructura del paquete parece estar bien, lo unico que se me ocurre es que purebes con un paquete asi "98000000" & vbcr & vblF en donde el importe es 0 y el checksum 0 a ver si obtenes respuesta.
Sino, telefono y a comunicarse con el fabricante! otra no se me ocurre
|
|
|
|
|
En línea
|
|
|
|
vicfebo
Desconectado
Mensajes: 50
|
Porque el checksum solo lo calculas a partir del dato y no del dato + el 98?
|
|
|
|
|
En línea
|
|
|
|
|
cobein
|
Proba haciendo el checksum de todo....
Private Sub Form_Load()
Dim sVal As String
Dim sCheck As String
Dim i As Long
Dim svData() As Byte
Dim sPacket As String
sVal = "25" '// Valor
sVal =Chr$(&H39) & Chr$(&H38) & Right$(String(5, "0") & sVal, 5) '// Formateado para tener un largo de 5 caracteres
svData =StrConv(sVal, vbFromUnicode) '// Lo convertimos en un bytearray
For i = 1 To 6
svData(0) = svData(0) Xor svData(i) '// Checksum
Next
sCheck = Chr$(svData(0)) '// convertimos el valor del checksum en un caracter
'////////////////////////////////////////// Corregido
sPacket = Chr$(&H39) & Chr$(&H38) & sVal & sCheck & vbCr & vbLf '// armamos el pedido
Debug.Print sPacket
End Sub
|
|
|
|
|
En línea
|
|
|
|
vicfebo
Desconectado
Mensajes: 50
|
Ahora si !!!!!!!!!!!!! eres un genio tio !! mil gracias !!
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
puerto serie COM1 y balanza
Programación Visual Basic
|
magnum_44
|
1
|
3,221
|
2 Marzo 2015, 19:42 pm
por 79137913
|
|
|
|
¡AYUDAA! capturar peso de una balanza electrónica, en código java
Java
|
anma1d
|
0
|
2,484
|
27 Febrero 2017, 04:33 am
por anma1d
|
|
|
|
Los influencers decantan la balanza
Noticias
|
wolfbcn
|
0
|
1,496
|
17 Septiembre 2017, 01:31 am
por wolfbcn
|
|
|
|
VB 6.0 leer com1 balanza de camiones
Programación General
|
fatom
|
0
|
2,248
|
21 Febrero 2022, 16:07 pm
por fatom
|
|
|
|
Programas gds balanza
Ingeniería Inversa
|
juanjog
|
4
|
7,965
|
2 Enero 2024, 03:29 am
por Danielㅤ
|
 |
