AdvancedHMI Software
General Category => Open Discussion => Topic started by: joko markono on September 04, 2019, 03:59:57 AM
-
Hi Guys,
My PLC is connected to serial COM1, and i want to send out the displayed/collected data (as a single line data string) to serial COM2.
How can i do that in AHMI?
-
I would suggest you read this:
https://docs.microsoft.com/en-us/dotnet/visual-basic/developing-apps/programming/computer-resources/how-to-send-strings-to-serial-ports
and use Google for any/all examples in VB.
-
ok, actually i imported some code from
https://github.com/bartashevich/serial-communication (https://github.com/bartashevich/serial-communication)
I'm not very sure if my way of combining the PLC data (as you can see from 'SendTextBox' is correct. I actually just plus both data like this:
SendTextBox.Text = BasicLabel1.Text + BasicLabel2.Text
But so far the program is running fine. Here is the code for my DataPanelForm:
Public Class DataPanel
Dim Data_received As String
'*******************************************************************************
'* Stop polling when the form is not visible in order to reduce communications
'* Copy this section of code to every new form created
'*******************************************************************************
Private NotFirstShow As Boolean
Private Sub Form_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
'* Do not start comms on first show in case it was set to disable in design mode
If NotFirstShow Then
AdvancedHMIDrivers.Utilities.StopComsOnHidden(components, Me)
Else
NotFirstShow = True
End If
End Sub
Private Sub ReturnToMainButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MainForm.Show()
' Me.Hide()
Me.Visible = False
End Sub
Private Sub MessageListByItem1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
Private Sub MessageListByValue1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
Private Sub SendTextBox_TextChanged(sender As Object, e As EventArgs) Handles SendTextBox.TextChanged
'combined data = data1 + data2 + data3 + .....
SendTextBox.Text = BasicLabel1.Text + BasicLabel2.Text
End Sub
Private Sub DataPanel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 300
Timer1.Enabled = False
ModuleComPortParameters.configuration_is_valid = False
SendBtn.Enabled = False
End Sub
Private Sub ConfigurePortBtn_Click(sender As Object, e As EventArgs) Handles ConfigurePortBtn.Click
ConfigurationPort.StartPosition = FormStartPosition.CenterParent
ConfigurationPort.ShowDialog()
If ModuleComPortParameters.configuration_is_valid = True Then
With SerialPort1
.PortName = ModuleComPortParameters.Port
.BaudRate = ModuleComPortParameters.Baudrate
.Parity = ModuleComPortParameters.Parity
End With
End If
End Sub
Private Sub ExitBtn_Click(sender As Object, e As EventArgs) Handles ExitBtn.Click
End
End Sub
Private Sub OpenPortBtn_Click(sender As Object, e As EventArgs) Handles OpenPortBtn.Click
If ModuleComPortParameters.configuration_is_valid = True Then
If SerialPort1.IsOpen Then
SerialPort1.Close()
SendBtn.Enabled = False
OpenPortBtn.Text = "Open Port"
OpenPortBtn.BackColor = Color.LightGray
Timer1.Enabled = False
Else
SerialPort1.Open()
SendBtn.Enabled = True
OpenPortBtn.Text = "Close Port"
OpenPortBtn.BackColor = Color.Red
Timer1.Enabled = True
End If
Else
MsgBox("Cannot open port with an invalid configuration")
End If
End Sub
Private Sub SendBtn_Click(sender As Object, e As EventArgs) Handles SendBtn.Click
SerialPort1.Write(SendTextBox.Text)
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Data_received &= SerialPort1.ReadExisting
If Len(Data_received) > 0 Then
ReceiveTextBox.Text = Data_received
HistoryTextBox.Text = TimeOfDay.ToLongTimeString + " : " + Data_received + vbNewLine + HistoryTextBox.Text
Data_received = ""
End If
End Sub
End Class
and this the code for the ConfigurationPort:
Public Class ConfigurationPort
Private Sub Port_Conf_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim available_Ports As Array = IO.Ports.SerialPort.GetPortNames
Dim i As Integer
For i = 0 To UBound(available_Ports)
PortComboBox.Items.Add(available_Ports(i))
Next
BaudrateComboBox.Items.Clear()
BaudrateComboBox.Items.Add("4800")
BaudrateComboBox.Items.Add("9600")
BaudrateComboBox.Items.Add("19200")
BaudrateComboBox.SelectedIndex = 2
ParityComboBox.Items.Clear()
ParityComboBox.Items.Add(IO.Ports.Parity.None)
ParityComboBox.Items.Add(IO.Ports.Parity.Odd)
ParityComboBox.Items.Add(IO.Ports.Parity.Even)
ParityComboBox.SelectedIndex = 2
End Sub
Private Sub Cancel_Btn_Click(sender As Object, e As EventArgs) Handles CancelBtn.Click
ModuleComPortParameters.configuration_is_valid = False
Me.Close()
End Sub
Private Sub Ok_Btn_Click(sender As Object, e As EventArgs) Handles OkBtn.Click
ModuleComPortParameters.Port = PortComboBox.Text
ModuleComPortParameters.baudrate = BaudrateComboBox.Text
Select Case ParityComboBox.Text
Case "None"
ModuleComPortParameters.parity = IO.Ports.Parity.None
Case "Even"
ModuleComPortParameters.parity = IO.Ports.Parity.Even
Case "Odd"
ModuleComPortParameters.parity = IO.Ports.Parity.Odd
End Select
ModuleComPortParameters.configuration_is_valid = True
Me.Close()
End Sub
Private Sub Port_combo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles PortComboBox.SelectedIndexChanged
End Sub
End Class
The results is shown in the attachment. I just need to know if the way i combined the data is correct. Currently i don't have my PLC data connected.
-
It's usually "&" instead of "+", but if it works then good.
com0com program is free and for virtual ports is usually the best choice, you can find the link here:
https://www.advancedhmi.com/forum/index.php?topic=1961.0
I'm not sure if your Eltima software is free.
-
i have problem to read to incoming data.
there is no display on the textbox.
I notice the data has a kind of weird format like these:
$PPTIROV (NMEA 0183 format)
is there a way i can assigned the format (any type) in the beginning of my receiving text box?
Some other data start with different format like "$NORCLOG", ":" , "$", etc....
-
This sounds like something Archie would have to decipher.
Maybe a new driver might need to be created for NMEA 0183 protocol.
-
The last page of this document shows that "weird" format:
http://linux.geodatapub.com/shipwebpages/winfrog-all/WinFrog%203.10/Documents/WinFrog%203.10%20User%27s%20Guide/WFUG%20App%20C%20-%20Device%20Documentation/ROV/PerryTritec.pdf
The best thing you can do is provide all the details of your setup and devices.
-
i have a terminal protocol software which was created in JAVA that can read any data format by assigning the format in initial place. unfortunately it's not in VB. you can see the attachment. my main target is actually to implement the same function into the AHMI.
-
Just by looking at config.txt file, this might have a simple solution in VB (this is just a wild guess).
What you should do is examine the exact data you are receiving and post it here.
Since your program is already communicating with a device it might just be a matter of deciphering the data.
-
as shown in the attachment, my device input is from COM1 and output is COM6 to my AHMI. (the output format that you see on COM6 has been modified from the JAVA software setting as what i like it to be, so not to bother much. i can set the output to be exactly the same as the input).
so far no output turn out on the AHMI software that i created.
-
Is your Java software closed when you try to use AHMI?
-
You need to understand that you are not providing enough details about your setup.
The first issue you need to resolve is the communication between AHMI and your device.
-
Please see the attachment on my current setup.
As i mentioned, the reason i want to make the build in read/write serial port software into AHMI is to eliminate the JAVA PC.
Since now the only way i can see there is data is using the JAVA, that's why i use this setup.
the JAVA is always open in order to send/receive data.
-
Here is how I understand it:
AHMI normally uses one of its drivers to establish communication to a device and collect data from it.
In your case, there is no AHMI driver that can communicate with your device marked "device that sends the data".
The reading would have to be done through VB code and collected data would have to be manually sorted and provided to AHMI controls and also sent to Omron PLC (if that's your intention). So, in your code, when you open the serial port then you have to do the reading and not writing.
-
If you do manage to read the data then examine it and compare to the Java data.
If you can communicate to the person that created the Java program then ask for more information on the data format.
Everything kind of looks like a standard serial protocol communication.
-
Sorry for late reply. At the moment, i bypass the JAVA terminal exchange program and connect straight to the device (in this case it is a PC which run a JAVA program that has multiple data). i can read the data as can be seen on the attachment. so i have few questions:
1. is there a way i can read the updated data only in a single line.
2. can i separate the data into individual? i have tried someone code from https://www.electroniclinic.com/how-to-split-a-string-message-and-access-the-sensors-values/ (https://www.electroniclinic.com/how-to-split-a-string-message-and-access-the-sensors-values/). here is the code:
Imports System.IO
Imports System.IO.Ports
Public Class Form1
Dim value1 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = "com15"
SerialPort1.BaudRate = "9600"
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
SerialPort1.Open()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim s As String
s = TextBox1.Text + "," + "," + "," + ","
Dim somestring() As String
' Split string based on comma
somestring = s.Split(New Char() {","c})
TextBox2.Text = somestring(0)
' value1 = Convert.ToDecimal(TextBox2.Text)
TextBox3.Text = somestring(1)
TextBox4.Text = somestring(2)
TextBox1.Text = ""
End Sub
Private Sub DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try
Dim mydata As String = ""
mydata = SerialPort1.ReadExisting()
If TextBox1.InvokeRequired Then
TextBox1.Invoke(DirectCast(Sub() TextBox1.Text &= mydata, MethodInvoker))
Else
TextBox1.Text &= mydata
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Classbut it doesn't work.
-
Can you provide specific answers for these 2 questions:
1) What is the exact device you are using (brand name, type and model)?
2) Besides for this device, will you be using any other devices?
-
I'm sorry maybe I didn't give full info.
1. the device is actually a desktop PC. it is having a ROV (remotely operated underwater vehicle) software made by JAVA.
in the software, there are many input data such as altitude, depth, heading, pitch, roll, etc...
the reason I choose this method to get the incoming data is because I don't have any other device that can send serial data at the moment.
2. yes I will but it will be the same situation. I may need to read the data from specific software such as TSS cable tracker.
-
So, all together it looks like you want to use AHMI as a graphical interface for the simulation.
Maybe something similar to this: https://www.youtube.com/watch?v=FRxoemOd5F0
From your picture, the data seems to be coming in this format:
"┴Yes 20:37:00 12/09/19 0.0 0.0 0.0 0.0 -90.0 -90.0 -20.0 (followed by 20+ spaces)"
If this is continuous format and it doesn't change much, besides for numbers contained within the string, then you could try using a trick to display it within a TextBox as a single line (so set the TextBox's Multiline property to False):
Private Sub DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try
Dim mydata As String = SerialPort1.ReadExisting()
If mydata.StartsWith("┴") Then
'Trim all the trailing spaces and remove ┴ character from the string.
Dim resultingString As String = mydata.TrimEnd(New Char() {" "c}).Substring(1)
'Trim all the excess spaces from the string.
Do
resultingString = resultingString.Replace(" ", " "c)
Loop Until resultingString.IndexOf(" ") = -1
'Compare the current text in the TextBox to the resultingString and replace it if different.
'This will update the values only when they change.
'This should be every second due to the clock value but might be different due to speed of communication.
If TextBox1.Text <> resultingString Then
If TextBox1.InvokeRequired Then
TextBox1.Invoke(DirectCast(Sub() TextBox1.Text = resultingString, MethodInvoker))
Else
TextBox1.Text = resultingString
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
I didn't test the code above but it should theoretically give you a string that looks like this:
"Yes 20:37:00 12/09/19 0.0 0.0 0.0 0.0 -90.0 -90.0 -20.0"
Now you could split it and pass the values to AHMI controls, similar to this:
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If Not String.IsNullOrEmpty(TextBox1.Text) Then
Dim somestring() As String
'Split string based on space
somestring = TextBox1.Text.Split(New Char() {" "c})
'This should give us the following substrings:
'somestring(0) = Yes
'somestring(1) = 20:37:00
'somestring(2) = 12/09/19
'somestring(3) = 0.0
'somestring(4) = 0.0
'somestring(5) = 0.0
'somestring(6) = 0.0
'somestring(7) = -90.0
'somestring(8) = -90.0
'somestring(9) = -20.0
AttitudeIndicatorInstrumentControlHMI1.PitchAngle = CDbl(somestring(6))
AttitudeIndicatorInstrumentControlHMI1.RollAngle = CDbl(somestring(7))
AirSpeedIndicatorInstrumentControlHMI1.AirSpeed = CInt(somestring(3))
AltimeterInstrumentControlHMI1.Altitude = CInt(somestring(5))
HeadingIndicatorInstrumentControlHMI1.Heading = CInt(somestring(4))
TurnCoordinatorInstrumentControlHMI1.TurnQuality = CSng(somestring(6))
TurnCoordinatorInstrumentControlHMI1.TurnRate = CSng(somestring(9))
VerticalSpeedIndicatorInstrumentControlHMI1.VerticalSpeed = CInt(somestring(9))
'etc
End If
End Sub
I didn't test the code above either.
The whole code could skip a beat at certain times because of the serial communication, meaning how packets are received, or could even show different strings.
Resource: https://stackoverflow.com/questions/26593520/scan-a-file-for-a-string-of-words-ignoring-extra-whitespaces-using-vb-net
-
If this works then you can eventually eliminate the TextBox and try to do all updating within the DataReceived sub, something like this:
Private Sub DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Try
Dim mydata As String = SerialPort1.ReadExisting()
If mydata.StartsWith("┴") Then
'Trim all the trailing spaces and remove ┴ character from the string.
Dim resultingString As String = mydata.TrimEnd(New Char() {" "c}).Substring(1)
'Trim all the excess spaces from the string.
Do
resultingString = resultingString.Replace(" ", " "c)
Loop Until resultingString.IndexOf(" ") = -1
Dim somestring() As String
'Split string based on space
somestring = resultingString.Split(New Char() {" "c})
'If Invoke is required then add it for each control (the same as it was done for the TextBox)
AttitudeIndicatorInstrumentControlHMI1.PitchAngle = CDbl(somestring(6))
AttitudeIndicatorInstrumentControlHMI1.RollAngle = CDbl(somestring(7))
AirSpeedIndicatorInstrumentControlHMI1.AirSpeed = CInt(somestring(3))
AltimeterInstrumentControlHMI1.Altitude = CInt(somestring(5))
HeadingIndicatorInstrumentControlHMI1.Heading = CInt(somestring(4))
TurnCoordinatorInstrumentControlHMI1.TurnQuality = CSng(somestring(6))
TurnCoordinatorInstrumentControlHMI1.TurnRate = CSng(somestring(9))
VerticalSpeedIndicatorInstrumentControlHMI1.VerticalSpeed = CInt(somestring(9))
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Just a possibility.
-
I'm truly sorry haven't had change to give a reply. i will try the code that you show and will let you know later.