119 lines
3.9 KiB
VB.net
119 lines
3.9 KiB
VB.net
Imports System.Text
|
||
|
||
Namespace DebugLog
|
||
Public Class DebugPrintClass
|
||
Enum DebugPrintType
|
||
System
|
||
Comport
|
||
Database
|
||
NetWork
|
||
Ftp
|
||
End Enum
|
||
|
||
''' <summary>
|
||
''' 显示所有数据,优先度最高
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowAllData() As Boolean = True
|
||
|
||
''' <summary>
|
||
''' 是否显示系统信息
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowSystemData() As Byte = 1
|
||
|
||
''' <summary>
|
||
''' 是否显示串口信息
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowComportData() As Byte = 1
|
||
|
||
''' <summary>
|
||
''' 是否显示数据库信息
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowDatabaseData() As Byte = 1
|
||
|
||
''' <summary>
|
||
''' 是否显示网络信息
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowNetWorkData() As Byte = 1
|
||
|
||
''' <summary>
|
||
''' 是否显示Ftp信息
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowFtpData() As Byte = 1
|
||
|
||
''' <summary>
|
||
''' 显示信息的集合,对应数据位为1则打印，为0不打印
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowDataType() As Integer = ShowSystemData >> DebugPrintType.System Or
|
||
ShowComportData >> DebugPrintType.Comport Or
|
||
ShowDatabaseData >> DebugPrintType.Database Or
|
||
ShowNetWorkData >> DebugPrintType.NetWork Or
|
||
ShowFtpData >> DebugPrintType.Ftp
|
||
|
||
|
||
''' <summary>
|
||
''' 是否添加时间前缀
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowTime() As Boolean = True
|
||
|
||
''' <summary>
|
||
''' 是否显示与上包显示的间隔
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Shared Property ShowTimeSpan() As Boolean = True
|
||
|
||
|
||
Private Shared _lastShowTime As DateTime = Now
|
||
|
||
Private Shared _timeSpan As TimeSpan
|
||
|
||
''' <summary>
|
||
''' 打印调试信息
|
||
''' </summary>
|
||
''' <param name="printString">需要打印的信息</param>
|
||
Private Shared Sub DebugPrint(printString As String)
|
||
Console.WriteLine(printString)
|
||
End Sub
|
||
|
||
|
||
''' <summary>
|
||
''' 打印调试信息
|
||
''' </summary>
|
||
''' <param name="type">打印信息类型</param>
|
||
''' <param name="printString">需要打印的信息</param>
|
||
Public Shared Sub DebugPrint(type As DebugPrintType, printString As String)
|
||
If ShowAllData = False Then Return
|
||
If ((ShowDataType >> type) And 1) = 0 Then Return
|
||
|
||
_timeSpan = Now - _lastShowTime
|
||
_lastShowTime = Now
|
||
|
||
Dim msgBuilder As New StringBuilder
|
||
If ShowTime Then msgBuilder.Append($"{Now:yyyy-MM-dd HH:mm:ss} - ")
|
||
If ShowTimeSpan Then msgBuilder.Append($"{_timeSpan.TotalMilliseconds,8} - ")
|
||
msgBuilder.Append($"{type} - ")
|
||
msgBuilder.Append($"{printString}")
|
||
|
||
DebugPrint(msgBuilder.ToString())
|
||
End Sub
|
||
|
||
|
||
''' <summary>
|
||
''' 打印调试信息
|
||
''' </summary>
|
||
''' <param name="type">打印信息类型</param>
|
||
''' <param name="tip">需要打印信息的提示前缀</param>
|
||
''' <param name="printString">需要打印的信息</param>
|
||
Public Shared Sub DebugPrint(type As DebugPrintType, tip As String, printString As String)
|
||
DebugPrint(type, $"{tip}:{printString}")
|
||
End Sub
|
||
|
||
End Class
|
||
End Namespace |