1212 lines
48 KiB
VB.net
1212 lines
48 KiB
VB.net
Imports FlexCell
|
||
Imports Steema.TeeChart
|
||
|
||
Public Class Form1
|
||
|
||
|
||
Public filepath As String
|
||
|
||
Public GdbConnString As String
|
||
Public linglist As Dictionary(Of String， Steema.TeeChart.Styles.Line)
|
||
|
||
|
||
Private _axis As List(Of Steema.TeeChart.Axis)
|
||
Private _fastLine As Dictionary(Of String, Steema.TeeChart.Styles.FastLine)
|
||
Private _curSor(1) As Steema.TeeChart.Tools.CursorTool
|
||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
filepath = $"{Application.StartupPath }\config.flx"
|
||
GdbConnString = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=psmysql;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
|
||
' 假设你的TeeChart控件名为tcChart
|
||
AddHandler ChartBar.MouseWheel, AddressOf tcChart_ChartMouseWheel
|
||
ChartBar.Zoom.ZoomPercent(130)
|
||
|
||
_axis = New List(Of Axis)
|
||
_fastLine = New Dictionary(Of String, Styles.FastLine)
|
||
init_Grid_config()
|
||
FileTo_Grid_config()
|
||
linglist = New Dictionary(Of String, Steema.TeeChart.Styles.Line)
|
||
'initChartBar(10, 1701747214, 1704822658)
|
||
'Testfunction()
|
||
'ksjfk()
|
||
GetDevtype()
|
||
End Sub
|
||
|
||
' 事件处理程序
|
||
Private Sub tcChart_ChartMouseWheel(sender As Object, e As MouseEventArgs)
|
||
' 在这里添加你的逻辑
|
||
' 例如，根据e.Delta判断滚轮滚动方向
|
||
Dim tx， ty As Integer
|
||
If IsNothing(_fastLine) OrElse _fastLine.Count = 0 Then Return
|
||
Dim fl = _fastLine.Values(0)
|
||
If e.Delta > 0 Then
|
||
'MessageBox.Show("鼠标向上滚动")
|
||
'tx = ChartBar.Zoom.
|
||
' ty =
|
||
' ChartBar.Zoom.ZoomRect(New Rectangle(0, 50, ChartBar.Width, 100))
|
||
|
||
|
||
' If ChartBar.Zoom.HistorySteps.Count > 0 Then
|
||
'ChartBar.Zoom.Undo()
|
||
|
||
'Else
|
||
ChartBar.Zoom.ZoomRect(New Rectangle(0, 0, ChartBar.Width, ChartBar.Height))
|
||
' Console.WriteLine($"鼠标向上滚动{ChartBar.Width},{ChartBar.Height}")
|
||
'' End If
|
||
'Dim rectc = ChartBar.RectangleToClient(New Rectangle(0, 0, ChartBar.Width, ChartBar.Height))
|
||
'Console.WriteLine(fl.Chart.ChartRect.X)
|
||
Else
|
||
'MessageBox.Show("鼠标向下滚动")
|
||
ChartBar.Zoom.Undo()
|
||
' fl = _fastLine.Item(node.Key)
|
||
'If ChartBar.Zoom.HistorySteps.Count > 0 Then
|
||
' ChartBar.Zoom.Undo()
|
||
' Console.WriteLine($"鼠标向上滚动_Undo")
|
||
'Else
|
||
' ChartBar.Zoom.ZoomRect(New Rectangle((ChartBar.Width / 2) - 300, 0, (ChartBar.Width / 2) + 100, ChartBar.Height))
|
||
' Console.WriteLine($"鼠标向上滚动{(ChartBar.Width / 2) - 100},{(ChartBar.Width / 2) + 200}")
|
||
'End If
|
||
|
||
|
||
'ChartBar.Zoom.ZoomRect(New Rectangle(100, 100, 120, 120))
|
||
End If
|
||
|
||
'Dim X As Integer = Points1.CalcXPos(2)
|
||
'Dim Y As Integer = TChart1.Axes.Left.CalcYPosValue(TChart1.Axes.Left.MaxYValue)
|
||
'Dim Height As Integer = TChart1.Axes.Left.CalcYPosValue(TChart1.Axes.Left.MinYValue) - TChart1.Axes.Left.CalcYPosValue(TChart1.Axes.Left.MaxYValue)
|
||
'Dim Width As Integer = Points1.CalcXPos(5) - X
|
||
'Dim R As New Rectangle(X, Y, Width, Height)
|
||
'TChart1.Zoom.ZoomRect(R)
|
||
|
||
|
||
End Sub
|
||
|
||
Public devnamedic As List(Of String)
|
||
Public Sub GetDevtype()
|
||
devnamedic = New List(Of String)
|
||
Dim selectstr As String = "SELECT DEV_NAME
|
||
FROM `psmysql`.`deviceparsingdatalog`
|
||
GROUP BY DEV_NAME"
|
||
Dim dt As DataTable
|
||
Try
|
||
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnString)
|
||
db.Open()
|
||
dt = db.ExecuteDataTable(selectstr)
|
||
If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
|
||
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }数据查询语句异常:{selectstr}")
|
||
Else
|
||
For i = 0 To dt.Rows.Count - 1
|
||
devnamedic.Add(dt(i)(0))
|
||
Next
|
||
|
||
|
||
|
||
End If
|
||
|
||
|
||
End Using
|
||
|
||
|
||
|
||
|
||
Catch ex As Exception
|
||
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
|
||
Return
|
||
End Try
|
||
End Sub
|
||
|
||
Private Sub InitPieChart(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)
|
||
InitTeeChart(kkdic, starttime, stoptime)
|
||
|
||
Dim fl As Steema.TeeChart.Styles.FastLine
|
||
Dim tval As Dictionary(Of String, Double)
|
||
Dim yt, yn As DateTime
|
||
Dim sp = stoptime - starttime
|
||
Dim dtOffset As New DateTimeOffset(starttime)
|
||
Dim tstr As String
|
||
Dim tstfsr As String
|
||
|
||
For Each node In kkdic
|
||
'Console.WriteLine($"{node.Key}")
|
||
For t = 0 To sp.TotalSeconds
|
||
fl = _fastLine.Item(node.Key)
|
||
tval = node.Value
|
||
|
||
yt = （dtOffset.AddSeconds(t)).LocalDateTime
|
||
tstr = $"{yt.Year }/{yt.Month }/{yt.Day } {yt.Hour }:{yt.Minute }:{yt.Second }"
|
||
If t <> 0 Then
|
||
yn = （dtOffset.AddSeconds(t - 1)).LocalDateTime
|
||
tstfsr = $"{yn.Year }/{yn.Month }/{yn.Day } {yn.Hour }:{yn.Minute }:{yn.Second }"
|
||
End If
|
||
If tval.ContainsKey(tstr) Then
|
||
If t = 0 OrElse Not (tval.Item(tstr) <> tval.Item(tstfsr)) Then
|
||
|
||
Else
|
||
fl.Add(yt.ToOADate, tval.Item(tstfsr))
|
||
|
||
End If
|
||
fl.Add(yt.ToOADate, tval.Item(tstr))
|
||
'Console.WriteLine($"{tstr}:{ tval.Values(t)}")
|
||
Else
|
||
If Date.Parse(tstr) < Date.Parse(tval.Keys(0)) Then
|
||
If tval.Values(0) = 1 Then
|
||
fl.Add(yt.ToOADate, 0)
|
||
tval.Add(tstr, 0)
|
||
' Console.WriteLine($"{tstr}:0")
|
||
ElseIf tval.Values(0) = 0 Then
|
||
fl.Add(yt.ToOADate, 1)
|
||
tval.Add(tstr, 1)
|
||
' Console.WriteLine($"{tstr}:1")
|
||
Else
|
||
fl.Add(yt.ToOADate, 0.5)
|
||
tval.Add(tstr, 0.5)
|
||
'Console.WriteLine($"{tstr}:0.5")
|
||
End If
|
||
Else
|
||
If tval.Item(tstfsr) = 1 Then
|
||
fl.Add(yt.ToOADate, 1)
|
||
tval.Add(tstr, 1)
|
||
' Console.WriteLine($"{tstr}:1")
|
||
ElseIf tval.Item(tstfsr) = 0 Then
|
||
fl.Add(yt.ToOADate, 0)
|
||
tval.Add(tstr, 0)
|
||
' Console.WriteLine($"{tstr}:0")
|
||
Else
|
||
fl.Add(yt.ToOADate, 0.5)
|
||
tval.Add(tstr, 0.5)
|
||
' Console.WriteLine($"{tstr}:0.5")
|
||
End If
|
||
End If
|
||
End If
|
||
Next
|
||
Next
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
Private Sub InitPieChart(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)
|
||
|
||
|
||
InitTeeChart(kkdic, starttime, stoptime)
|
||
Dim fl As Steema.TeeChart.Styles.FastLine
|
||
Dim tval As Dictionary(Of Long, Double)
|
||
Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
|
||
' 获取本地日期和时间
|
||
Dim yt As DateTime
|
||
|
||
For t = starttime To stoptime
|
||
For Each node In kkdic
|
||
fl = _fastLine.Item(node.Key)
|
||
tval = node.Value
|
||
yt = （dtOffset.AddSeconds(t)).LocalDateTime
|
||
|
||
If tval.ContainsKey(t) Then
|
||
If t = starttime OrElse Not (tval.Item(t) = tval.Item(t - 1)) Then
|
||
Else
|
||
fl.Add(yt.ToOADate, tval.Item(t - 1))
|
||
'Console.WriteLine($"{yt.ToOADate}:{ tval.Item(t - 1)}")
|
||
End If
|
||
fl.Add(yt.ToOADate, tval.Item(t))
|
||
'Console.WriteLine($"{yt.ToOADate}:{ tval.Item(t)}")
|
||
''Console.WriteLine(DateTime.FromOADate(yt.ToOADate).ToString("yyyy-MM-dd HH:mm:ss"))
|
||
|
||
'#1/16/2024 01:09:47 AM#
|
||
Else
|
||
If t < tval.Keys(0) Then
|
||
If tval.Values(0) = 1 Then
|
||
fl.Add(yt.ToOADate, 0)
|
||
tval.Add(t, 0)
|
||
'Console.WriteLine($"{yt.ToOADate}:0")
|
||
ElseIf tval.Values(0) = 0 Then
|
||
fl.Add(yt.ToOADate, 1)
|
||
tval.Add(t, 1)
|
||
'Console.WriteLine($"{yt.ToOADate}:1")
|
||
Else
|
||
fl.Add(yt.ToOADate, 0.5)
|
||
tval.Add(t, 0.5)
|
||
'Console.WriteLine($"{yt.ToOADate}:0.5")
|
||
End If
|
||
Else
|
||
If tval.Item(t - 1) = 1 Then
|
||
fl.Add(yt.ToOADate, 1)
|
||
tval.Add(t, 1)
|
||
'Console.WriteLine($"{yt.ToOADate}:1")
|
||
ElseIf tval.Item(t - 1) = 0 Then
|
||
fl.Add(yt.ToOADate, 0)
|
||
tval.Add(t, 0)
|
||
'Console.WriteLine($"{yt.ToOADate}:0")
|
||
Else
|
||
fl.Add(yt.ToOADate, 0.5)
|
||
tval.Add(t, 0.5)
|
||
'Console.WriteLine($"{yt.ToOADate}:0.5")
|
||
End If
|
||
End If
|
||
|
||
|
||
|
||
End If
|
||
Next
|
||
Next
|
||
|
||
End Sub
|
||
Public Sub initChartBar(tCounta As Integer, starttime As Double, stoptime As Double)
|
||
|
||
'Dim devline = AddTeeChartStylesLine()
|
||
|
||
ChartBar.Header.Text = "" '标题
|
||
ChartBar.Header.Visible = True
|
||
ChartBar.Legend.Transparent = False '刻印说明
|
||
' ChartBar.Legend.Alignment = Steema.TeeChart.LegendAlignments.Top
|
||
ChartBar.Aspect.View3D = False
|
||
ChartBar.Axes.Left.Automatic = True
|
||
ChartBar.Axes.Left.AutomaticMaximum = True
|
||
ChartBar.Axes.Left.AutomaticMinimum = True
|
||
ChartBar.Axes.Left.Labels.ValueFormat = "0.0"
|
||
ChartBar.Axes.Left.Increment = 0.5
|
||
ChartBar.Axes.Left.Labels.LabelHeight(10)
|
||
|
||
'ChartBar.Axes.Left.Scroll(15, True)
|
||
|
||
'ChartBar.Axes.Left.Labels.Exponent = True
|
||
'Line1.Clear()
|
||
'ChartBar.Axes.
|
||
ChartBar.Axes.Bottom.AutomaticMaximum = False
|
||
ChartBar.Axes.Bottom.AutomaticMinimum = False
|
||
ChartBar.Axes.Bottom.Automatic = False
|
||
ChartBar.Axes.Bottom.Increment = 1
|
||
ChartBar.Axes.Bottom.Maximum = stoptime
|
||
'ChartBar.Axes.Bottom.Minimum = starttime
|
||
'ChartBar.Axes.Bottom.Labels.Width = 20
|
||
'ChartBar.Axes.Bottom.Labels.DateTimeFormat = "HH:mm:ss"
|
||
'ChartBar.Series(0).XValues.DateTime = False
|
||
'ChartBar.Axes.Bottom.MaxXValue = stoptime
|
||
'ChartBar.Axes.Bottom.ma = stoptime
|
||
'ChartBar.Axes.Bottom.Scroll(1705386785, False)
|
||
|
||
'ChartBar.Axes.Bottom.Scroll()
|
||
'ChartBar.Zoom.ZoomRect(New Rectangle(0, 0, 1000, 1000))
|
||
|
||
|
||
|
||
Dim ftemp = tCounta
|
||
ChartBar.Axes.Left.Maximum = ftemp ' / 100
|
||
ChartBar.Axes.Left.Minimum = 0 '/ 100
|
||
|
||
ChartBar.Axes.Bottom.Labels.Align = -45
|
||
ChartBar.Axes.Bottom.Labels.MultiLine = True
|
||
|
||
|
||
'Dim X As Integer = ChartBar
|
||
|
||
'Dim R As New Rectangle(X, Y, Width, Height)
|
||
|
||
|
||
|
||
|
||
|
||
' ChartBar.Refresh()
|
||
End Sub
|
||
Public Sub Testfunction()
|
||
|
||
ChartBar.Header.Text = "" '标题
|
||
ChartBar.Header.Visible = True
|
||
ChartBar.Aspect.View3D = False
|
||
|
||
|
||
ChartBar.Axes.Left.Automatic = False
|
||
ChartBar.Axes.Left.AutomaticMaximum = False
|
||
ChartBar.Axes.Left.AutomaticMinimum = False
|
||
ChartBar.Axes.Left.Labels.ValueFormat = "0.0"
|
||
ChartBar.Axes.Left.Increment = 0.5
|
||
ChartBar.Axes.Left.Maximum = 10 ' / 100
|
||
ChartBar.Axes.Left.Minimum = 0 '/ 100
|
||
|
||
ChartBar.Axes.Bottom.AutomaticMaximum = False
|
||
ChartBar.Axes.Bottom.AutomaticMinimum = False
|
||
ChartBar.Axes.Bottom.Automatic = False
|
||
ChartBar.Axes.Bottom.Labels.Align = -45
|
||
ChartBar.Axes.Bottom.Labels.MultiLine = True
|
||
ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd"
|
||
ChartBar.Series(0).XValues.DateTime = True
|
||
|
||
|
||
|
||
' 创建 DateTimeOffset 对象并设置其值为指定的 UTC 秒数
|
||
Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
|
||
' 获取本地日期和时间
|
||
Dim yt As DateTime = （dtOffset + TimeSpan.FromSeconds(1704822366)).LocalDateTime
|
||
Dim minValue As DateTime = New DateTime(yt.Year, yt.Month, yt.Day, yt.Hour, yt.Minute， yt.Second) '' 最小日期
|
||
yt = （dtOffset + TimeSpan.FromSeconds(1704823530)).LocalDateTime
|
||
Dim maxValue As DateTime = New DateTime(yt.Year, yt.Month, yt.Day, yt.Hour, yt.Minute， yt.Second) '' 最小日期
|
||
|
||
ChartBar.Axes.Bottom.Maximum = maxValue.ToOADate
|
||
ChartBar.Axes.Bottom.Minimum = minValue.ToOADate
|
||
'Dim dou As Double = 1 / (maxValue.ToOADate - minValue.ToOADate)
|
||
'ChartBar.Axes.Bottom.Increment = TimeSpan.FromSeconds(1).TotalSeconds
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Public Sub ksjfk()
|
||
' 创建TeeChart控件对象
|
||
Dim chart = ChartBar.Chart
|
||
|
||
' 添加Series到图表上（这里使用Line Series作示例）
|
||
Dim series As New Steema.TeeChart.Styles.Line()
|
||
'chart.Add(series)
|
||
ChartBar.Series.Add(series)
|
||
' 定义要显示的数据点及其相应的X轴标签
|
||
Dim xDataPoints() As Double = {10, 20, 30, 40} ' X轴数据点
|
||
Dim yDataPoints() As Double = {50, 60, 70, 80} ' Y轴数据点
|
||
Dim labels() As String = {"Label1", "Label2", "Label3", "Label4"} ' X轴标签
|
||
|
||
' 遍历数据并设置每个数据点的值和标签
|
||
For i As Integer = 0 To xDataPoints.Length - 1
|
||
|
||
Dim point As New PointF(xDataPoints(i), yDataPoints(i))
|
||
|
||
' 设置X轴标签
|
||
point.X = labels(i)
|
||
|
||
' 向系列中添加数据点
|
||
series.Add(point)
|
||
Next
|
||
|
||
' 显示图表
|
||
'chart.ShowDialog()
|
||
End Sub
|
||
|
||
|
||
Public Function AddTeeChartStylesLine() As Styles.Line
|
||
Dim devline As Steema.TeeChart.Styles.Line = New Styles.Line
|
||
ChartBar.Series.Add(devline)
|
||
Dim minValue As DateTime = New DateTime(2024, 1, 10, 2, 35， 30) '' 最小日期
|
||
|
||
|
||
Return devline
|
||
' Dim chart As TChart = ChartBar
|
||
End Function
|
||
|
||
Public Sub init_Grid_config()
|
||
With Grid_config
|
||
.NewFile()
|
||
.Cols = 3
|
||
.Rows = 7
|
||
.DisplayRowNumber = False
|
||
.Cell(0, 0).Text = "序号"
|
||
.Cell(0, 1).Text = "属性"
|
||
.Cell(0, 2).Text = "属性值"
|
||
.Column(0).Width = 0
|
||
.Column(1).Width = 150
|
||
.Column(1).Locked = True
|
||
.Column(2).Width = 200
|
||
.Column(1).Alignment = AlignmentEnum.CenterCenter
|
||
.Column(2).Alignment = AlignmentEnum.CenterCenter
|
||
.Cell(1, 1).Text = "开始时间"
|
||
.Cell(2, 1).Text = "结束时间"
|
||
.Cell(3, 1).Text = "机型"
|
||
.Cell(4, 1).Text = "界面宽度"
|
||
.Cell(5, 1).Text = "界面高度"
|
||
.Cell(6, 1).Text = "左右比例"
|
||
.Cell(1, 2).CellType = CellTypeEnum.DateTime
|
||
.Cell(2, 2).CellType = CellTypeEnum.DateTime
|
||
.Cell(3, 2).CellType = CellTypeEnum.ComboBox
|
||
.Row(4).Visible = False
|
||
|
||
.Row(5).Visible = False
|
||
.Row(6).Visible = False
|
||
End With
|
||
End Sub
|
||
Public Sub FileTo_Grid_config()
|
||
If IO.File.Exists(filepath) Then
|
||
Grid_config.OpenFile(filepath)
|
||
Dim kk As Integer = 0
|
||
Dim kr As Integer = 0
|
||
If Integer.TryParse(Grid_config.Cell(4, 2).Text, kk) And Integer.TryParse(Grid_config.Cell(5, 2).Text, kr) Then
|
||
If kk <> 0 And kr <> 0 Then
|
||
Size = New Size(kk, kr)
|
||
End If
|
||
End If
|
||
kk = 0
|
||
If Integer.TryParse(Grid_config.Cell(6, 2).Text, kk) Then
|
||
If kk <> 0 Then
|
||
SplitContainer1.SplitterDistance = kk
|
||
End If
|
||
End If
|
||
|
||
|
||
End If
|
||
End Sub
|
||
Public Sub Grid_config_FileTo()
|
||
|
||
Grid_config.Cell(4, 2).Text = Size.Width
|
||
Grid_config.Cell(5, 2).Text = Size.Height
|
||
Grid_config.Cell(6, 2).Text = SplitContainer1.SplitterDistance
|
||
Grid_config.SaveFile(filepath)
|
||
|
||
End Sub
|
||
|
||
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
|
||
Grid_config_FileTo()
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||
Grid_config.AddItem("")
|
||
Grid_config.Cell(Grid_config.Rows - 1, 1).Text = "机型"
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
||
Grid_configDeleteRow(Grid_config.ActiveCell.Row)
|
||
End Sub
|
||
Public Sub Grid_configDeleteRow(erow As Integer)
|
||
Dim devname As String = Grid_config.Cell(erow, 1).Text
|
||
If devname.Equals("机型") Then
|
||
Grid_config.Row(erow).Delete()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||
init_Grid_config()
|
||
End Sub
|
||
|
||
|
||
|
||
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
|
||
MysqlDataDispose()
|
||
End Sub
|
||
|
||
|
||
Public Sub MysqlDataDispose()
|
||
Dim selectstr As String = "SELECT * FROM `psmysql`.`deviceparsingdatalog` WHERE"
|
||
Dim cstrpar As String = String.Empty
|
||
Dim starttime, stoptime As DateTime
|
||
Dim dtZone As DateTime = New DateTime(1970, 1, 1, 0, 0, 0)
|
||
Try
|
||
|
||
starttime = DateTime.Parse(Grid_config.Cell(1, 2).Text.Trim)
|
||
stoptime = DateTime.Parse(Grid_config.Cell(2, 2).Text.Trim)
|
||
If IsNothing(starttime) OrElse IsNothing(stoptime) Then
|
||
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
|
||
Return
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
|
||
Return
|
||
End Try
|
||
|
||
For i = 1 To Grid_config.Rows - 1
|
||
If i = 1 Then
|
||
selectstr = $"{selectstr}`DateTime`>='{starttime.Year }/{starttime.Month }/{starttime.Day } {starttime.Hour }:{starttime.Minute }:{starttime.Second }' And "
|
||
ElseIf i = 2 Then
|
||
selectstr = $"{selectstr}`DateTime`<='{stoptime.Year }/{stoptime.Month }/{stoptime.Day } {stoptime.Hour }:{stoptime.Minute }:{stoptime.Second }' And "
|
||
ElseIf i = 3 Then
|
||
cstrpar = $"{cstrpar}OR `DEV_NAME` = '{Grid_config.Cell(i, 2).Text.Trim}'{vbCrLf }"
|
||
End If
|
||
|
||
Next
|
||
If Not String.IsNullOrEmpty(cstrpar) Then
|
||
cstrpar = cstrpar.Remove(0, 2)
|
||
selectstr = $"{selectstr}({cstrpar.Trim }) ORDER BY (`DateTime`) ASC"
|
||
End If
|
||
' Dim rowdic As Dictionary(Of String, Dictionary(Of String, String)) = New Dictionary(Of String, Dictionary(Of String, String))
|
||
Dim colounmdic As Dictionary(Of String， Dictionary(Of String, Double)) = New Dictionary(Of String, Dictionary(Of String, Double))
|
||
Dim dt As DataTable
|
||
Dim rval As Double = 0
|
||
Try
|
||
|
||
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnString)
|
||
db.Open()
|
||
dt = db.ExecuteDataTable(selectstr)
|
||
If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
|
||
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }数据查询语句异常:{selectstr}")
|
||
Return
|
||
Else
|
||
|
||
|
||
Dim sqldate As Date
|
||
Dim timse As String
|
||
|
||
For i = 0 To dt.Rows.Count - 1
|
||
sqldate = Date.Parse(dt.Rows(i)("DateTime"))
|
||
timse = $"{sqldate.Year }/{sqldate.Month }/{sqldate.Day } {sqldate.Hour }:{sqldate.Minute }:{sqldate.Second }"
|
||
If i = 0 Then
|
||
starttime = sqldate
|
||
ElseIf i = dt.Rows.Count - 1 Then
|
||
stoptime = sqldate
|
||
End If
|
||
|
||
' Try
|
||
'If i = 558 Then
|
||
' Console.WriteLine(i)
|
||
' End If
|
||
If Not colounmdic.ContainsKey("Room_isExist") Then
|
||
colounmdic.Add("Room_isExist", New Dictionary(Of String, Double))
|
||
End If
|
||
If IsDBNull(dt.Rows(i)("Room_isExist")) Then
|
||
rval = 0
|
||
Else
|
||
Double.TryParse(dt.Rows(i)("Room_isExist"), rval)
|
||
End If
|
||
|
||
If colounmdic.Item("Room_isExist").ContainsKey(timse) Then
|
||
colounmdic.Item("Room_isExist").Item(timse) = rval
|
||
Else
|
||
colounmdic.Item("Room_isExist").Add(timse, rval)
|
||
End If
|
||
|
||
|
||
If Not colounmdic.ContainsKey("isExist_Gol") Then
|
||
colounmdic.Add("isExist_Gol", New Dictionary(Of String, Double))
|
||
End If
|
||
If IsDBNull(dt.Rows(i)("isExist_Gol")) Then
|
||
rval = 0
|
||
Else
|
||
Double.TryParse(dt.Rows(i)("isExist_Gol"), rval)
|
||
End If
|
||
|
||
If colounmdic.Item("isExist_Gol").ContainsKey(timse) Then
|
||
colounmdic.Item("isExist_Gol").Item(timse) = rval
|
||
Else
|
||
colounmdic.Item("isExist_Gol").Add(timse, rval)
|
||
End If
|
||
'Catch ex As Exception
|
||
' Console.WriteLine(i)
|
||
'End Try
|
||
|
||
|
||
' Try
|
||
For j = 1 To 5
|
||
selectstr = $"isExist_Area_{j}"
|
||
cstrpar = $"isTrig_{j}"
|
||
If Not colounmdic.ContainsKey(selectstr) Then
|
||
colounmdic.Add(selectstr, New Dictionary(Of String, Double))
|
||
End If
|
||
'Double.TryParse(dt.Rows(i)(selectstr), rval)
|
||
If IsDBNull(dt.Rows(i)(selectstr)) Then
|
||
rval = 0
|
||
Else
|
||
Double.TryParse(dt.Rows(i)(selectstr), rval)
|
||
End If
|
||
If colounmdic.Item(selectstr).ContainsKey(timse) Then
|
||
colounmdic.Item(selectstr).Item(timse) = rval
|
||
Else
|
||
colounmdic.Item(selectstr).Add(timse, rval)
|
||
End If
|
||
|
||
If Not colounmdic.ContainsKey(cstrpar) Then
|
||
colounmdic.Add(cstrpar, New Dictionary(Of String, Double))
|
||
End If
|
||
If IsDBNull(dt.Rows(i)(cstrpar)) Then
|
||
rval = 0
|
||
Else
|
||
Double.TryParse(dt.Rows(i)(cstrpar), rval)
|
||
End If
|
||
|
||
If colounmdic.Item(cstrpar).ContainsKey(timse) Then
|
||
colounmdic.Item(cstrpar).Item(timse) = rval
|
||
Else
|
||
colounmdic.Item(cstrpar).Add(timse, rval)
|
||
End If
|
||
Next
|
||
'Catch ex As Exception
|
||
' Console.WriteLine(i)
|
||
'End Try
|
||
|
||
|
||
|
||
|
||
|
||
Next
|
||
|
||
|
||
|
||
End If
|
||
|
||
|
||
End Using
|
||
|
||
InitPieChart(colounmdic, starttime, stoptime)
|
||
|
||
|
||
Catch ex As Exception
|
||
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
|
||
Return
|
||
End Try
|
||
|
||
|
||
End Sub
|
||
|
||
Public Sub initGrid_Mysqldate(rowdic As Dictionary(Of String, Dictionary(Of String, String)))
|
||
If IsNothing(rowdic) AndAlso rowdic.Count = 0 AndAlso (Not rowdic.ContainsKey("colounmdic")) Then
|
||
MsgBox($"数据加载失败！！数据为空或未检测到列信息。")
|
||
End If
|
||
|
||
Dim starttime As Long = 0
|
||
Dim stoptime As Long = 0
|
||
Dim kkdic As Dictionary(Of String， Dictionary(Of Long, Double)) = New Dictionary(Of String, Dictionary(Of Long, Double))
|
||
Dim colounmdic As Dictionary(Of String, String) = rowdic.Item("colounmdic")
|
||
With Grid_Mysqldate
|
||
.NewFile()
|
||
.AutoRedraw = False
|
||
.Cols = colounmdic.Count + 3
|
||
.Rows = 1
|
||
.DisplayRowNumber = True
|
||
.Cell(0, 0).Text = "序号"
|
||
.Cell(0, 1).Text = "时间"
|
||
.Cell(0, 2).Text = "时间戳"
|
||
.Column(0).Width = 20
|
||
.Column(1).Width = 150
|
||
.Column(1).Alignment = AlignmentEnum.CenterCenter
|
||
|
||
For i = 0 To colounmdic.Count - 1
|
||
.Cell(0, i + 3).Text = colounmdic.Keys(i)
|
||
.Column(i + 3).Alignment = AlignmentEnum.CenterCenter
|
||
Next
|
||
Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
|
||
' 获取本地日期和时间
|
||
|
||
|
||
For Each node In rowdic
|
||
If node.Key.Equals("colounmdic") Then Continue For
|
||
.AddItem("")
|
||
|
||
Dim t As Long = Long.Parse(node.Key)
|
||
t = t / 1000
|
||
Dim yt As DateTime = （dtOffset + TimeSpan.FromSeconds(t)).LocalDateTime
|
||
If starttime = 0 OrElse t < starttime Then
|
||
starttime = t
|
||
End If
|
||
If stoptime = 0 OrElse t > stoptime Then
|
||
stoptime = t
|
||
End If
|
||
|
||
|
||
.Cell(.Rows - 1, 1).Text = yt.ToString("yyyy-MM-dd HH:mm:ss")
|
||
.Cell(.Rows - 1, 2).Text = t.ToString
|
||
For Each index In node.Value
|
||
For j = 0 To colounmdic.Count - 1
|
||
' 'Console.WriteLine(.Cell(0, j + 2).Text)
|
||
If .Cell(0, j + 3).Text.Equals(index.Key) Then
|
||
.Cell(.Rows - 1, j + 3).Text = index.Value
|
||
End If
|
||
Next
|
||
Next
|
||
|
||
Dim datadic As Dictionary(Of Long, Double)
|
||
If kkdic.ContainsKey(node.Value.Keys(0)) Then
|
||
datadic = kkdic.Item(node.Value.Keys(0))
|
||
If datadic.ContainsKey(t) Then
|
||
datadic.Item(t) = CInt(node.Value.Values(0))
|
||
Else
|
||
datadic.Add(t, node.Value.Values(0))
|
||
End If
|
||
|
||
Else
|
||
datadic = New Dictionary(Of Long, Double)
|
||
datadic.Add(t, node.Value.Values(0))
|
||
kkdic.Add(node.Value.Keys(0), datadic)
|
||
End If
|
||
|
||
|
||
Next
|
||
|
||
End With
|
||
Grid_Mysqldate.AutoRedraw = True
|
||
Grid_Mysqldate.Refresh()
|
||
|
||
InitPieChart(kkdic, starttime, stoptime)
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' 初始化Chart控件
|
||
''' </summary>
|
||
Private Sub InitTeeChart(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)
|
||
ChartBar.AutoRepaint = False
|
||
ChartBar.Header.Lines = New String() {""} 'TeeChart标题
|
||
ChartBar.Panning.InsideBounds = True
|
||
ChartBar.Panning.Allow = ScrollModes.Horizontal
|
||
InitCustomAxies(kkdic, starttime, stoptime)
|
||
InitFastLine(kkdic)
|
||
InitCursor()
|
||
ChartBar.AutoRepaint = True
|
||
ChartBar.Refresh()
|
||
End Sub
|
||
Private Sub InitTeeChart(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)
|
||
ChartBar.AutoRepaint = False
|
||
ChartBar.Header.Lines = New String() {""} 'TeeChart标题
|
||
ChartBar.Panning.InsideBounds = True
|
||
ChartBar.Panning.Allow = ScrollModes.Horizontal
|
||
InitCustomAxies(kkdic, starttime, stoptime)
|
||
InitFastLine(kkdic)
|
||
InitCursor()
|
||
ChartBar.AutoRepaint = True
|
||
ChartBar.Refresh()
|
||
End Sub
|
||
''' <summary>
|
||
''' 初始化轴
|
||
''' </summary>
|
||
Private Sub InitCustomAxies(kkdic As Dictionary(Of String， Dictionary(Of String, Double)), starttime As Date， stoptime As Date)
|
||
|
||
_axis.Clear()
|
||
ChartBar.Axes.Custom.Clear()
|
||
ChartBar.Walls.Visible = False '不显示立面（背景色将统一）
|
||
|
||
ChartBar.Axes.Bottom.Title.Caption = "时间轴"
|
||
ChartBar.Axes.Bottom.Title.Visible = False
|
||
ChartBar.Axes.Bottom.MaximumOffset = 4 '最大值偏移
|
||
ChartBar.Axes.Bottom.MinimumOffset = 4 '最小值偏移
|
||
ChartBar.Axes.Bottom.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
|
||
ChartBar.Axes.Bottom.Grid.Width = 2
|
||
ChartBar.Axes.Bottom.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
|
||
ChartBar.Axes.Bottom.Ticks.Length = 4 '标记长度
|
||
ChartBar.Axes.Bottom.Ticks.Width = 4 '标记宽度
|
||
ChartBar.Axes.Bottom.Grid.Transparency = 60
|
||
' _axis.Add(ChartBar.Axes.Bottom)
|
||
ChartBar.Axes.Bottom.Automatic = False
|
||
|
||
Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
|
||
' 获取本地日期和时间
|
||
Dim yt As DateTime
|
||
yt = stoptime ' （dtOffset.AddSeconds(stoptime)).LocalDateTime
|
||
ChartBar.Axes.Bottom.Maximum = yt.ToOADate
|
||
Dim bvtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
|
||
yt = starttime ' （dtOffset.AddSeconds(starttime)).LocalDateTime
|
||
|
||
ChartBar.Axes.Bottom.Minimum = yt.ToOADate
|
||
' ChartBar.Axes.Bottom.Increment = 1
|
||
ChartBar.Axes.Bottom.Logarithmic = False
|
||
'ChartBar.Axes.Right.Title.Right = 20
|
||
ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd HH"
|
||
|
||
ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
|
||
ChartBar.Axes.Left.Title.Visible = False
|
||
ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
|
||
ChartBar.Axes.Left.MinimumOffset = 4 '最小值偏移
|
||
ChartBar.Axes.Left.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
|
||
ChartBar.Axes.Left.Grid.Width = 2
|
||
ChartBar.Axes.Left.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
|
||
ChartBar.Axes.Left.Ticks.Length = 2 '标记长度
|
||
ChartBar.Axes.Left.Ticks.Width = 2 '标记宽度
|
||
ChartBar.Axes.Left.Grid.Transparency = 60
|
||
ChartBar.Axes.Left.Automatic = False
|
||
ChartBar.Axes.Left.Minimum = 0.001
|
||
ChartBar.Axes.Left.Maximum = 1000
|
||
ChartBar.Axes.Left.Logarithmic = True
|
||
|
||
|
||
For i = 0 To kkdic.Count - 1
|
||
|
||
|
||
|
||
'_axis.Add(ChartBar.Axes.Left)
|
||
'Case Else 'IO
|
||
Dim idx As Integer = i
|
||
_axis.Add(New Steema.TeeChart.Axis)
|
||
_axis(i).Title.Caption = kkdic.Keys(i) '标题文本
|
||
|
||
_axis(i).Title.Font.Brush.Color = Color.GhostWhite
|
||
|
||
_axis(i).Title.Angle = 0 '标题角度
|
||
_axis(i).AxisPen.Color = Color.FromArgb(255, idx * 12, 255 - idx * 10, idx * 6) '颜色
|
||
_axis(i).OtherSide = True '右边显示
|
||
|
||
_axis(i).StartPosition = idx * 8.0R
|
||
_axis(i).EndPosition = _axis(i).StartPosition + 4.0R
|
||
_axis(i).Automatic = False
|
||
_axis(i).Minimum = 0
|
||
_axis(i).Maximum = 1
|
||
_axis(i).Increment = 1.0R
|
||
_axis(i).Grid.Visible = False
|
||
_axis(i).Labels.Angle = 0 '角度
|
||
|
||
|
||
ChartBar.Axes.Custom.Add(_axis(i))
|
||
|
||
'End Select
|
||
Next
|
||
|
||
End Sub
|
||
Private Sub InitCustomAxies(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)
|
||
|
||
_axis.Clear()
|
||
ChartBar.Axes.Custom.Clear()
|
||
ChartBar.Walls.Visible = False '不显示立面（背景色将统一）
|
||
|
||
ChartBar.Axes.Bottom.Title.Caption = "时间轴"
|
||
ChartBar.Axes.Bottom.Title.Visible = False
|
||
ChartBar.Axes.Bottom.MaximumOffset = 4 '最大值偏移
|
||
ChartBar.Axes.Bottom.MinimumOffset = 4 '最小值偏移
|
||
ChartBar.Axes.Bottom.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
|
||
ChartBar.Axes.Bottom.Grid.Width = 2
|
||
ChartBar.Axes.Bottom.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
|
||
ChartBar.Axes.Bottom.Ticks.Length = 4 '标记长度
|
||
ChartBar.Axes.Bottom.Ticks.Width = 4 '标记宽度
|
||
ChartBar.Axes.Bottom.Grid.Transparency = 60
|
||
' _axis.Add(ChartBar.Axes.Bottom)
|
||
ChartBar.Axes.Bottom.Automatic = False
|
||
|
||
Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
|
||
' 获取本地日期和时间
|
||
Dim yt As DateTime
|
||
yt = （dtOffset.AddSeconds(stoptime)).LocalDateTime
|
||
ChartBar.Axes.Bottom.Maximum = yt.ToOADate
|
||
Dim bvtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
|
||
yt = （dtOffset.AddSeconds(starttime)).LocalDateTime
|
||
|
||
ChartBar.Axes.Bottom.Minimum = yt.ToOADate
|
||
' ChartBar.Axes.Bottom.Increment = 1
|
||
ChartBar.Axes.Bottom.Logarithmic = False
|
||
'ChartBar.Axes.Right.Title.Right = 20
|
||
ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd HH"
|
||
|
||
ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
|
||
ChartBar.Axes.Left.Title.Visible = False
|
||
ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
|
||
ChartBar.Axes.Left.MinimumOffset = 4 '最小值偏移
|
||
ChartBar.Axes.Left.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
|
||
ChartBar.Axes.Left.Grid.Width = 2
|
||
ChartBar.Axes.Left.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
|
||
ChartBar.Axes.Left.Ticks.Length = 2 '标记长度
|
||
ChartBar.Axes.Left.Ticks.Width = 2 '标记宽度
|
||
ChartBar.Axes.Left.Grid.Transparency = 60
|
||
ChartBar.Axes.Left.Automatic = False
|
||
ChartBar.Axes.Left.Minimum = 0.001
|
||
ChartBar.Axes.Left.Maximum = 1000
|
||
ChartBar.Axes.Left.Logarithmic = True
|
||
|
||
|
||
For i = 0 To kkdic.Count - 1
|
||
|
||
|
||
|
||
'_axis.Add(ChartBar.Axes.Left)
|
||
'Case Else 'IO
|
||
Dim idx As Integer = i
|
||
_axis.Add(New Steema.TeeChart.Axis)
|
||
_axis(i).Title.Caption = kkdic.Keys(i) '标题文本
|
||
|
||
_axis(i).Title.Font.Brush.Color = Color.GhostWhite
|
||
|
||
_axis(i).Title.Angle = 0 '标题角度
|
||
_axis(i).AxisPen.Color = Color.FromArgb(255, idx * 12, 255 - idx * 10, idx * 6) '颜色
|
||
_axis(i).OtherSide = True '右边显示
|
||
|
||
_axis(i).StartPosition = idx * 8.0R
|
||
_axis(i).EndPosition = _axis(i).StartPosition + 4.0R
|
||
_axis(i).Automatic = False
|
||
_axis(i).Minimum = 0
|
||
_axis(i).Maximum = 1
|
||
_axis(i).Increment = 1.0R
|
||
_axis(i).Grid.Visible = False
|
||
_axis(i).Labels.Angle = 0 '角度
|
||
|
||
|
||
ChartBar.Axes.Custom.Add(_axis(i))
|
||
|
||
'End Select
|
||
Next
|
||
|
||
End Sub
|
||
''' <summary>
|
||
''' 初始化线
|
||
''' </summary>
|
||
Private Sub InitFastLine(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)))
|
||
ChartBar.Series.Clear()
|
||
_fastLine.Clear()
|
||
For i = 0 To kkdic.Count - 1
|
||
_fastLine.Add（kkdic.Keys(i), New Steema.TeeChart.Styles.FastLine)
|
||
AddHandler _fastLine.Item(kkdic.Keys(i)).Click, AddressOf FastLine1_Click
|
||
' _fastLine(i).Title = $"电流{i}" ' FastLineTitle(i) '标题
|
||
_fastLine.Item(kkdic.Keys(i)).TreatNulls = Steema.TeeChart.Styles.TreatNullsStyle.DoNotPaint
|
||
ChartBar.Series.Add(_fastLine.Item(kkdic.Keys(i)))
|
||
_fastLine.Item(kkdic.Keys(i)).XValues.DateTime = True
|
||
'Select Case i
|
||
' Case 0
|
||
' _fastLine(i).Title = $"电流"
|
||
' ' FastLine(i).CustomVertAxis = ChartBar.Axes.Left '绑定电流轴
|
||
' _fastLine(i).Transparency = 0 '线条透明度
|
||
' _fastLine(i).LinePen.Color = Color.FromArgb(255, 255, 0, 0) '线条颜色
|
||
'
|
||
' Case 1 To 5
|
||
' If i = 1 Then
|
||
' _fastLine(i).Title = $"电压"
|
||
' Else
|
||
' _fastLine(i).Title = $"CH{i - 1}"
|
||
' End If
|
||
|
||
' ' _fastLine(i).Visible = False
|
||
' ' _fastLine(i).CustomVertAxis = _axis(0) '绑定电压
|
||
' _fastLine(i).Transparency = 75 '线条透明度
|
||
' _fastLine(i).LinePen.Color = Color.FromArgb(126, 0, 0, 255) '线条颜色
|
||
' _fastLine(i).Legend.Visible = True '不在图例中显示
|
||
' Case Else
|
||
_fastLine.Item(kkdic.Keys(i)).Title = $"{kkdic.Keys(i)}"
|
||
'_fastLine(i).Legend.Visible = True '不在图例中显示
|
||
' _fastLine.Item(kkdic.Keys(i)).Visible = False
|
||
_fastLine.Item(kkdic.Keys(i)).Transparency = 0 '线条透明度
|
||
_fastLine.Item(kkdic.Keys(i)).CustomVertAxis = _axis(i) '绑定IO轴
|
||
_fastLine.Item(kkdic.Keys(i)).Stairs = True '线条阶梯状
|
||
Dim random As New Random()
|
||
|
||
_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.GhostWhite '线条颜色
|
||
'_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.Blue
|
||
_fastLine.Item(kkdic.Keys(i)).LinePen.Width = 2
|
||
_fastLine.Item(kkdic.Keys(i)).Legend.Visible = False '不在图例中显示
|
||
' _fastLine(i).LinePen.Color = _axis(i - 5).Labels.Color
|
||
'End Select
|
||
' FastLine(i).LinePen.Color = Color.FromArgb(12, 12, 12, 12) '颜色
|
||
' FastLine(i).ColorEach = False '各点之间颜色不一
|
||
Next
|
||
End Sub
|
||
Private Sub InitFastLine(kkdic As Dictionary(Of String， Dictionary(Of String, Double)))
|
||
ChartBar.Series.Clear()
|
||
_fastLine.Clear()
|
||
For i = 0 To kkdic.Count - 1
|
||
_fastLine.Add（kkdic.Keys(i), New Steema.TeeChart.Styles.FastLine)
|
||
AddHandler _fastLine.Item(kkdic.Keys(i)).Click, AddressOf FastLine1_Click
|
||
' _fastLine(i).Title = $"电流{i}" ' FastLineTitle(i) '标题
|
||
_fastLine.Item(kkdic.Keys(i)).TreatNulls = Steema.TeeChart.Styles.TreatNullsStyle.DoNotPaint
|
||
ChartBar.Series.Add(_fastLine.Item(kkdic.Keys(i)))
|
||
_fastLine.Item(kkdic.Keys(i)).XValues.DateTime = True
|
||
'Select Case i
|
||
' Case 0
|
||
' _fastLine(i).Title = $"电流"
|
||
' ' FastLine(i).CustomVertAxis = ChartBar.Axes.Left '绑定电流轴
|
||
' _fastLine(i).Transparency = 0 '线条透明度
|
||
' _fastLine(i).LinePen.Color = Color.FromArgb(255, 255, 0, 0) '线条颜色
|
||
'
|
||
' Case 1 To 5
|
||
' If i = 1 Then
|
||
' _fastLine(i).Title = $"电压"
|
||
' Else
|
||
' _fastLine(i).Title = $"CH{i - 1}"
|
||
' End If
|
||
|
||
' ' _fastLine(i).Visible = False
|
||
' ' _fastLine(i).CustomVertAxis = _axis(0) '绑定电压
|
||
' _fastLine(i).Transparency = 75 '线条透明度
|
||
' _fastLine(i).LinePen.Color = Color.FromArgb(126, 0, 0, 255) '线条颜色
|
||
' _fastLine(i).Legend.Visible = True '不在图例中显示
|
||
' Case Else
|
||
_fastLine.Item(kkdic.Keys(i)).Title = $"{kkdic.Keys(i)}"
|
||
'_fastLine(i).Legend.Visible = True '不在图例中显示
|
||
' _fastLine.Item(kkdic.Keys(i)).Visible = False
|
||
_fastLine.Item(kkdic.Keys(i)).Transparency = 0 '线条透明度
|
||
_fastLine.Item(kkdic.Keys(i)).CustomVertAxis = _axis(i) '绑定IO轴
|
||
_fastLine.Item(kkdic.Keys(i)).Stairs = True '线条阶梯状
|
||
Dim random As New Random()
|
||
|
||
_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.GhostWhite '线条颜色
|
||
'_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.Blue
|
||
_fastLine.Item(kkdic.Keys(i)).LinePen.Width = 2
|
||
_fastLine.Item(kkdic.Keys(i)).Legend.Visible = False '不在图例中显示
|
||
' _fastLine(i).LinePen.Color = _axis(i - 5).Labels.Color
|
||
'End Select
|
||
' FastLine(i).LinePen.Color = Color.FromArgb(12, 12, 12, 12) '颜色
|
||
' FastLine(i).ColorEach = False '各点之间颜色不一
|
||
Next
|
||
|
||
End Sub
|
||
Private Sub InitCursor()
|
||
ChartBar.Tools.Clear()
|
||
For i = 0 To _curSor.Length - 1
|
||
_curSor(i) = New Steema.TeeChart.Tools.CursorTool
|
||
ChartBar.Tools.Add(_curSor(i))
|
||
_curSor(i).Style = Steema.TeeChart.Tools.CursorToolStyles.Vertical
|
||
_curSor(i).OriginalCursor = System.Windows.Forms.Cursors.Default
|
||
_curSor(i).Pen.Style = System.Drawing.Drawing2D.DashStyle.Dot
|
||
_curSor(i).Pen.Width = 2
|
||
_curSor(i).Tag = i
|
||
_curSor(i).Active = True
|
||
_curSor(i).FollowMouse = False
|
||
AddHandler _curSor(i).Change, AddressOf CursorChange
|
||
Select Case i
|
||
Case 0
|
||
_curSor(i).Pen.Color = System.Drawing.Color.Orange
|
||
Case 1
|
||
_curSor(i).Pen.Color = System.Drawing.Color.Lime
|
||
Case 2
|
||
_curSor(i).Pen.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
|
||
End Select
|
||
Next
|
||
End Sub
|
||
''' <summary>
|
||
''' 光标位置改变触发事件
|
||
''' </summary>
|
||
''' <param name="sender"></param>
|
||
''' <param name="e"></param>
|
||
Private Sub CursorChange(sender As Object, e As Steema.TeeChart.Tools.CursorChangeEventArgs)
|
||
Dim index As Integer = sender.tag
|
||
CursorChangeDataDisplay(index)
|
||
End Sub
|
||
''' <summary>
|
||
''' 光标移动显示数据
|
||
''' </summary>
|
||
''' <param name="index">当前移动的是第几个光标</param>
|
||
Private Sub CursorChangeDataDisplay(index As Integer)
|
||
|
||
Dim X1 As Double = 0
|
||
Dim X2 As Double = 0
|
||
Dim dtOffset As New DateTimeOffset(New DateTime(1900, 1, 1), TimeSpan.Zero)
|
||
|
||
' 获取本地日期和时间
|
||
Dim yt As DateTime
|
||
Dim ts As TimeSpan
|
||
Select Case index
|
||
Case 0
|
||
X1 = _curSor(index).XValue.ToString("#0.0000")
|
||
|
||
'yt.too
|
||
yt = DateTime.FromOADate(X1)
|
||
'Console.WriteLine($"CursorChangeDataDisplay:X1 {X1}:{yt.ToString("yyyy-MM-dd HH:mm:ss")}")
|
||
'yt = （dtOffset + TimeSpan.FromDays(X1)).LocalDateTime
|
||
'yt = yt + TimeSpan.FromHours(8)
|
||
labY1.Text = yt.ToString("dd HH:mm:ss")
|
||
ts = New TimeSpan(yt.Ticks)
|
||
labY1.Tag = ts.TotalSeconds
|
||
Case 1
|
||
X2 = _curSor(index).XValue.ToString("#0.0000")
|
||
yt = DateTime.FromOADate(X2)
|
||
|
||
'yt = yt + TimeSpan.FromHours(8)
|
||
labY2.Text = yt.ToString("dd HH:mm:ss")
|
||
'Console.WriteLine($"CursorChangeDataDisplay:X2 {X2}:{yt.ToString("yyyy-MM-dd HH:mm:ss")}")
|
||
ts = New TimeSpan(yt.Ticks)
|
||
labY2.Tag = ts.TotalSeconds
|
||
End Select
|
||
Double.TryParse(labY1.Tag, X1)
|
||
Double.TryParse(labY2.Tag, X2)
|
||
|
||
|
||
Dim couinm As Double = X2 - X1
|
||
lab1_2.Text = ""
|
||
If couinm < 0 Then
|
||
lab1_2.Text = " - "
|
||
End If
|
||
';'Console.WriteLine($"CursorChangeDataDisplay:{ _curSor(index).XValue.ToString("#0.00")}|{_curSor(index).XValue.ToString("#0.00")}|{couinm}")
|
||
Dim timeval As TimeSpan = TimeSpan.FromSeconds(Math.Abs(couinm))
|
||
' 'Console.WriteLine(couinm)
|
||
If timeval.Days > 0 Then
|
||
lab1_2.Text = $"{ lab1_2.Text}{timeval.Days }天 "
|
||
End If
|
||
lab1_2.Text = $"{ lab1_2.Text}{timeval.Hours }:{timeval.Minutes }:{timeval.Seconds }"
|
||
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
Private _curTool As Steema.TeeChart.Tools.CursorTool
|
||
Private Sub ChartBar_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ChartBar.MouseDoubleClick
|
||
If e.Button = MouseButtons.Middle Then
|
||
ChartBar.Zoom.Undo()
|
||
ElseIf e.Button = MouseButtons.Left Then
|
||
Dim idx As Integer
|
||
Dim row As Integer
|
||
|
||
If _curTool Is Nothing Then
|
||
idx = 0
|
||
_curTool = _curSor(idx)
|
||
_curTool.FollowMouse = True
|
||
'row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
|
||
'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"1"
|
||
|
||
Else
|
||
If _curTool.FollowMouse = False Then
|
||
idx = _curTool.Tag
|
||
' row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
|
||
'_isUserChange = False
|
||
_curTool.FollowMouse = False
|
||
'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"0"
|
||
|
||
idx += 1
|
||
If idx >= _curSor.Length Then
|
||
idx = 0
|
||
_curTool = _curSor(idx)
|
||
_curTool.FollowMouse = True
|
||
Else
|
||
_curTool = _curSor(idx)
|
||
_curTool.FollowMouse = True
|
||
' row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
|
||
'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"1"
|
||
End If
|
||
|
||
|
||
'_isUserChange = True
|
||
End If
|
||
|
||
End If
|
||
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ChartBar_MouseClick(sender As Object, e As MouseEventArgs) Handles ChartBar.MouseClick
|
||
If e.Button = MouseButtons.Middle Then
|
||
|
||
ChartBar.Zoom.Undo()
|
||
ElseIf e.Button = MouseButtons.Right Then
|
||
If IsNothing(_curTool) Then Return
|
||
_curTool.FollowMouse = False
|
||
End If
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
Private Sub FastLine1_Click(sender As Object, e As MouseEventArgs)
|
||
Dim fl As Styles.FastLine = sender
|
||
|
||
|
||
|
||
|
||
'For Each node In _fastLine
|
||
' If node.Value.Title.Equals(fl.Title) Then
|
||
' fl = node.Value
|
||
' Dim x1 As Double = 0
|
||
' labdevanme.Text = fl.Title
|
||
' ''Console.WriteLine($"{e.X} {fl.YValues.Value(e.X).ToString("#0.0.")} {e.Y} {fl.YValues.Value(e.Y).ToString("#0.00")}")
|
||
' Dim intcv As Integer = CInt（Math.Round(ChartBar.Series(0).YScreenToValue(e.Y))）
|
||
' labval.Text = intcv.ToString
|
||
|
||
|
||
' 'Console.WriteLine(fl.XValues.Value.Length)
|
||
' x1 = ChartBar.Series(0).XScreenToValue(e.X)
|
||
' Dim stra As String = fl.XValues.AsDateTime(e.X)
|
||
|
||
|
||
' Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
|
||
' ' 获取本地日期和时间
|
||
' Dim yt As DateTime
|
||
' yt = DateTime.FromOADate(x1)
|
||
' yt = yt + TimeSpan.FromHours(8)
|
||
' 'Console.WriteLine($"FastLine1_Click:{x1}:{ yt.ToString("yyyy-MM-dd HH:mm:ss")}")
|
||
' labDate.Text = yt.ToString("yyyy-MM-dd HH:mm:ss")
|
||
|
||
' End If
|
||
'Next
|
||
|
||
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub Grid_config_ComboDropDown(Sender As Object, e As Grid.ComboDropDownEventArgs) Handles Grid_config.ComboDropDown
|
||
Grid_config.ComboBox(0).Items.Clear()
|
||
If IsNothing(devnamedic) OrElse devnamedic.Count = 0 Then Return
|
||
Grid_config.ComboBox(0).Items.AddRange(devnamedic.ToArray)
|
||
End Sub
|
||
|
||
|
||
|
||
End Class
|