M
Hello
I hope my message find you well.
I have problem with programming code by visual basic 2005 to make a program to read the data that come from the serial port of the scale indicator. Below you will find a picture for the code of the program and the data after running the program.
I want to read and appear only one in a textbox from the Instantaneous data. The picture shows you the data that I want to read and appear but I don't know how can I get this result. The code and the protocol of the indicator you will find below too.
Please help me if you can.
https://ibb.co/cBuX5v
https://ibb.co/ejodCa
This my code that I use it in Visual basic 2005:
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
receivedtext(SerialPort1.ReadExisting())
End Sub
Private Sub receivedtext(ByVal [text] As String)
If Me.screen.InvokeRequired Then
Dim x As New settextcallback(AddressOf receivedtext)
Me.Invoke(x, New Object() {(text)})
Else
Me.screen.Text &= [text]
End If
End Sub
please can you help me
this is my email
[email protected]
I hope my message find you well.
I have problem with programming code by visual basic 2005 to make a program to read the data that come from the serial port of the scale indicator. Below you will find a picture for the code of the program and the data after running the program.
I want to read and appear only one in a textbox from the Instantaneous data. The picture shows you the data that I want to read and appear but I don't know how can I get this result. The code and the protocol of the indicator you will find below too.
Please help me if you can.
https://ibb.co/cBuX5v
https://ibb.co/ejodCa
This my code that I use it in Visual basic 2005:
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
receivedtext(SerialPort1.ReadExisting())
End Sub
Private Sub receivedtext(ByVal [text] As String)
If Me.screen.InvokeRequired Then
Dim x As New settextcallback(AddressOf receivedtext)
Me.Invoke(x, New Object() {(text)})
Else
Me.screen.Text &= [text]
End If
End Sub
please can you help me
this is my email
[email protected]