123 lines
3.1 KiB
VB.net
123 lines
3.1 KiB
VB.net
Module BLV_INFO
|
||
|
||
Private DEBUG_PRINTF_EN As Byte = &H1
|
||
|
||
|
||
''' <summary>
|
||
''' 协议处理返回值
|
||
''' </summary>
|
||
Enum PROCESS_RETURN
|
||
Correct
|
||
Check_Error
|
||
DevType_Error
|
||
Len_Error
|
||
Cmd_Error
|
||
End Enum
|
||
|
||
''' <summary>
|
||
''' BUS协议格式
|
||
''' </summary>
|
||
Enum BUS_PKT
|
||
PKT_ADD_FM
|
||
PKT_TYPE
|
||
PKT_DevType
|
||
PKT_ADD_TO
|
||
PKT_LEN
|
||
PKT_CHKSUM
|
||
PKT_CMD
|
||
PKT_PARA
|
||
End Enum
|
||
|
||
Enum BUS_PKT2
|
||
PKT_ADD_FM
|
||
PKT_TYPE
|
||
PKT_DevType
|
||
PKT_ADD_TO
|
||
PKT_LEN
|
||
PKT_LEN_8
|
||
PKT_CHKSUM
|
||
PKT_CMD
|
||
PKT_PARA
|
||
End Enum
|
||
|
||
Enum DEBUG_WIN
|
||
File_Info
|
||
Content_Info
|
||
End Enum
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' 和校验取余数
|
||
''' 求Byte数组的和校验取余数
|
||
''' </summary>
|
||
''' <param name="dataPacket">Byte数组</param>
|
||
''' <returns>计算校验值</returns>
|
||
Public Function CheckSum(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
|
||
|
||
''' <summary>
|
||
''' 调试信息输出到调试窗口信息
|
||
''' </summary>
|
||
''' <param name="str"></param>
|
||
Public Sub DEBUG_Printf(str As String)
|
||
If DEBUG_PRINTF_EN = &H1 Then
|
||
Console.WriteLine(str & vbCrLf)
|
||
End If
|
||
End Sub
|
||
|
||
''' <summary>
|
||
''' 将调试信息输出到界面窗口中
|
||
''' </summary>
|
||
''' <param name="type">选择输出窗口</param>
|
||
''' <param name="str">输出的信息</param>
|
||
''' <param name="col">输出信息颜色</param>
|
||
Public Sub Debug_Info_Display_On_Window(type As Byte, str As String， col As Color)
|
||
Dim show_str As String = str
|
||
Select Case type
|
||
Case DEBUG_WIN.File_Info '文件解析信息内容显示窗口
|
||
If Form1.CheckBox1.Checked = True Then '判断当前是否打开该窗口
|
||
|
||
Form1.RichTextBox1.SelectionStart = Form1.RichTextBox1.TextLength
|
||
Form1.RichTextBox1.SelectionColor = col
|
||
Form1.RichTextBox1.AppendText(show_str & vbCrLf)
|
||
|
||
|
||
End If
|
||
Case DEBUG_WIN.Content_Info '数据内容解析信息显示窗口
|
||
If Form1.CheckBox2.Checked = True Then '判断当前是否打开该窗口
|
||
|
||
Form1.RichTextBox2.SelectionStart = Form1.RichTextBox2.TextLength
|
||
Form1.RichTextBox2.SelectionColor = col
|
||
Form1.RichTextBox2.AppendText(show_str & vbCrLf)
|
||
|
||
End If
|
||
Case Else
|
||
|
||
End Select
|
||
|
||
End Sub
|
||
|
||
Public Sub Debug_Display_Clear(type As Byte)
|
||
Select Case type
|
||
Case DEBUG_WIN.File_Info '文件解析信息内容显示窗口
|
||
Form1.RichTextBox1.Clear()
|
||
Case DEBUG_WIN.Content_Info '数据内容解析信息显示窗口
|
||
Form1.RichTextBox2.Clear()
|
||
Case Else
|
||
|
||
End Select
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
End Module
|