在hslcommuincation的官网上有这么一段话：HSL专注于解决工业网络间的复杂的数据通信问题，解决多个独立程序之间的数据通信，甚至是不同的操作系统，平台的网络通信问题， 可以用来构建各种各样的应用程序，下至通信小软件，上位机软件，CS架构的聊天系统，上至ERP系统，历史追述系统，生产管理系统，MES系统， 无论你的开发环境是Visual Studio, Visual Studio Code, IntelliJ IDEA, Eclipse, Labview, Android Studio等等；
确实在工业软件开发中用HSL确实有很多方便之处，它集成了各款机器人以及PLC的通讯方式，今天用HSL的UserCurve画了曲线；
这个小demo是用vb写的，vbnet对开发桌面程序确实有自己的优点（自己的一点小见解），画曲线要有数据来源，这里用生成的随机数代替；UserCurve还支持曲线的放大与缩小，以及某个点的值等等，这里做个一个简单实例，效果图如下：
具体代码如下：
Public data As Single()
Public list1 As ArrayList = New ArrayList()
Public i As Integer = 0
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
UserCurve1.SetLeftCurve("B", data, Color.Tomato)
'UserCurve1.SetLeftCurve("A", GetRandm(50000, 0, 200), Color.DodgerBlue)
End Sub
Private Function GetRandm(count As Integer, min As Double, max As Double) As Single()
Dim data As Single() = New Single(count - 1) {}
Dim rand = New System.Random()
For i As Integer = 0 To data.Length - 1
data(i) = CSng(rand.NextDouble) * (max - min) + min
Next
Return data
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Dim Timer1 As Timer = New Timer()
Dim rand = New System.Random()
Timer3.Interval = 200
Timer3.Enabled = True
'RaiseEvent Timer3.Tick += Function(sender1, e1)
' UserCurve1.AddCurveData("B", rand.Next(50, 201))
'End Function
Timer3.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
'Dim rand = New System.Random()
'list1.Add(CSng(rand.Next(50, 201).ToString))
''Dim data1 As Single() = CType(list1.ToArray(), Single())
'Dim array As String() = CType(list1.ToArray(), String())
'data = CSng(array)
'data(i) = rand.Next(50, 201)
'i += 1
'Timer1.Tick += Function(sender1, e1)
UserCurve1.AddCurveData("B", GetRandm(1, 0, 200))
'End Function
End Sub
