[ Foro de PHP ]

como obtengo el peso de una bascula

21-Dec-2022 20:30
Eulismar Sirit
1 Respuestas

que función me sirve para conectar mi bascula a la computadora el cual esta conectada por puerto serial, es una pesa de camiones

Public Class Form1
   Dim nombre_puerto



   Private Sub captura_puerto()
       Dim num_puerto As Integer
       Dim returnStr As String = ""
       On Error GoTo fallo
       num_puerto = 4
       nombre_puerto = "COM1" & num_puerto
       Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort(nombre_puerto)
           com1.DataBits = 8
           com1.ReadTimeout = 9600
           Dim Incoming As String = com1.ReadLine()
           returnStr = Incoming
           Thread.Sleep(100)
           Incoming = com1.ReadLine()
           com1.Close()
       End Using
       Exit Sub
fallo:
       MsgBox(Err.Description, vbCritical)
   End Sub
   Private Function fp_captura_peso() As Double
       Dim lnLen As Long
       Dim lnCRpos As Object
       Dim InBuffer As Object
       Dim InMiddle, InDistinct As Object
       Dim peso_final As Object = 0
       Dim n As Long
       On Error GoTo fallo
       Dim lcEntrada = " "
       fp_captura_peso = 0
       Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort(nombre_puerto)
           Dim Incoming As String = com1.ReadLine()
           Thread.Sleep(100)
           Incoming = com1.ReadLine()
           lcEntrada = Incoming
       End Using
       If Len(Trim(lcEntrada)) > 10 Then
           Dim subStrings() As String
           Dim TestArray() As String = Split(lcEntrada, ",")
           For i As Integer = 0 To TestArray.Length - 1
               If TestArray(i) <> "" Then
                   If Char.IsNumber(Trim(TestArray(i))) = True Then
                       peso_final = TestArray(i)
                   End If
               End If
           Next
           If IsNumeric(peso_final) Then
               If peso_final >= 0 Then
                   fp_captura_peso = Format(CDbl(peso_final), "###,##0.0000")
                   Exit Function
               End If
           Else
               fp_captura_peso = 0
           End If
       Else
           MsgBox("No se ha detectado peso, intente nuevamente...", vbCritical)
       End If
       Exit Function
fallo:
       MsgBox(Err.Description)
   End Function


End Class

ese codigo no me sirve


22-Dec-2022 00:27
Nacho Cabanes (+83)

Claro que no te sirve. No es PHP- ¿Seguro que tienes acceso directo a los puertos desde PHP en tu equipo?

En caso de que sea así, puedes mirar este artículo:

https://www.brainboxes.com/faq/how-do-i-control-a-serial-port-using-php






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)