Boonlive_RD_Web/Desktop_DataAnalysis
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
35bbe5b7235995faae5c41f4a353b03afa0754bb
Desktop_DataAnalysis/Form1.vb

3172 lines
132 KiB
VB.net
Raw Normal View History

初始化
2025-12-11 10:14:45 +08:00
Imports System.Data.Common
Imports System.Globalization
Imports System.IO
Imports System.Text
Imports System.Threading
Imports FlexCell
Imports Mysqlx
Imports Newtonsoft.Json
Imports Steema.TeeChart
Public Class Form1
Public filepath As String
Public GdbConnString As String
Public linglist As Dictionary(Of String， Steema.TeeChart.Styles.Line)
Public linglist1 As Dictionary(Of String， Steema.TeeChart.Styles.Line)
Dim LocalConnString As String
Private _axis As List(Of Steema.TeeChart.Axis)
Private _axis1 As List(Of Steema.TeeChart.Axis)
Private _fastLine As Dictionary(Of String, Steema.TeeChart.Styles.FastLine)
'Private _fastLine1 As Dictionary(Of String, Steema.TeeChart.Styles.FastLine)
Private _curSor(1) As Steema.TeeChart.Tools.CursorTool
Private _curSor1(1) As Steema.TeeChart.Tools.CursorTool
Private Roomlist As Dictionary(Of String, String)
Public g_Macconfig As (String, Dictionary(Of String, String))
''' <summary>
''' dat原始文件内容中的数据格式
''' </summary>
Enum LOG_DATA_FORMAT
Hand = 0
SN '日志每条数据增加序列号
Len
Len_8 '新增
Check
Date_H '年：5bit 月：5bit 日：5bit
Date_L
Type
Time8B '小时时间戳
Time16B
Time24B
Time32B
Data
End Enum
''' <summary>
''' 文件名结构解析
''' </summary>
Public Structure fileNameInfoStruct
Public MAC As String
Public HotelId As String
Public RoomId As String
Public CreateDateTime As String
Public LogFileName As String
End Structure
Public Structure Log_DateStruct
Public year As UInt16
Public month As Byte
Public day As Byte
Public hour As Byte
Public minute As Byte
Public second As Byte
Public milliscond As UInt16
End Structure
Enum Debugtype
log = 1
End Enum
Enum LNetComm
N_Send = 1 '网络发送数据
N_Recv '网络接收数据
End Enum
''' <summary>
''' BLV设备类型
''' </summary>
Enum BLV_DEVICE_TYPE
RS485_Switch = &H6 'T1开关
RS485_Temp = &H7 'T1温控器
RS485_Card = &HA 'T1插卡取电
RS485_IR_SEND = &HF '红外转发
RS485_RGB_Light = &H12 'RGB灯带
RS485_XiaoBao = &H13 '小宝语音
RS485_Time = &H23 '时间同步
C12Dimming = &H12 'BLV_Cx Dimming设备
C5Music = &H15 'BLV_Cx MUSIC设备
C5IO = &HF1 'BLV_Cx IO设备
PC_TEST = &HF2 'BLV_Cx PC测试
End Enum
''' 日志数据 - 系统运行信息
''' </summary>
Enum LSYS
PHY_Change = 1 'PHY状态变化记录
DevInfo_Error '设备链表信息错误
API_State '升级状态
NET_ARGC '网络初始化参数
MQTT_ARGC 'MQTT参数
NetComm_State '网络通讯状态
NET_DafaultARGC '网络默认参数
End Enum
Enum LOG_DEV_State
Online = &H1
Offline = &H2
End Enum
Enum LCOMM
ASK_TO_Reply = 1 '轮询回复数据
Send_Control 'RCU下发控制数据
Control_Reply 'RCU控制回复数据
Adjust_Baud '设备调整波特率
End Enum
''' <summary>
''' 日志数据 - Launcher记录信息
''' </summary>
Enum LLauncher
''' <summary>
''' 校验APP
''' </summary>
App_Check = 1
''' <summary>
''' 读取APP
''' </summary>
Read_App
''' <summary>
''' 写Flash
''' </summary>
Write_Flash
''' <summary>
''' 恢复出厂设置
''' </summary>
Factory_Reset
''' <summary>
''' 复位信号源
''' 0x00：软件复位
''' 0x01：上电复位
''' 0x02：看门狗复位
''' 0x03：外部手动复位
''' 0x05：从下电模式唤醒时的复位 - 通过WCHISPTool烧录后的复位
''' </summary>
Reset_Source
End Enum
''' 温控器设备数据结构
''' </summary>
Class Device_Temp
Public on_off As Byte '开关机
Public mode As Byte '模式
Public fan As Byte '风速
Public valve As Byte '阀门
Public set_temp As Byte '设置温度
Public indoor_temp As Byte '室内温度
End Class
''' 日志数据类型
''' </summary>
Enum log_type
Launcher = 1 'Launcher信息记录
SYS_Record '系统运行信息记录
Device_COMM '设备通讯记录
Device_Online '设备通讯状态记录
Global_Parameters '所有设备状态定期记录 - 暂时还没用
Net_COMM '网络通讯记录 - 暂时还没定
Logic_Record '逻辑处理记录 - 暂时还没定
End Enum
Public Structure LogDataInfoStruct
Public MAC As String
Public Log_Valid As Boolean
Public Log_SN As UInt16
Public Log_Len As UInt16
Public Log_DateTime As Log_DateStruct
Public Log_TimeSpan As Int64
Public Log_Type As Byte
Public Log_Content() As Byte
Public HotelId As String
Public RoomId As String
Public CreateDateTime As String
Public LogFileName As String
Public parsing As List(Of String)
End Structure
Private Shared Log_Data_Len_Max As Int16 = 512
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Text = $"{Application.ProductName }{Application.ProductVersion }"
filepath = $"{Application.StartupPath }\config.flx"
g_Macconfig = ("", New Dictionary(Of String, String))
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)
_axis1 = New List(Of Axis)
_fastLine = New Dictionary(Of String, Styles.FastLine)
'_fastLine1 = New Dictionary(Of String, Styles.FastLine)
My.Settings.Reload()
If IO.Directory.Exists(My.Settings.FileDir) = True Then
Label1.Text = My.Settings.FileDir
End If
init_Grid_config()
FileTo_Grid_config()
linglist = New Dictionary(Of String, Steema.TeeChart.Styles.Line)
'initChartBar(10, 1701747214, 1704822658)
'Testfunction()
'ksjfk()
GetDevtype()
My.Settings.Reload()
GetGetHotelList()
If cbo_HotelList.Items.Count > 0 Then
cbo_HotelList.SelectedIndex = 0
End If
End Sub
'通过API获取酒店ID
Private Sub GetGetHotelList()
cbo_HotelList.Items.Clear()
If IsNothing(Roomlist) Then Roomlist = New Dictionary(Of String, String)
Roomlist.Clear()
Dim li As List(Of String) = GetAccountAuth()
cbo_HotelList.Items.AddRange(li.ToArray())
End Sub
Private Function GetAccountAuth() As List(Of String)
Dim result As List(Of String) = New List(Of String)()
Dim jsonString As String = HttpMothod.PostData("http://blv-rd.tech:19055/api/LowerMachineLog/GetHotelList"， "")
If String.IsNullOrWhiteSpace(jsonString) Then Throw New Exception($"用户鉴权异常，请联系管理员")
Dim login As LoginReturn = JsonConvert.DeserializeObject(Of LoginReturn)(jsonString)
If login Is Nothing Then Throw New Exception($"解析用户权限错误!")
If login.isok Then
For Each item In login.response
result.Add($"{item.code}|{item.name}")
Roomlist.Add($"{item.code}|{item.name}", item.createdate)
Next
Else
MsgBox("API获取酒店项目失败！")
Return result
End If
Return result
End Function
' 事件处理程序
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
Public Function ClearDeviceform(dbpath As String, Tftp_Log As String) As Boolean
Dim localConn As New DbConnectionStringBuilder
localConn.Add("Data Source", dbpath)
'localConn.Add("Password", "123456")
LocalConnString = localConn.ToString()
Dim selectstr As String = $"CREATE TABLE IF NOT EXISTS [{Tftp_Log}] (
[ID] integer COLLATE BINARY NOT NULL PRIMARY KEY AUTOINCREMENT,
[DevName] nvarchar(254) COLLATE BINARY,
[FileName] nvarchar(254) COLLATE BINARY,
[CreateFileTime] nvarchar(254) COLLATE BINARY,
[Datastr] nvarchar(254) COLLATE BINARY,
[T1] nvarchar(254) COLLATE BINARY,
[DevService] nvarchar(254) COLLATE BINARY,
[T3] nvarchar(254) COLLATE BINARY,
[T2] nvarchar(254) COLLATE BINARY,
[T5] nvarchar(254) COLLATE BINARY,
[T4] nvarchar(254) COLLATE BINARY,
[loop] nvarchar(254) COLLATE BINARY,
[Datatime] integer COLLATE BINARY )"
Dim dt As DataTable
Try
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Sqlite, LocalConnString)
db.Open()
'Try
' 'Dim vselectstr = $"DELETE FROM {Tftp_Log};"
' 'db.ExecuteNonQuery(vselectstr)
'Catch ex As Exception
'End Try
dt = db.ExecuteDataTable(selectstr)
db.Close()
If IsNothing(dt) Then
MsgBox($"数据表创建失败！！！{vbCrLf }")
Return False
Else
Return True
End If
Return True
End Using
Catch ex As Exception
MsgBox($"数据表创建失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
Return False
End Try
End Function
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
'Dim index As Integer = 0
For Each node In kkdic
'Console.WriteLine($"{node.Key}")
If node.Key = "执行条件状态" Then
fl = _fastLine.Item(node.Key)
Dim MarksTip1 As Steema.TeeChart.Tools.MarksTip = New Steema.TeeChart.Tools.MarksTip(ChartBar.Chart)
MarksTip1.Series = fl
MarksTip1.ForeColor = Color.White
MarksTip1.BackColor = Color.Gray
MarksTip1.HideDelay = 2500
MarksTip1.MouseDelay = 100
MarksTip1.Style = Styles.MarksStyles.LabelOrValue
MarksTip1.MouseAction = Tools.MarksTipMouseAction.Click
End If
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 node.Key = "执行条件状态" Then
If tval.ContainsKey(tstr) Then
If t = 0 OrElse Not (tval.Item(tstr) <> tval.Item(tstfsr)) Then
Else
fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstfsr))
End If
fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstr))
Else
If Date.Parse(tstr) < Date.Parse(tval.Keys(0)) Then
fl.Add(yt.AddHours(8).ToOADate, 0)
tval.Add(tstr, 0)
Else
'Dim s = fl.YValues((fl.YValues.Count - 1))
fl.Add(yt.AddHours(8).ToOADate, fl.YValues((fl.YValues.Count - 1)))
's = fl.YValues((fl.YValues.Count - 1))
tval.Add(tstr, fl.YValues((fl.YValues.Count - 1)))
End If
End If
Else
If tval.ContainsKey(tstr) Then
If t = 0 OrElse Not (tval.Item(tstr) <> tval.Item(tstfsr)) Then
Else
fl.Add(yt.AddHours(8).ToOADate, tval.Item(tstfsr))
End If
fl.Add(yt.AddHours(8).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.AddHours(8).ToOADate, 0)
tval.Add(tstr, 0)
' Console.WriteLine($"{tstr}:0")
ElseIf tval.Values(0) = 0 Then
fl.Add(yt.AddHours(8).ToOADate, 1)
tval.Add(tstr, 1)
' Console.WriteLine($"{tstr}:1")
Else
fl.Add(yt.AddHours(8).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.AddHours(8).ToOADate, 1)
tval.Add(tstr, 1)
' Console.WriteLine($"{tstr}:1")
ElseIf tval.Item(tstfsr) = 0 Then
fl.Add(yt.AddHours(8).ToOADate, 0)
tval.Add(tstr, 0)
' Console.WriteLine($"{tstr}:0")
Else
fl.Add(yt.AddHours(8).ToOADate, 0.5)
tval.Add(tstr, 0.5)
' Console.WriteLine($"{tstr}:0.5")
End If
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
.Width = 300
.DisplayRowNumber = False
.Cell(0, 0).Text = "序号"
.Cell(0, 1).Text = "属性"
.Cell(0, 2).Text = "属性值"
.Column(0).Width = 0
.Column(1).Width = 100
.Column(1).Locked = True
.Column(2).Width = 150
.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)
My.Settings.FileDir = Label1.Text
My.Settings.Save()
If IsNothing(_fastLine) OrElse _fastLine.Count = 0 Then Return
Dim fastNameList As String = String.Empty
For Each node In ChartBar.Axes.Custom
fastNameList = fastNameList & node.title.Caption & ","
Next
fastNameList = fastNameList.Substring(0, fastNameList.Length - 1)
My.Settings.fastLineName = fastNameList
My.Settings.Save()
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
Grid_config_FileTo()
If IsNothing(threadli) Then Return
For Each node In threadli
node.Abort()
Next
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()
SqlitDataDispose()
End Sub
Public Sub SqlitDataDispose()
If String.IsNullOrEmpty(Label1.Text) Then
MsgBox("未选择日志目录")
Return
End If
If Not IO.Directory.Exists(Label1.Text) Then
MsgBox("日志目录不存在")
Return
End If
Dim filrpath As String = Grid_config.Cell(3, 2).Text.Trim
If String.IsNullOrEmpty(filrpath) Then
MsgBox("目标机型为空")
Return
End If
Dim mubdir As String = $"{Label1.Text}\{filrpath}"
If Not IO.Directory.Exists(mubdir) Then
MsgBox("目标机型目录不存在")
Return
End If
IO.Directory.CreateDirectory($"{Label1.Text}\ParsingLog\{filrpath}")
Dim ParsingLog As String = $"{Label1.Text}\ParsingLog\{filrpath}"
Dim localConn As New DbConnectionStringBuilder
localConn.Add("Data Source", $"{ParsingLog}\Tftp_Log.db")
LocalConnString = localConn.ToString()
If String.IsNullOrEmpty（LocalConnString） Then
MsgBox("未选择日志目录或未解析该机型数据")
Return
End If
Dim selectstr As String = "SELECT * FROM `Tftp_Log` 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}`DataTime`>='{starttime.ToUniversalTime.Ticks }' And "
ElseIf i = 2 Then
selectstr = $"{selectstr}`DataTime`<='{stoptime.ToUniversalTime.Ticks}' And "
ElseIf i = 3 Then
cstrpar = $"{cstrpar}OR `DevName` = '{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 (`DataTime`) ASC"
End If
Dim treenode As Dictionary(Of String, List(Of (String, String))) = New Dictionary(Of String, List(Of (String, String)))
Dim treedic As List(Of (String, String))
Dim rval As Double = 0
Dim colounmdic As Dictionary(Of String， Dictionary(Of String, Double)) = New Dictionary(Of String, Dictionary(Of String, Double))
Dim T3dci As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
Dim dt As DataTable
Try
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Sqlite, LocalConnString)
db.Open()
dt = db.ExecuteDataTable(selectstr)
If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
MsgBox($"数据查询失败！！！")
db.Close()
Return
Else
Dim sqldate As Date
Dim timse As String
Dim val1， val2, val3 As String
Dim keystr As String
For i = 0 To dt.Rows.Count - 1
Dim Tcint As Long = （dt.Rows(i)("Datatime"))
sqldate = New DateTime(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)
sqldate = sqldate.AddTicks(Tcint)
sqldate.ToLocalTime()
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
keystr = $"{dt.Rows(i)("FileName")}-{dt.Rows(i)("CreateFileTime")}"
If treenode.ContainsKey(keystr) Then
treedic = treenode.Item(keystr)
Else
treedic = New List(Of (String, String))
treenode.Add(keystr, treedic)
End If
treedic.Add((timse, $"{dt.Rows(i)("Datastr")}"))
Catch ex As Exception
End Try
If IsDBNull(dt.Rows(i)("T4")) AndAlso ((Not IsDBNull(dt.Rows(i)("T1")) OrElse (Not IsDBNull(dt.Rows(i)("T3")))) AndAlso Not IsDBNull(dt.Rows(i)("loop"))) Then
Dim vloop As String = $"loop{dt.Rows(i)("loop")}"
If Not IsDBNull(dt.Rows(i)("T3")) Then
If T3dci.ContainsKey(timse) Then
T3dci.Item(timse) = dt.Rows(i)("loop")
Else
T3dci.Add(timse, dt.Rows(i)("loop"))
End If
ElseIf Not IsDBNull(dt.Rows(i)("T1")) Then
If colounmdic.ContainsKey(vloop) Then
If colounmdic.Item(vloop）.ContainsKey(timse) Then
If dt.Rows(i)("T1").Equals("1") Then
colounmdic.Item(vloop）.Item(timse) = 1
Else
colounmdic.Item(vloop）.Item(timse) = 0
End If
Else
If dt.Rows(i)("T1").Equals("1") Then
colounmdic.Item(vloop）.Add(timse, 1)
Else
colounmdic.Item(vloop）.Add(timse, 0)
End If
End If
Else
Dim dic As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
colounmdic.Add(vloop, dic)
If dt.Rows(i)("T1").Equals("1") Then
dic.Add(timse, 1)
Else
dic.Add(timse, 0)
End If
End If
Else
End If
ElseIf Not IsDBNull(dt.Rows(i)("T4")) Then
'Console.WriteLine($"{dt.Rows(i)("FileName")}{timse}, {dt.Rows(i)("Datastr")}"")
'Console.WriteLine($"{dt.Rows(i)("FileName")} {timse} {dt.Rows(i)("Datastr")}")
If colounmdic.ContainsKey("T4") Then
If colounmdic.Item("T4"）.ContainsKey(timse) Then
If dt.Rows(i)("T4").Equals("1") Then
colounmdic.Item("T4"）.Item(timse) = 1
Else
colounmdic.Item("T4"）.Item(timse) = 0
End If
Else
If dt.Rows(i)("T4").Equals("1") Then
colounmdic.Item("T4").Add(timse, 1)
Else
colounmdic.Item("T4").Add(timse, 0)
End If
End If
Else
Dim dic As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
colounmdic.Add("T4", dic)
If dt.Rows(i)("T4").Equals("1") Then
dic.Add(timse, 1)
Else
dic.Add(timse, 0)
End If
End If
ElseIf Not IsDBNull(dt.Rows(i)("DevService")) AndAlso Not IsDBNull(dt.Rows(i)("loop")) AndAlso dt.Rows(i)("DevService").Equals("0") Then
If colounmdic.ContainsKey("DevService") Then
If colounmdic.Item("DevService"）.ContainsKey(timse) Then
If dt.Rows(i)("loop").Equals("1") Then
colounmdic.Item("DevService"）.Item(timse) = 1
Else
colounmdic.Item("DevService"）.Item(timse) = 0
End If
Else
If dt.Rows(i)("loop").Equals("1") Then
colounmdic.Item("DevService"）.Add(timse, 1)
Else
colounmdic.Item("DevService"）.Add(timse, 0)
End If
End If
Else
Dim dic As Dictionary(Of String, Double) = New Dictionary(Of String, Double)
colounmdic.Add("DevService", dic)
If dt.Rows(i)("loop").Equals("1") Then
dic.Add(timse, 1)
Else
dic.Add(timse, 0)
End If
End If
End If
Next
End If
db.Close()
End Using
Catch ex As Exception
MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
Return
End Try
colounmdic.Add("执行条件状态", T3dci)
SetTreeStakeData(treenode)
SortDic(colounmdic)
ChangeLineAlias(colounmdic)
InitPieChart(colounmdic, starttime.AddHours(-8), stoptime.AddHours(-8))
End Sub
'键值对排序
Private Sub SortDic(ByRef kkdic As Dictionary(Of String， Dictionary(Of String, Double)))
Dim T4 As New Dictionary(Of String, Double)
Dim T2 As New Dictionary(Of String, Double)
Dim DevService As New Dictionary(Of String, Double)
Dim li As New Dictionary(Of String， Dictionary(Of String, Double))
If kkdic.ContainsKey("T4") Then
T4 = kkdic.Item("T4")
kkdic.Remove("T4")
End If
If kkdic.ContainsKey("DevService") Then
DevService = kkdic.Item("DevService")
kkdic.Remove("DevService")
End If
If kkdic.ContainsKey("执行条件状态") Then
T2 = kkdic.Item("执行条件状态")
kkdic.Remove("执行条件状态")
End If
Dim arrys = kkdic.Keys.ToArray
arrys = arrys.OrderBy(Function(x) x).ToArray
For Each item In arrys
li.Add(item, kkdic.Item(item))
Next
If Not IsNothing(T4) AndAlso T4.Count > 0 Then
li.Add("T4", T4)
End If
If Not IsNothing(DevService) AndAlso DevService.Count > 0 Then
li.Add("取电服务", DevService)
End If
If Not IsNothing(T2) AndAlso T2.Count > 0 Then
li.Add("执行条件状态", T2)
End If
kkdic = li
End Sub
' 自定义比较器
'设置树桩表数据
Private Sub SetTreeStakeData(treenode As Dictionary(Of String, List(Of (String, String))))
If IsNothing(treenode) OrElse treenode.Count = 0 Then Return
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(Grid_config.Cell(3, 2).Text)
Dim timgs As String
For Each item In treenode
'
Dim node As TreeNode = New TreeNode(item.Key)
TreeView1.Nodes(0).Nodes.Add(node)
For Each item1 In item.Value
timgs = DateTime.Parse(item1.Item1).AddHours(8).ToString("yyyy-MM-dd HH:mm:ss")
node.Nodes.Add(timgs & "|" & item1.Item2)
Next
Next
End Sub
'修改图线别名
Private Sub ChangeLineAlias(ByRef kkdic As Dictionary(Of String， Dictionary(Of String, Double)))
If IsNothing(g_Macconfig) OrElse String.IsNullOrEmpty(g_Macconfig.Item1) OrElse IsNothing(g_Macconfig.Item2) OrElse g_Macconfig.Item2.Count = 0 OrElse IsNothing(kkdic) OrElse kkdic.Count = 0 Then Return
If Grid_config.Cell(3, 2).Text.Trim.Equals(g_Macconfig.Item1) Then
Dim kkdic1 As New Dictionary(Of String， Dictionary(Of String, Double))
For Each item In kkdic
If item.Key.Equals("T4") Then
kkdic1.Add("有无人", kkdic.Item("T4"))
ElseIf g_Macconfig.Item2.ContainsKey(item.Key) Then
kkdic1.Add(g_Macconfig.Item2.Item(item.Key), kkdic.Item(item.Key))
Else
kkdic1.Add(item.Key, kkdic.Item(item.Key))
End If
Next
kkdic = kkdic1
Return
Else
Return
End If
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}")
db.Close()
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 = True
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.AddHours（8）.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.AddHours（8）.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:mm:ss"
ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
ChartBar.Axes.Left.Title.Visible = False
ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
ChartBar.Axes.Left.MinimumOffset = 1 '最小值偏移
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
If i = kkdic.Count - 1 Then
_axis(i).Minimum = 0
_axis(i).Maximum = 12
_axis(i).Increment = 12.0R
_axis(i).StartPosition = idx * 8.0R
_axis(i).EndPosition = _axis(i).StartPosition + 10.0R
End If
_axis(i).Grid.Visible = False
_axis(i).Labels.Angle = 0 '角度
ChartBar.Axes.Custom.Add(_axis(i))
'AddHandler _axis(i).GetAxisDrawLabel, AddressOf Axis_GetAxisDrawLabel
'End Select
Next
AddHandler ChartBar.ClickAxis, AddressOf Axis_GetAxisDrawLabel
End Sub
Private Sub Axis_GetAxisDrawLabel(sender As Object, e As MouseEventArgs)
Dim enderAxis As Axis = sender
Dim inputalstr As String = InputBox(enderAxis.Title.Caption, "请输入新的名称")
If String.IsNullOrEmpty(inputalstr) Then Return
enderAxis.Title.Caption = inputalstr
End Sub
''' <summary>
''' 初始化轴
''' </summary>
Private Sub InitCustomAxies1(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()
Dim namebuf() As String
'namebuf = My.Settings.fastLineName.Split(",")
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 = 1111 ' $"{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).Series = _fastLine.Item("执行条件状态")
_curSor(i).Active = True
_curSor(i).FollowMouse = False
'_curSor(i).Pen.Visible = False
_curSor(i).Pen.Visible = True
'_curSor(i).Chart.ShowCoord
'_curSor(i).ValueFormat = "X: {X}, Y: {Y}"
Dim cursorTool As New Steema.TeeChart.Tools.CursorTool()
AddHandler _curSor(i).Change, AddressOf CursorChange
Select Case i
Case 0
_curSor(i).Pen.Color = System.Drawing.Color.OrangeRed
Case 1
_curSor(i).Pen.Color = System.Drawing.Color.Green
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 Nx As Double = 0
' 获取本地日期和时间
Dim yt As DateTime
Dim ts As TimeSpan
Select Case index
Case 0
X1 = _curSor(index).XValue.ToString("#0.00000")
yt = DateTime.FromOADate(X1)
Nx = 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.00000")
yt = DateTime.FromOADate(X2)
Nx = 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 }"
'SetSelectNode(yt)
'获取
';Dim e = ChartBar.PointToScreen(New System.Drawing.Point(_curSor(index).XValue, _curSor(index).YValue))
'Dim fl = _fastLine.Item("执行条件状态")
'Dim cupos = _curSor(index).Chart.Animations
''获取鼠标的 x 和 y 坐标
'Dim x As Integer = e.X
'Dim y As Integer = e.Y
''使用 TeeChart 的 Chart 方法来转换坐标
'Dim chartX As Double = fl.XValues(x)
''Double chartY = FastLine1.Chart.GetChartYValue(y);
'Dim chartY As Double = fl.YValues(y)
'fl.Chart.CalcClickedPart(New System.Drawing.Point(_curSor(index).XValue, _curSor(index).YValue))
'fl.ClickTolerance
End Sub
' 设置选择节点
Private Sub SetSelectNode(yt As DateTime)
If IsNothing(TreeView1) OrElse TreeView1.Nodes.Count = 0 Then Return
Dim node As TreeNode = TreeView1.Nodes(0)
Dim datetime As Date
Dim bbuf() As String
Dim nstr As String
For Each childNode As TreeNode In node.Nodes
bbuf = childNode.Text.Split(".")
nstr = bbuf(1).Substring(4)
datetime = DateTime.ParseExact(nstr, "yyyy-MM-dd HH:mm:ss", Nothing)
If datetime > yt Then
For Each childNode2 As TreeNode In childNode.Nodes
bbuf = childNode2.Text.Split("|")
nstr = bbuf(0)
datetime = DateTime.ParseExact(nstr, "yyyy-MM-dd HH:mm:ss", Nothing)
If datetime <= yt Then
TreeView1.SelectedNode = childNode2
TreeView1.Select()
Return
End If
Next
End If
Next
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)
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
Public filequeue As Queue
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
If String.IsNullOrEmpty(Label1.Text) Then
MsgBox("未选择日志目录")
Return
End If
If Not IO.Directory.Exists(Label1.Text) Then
MsgBox("日志目录不存在")
Return
End If
Dim filrpath As String = Grid_config.Cell(3, 2).Text.Trim
If String.IsNullOrEmpty(filrpath) Then
MsgBox("目标机型为空")
Return
End If
Dim mubdir As String = $"{Label1.Text}\{filrpath}"
If Not IO.Directory.Exists(mubdir) Then
MsgBox("目标机型目录不存在")
Return
End If
Dim TFTPNew() As String
IO.Directory.CreateDirectory($"{Label1.Text}\ParsingLog\{filrpath}")
Dim ParsingLog As String = $"{Label1.Text}\ParsingLog\{filrpath}"
Dim filename() As String = IO.Directory.GetFiles(mubdir)
Dim starttime As Date
Dim stoptime As Date
filequeue = New Queue
Dim filgtime As Date
If String.IsNullOrEmpty(Grid_config.Cell(1, 2).Text.Trim) OrElse String.IsNullOrEmpty(Grid_config.Cell(2, 2).Text.Trim) Then
MsgBox("开始时间或结束时间为空")
Return
End If
Date.TryParse(Grid_config.Cell(1, 2).Text.Trim, starttime)
Date.TryParse(Grid_config.Cell(2, 2).Text.Trim, stoptime)
If IsNothing(starttime) OrElse IsNothing(stoptime) OrElse (starttime > stoptime) Then
MsgBox("开始时间或结束时间异常")
Return
End If
Dim filenamebuff() As String
Dim tstr As String = "yyMMddHHmmss" ' 对应的格式
ProgressBar2.Maximum = filename.Length
ProgressBar2.Minimum = 0
If IO.Directory.Exists($"C:\TFTP-New\") Then
TFTPNew = IO.Directory.GetFiles("C:\TFTP-New\")
If TFTPNew.Length > 0 Then
For Each node In TFTPNew
'判断文件名称是否包含目标机型
If node.Contains(filrpath) Then
' 判断文件创建时间是否在10分钟之前
If (DateTime.Now - IO.File.GetCreationTime(node)).TotalMinutes > 10 Then
'将文件移动到日志目录的对应机型文件夹
If IO.File.Exists($"{Label1.Text}\{filrpath}") Then
Else
Try
IO.File.Move(node, $"{Label1.Text}\{filrpath}{node.Substring(node.LastIndexOf("\"))}")
Catch ex As Exception
MsgBox($"{Label1.Text}\{filrpath}{node.Substring(node.LastIndexOf("\"))}")
End Try
End If
End If
End If
Next
End If
End If
For i = 0 To filename.Length - 1
Dim node As String = filename（i）
Dim index As String = node.Substring(node.LastIndexOf("\") + 1)
filenamebuff = index.Split("_")
filenamebuff = filenamebuff(filenamebuff.Length - 1).Split(".")
Try
filgtime = DateTime.ParseExact(filenamebuff(0), tstr, CultureInfo.InvariantCulture)
If starttime <= filgtime AndAlso filgtime <= stoptime Then
'ProgressBar2.Value = i
'Label2.Text = i Mod filename.Length
filequeue.Enqueue($"{ParsingLog}\{index}")
IO.File.Copy($"{mubdir}\{index}", $"{ParsingLog}\{index}")
End If
Catch ex As Exception
Continue For
End Try
Next
'ProgressBar2.Value = filename.Length
'Label2.Text = "解析完成"
ClearDeviceform($"{ParsingLog}\Tftp_Log.db", "Tftp_Log")
StartParsinglog(filequeue, $"{ParsingLog}\Tftp_Log.db")
' Label2.ForeColor = Color.DarkGreen
End Sub
Public threadli As List(Of Thread)
Public Sub StartParsinglog(fileli As Queue, dbpath As String)
If IsNothing(threadli) Then threadli = New List(Of Thread)
For Each node In threadli
node.Abort()
Next
threadli.Clear()
For i = 1 To 1
Dim t As New Thread(Sub() ParsinglogThreadRuning(fileli, dbpath))
t.SetApartmentState(Threading.ApartmentState.STA)
t.IsBackground = True
threadli.Add(t)
t.Start()
Next
End Sub
Public Sub ParsinglogThreadRuning(fileli As Queue, dbpath As String)
Dim nct As Integer = fileli.Count
While fileli.Count > 0
Dim filename As String = fileli.Dequeue
SetUIProgressBar1(nct - fileli.Count)
GetFileInfoList(filename, dbpath) '解析文件
'数据入库
End While
SetUIProgressBar1(ProgressBar2.Maximum)
End Sub
Delegate Sub delegate_MatchingInfo_Change(berval As Integer)
Public Sub SetUIProgressBar1(berval As Integer)
If InvokeRequired = True Then
Dim dev As New delegate_MatchingInfo_Change(AddressOf SetUIProgressBar1)
Me.Invoke(dev, berval)
Else
ProgressBar2.Value = berval
If ProgressBar2.Value = ProgressBar2.Maximum Then
Label2.Text = "解析完成"
End If
End If
End Sub
''' <summary>
''' 解析文件内容
''' </summary>
''' <param name="datFile"></param>
''' <returns></returns>
Private Function GetFileInfoList(filename As String, dbpath As String) As Boolean
Dim result As Boolean = True
'确认文件是否存在
'读取文件内容
Dim file_data As Byte() = My.Computer.FileSystem.ReadAllBytes(filename)
Dim sampleArr_len As UInt32 = file_data.Length
Dim sampleArr_showlen As UInt32 = 0
Dim data_len As UInt16
Dim data_end As Byte
Dim fileInfoList As New List(Of LogDataInfoStruct) '读取文件内容保存在此变量
Dim Addnode As LogDataInfoStruct
'解析文件名，获取MAC、酒店id、房号、生成日期等信息
Dim tmpFileNameInfo As fileNameInfoStruct = GetFileNameInfo(filename)
'Try
While sampleArr_showlen < sampleArr_len
If file_data(sampleArr_showlen) = &HA5 And sampleArr_showlen + 3 < sampleArr_len Then '判断文件头
data_len = file_data(sampleArr_showlen + LOG_DATA_FORMAT.Len) Or (file_data(sampleArr_showlen + LOG_DATA_FORMAT.Len_8) << 8) '读取数据长度
If data_len < Log_Data_Len_Max And sampleArr_showlen + data_len - 1 < file_data.Length Then
data_end = file_data(sampleArr_showlen + data_len - 1)
'Console.WriteLine($"Data Len :{data_len:d} Data :{data_end:X}")
If sampleArr_showlen + data_len <= sampleArr_len AndAlso file_data(sampleArr_showlen + data_len - 1) = &H5A Then '判断文件尾
Dim data_buff(data_len - 1) As Byte
' Dim data_string As String
Array.Copy(file_data, sampleArr_showlen, data_buff, 0, data_len)
sampleArr_showlen += data_len '数据偏移
If GetSumCheckMod(data_buff, data_len) = &H0 Then
'Console.WriteLine("Data Check Succ !\r\n")
'Parsing_a_piece_of_data(data_buff, show_form， DataGridView1)
' data_list.Add(data_buff) '保存一份数据，添加到列表中
If fileInfoList.Count = 0 Then
Addnode = File_Data_Parsing_To_Iten(tmpFileNameInfo, data_buff, Nothing)
Else
Addnode = File_Data_Parsing_To_Iten(tmpFileNameInfo, data_buff, fileInfoList.Item(fileInfoList.Count - 1))
End If
fileInfoList.Add(Addnode)
'data_string = BitConverter.ToString(data_buff)
'data_string = data_string.Replace("-", " ")
'Console.WriteLine(data_string)
Else
' AnalysisLog("Data Check Fail !\r\n")
Console.WriteLine("Data Check Fail !\r\n")
End If
Else
sampleArr_showlen += 1
' AnalysisLog("Data Len Fail!!! Now Len:" & sampleArr_showlen)
Console.WriteLine("Data Len Fail!!! Now Len:" & sampleArr_showlen)
result = False
End If
Else
sampleArr_showlen += 1
'AnalysisLog("Data Len Fail!!! Now Len:" & sampleArr_showlen)
result = False
Console.WriteLine("Data Len Error!!! " & sampleArr_showlen)
End If
Else
sampleArr_showlen += 1
result = False
End If
'delay(1)
'Application.DoEvents()
End While
'RaiseEvent Fileschedule(sampleArr_len， True)
'Catch ex As Exception
' AdminLog.ApplicationLog.WriteErrorLog(ex)
'End Try
'数据添加到列表
' fileInfoList = File_Data_Parsing_To_List(datFileName, data_list)
interpositionTfTpData(fileInfoList, dbpath)
Return result
End Function
Public Sub interpositionTfTpData(fileInfoList As List(Of LogDataInfoStruct), dbpath As String)
Dim selectstr As String = String.Empty
Dim Insert As String
Dim localDateTimeString As String ' 本地时间日期字符串
Dim format As String = "yyyy-MM-dd HH:mm:ss" ' 根据您的字符串格式调整
' 解析字符串为DateTime对象
Dim localDateTime As DateTime
' 将DateTime对象的种类指定为UTC
Dim utcDateTime As DateTime
For Each node In fileInfoList
Select Case node.Log_Type
Case 7
For Each index In node.parsing
If IsNothing(index) Then Continue For
localDateTimeString = $"20{node.Log_DateTime.year}-{node.Log_DateTime.month.ToString.PadLeft(2, "0") }-{node.Log_DateTime.day.ToString.PadLeft(2, "0") } {node.Log_DateTime.hour.ToString.PadLeft(2, "0") }:{node.Log_DateTime.minute.ToString.PadLeft(2, "0") }:{node.Log_DateTime.second.ToString.PadLeft(2, "0") }"
If DateTime.TryParse(localDateTimeString, localDateTime) Then
Else
Console.WriteLine(localDateTimeString)
End If
utcDateTime = DateTime.SpecifyKind(localDateTime, DateTimeKind.Utc)
If index.Contains("VCLog:T1") Then
Dim sbuf() As String = index.Split(":")
Insert = $"INSERT INTO [Tftp_Log]
([FileName]
,[CreateFileTime]
,[Datastr]
,[DevName]
,[T1]
,[loop]
,[Datatime])
VALUES
('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
,'{sbuf(3)}'
,'{sbuf(2)}'
,'{localDateTime.ToUniversalTime.Ticks }');{vbCrLf }"
selectstr = $"{selectstr}{Insert}"
ElseIf index.Contains("VCLog:T3") Then
Dim sbuf() As String = index.Split(":")
Insert = $"INSERT INTO [Tftp_Log]
([FileName]
,[CreateFileTime]
,[Datastr]
,[DevName]
,[T3]
,[loop]
,[Datatime])
VALUES
('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
,'{sbuf(3)}'
,'{sbuf(2)}'
,'{localDateTime.ToUniversalTime.Ticks }');{vbCrLf }"
selectstr = $"{selectstr}{Insert}"
ElseIf index.Contains("VCLog:T5") Then
Dim sbuf() As String = index.Split(":")
Insert = $"INSERT INTO [Tftp_Log]
([FileName]
,[CreateFileTime]
,[Datastr]
,[DevName]
,[T5]
,[Datatime])
VALUES
('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
,'{sbuf(2)}'
,'{localDateTime.ToUniversalTime.Ticks }');{vbCrLf }"
selectstr = $"{selectstr}{Insert}"
ElseIf index.Contains("DevService:loop") Then
Dim sbuf() As String = index.Split(":")
Insert = $"INSERT INTO [Tftp_Log]
([FileName]
,[CreateFileTime]
,[Datastr]
,[DevName]
,[DevService]
,[loop]
,[Datatime])
VALUES
('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
,'{sbuf(2).Split(",")(0)}'
,'{sbuf(3)}'
,'{localDateTime.ToUniversalTime.Ticks }');{vbCrLf }"
selectstr = $"{selectstr}{Insert}"
ElseIf index.Contains("VCLog:T2") Then
Dim sbuf() As String = index.Split(":")
Insert = $"INSERT INTO [Tftp_Log]
([FileName]
,[CreateFileTime]
,[Datastr]
,[DevName]
,[T2]
,[loop]
,[Datatime])
VALUES
('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
,'{sbuf(3)}'
,'{sbuf(2)}'
,'{localDateTime.ToUniversalTime.Ticks }');{vbCrLf }"
selectstr = $"{selectstr}{Insert}"
ElseIf index.Contains("VCLog:T4") Then
Dim sbuf() As String = index.Split(":")
Insert = $"INSERT INTO [Tftp_Log]
([FileName]
,[CreateFileTime]
,[Datastr]
,[DevName]
,[T4]
,[Datatime])
VALUES
('{node.LogFileName }','{node.CreateDateTime}','{index}','{node.MAC }'
,'{sbuf(2)}'
,'{localDateTime.ToUniversalTime.Ticks}');{vbCrLf }"
selectstr = $"{selectstr}{Insert}"
End If
Next
End Select
Next
'selectstr = $"{selectstr}COMMIT ;"
Dim dt As DataTable
' Try
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Sqlite, LocalConnString)
db.Open()
Try
' 开始一个事务
db.BeginTransaction()
dt = db.ExecuteDataTable(selectstr)
db.CommitTransaction()
Catch ex As Exception
db.RollbackTransaction()
End Try
db.Close()
End Using
'Catch ex As Exception
' MsgBox($"数据批量写入失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
'End Try
End Sub
Private Function GetFileNameInfo(ByVal datFile As String) As fileNameInfoStruct
Dim tmpFileInfo As New fileNameInfoStruct
Dim fileInfo As FileInfo = New FileInfo(datFile)
Dim FileNameStr As String = fileInfo.Name
Dim Strbyte As String() = FileNameStr.Split("_")
Dim lastModified As DateTime = fileInfo.LastWriteTime
Try
tmpFileInfo.MAC = Strbyte(0)
tmpFileInfo.HotelId = Strbyte(1)
tmpFileInfo.RoomId = Strbyte(2)
'tmpFileInfo.CreateDateTime = datFile.DateLastModified
tmpFileInfo.CreateDateTime = Format(lastModified, "yyyy-MM-dd HH:mm:ss")
tmpFileInfo.LogFileName = fileInfo.Name
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
End Try
Return tmpFileInfo
End Function
Public Function File_Data_Parsing_To_Iten(ByVal datFileName As fileNameInfoStruct, databuff() As Byte， lastdata As LogDataInfoStruct) As LogDataInfoStruct
Dim save_data As New LogDataInfoStruct
'Dim parsing_string As String
Dim hour_tick As Int32
Dim hour_temp As Int32
Dim data_date As Int32
'数据类型及长度等
'save_data.original_data = file_data(idx)
save_data.Log_SN = databuff(LOG_DATA_FORMAT.SN)
save_data.Log_Type = databuff(LOG_DATA_FORMAT.Type)
hour_temp = databuff(LOG_DATA_FORMAT.Len_8)
save_data.Log_Len = (databuff(LOG_DATA_FORMAT.Len) Or (hour_temp << 8)) - LOG_DATA_FORMAT.Data '数据长度
' If save_data.Log_Len > Log_Data_Len_Max Then
'save_data.len = Log_Data_Len_Max 数据长度超过数据最大长度
' Return tmpDataList
' End If
'日期
data_date = (databuff(LOG_DATA_FORMAT.Date_L) And &HFF) '记录时间
hour_temp = databuff(LOG_DATA_FORMAT.Date_H)
data_date = data_date Or (hour_temp << 8)
hour_tick = databuff(LOG_DATA_FORMAT.Time8B)
hour_temp = databuff(LOG_DATA_FORMAT.Time16B)
hour_tick = hour_tick Or (hour_temp << 8)
hour_temp = databuff(LOG_DATA_FORMAT.Time24B)
hour_tick = hour_tick Or (hour_temp << 16)
hour_temp = databuff(LOG_DATA_FORMAT.Time32B)
hour_tick = hour_tick Or (hour_temp << 24)
save_data.Log_DateTime.year = (data_date >> 10) And &H1F
save_data.Log_DateTime.month = (data_date >> 5) And &H1F
save_data.Log_DateTime.day = (data_date) And &H1F
'时间
save_data.Log_DateTime.hour = hour_tick \ 3600000
'防止24:00:00 溢出 Momo 2022-06-26 24：00：00
If save_data.Log_DateTime.hour >= 24 Then save_data.Log_DateTime.hour = 0
hour_temp = hour_tick Mod 3600000
save_data.Log_DateTime.minute = hour_temp \ 60000
hour_temp = hour_temp Mod 60000
save_data.Log_DateTime.second = hour_temp \ 1000
save_data.Log_DateTime.milliscond = hour_temp Mod 1000
'分离文件内容中的数据
Dim copy As UInt16 = save_data.Log_Len - 1
Dim parsing_data(copy - 1) As Byte
Array.Copy(databuff, LOG_DATA_FORMAT.Data, parsing_data, 0, copy)
save_data.Log_Content = parsing_data
'parsing_string = BitConverter.ToString(parsing_data)
'parsing_string = parsing_string.Replace("-", " ")
'Console.WriteLine($"parsing_string:{parsing_string}")
'parsing_string = $"Data SN:{save_data.Log_SN:d} TYPE:{save_data.Log_Type:d} Len:{save_data.Log_Len:d} data_date:{data_date:X} hour_tick:{hour_tick:X}"
' Console.WriteLine(parsing_string)
'解析数据内容
Dim Parsing_Param As New List(Of String)
Parsing_Data_Content(save_data.Log_Type, parsing_data, Parsing_Param) '解析
'判断Param参数,不够10个则补足
If Parsing_Param.Count > 0 Then
Dim len As Integer = 10 - Parsing_Param.Count
Dim par(len - 1) As String
Parsing_Param.AddRange(par)
End If
save_data.parsing = Parsing_Param
save_data.Log_TimeSpan = Get_Data_Time_Difference2(lastdata, save_data) '时间差
save_data.Log_Valid = True
save_data.HotelId = datFileName.HotelId
save_data.RoomId = datFileName.RoomId
save_data.CreateDateTime = datFileName.CreateDateTime
save_data.LogFileName = datFileName.LogFileName
save_data.MAC = datFileName.MAC
' Dim savedata As String = $"[HotelId:{save_data.HotelId }],{vbCrLf}[RoomId:{save_data.RoomId}],{vbCrLf}[LogFileName:{save_data.LogFileName }],{vbCrLf}[Log_SN:{save_data.Log_SN }],{vbCrLf}[Log_Len:{save_data.Log_SN}],{vbCrLf}[Log_DateTime:{ newtime_h(save_data).ToString("yyyy-MM-dd HH:mm:ss") }],{vbCrLf}[Log_TimeSpan:{save_data.Log_TimeSpan}],{vbCrLf}[Log_Type:{Parsing_Param}],{vbCrLf}[CreateDateTime:{save_data.CreateDateTime}],{vbCrLf}[LogFileName:{save_data.LogFileName }]"
' Console.WriteLine($"解析数据包({idx}):{vbCrLf}{savedata}")
' Console.WriteLine($"解析数据包({idx})")
Return save_data
End Function
''' <summary>
''' 解析数据内容
''' 按照数据类型来解析,用于加载表格时的数据显示 - 简单的内容解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_Data_Content(data_type As Byte, data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
Dim dev_temp As New Device_Temp
Try
Select Case data_type
Case log_type.Launcher
Type_Param.Add("Launcher信息")
Type_Param = Parsing_LogData_Launcher_Content(data_content, Type_Param)
Case log_type.SYS_Record
Type_Param.Add("系统信息")
Type_Param = Parsing_LogData_SYS_Record_Content(data_content, Type_Param)
Case log_type.Device_COMM
Type_Param.Add("设备通讯")
Type_Param = Parsing_LogData_Device_COMM_Content(data_content, Type_Param)
Case log_type.Device_Online
Type_Param.Add("设备通讯状态")
Type_Param = Parsing_LogData_Device_Online_Content(data_content, Type_Param)
Case log_type.Global_Parameters
Type_Param.Add("定期保存设备信息")
Type_Param = Parsing_LogData_Global_Parameters_Content(data_content, Type_Param)
Case log_type.Net_COMM
Type_Param.Add("网络处理")
Type_Param = Parsing_LogData_Net_COMM_Content(data_content, Type_Param)
Case log_type.Logic_Record
Type_Param.Add("事件处理")
Type_Param = Parsing_LogData_Logic_Record_Content(data_content, Type_Param)
Case Else
Type_Param.Add("数据类型错误")
End Select
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
End Try
Return Type_Param
End Function
''' <summary>
''' 系统运行信息数据解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_SYS_Record_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
'data_parsing = "系统运行数据解析" & BitConverter.ToString(data_content).Replace("-", " ")
Dim sys_type As Byte = data_content(0)
Try
Select Case sys_type
Case LSYS.PHY_Change
Type_Param.Add("网络PHY状态记录")
If data_content(1) = &H0 Then
Type_Param.Add("拔出")
ElseIf data_content(1) = &H1 Then
Type_Param.Add("插入")
Else
Type_Param.Add($"PHY状态错误： {data_content(1)}")
End If
Case LSYS.DevInfo_Error
Type_Param.Add("设备链表读取信息错误记录")
Type_Param.Add($"设备类型：{data_content(1)}")
Type_Param.Add($"地址：{data_content(2)}")
Type_Param.Add($"链表信息读取错误")
Case LSYS.API_State
Type_Param.Add("系统升级信息")
If data_content(1) = &H1 Then
Type_Param.Add("串口升级")
ElseIf data_content(1) = &H2 Then
Type_Param.Add("网络升级")
Else
Type_Param.Add("错误升级类型")
End If
If data_content(2) = &H1 Then
Type_Param.Add("写入成功")
ElseIf data_content(2) = &H2 Then
Type_Param.Add("写入失败")
ElseIf data_content(2) = &H3 Then
Type_Param.Add("文件块数错误")
ElseIf data_content(2) = &H4 Then
Type_Param.Add("MD5校验错误")
ElseIf data_content(2) = &H5 Then
Type_Param.Add("CRC校验错误")
ElseIf data_content(2) = &H6 Then
Type_Param.Add("跳转Launcher")
Else
Type_Param.Add("未知状态")
End If
Case LSYS.NET_ARGC
Type_Param.Add("网络初始化：")
Type_Param.Add($"IP : {data_content(1)}.{data_content(2)}.{data_content(3)}.{data_content(4)}")
Type_Param.Add($"MAC : {data_content(5)}.{data_content(6)}.{data_content(7)}.{data_content(8)}.{data_content(9)}.{data_content(10)}")
Type_Param.Add($"服务器IP : {data_content(11)}.{data_content(12)}.{data_content(13)}.{data_content(14)}")
Type_Param.Add($"TFTP服务器IP : {data_content(15)}.{data_content(16)}.{data_content(17)}.{data_content(18)}")
Type_Param.Add($"MQTT服务器IP : {data_content(19)}.{data_content(20)}.{data_content(21)}.{data_content(22)}")
Case LSYS.MQTT_ARGC
Type_Param.Add("MQTT初始化参数")
Type_Param.Add("还没解析")
Case LSYS.NetComm_State
Type_Param.Add("云端通讯状态")
If data_content(1) = &H0 Then
Type_Param.Add("服务器状态：离线")
ElseIf data_content(1) = &H1 Then
Type_Param.Add("本地服务器通信正常")
ElseIf data_content(1) = &H2 Then
Type_Param.Add("云端服务器通信正常")
Else
Type_Param.Add("云端通讯状态 - 未知状态")
End If
Case LSYS.NET_DafaultARGC
Type_Param.Add("网络初始化")
Type_Param.Add($"IP : {data_content(1)}.{data_content(2)}.{data_content(3)}.{data_content(4)}")
Type_Param.Add($"网关 : {data_content(5)}.{data_content(6)}.{data_content(7)}.{data_content(8)}")
Type_Param.Add($"子网掩码 : {data_content(9)}.{data_content(10)}.{data_content(11)}.{data_content(12)}")
Type_Param.Add($"DNS_IP : {data_content(13)}.{data_content(14)}.{data_content(15)}.{data_content(16)}")
If data_content(17) = &H1 Then
Type_Param.Add("网络ArgcFlag标志：PC设置参数")
Else
Type_Param.Add("网络ArgcFlag标志：主机默认参数")
End If
If data_content(18) = &H2 Then
Type_Param.Add("DHCP标志：关闭DHCP")
Else
Type_Param.Add("DHCP标志：启动DHCP")
End If
If data_content(19) = &H1 Then
Type_Param.Add("使用本地服务器标志")
Else
Type_Param.Add("使用云端服务器标志")
End If
Case Else
Type_Param.Add($"系统运行信息 类型错误{sys_type}")
End Select
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
Type_Param.Add("数据异常----")
End Try
Return Type_Param
End Function
''' <summary>
''' 设备通讯数据解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_Device_COMM_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
Dim data_type As Byte = data_content(0)
Dim data_port As Byte = data_content(1)
Dim data_baud As UInt32
Dim data_buff(data_content.Length - 7) As Byte
Array.Copy(data_content, 6, data_buff, 0, data_content.Length - 6)
data_baud = data_content(5)
data_baud = (data_baud << 8) Or data_content(4)
data_baud = (data_baud << 8) Or data_content(3)
data_baud = (data_baud << 8) Or data_content(2)
Try
Select Case data_type
Case LCOMM.Adjust_Baud '设备切换通讯波特率
Type_Param.Add($"设备切换通讯波特率")
data_baud = data_content(6)
data_baud = (data_baud << 8) Or data_content(5)
data_baud = (data_baud << 8) Or data_content(4)
data_baud = (data_baud << 8) Or data_content(3)
Obtaining_The_Device_Type(data_content(1), Type_Param)
Type_Param.Add($" 设备地址:{data_content(2)}")
Type_Param.Add($" 切换波特率:{data_baud}" & vbCrLf)
Case LCOMM.ASK_TO_Reply '轮询回复数据
Type_Param.Add($"轮询回复数据")
Type_Param.Add($"Port_{data_port} ")
Type_Param.Add($"Baud:{data_baud} ")
Type_Param.Add("485通讯数据:" & BitConverter.ToString(data_buff).Replace("-", " "))
DataTypes.Parsing_485Data_type(data_buff, Type_Param)
Case LCOMM.Control_Reply 'RCU下发数据
Type_Param.Add($"RCU下发数据")
Type_Param.Add($"Port_{data_port}")
Type_Param.Add($"Baud:{data_baud}")
Type_Param.Add("485通讯数据:" & BitConverter.ToString(data_buff).Replace("-", " "))
DataTypes.Parsing_485Data_type(data_buff, Type_Param)
Case LCOMM.Send_Control 'RCU接收控制回复数据
Type_Param.Add($"RCU接收控制回复数据")
Type_Param.Add($"Port_{data_port}")
Type_Param.Add($"Baud:{data_baud}")
Type_Param.Add("485通讯数据:" & BitConverter.ToString(data_buff).Replace("-", " "))
DataTypes.Parsing_485Data_type(data_buff, Type_Param)
Case Else
Type_Param.Add("类型错误:" & BitConverter.ToString(data_content).Replace("-", " "))
End Select
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
End Try
Return Type_Param
End Function
''' <summary>
''' 设备通讯状态数据解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_Device_Online_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
Dim dev_type As Byte = data_content(0)
Dim dev_addr As Byte = data_content(1)
Dim dev_state As Byte = data_content(2)
Try
Type_Param.Add("设备状态改变")
Type_Param = Obtaining_The_Device_Type(dev_type, Type_Param)
Type_Param.Add($"设备地址:{dev_addr} ")
If dev_state = LOG_DEV_State.Offline Then
Type_Param.Add("设备状态:离线")
ElseIf dev_state = LOG_DEV_State.Online Then
Type_Param.Add("设备状态:在线")
Else
Type_Param.Add($"状态错误:{dev_state}")
End If
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
End Try
Return Type_Param
End Function
''' <summary>
''' 获取设备类型
''' </summary>
''' <returns></returns>
Public Function Obtaining_The_Device_Type(data As Byte, ByRef Type_Param As List(Of String)) As List(Of String)
Try
Select Case data
Case BLV_DEVICE_TYPE.C12Dimming
Type_Param.Add("设备类型:C12调光设备")
Case BLV_DEVICE_TYPE.C5IO
Type_Param.Add("设备类型:C5IO设备")
Case BLV_DEVICE_TYPE.C5Music
Type_Param.Add("设备类型:C5Music设备")
Case BLV_DEVICE_TYPE.PC_TEST
Type_Param.Add("设备类型:BLV PC TEST")
Case BLV_DEVICE_TYPE.RS485_Card
Type_Param.Add("设备类型:RS485 插卡取电")
Case BLV_DEVICE_TYPE.RS485_IR_SEND
Type_Param.Add("设备类型:RS485 红外转发")
Case BLV_DEVICE_TYPE.RS485_RGB_Light
Type_Param.Add("设备类型:RS485 RGB灯带")
Case BLV_DEVICE_TYPE.RS485_Switch
Type_Param.Add("设备类型:RS485 开关")
Case BLV_DEVICE_TYPE.RS485_Temp
Type_Param.Add("设备类型:RS485 温控器")
Case BLV_DEVICE_TYPE.RS485_Time
Type_Param.Add("设备类型:时间同步")
Case BLV_DEVICE_TYPE.RS485_XiaoBao
Type_Param.Add("设备类型:RS485 小宝语音")
Case Else
Type_Param.Add($"未知设备:{data}")
End Select
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
End Try
Return Type_Param
End Function
''' <summary>
''' 所有设备状态定期保存数据解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_Global_Parameters_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
Type_Param.Add("所有设备状态定期保存数据解析" & BitConverter.ToString(data_content).Replace("-", " "))
Return Type_Param
End Function
''' <summary>
''' 网络处理记录信息解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_Net_COMM_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
Dim net_type As Byte = data_content(0)
Dim net_port As UInt16
Select Case net_type
Case LNetComm.N_Recv
Try
Type_Param.Add("网络接收记录")
Type_Param.Add($"套接字序号(1~4):{data_content(1)}")
Type_Param.Add($"接收IP:{data_content(2)}.{data_content(3)}.{data_content(4)}.{data_content(5)}")
net_port = data_content(7)
net_port <<= 8
net_port = net_port Or data_content(6)
Type_Param.Add($"接收端口Port:{net_port}")
Type_Param.Add("Data:" & BitConverter.ToString(data_content, 8).Replace("-", " "))
DataTypes.Check_Network_Data(data_content, Type_Param, True)
Catch ex As Exception
Type_Param.Add("网络数据解析错误：" & BitConverter.ToString(data_content, 1).Replace("-", " "))
End Try
Case LNetComm.N_Send
Try
Type_Param.Add("网络发送记录")
Type_Param.Add($"套接字序号(1~4):{data_content(1)}")
Type_Param.Add($"发送IP:{data_content(2)}.{data_content(3)}.{data_content(4)}.{data_content(5)}")
net_port = data_content(7)
net_port <<= 8
net_port = net_port Or data_content(6)
Type_Param.Add($"发送端口Port:{net_port}")
Type_Param.Add("Data:" & BitConverter.ToString(data_content, 8).Replace("-", " "))
DataTypes.Check_Network_Data(data_content, Type_Param, False)
Catch ex As Exception
Console.WriteLine("网络数据解析错误：长度不够")
Type_Param.Add("网络数据解析错误：" & BitConverter.ToString(data_content, 1).Replace("-", " "))
End Try
End Select
Return Type_Param
End Function
''' <summary>
''' 事件处理记录信息解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_Logic_Record_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
'Type_Param.Add("事件处理记录信息解析" & BitConverter.ToString(data_content).Replace("-", " "))
Dim net_type As Byte = data_content(0)
Select Case net_type
Case Debugtype.log
Type_Param.Add("调试日志")
Type_Param.Add(Encoding.GetEncoding("GBK").GetString(data_content, 1, data_content.Length - 1)）
End Select
Return Type_Param
End Function
''' <summary>
''' Launcher类型数据解析
''' </summary>
''' <param name="data_content"></param>
''' <returns></returns>
Public Function Parsing_LogData_Launcher_Content(data_content As Byte(), ByRef Type_Param As List(Of String)) As List(Of String)
Dim Launcher_type As Byte = data_content(0)
Try
Select Case Launcher_type
Case LLauncher.App_Check
Type_Param.Add("校验APP")
If data_content(1) = &H0 Then
Type_Param.Add("相同")
ElseIf data_content(1) = &H1 Then
Type_Param.Add("APP版本号不同")
ElseIf data_content(1) = &H2 Then
Type_Param.Add("特征区CRC不同")
ElseIf data_content(1) = &H3 Then
Type_Param.Add("Flash APP地址错误")
ElseIf data_content(1) = &H4 Then
Type_Param.Add("Flash APP数据校验错误")
ElseIf data_content(1) = &H5 Then
Type_Param.Add("Flash APP标志未置位")
ElseIf data_content(1) = &H6 Then
Type_Param.Add("Flash 特征区的CRC校验错误")
ElseIf data_content(1) = &H7 Then
Type_Param.Add("MCU Flash数据校验错误")
ElseIf data_content(1) = &H8 Then
Type_Param.Add("MCU Flash的APP标志未置位")
ElseIf data_content(1) = &H9 Then
Type_Param.Add("MCU Flash特征区的CRC校验错误")
Else
Type_Param.Add("数据错误")
End If
Case LLauncher.Read_App
Type_Param.Add("读取APP")
If data_content(1) = &H0 Then
Type_Param.Add("成功")
ElseIf data_content(1) = &H1 Then
Type_Param.Add("失败")
End If
Case LLauncher.Reset_Source
Type_Param.Add("复位源")
If data_content(1) = &H0 Then
Type_Param.Add("软件复位")
ElseIf data_content(1) = &H1 Then
Type_Param.Add("上电复位")
ElseIf data_content(1) = &H2 Then
Type_Param.Add("看门狗超时复位")
ElseIf data_content(1) = &H3 Then
Type_Param.Add("外部手动复位")
ElseIf data_content(1) = &H5 Then
Type_Param.Add("从下电模式唤醒时的复位")
Else
Type_Param.Add($"复位源位置：{data_content(1):00}")
End If
Case Else
Type_Param.Add("数据类型错误")
End Select
Catch ex As Exception
AdminLog.ApplicationLog.WriteErrorLog(ex)
End Try
Return Type_Param
End Function
Public Function Get_Data_Time_Difference2(lastdata As LogDataInfoStruct, data As LogDataInfoStruct) As Int64
Dim temp_tick As Int64 = 0
Dim temp_time As New Log_DateStruct
Dim temp_time2 As New Log_DateStruct
If IsNothing(lastdata) Then Return temp_tick
temp_time.year = data.Log_DateTime.year + 2000
If data.Log_DateTime.month = 0 Then
temp_time.month = data.Log_DateTime.month + 1
Else
temp_time.month = data.Log_DateTime.month
End If
If data.Log_DateTime.day = 0 Then
temp_time.day = data.Log_DateTime.day + 1
Else
temp_time.day = data.Log_DateTime.day
End If
temp_time.hour = data.Log_DateTime.hour
temp_time.minute = data.Log_DateTime.minute
temp_time.second = data.Log_DateTime.second
temp_time.milliscond = data.Log_DateTime.milliscond
temp_time2.year = lastdata.Log_DateTime.year + 2000
If lastdata.Log_DateTime.month = 0 Then
temp_time2.month = lastdata.Log_DateTime.month + 1
Else
temp_time2.month = lastdata.Log_DateTime.month
End If
If lastdata.Log_DateTime.day = 0 Then
temp_time2.day = lastdata.Log_DateTime.day + 1
Else
temp_time2.day = lastdata.Log_DateTime.day
End If
temp_time2.hour = lastdata.Log_DateTime.hour
temp_time2.minute = lastdata.Log_DateTime.minute
temp_time2.second = lastdata.Log_DateTime.second
temp_time2.milliscond = lastdata.Log_DateTime.milliscond
' Try
Dim temp_date1 As New DateTime(temp_time.year, temp_time.month, temp_time.day, temp_time.hour, temp_time.minute, temp_time.second)
Dim temp_date2 As New DateTime(temp_time2.year, temp_time2.month, temp_time2.day, temp_time2.hour, temp_time2.minute, temp_time2.second)
temp_tick = DateDiff(DateInterval.Second, temp_date2, temp_date1) 'temp_date1 - temp_date2
temp_tick = temp_tick * 1000 + temp_time.milliscond - temp_time2.milliscond
'Catch ex As Exception
' 'ShowRichTextBox(RichTextBox1, " xxx 时间格式错误：tempDate1：" & tmpSn & "," & temp_time.year & "," & temp_time.month & "," & temp_time.day & "," & temp_time.hour & "," & temp_time.minute & "," & temp_time.second)
' 'ShowRichTextBox(RichTextBox1, " xxx 时间格式错误：tempDate2：" & tmpSn & "," & temp_time2.year & "," & temp_time2.month & "," & temp_time2.day & "," & temp_time2.hour & "," & temp_time2.minute & "," & temp_time2.second)
'End Try
Return temp_tick
End Function
''' 和校验取余数
''' 求Byte数组的和校验取余数
''' </summary>
''' <param name="dataPacket">Byte数组</param>
''' <returns></returns>
Public Function GetSumCheckMod(dataPacket As Byte(), datalen As Byte) As Byte
Dim sum As Integer
For idx = 0 To datalen - 1
sum += dataPacket(idx)
sum = sum And &HFF
Next
Dim sumMod As Byte = &HFF - sum
Return sumMod
End Function
'弃用
Public Sub ParsingLog(Mac As String, starttime As Date， stoptime As Date)
'获取ftp文件夹列表
'筛选出符合时间的文件
'线程解析对应文件
'事务操作入库
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using dlg As New FolderBrowserDialog
dlg.Description = "请选择文件解析后存放文件夹路径！"
If String.IsNullOrEmpty(Application.StartupPath) Or IO.Directory.Exists(Application.StartupPath) Then
dlg.SelectedPath = My.Settings.FileDir
Else
dlg.SelectedPath = Application.StartupPath
End If
If dlg.ShowDialog <> DialogResult.OK Then Return
Label1.Text = dlg.SelectedPath
End Using
End Sub
Private Sub cbo_HotelList_DropDown(sender As Object, e As EventArgs)
GetGetHotelList()
End Sub
Private Function GetRoomMAC() As List(Of String)
Dim result As List(Of String) = New List(Of String)()
If Roomlist.ContainsKey(cbo_HotelList.Text) Then
Dim strbuf() As String = cbo_HotelList.Text.Split("|")
Dim jsonString As String = HttpMothod.PostData("http://blv-rd.tech:19055/api/LowerMachineLog/GetHostList"， $"hotel_code={strbuf(0)}&createDate={Roomlist.Item(cbo_HotelList.Text) }")
If String.IsNullOrWhiteSpace(jsonString) Then Throw New Exception($"用户鉴权异常，请联系管理员")
Dim login As LoginReturn1 = JsonConvert.DeserializeObject(Of LoginReturn1)(jsonString)
If login Is Nothing Then Throw New Exception($"解析用户权限错误!")
If login.isok Then
For Each item In login.response
If String.IsNullOrEmpty(item.mac) Then Continue For
result.Add($"{item.roomno}|{item.mac.Replace("-", "")}|{item.roomtypeid}")
Next
Else
MsgBox("API获取酒店项目失败！")
Return result
End If
Return result
Else
MsgBox("请先选择酒店！")
Return result
End If
End Function
Private Sub ComboBox2_DragDrop(sender As Object, e As EventArgs) Handles ComboBox2.DropDown
'GetRoomMAC()
ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(GetRoomMAC().ToArray)
End Sub
Private Sub ComboBox2_TextChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
Dim strbuf() As String = ComboBox2.Text.Split("|")
Dim strbuf1() As String = cbo_HotelList.Text.Split("|")
Grid_config.Cell(3, 2).Text = strbuf(1).Substring(4)
'获取数据指定房型配置的无卡取电回路别名
Dim GdbConnStr = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=blv_rcu_db;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
Dim wherestsre As String = $"{strbuf1(0)}_{strbuf(2)}"
Dim selectstr As String = $"SELECT *
FROM `blv_rcu_db`.`tbl_rcu_virtualcard_looplogs`
where Combination_ID='{wherestsre}' "
Dim dt As DataTable
Try
Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnStr)
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
g_Macconfig.Item2.Clear()
g_Macconfig.Item1 = Grid_config.Cell(3, 2).Text
For i = 0 To dt.Rows.Count - 1
For j = 0 To dt.Columns.Count - 1
'获取列名和对应键值
g_Macconfig.Item2.Add(dt.Columns(j).ColumnName, dt(i)(j).ToString)
Next
Next
End If
db.Close()
End Using
Catch ex As Exception
' MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
Return
End Try
'g_Macconfig
End Sub
Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
'If String.IsNullOrEmpty(Label1.Text) Then
' MsgBox("未选择日志目录")
' Return
'End If
'If Not IO.Directory.Exists(Label1.Text) Then
' MsgBox("日志目录不存在")
' Return
'End If
Dim filrpath As String = Grid_config.Cell(3, 2).Text.Trim
'If String.IsNullOrEmpty(filrpath) Then
' MsgBox("目标机型为空")
' Return
'End If
'Dim mubdir As String = $"{Label1.Text}\{filrpath}"
'If Not IO.Directory.Exists(mubdir) Then
' MsgBox("目标机型目录不存在")
' Return
'End If
If IO.Directory.Exists($"{Label1.Text}\ParsingLog\{filrpath}\") Then
Dim filename() As String = IO.Directory.GetFiles($"{Label1.Text}\ParsingLog\{filrpath}\")
For i = 0 To filename.Length - 1
Dim node As String = filename（i）
Dim index As String = node.Substring(node.LastIndexOf("\") + 1)
If index.Contains(".dat") Then
Try
IO.File.Copy($"{Label1.Text}\ParsingLog\{filrpath}\{index}", $"{Label1.Text}\{filrpath}\{index}")
Catch ex As Exception
Continue For
End Try
End If
Next
End If
If IO.File.Exists($"{Label1.Text}\ParsingLog\{filrpath}\Tftp_Log.db") Then
IO.File.Delete($"{Label1.Text}\ParsingLog\{filrpath}\Tftp_Log.db")
'Return
End If
ToolStripButton6_Click(Nothing, Nothing)
'If MsgBox("清空数据库将丢失更早之前解析的数据！", MsgBoxStyle.SystemModal.OkCancel) = MsgBoxResult.Ok Then
' IO.File.Delete($"{Label1.Text}\ParsingLog\{filrpath}\Tftp_Log.db")
'End If
End Sub
Private Sub TreeView1_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick
'Console.WriteLine(e.Node.Level)
If e.Node.Level <> 2 OrElse IsNothing(_curTool) Then Return
Dim text() As String = e.Node.Text.Split("|")
Dim dt As DateTime = DateTime.ParseExact(text(0), "yyyy-MM-dd HH:mm:ss", Nothing)
_curTool.XValue = dt.ToOADate
End Sub
End Class
Reference in New Issue Copy Permalink