初始化项目

BLV_Studio/Control/DataClass/AppLog.vb

@@ -0,0 +1,169 @@
+Imports System.IO
+Imports System.Text
+
+Public NotInheritable Class AppLog
+
+    ''' <summary>日志文件所在父文件夹路径</summary>
+    Private Shared _logPath As String = Application.StartupPath
+
+    ''' <summary>日志文件名前缀</summary>
+    Private Shared _logFilePrefix As String = Application.ProductName
+
+    ''' <summary>日志文件所在路径</summary>
+    Private Shared _logFilePath As String = $"{LogDirPath}{Path.DirectorySeparatorChar}{LogFilePrefix}_{Date.Now:yyyyMMdd}.Log"
+
+
+    ''' <summary>
+    ''' 保存日志的文件夹完整路径
+    ''' </summary>
+    Public Shared Property LogDirPath As String
+        Get
+            If Equals(_logPath, String.Empty) Then
+                _logPath = Application.StartupPath
+            End If
+            Return _logPath
+        End Get
+        Set(value As String)
+            _logPath = value
+
+            _logFilePath = $"{LogDirPath}{Path.DirectorySeparatorChar}{LogFilePrefix}_{Date.Now:yyyyMMdd}.Log"
+        End Set
+    End Property
+
+    ''' <summary>
+    ''' 日志文件前缀
+    ''' </summary>
+    Public Shared Property LogFilePrefix As String
+        Get
+            Return _logFilePrefix
+        End Get
+        Set(value As String)
+            _logFilePrefix = value
+            _logFilePath = $"{LogDirPath}{Path.DirectorySeparatorChar}{LogFilePrefix}_{Date.Now:yyyyMMdd}.Log"
+        End Set
+    End Property
+
+    Public Shared ReadOnly Property LogFilePath() As String
+        Get
+            Return _logFilePath
+        End Get
+    End Property
+
+
+
+    ''' <summary>
+    ''' 写入错误信息记录日志
+    ''' </summary>
+    ''' <param name="ex"></param>
+    Public Shared Sub WriteErrorLog(ex As Exception)
+        Dim msg As New StringBuilder
+
+        msg.Append($"{ex.StackTrace} {ex.Message}")
+
+        WriteLog(LogTypes.Error, msg.ToString())
+    End Sub
+
+    ''' <summary>
+    ''' 写入流程信息记录日志
+    ''' </summary>
+    ''' <param name="msg"></param>
+    Public Shared Sub WriteDebugLog(msg As String)
+        WriteLog(LogTypes.Debug, msg.ToString())
+    End Sub
+
+
+    ''' <summary>
+    ''' 写入流程信息记录日志
+    ''' </summary>
+    ''' <param name="msg"></param>
+    Public Shared Sub WriteInfoLog(msg As String)
+        WriteLog(LogTypes.Info, msg.ToString())
+    End Sub
+
+    ''' <summary>
+    ''' 写入警告信息记录日志
+    ''' </summary>
+    ''' <param name="msg"></param>
+    Public Shared Sub WriteWarningLog(msg As String)
+        WriteLog(LogTypes.Warn, msg.ToString())
+    End Sub
+
+    ''' <summary>
+    ''' 写入错误信息记录日志
+    ''' </summary>
+    ''' <param name="msg"></param>
+    Public Shared Sub WriteErrorLog(msg As String)
+        WriteLog(LogTypes.Error, msg.ToString())
+    End Sub
+
+    ''' <summary>
+    ''' 写入数据库信息记录日志
+    ''' </summary>
+    ''' <param name="msg"></param>
+    Public Shared Sub WriteFatalLog(msg As String)
+        WriteLog(LogTypes.Fatal, msg.ToString())
+    End Sub
+
+
+    Private Shared ReadOnly LogLock As New Object() '日志锁，防止多线程同时写日志导致冲突
+
+    ''' <summary>
+    ''' 将信息入到日志
+    ''' </summary>
+    ''' <param name="logType">日志类型</param>
+    ''' <param name="msg">日志内容</param>
+    Public Shared Sub WriteLog(logType As String, msg As String)
+        '写入记录入日志文件
+        SyncLock LogLock
+            Try
+                Dim logString As New StringBuilder
+
+                logString.Append($"[{Date.Now:yyyy-MM-dd HH:mm:ss:fff}]") '日志产生时间
+
+                logString.Append($"[{logType,-6}]") '日志类型
+
+                logString.Append($"[{Process.GetCurrentProcess.Id,-6}]") '日志的进程号
+
+                logString.Append($"[{Threading.Thread.CurrentThread.ManagedThreadId,-4}]") '日志的线程号
+
+                logString.Append(msg) '日志的消息主题
+
+                Using sw As StreamWriter = File.AppendText($"{LogDirPath}{Path.DirectorySeparatorChar}{LogFilePrefix}_{Date.Now:yyyyMMdd}.Log")
+                    sw.WriteLine(logString.ToString())
+                End Using
+
+            Catch ex As Exception
+                Console.WriteLine($"Uts WriteLog Error:{ex.Message}")
+            End Try
+
+        End SyncLock
+    End Sub
+
+    ''' <summary>
+    ''' 写日志
+    ''' </summary>
+    Public Shared Sub WriteLog(type As LogTypes, ByVal msg As String)
+        WriteLog(type.ToString(), msg)
+    End Sub
+
+
+    ''' <summary>
+    ''' 日志类型
+    ''' </summary>
+    Public Enum LogTypes
+        ''' <summary>调试信息</summary>
+        Debug
+
+        ''' <summary>系统运行信息</summary>
+        Info
+
+        ''' <summary>警告信息</summary>
+        Warn
+
+        ''' <summary>错误信息应该包含对象名、发生错误点所在的方法名称、具体错误信息</summary>
+        [Error]
+
+        ''' <summary>致命信息</summary>
+        Fatal
+    End Enum
+End Class

BLV_Studio/Control/DataClass/CommSocketBLL.vb

@@ -0,0 +1,33 @@
+Imports System.Net
+Imports System.Net.Sockets
+Imports System.Threading
+
+Public Class CommSocketBLL
+
+    ''' <summary>
+    ''' 需要升级的IP和端口
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Sockets As Socket
+
+    ''' <summary>
+    ''' 本地IP和端口
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property LocalEP As IPEndPoint
+
+    ''' <summary>
+    ''' 远程IP和端口
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ReomteEP As IPEndPoint
+
+    ''' <summary>
+    ''' Socket连接状态，默认非连接
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ConnSocket As Boolean = False
+
+
+
+End Class

BLV_Studio/Control/DataClass/SearchHostsListBLL.vb

@@ -0,0 +1,273 @@
+Public Class SearchHostsListBLL
+
+    ''' <summary>
+    ''' 本机按键状态 
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property BtnSatae As String
+
+    ''' <summary>
+    ''' 机型编号
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ModelNumber As String
+
+    ''' <summary>
+    ''' IP地址
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property IPAddress As String
+
+    ''' <summary>
+    ''' 服务器地址
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ServiceAddress As String
+
+    ''' <summary>
+    ''' 子网掩码
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Subnet As String
+
+    ''' <summary>
+    ''' 网关
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Gateway As String
+
+    ''' <summary>
+    ''' 端口
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Port As String
+
+    ''' <summary>
+    ''' DNS 
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property DNS As String
+
+    ''' <summary>
+    ''' 软件版本号
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property SoftwareVersion As String
+
+    ''' <summary>
+    ''' 主机时间
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property HostsTime As String
+
+    ''' <summary>
+    ''' MAC
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property MAC As String
+
+    ''' <summary>
+    ''' 项目编号
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ProjectCode As String
+
+    ''' <summary>
+    ''' 房号ID
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property RoomNumberId As String
+
+    ''' <summary>
+    ''' 房号备注 
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property RoomNumber As String
+
+    ''' <summary>
+    ''' 房型ID
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property RoomTypeId As String
+
+    ''' <summary>
+    ''' 房型备注
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property RoomType As String
+
+    ''' <summary>
+    ''' 配置版本号
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ConfigVersion As String
+
+    ''' <summary>
+    ''' 房态
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property RoomState As String
+
+    ''' <summary>
+    ''' 季节
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Season As String
+
+    ''' <summary>
+    ''' 锁定
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Lock As String
+
+    ''' <summary>
+    ''' 授权时间
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property PrivilegedTime As String
+
+    ''' <summary>
+    ''' 授权到期时间 
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property PrivilegedDays As String
+
+    ''' <summary>
+    ''' 房间备注
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property RoomRemarks As String
+
+    ''' <summary>
+    ''' MCU机型名称
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property MCUName As String
+
+    ''' <summary>
+    ''' 中控机型名称
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property CentralName As String
+
+        Public Property Launcher As String
+    Public Property pzholtename As String
+    Public Property pzroomname As String
+    ''' <summary>
+    ''' 初始化
+    ''' </summary>
+    Sub New()
+        BtnSatae = ""           '本机按键状态
+        ModelNumber = ""        '机型编号
+        IPAddress = ""          'IP地址
+        ServiceAddress = ""     '服务器地址
+        Subnet = ""             '子网掩码
+        Gateway = ""            '网关
+        Port = ""               '端口
+        DNS = ""                'DNS
+        SoftwareVersion = ""    '软件版本号
+        HostsTime = ""          '主机时间
+        MAC = ""                'MAC
+        ProjectCode = ""        '项目编号
+        RoomNumberId = ""       '房号ID
+        RoomNumber = ""         '房号备注
+        RoomTypeId = ""         '房型ID
+        RoomType = ""           '房型备注
+        ConfigVersion = ""      '配置版本号
+        RoomState = ""          '房态
+        Season = ""             '季节
+        Lock = ""               '锁定
+        PrivilegedTime = ""     '授权时间
+        PrivilegedDays = ""     '授权到期时间
+        RoomRemarks = ""        '房间备注
+        MCUName = ""            'MCU机型名称
+        CentralName = ""        '中控机型名称
+
+        Launcher = ""
+        pzholtename = ""
+        pzroomname = ""
+    End Sub
+
+    ''' <summary>
+    ''' 初始化
+    ''' </summary>
+    Sub New(btnSatae As String,
+            modelNumber As String,
+            iPAddress As String,
+            serviceAddr As String,
+            subnet As String,
+            gateway As String,
+            port As String,
+            dns As String,
+            softwareVer As String,
+            hostsTime As String,
+            mac As String,
+            projectCode As String,
+            roomNumberId As String,
+            roomNumber As String,
+            roomTypeId As String,
+            roomType As String,
+            configVer As String,
+            roomState As String,
+            season As String,
+            lock As String,
+            privilegedTime As String,
+            privilegedDays As String,
+            roomRemarks As String,
+            mcu As String,
+            central As String,
+            Launcher As String,
+            pzholtename As String,
+            pzroomname As String)
+        Me.BtnSatae = btnSatae              '本机按键状态
+        Me.ModelNumber = modelNumber        '机型编号
+        Me.IPAddress = iPAddress            'IP地址
+        Me.ServiceAddress = serviceAddr     '服务器地址
+        Me.Subnet = subnet                  '子网掩码
+        Me.Gateway = gateway                '网关
+        Me.Port = port                      '端口
+        Me.DNS = dns                        'DNS
+        Me.SoftwareVersion = softwareVer    '软件版本号
+        Me.HostsTime = hostsTime            '主机时间
+        Me.MAC = mac                        'MAC
+        Me.ProjectCode = projectCode        '项目编号
+        Me.RoomNumberId = roomNumberId      '房号ID
+        Me.RoomNumber = roomNumber          '房号备注
+        Me.RoomTypeId = roomTypeId          '房型ID
+        Me.RoomType = roomType              '房型备注
+        Me.ConfigVersion = configVer        '配置版本号
+        Me.RoomState = roomState            '房态
+        Me.Season = season                  '季节
+        Me.Lock = lock                      '锁定
+        Me.PrivilegedTime = privilegedTime  '授权时间
+        Me.PrivilegedDays = privilegedDays  '授权到期时间
+        Me.RoomRemarks = roomRemarks        '房间备注
+        Me.MCUName = mcu                    'MCU机型名称
+        Me.CentralName = central            '中控机型名称
+
+        Me.Launcher = Launcher
+        Me.pzholtename = pzholtename
+        Me.pzroomname = pzroomname
+    End Sub
+
+
+    ''' <summary>
+    ''' 获取设备名称
+    ''' </summary>
+    ''' <param name="mac">设备类型</param>
+    ''' <param name="ipAddr">设备地址</param>
+    ''' <returns></returns>
+    Public Shared Function GetHostInfo(mac As String, ipAddr As String) As String
+
+
+        Return $"{mac}_{ipAddr}"
+    End Function
+
+
+
+
+
+
+
+
+End Class

BLV_Studio/Control/DataClass/UpgradeBLL.vb

@@ -0,0 +1,31 @@
+Imports System.Net
+Imports System.Net.Sockets
+
+Public Class UpgradeBLL
+
+    ''' <summary>
+    ''' 升级序号
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property Index As Integer
+
+    ''' <summary>
+    ''' 需要升级的IP和端口
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property ReomteEP As IPEndPoint
+
+    ''' <summary>
+    ''' 主机端口
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property port As Integer
+
+    ''' <summary>
+    ''' 主机soket
+    ''' </summary>
+    ''' <returns></returns>
+    Public Property socket As Socket
+
+
+End Class