en la empresa en la cual estoy, esta realizando una instalación de pesaje, ahora quieren hacer un software de monitoreo industrial para recibir los datos de la celda de carga y enviarla a una base de datos.
Ahora, baje un ejemplo básico en VB para enviar y recibir datos a un puerto, COM1...COM6, El código es el siguiente:
Código PHP:
Dim textout, textin As String
Private Sub cmdConectar_Click()
If cmdConectar.Caption = "Conectar" Then
puerto.CommPort = Val(cboCom.ListIndex + 1)
puerto.PortOpen = True
cmdEnviar.Visible = True
Timer1.Enabled = True
cmdConectar.Caption = "Desconectar"
End If
procedimiento para desconectar puerto
If cmdConectar.Caption = "Desconectar" Then
Timer1.Enabled = False
cmdEnviar.Visible = False
puerto.PortOpen = False
cmdConectar.Caption = "Conectar"
End If
End Sub
Private Sub cmdEnviar_Click()
textout = txtEnviar.Text
puerto.Output = textout
End Sub
Private Sub Timer1_Timer()
textin = puerto.Input
If textin <> "" Then
lblMostrar.Caption = textin
End If
End Sub
DAtos del sistema en que operamos;
Windows 7, he habilitado desde del firewall, colocar nueva regla, los datos entregados, es que el programa está habilitado para todos los puertos, no se que hacer. Primera vez que programa este tipo de aplicación.
Necesito una orientación para poder continuar, bajamos otros programas igual el tipo de error.
Nos vemos
