8,834
社区成员
发帖
与我相关
我的任务
分享
Private Sub MQ按钮A1_单击事件(sender As Object, e As EventArgs) Handles MQ按钮A1.单击事件
Dim list_to_p As New List(Of PointF)
曲线.粗细 = 1
曲线.质量 = Drawing2D.SmoothingMode.HighQuality
曲线.颜色 = Color.Black
跟随线.粗细 = 2
跟随线.颜色 = Color.Red
最小值曲线.粗细 = 2
最小值曲线.颜色 = Color.Blue
最小值曲线.样式 = Drawing2D.DashStyle.DashDotDot
最大值曲线.粗细 = 2
最大值曲线.颜色 = Color.Green
最小值曲线.样式 = Drawing2D.DashStyle.DashDotDot
平均值曲线.粗细 = 2
平均值曲线.颜色 = Color.OrangeRed
平均值曲线.样式 = Drawing2D.DashStyle.DashDotDot
曲线.指示区域 = New 曲线指示区域 With {.渐变色1 = Color.FromArgb(50, 0, 0, 0)}
曲线控件2.曲线集合.Clear()
曲线.点集合.Clear()
曲线控件2.曲线集合.Add(曲线)
曲线控件2.曲线集合.Add(跟随线)
曲线控件2.曲线集合.Add(最小值曲线)
曲线控件2.曲线集合.Add(最大值曲线)
曲线控件2.曲线集合.Add(平均值曲线)
Dim p As PointF
For a As Integer = 0 To 100
p = New PointF(a, Rnd() * 100 - 25)
list_to_p.Add(p)
曲线.点集合.Add(p)
跟随线.点集合.Add(p)
'最小点
p = MQdll.辅助类.计算.最小值(list_to_p, MQdll.辅助类.计算.点比较目标.点的Y)
最小值曲线.点集合.Add(p)
p = MQdll.辅助类.计算.最大值(list_to_p, MQdll.辅助类.计算.点比较目标.点的Y)
最大值曲线.点集合.Add(p)
p = New PointF(0, MQdll.辅助类.计算.平均值(list_to_p, MQdll.辅助类.计算.点比较目标.点的Y))
平均值曲线.点集合.Add(p)
Threading.Thread.Sleep(100)
曲线控件2.重置()
曲线控件2.绘制线条()
曲线控件2.Refresh()
Next
End Sub