📄 main.vb
字号:
chk1.Checked = True
chk2.Checked = True
chk3.Checked = True
chk4.Checked = True
chk5.Checked = True
'chk6.Checked = True
chk7.Checked = True
config_Load()
search.init(ServerName, DatabaseName, UserName, Password)
search.con.Open()
If search.con.State = ConnectionState.Open Then
' MessageBox.Show("数据库连接成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Timer1.Interval = 1000
Timer1.Enabled = True
LoadTransmitKTD()
LoadTransmitKT()
LoadTransmitGME()
If TransKTD Is Nothing And TransKT Is Nothing And TransGME Is Nothing Then
Else
CycTransmitTV = New Thread(New ThreadStart(AddressOf CSCtransmit))
CycTransmitTV.Start()
End If
Else
MessageBox.Show("数据库连接失败！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
End Try
End Sub
Private Sub main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.ShowInTaskbar = False
Me.NotifyIcon1.Visible = True
Else
Me.NotifyIcon1.Visible = False
Me.ShowInTaskbar = True
'Me.Width = 600
'Me.Height = 300
End If
End Sub
Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
Me.ShowInTaskbar = True
Me.NotifyIcon1.Visible = False
Me.WindowState = FormWindowState.Normal
'Me.Width = 600
'Me.Height = 300
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
StatusBar1.Panels(2).Text = "时间:" + Now
End Sub
'*****************************************************************电视发射机实时寻检
'''（康特一台1KW电视，吉兆一台5KW电视，凯腾三台3KW电视）
'***********************************************************************
Public Sub CSCtransmit()
Dim i As Integer
While (True)
LoadSysConfig()
LoadAlarmConfig()
'''巡检吉兆1台5KW电视发射机
For i = 0 To TransGME.Length - 1
Try
LoadLowOrHigh(TransGME(i))
LoadOpenClose(TransGME(i))
'TransGME(i).isClose()
Select Case Trim(TransGME(i).TransmitName)
Case "94.9MHz"
If chk1.Checked = True Then
If InitComPort(TransGME(i).Port, TransGME(i).PortPara) = True Then
If isAutoOff = True Then
GMEsendOpenClose(TransGME(i))
End If
GMEsendControlCmd(TransGME(i))
GMEsendOrReceive(TransGME(i), 6, True)
End If
DevInfo(TransGME(i)) '''显示设备信息
End If
Case "97.7MHz"
If chk2.Checked = True Then
If InitComPort(TransGME(i).Port, TransGME(i).PortPara) = True Then
If isAutoOff = True Then
GMEsendOpenClose(TransGME(i))
End If
GMEsendControlCmd(TransGME(i))
GMEsendOrReceive(TransGME(i), 6, True)
End If
DevInfo(TransGME(i)) '''显示设备信息
End If
Case "15CH"
If chk7.Checked = True Then
If InitComPort(TransGME(i).Port, TransGME(i).PortPara) = True Then
If isAutoOff = True Then
GMEsendOpenClose(TransGME(i))
End If
GMEsendControlCmd(TransGME(i))
GMEsendOrReceive(TransGME(i), 6, True)
End If
DevInfo(TransGME(i)) '''显示设备信息
End If
End Select
Catch ex As Exception
End Try
Next
'''巡检凯腾3台3KW电视发射机
For i = 0 To TransKT.Length - 1
Try
LoadLowOrHigh(TransKT(i))
LoadOpenClose(TransKT(i))
Select Case Trim(TransKT(i).TransmitName)
Case "8CH"
If chk3.Checked = True Then
If InitComPort(TransKT(i).Port, TransKT(i).PortPara) = True Then
If isAutoOff = True Then
KTsendOpenClose(TransKT(i))
End If
KTsendControlCmd(TransKT(i))
KTsendOrReceive(TransKT(i), 6, True)
DevInfo(TransKT(i))
End If
End If
Case "20CH"
If chk4.Checked = True Then
If InitComPort(TransKT(i).Port, TransKT(i).PortPara) = True Then
If isAutoOff = True Then
KTsendOpenClose(TransKT(i))
End If
KTsendControlCmd(TransKT(i))
KTsendOrReceive(TransKT(i), 6, True)
DevInfo(TransKT(i))
End If
End If
Case "45CH"
If chk5.Checked = True Then
If InitComPort(TransKT(i).Port, TransKT(i).PortPara) = True Then
If isAutoOff = True Then
KTsendOpenClose(TransKT(i))
End If
KTsendControlCmd(TransKT(i))
KTsendOrReceive(TransKT(i), 6, True)
DevInfo(TransKT(i))
End If
End If
End Select
Catch ex As Exception
End Try
Next
'''巡检康特1台1KW电视发射机
For i = 0 To TransKTD.Length - 1
Try
LoadLowOrHigh(TransKTD(i))
LoadOpenClose(TransKTD(i))
Select Case Trim(TransKTD(i).TransmitName)
Case "10CH"
If chk6.Checked = True Then
If isAutoOff = True Then
KTDsendOpenClose(TransKTD(i))
End If
KTDsendControlCmd(TransKTD(i))
KTDsendOrReceive(TransKTD(i), 6, "00", True)
DevInfo(TransKTD(i))
End If
End Select
Catch ex As Exception
End Try
Next
isFirst = False
End While
End Sub
Private Sub KTDsendOrReceive(ByVal trans As TransmitKTD, ByVal CmdType As Integer, ByVal cmd As String, ByVal saveFlag As Boolean)
Dim databuf(512) As Byte
Dim x As Integer
Dim ds As DataSet
Dim i As Integer
SendDataBuf = SendData(CmdType, trans.TraType, trans.strTransmitAddr, trans.Port, trans.PortPara, cmd, "00", trans.TransmitType)
'''显示请求数据
'DataView(lsvmsg, "请求数据：" + strSendData)
'SendDataLog(SendDataBuf, trans, CmdType)
SelectView(1, SendDataBuf, trans, CmdType)
If Client_Connect(trans.TransmitAddr, 1024) = True Then '''TCP请求连接
c_socket.Send(SendDataBuf, SendDataBuf.Length, SocketFlags.None)
Sleep(500)
x = c_socket.Receive(databuf, c_socket.Available, SocketFlags.None)
' ReceiveData(databuf, x)
' ReceiveData(databuf, trans, CmdType)
SelectView(2, databuf, trans, CmdType)
trans.parse(databuf, x, CmdType)
If trans.CommStatus = 1 Then
trans.State = 0 '''通讯正常
ElseIf trans.CommStatus = 2 Then
trans.State = 1 '''通讯异常
ElseIf trans.CommStatus = 0 Then
trans.State = 3 '''正常
ElseIf trans.CommStatus = 3 Then
trans.State = 4 '''报警
End If
isFirst = False
''*******************************报警数据记录
If CmdType = 6 And trans.State = 3 Then
SysAlarm(trans)
For i = 0 To trans.AmpCount - 1
AmpAlarm(i, trans)
Next
If trans.Master.bBackupState = False Then
RefAlarm(0, trans)
Else
RefAlarm(1, trans)
End If
SMSalarm(trans.CommStatus, trans)
End If
''*******************************
Else
trans.State = 1 '''关机
End If
TramDatabase(trans.TransmitID, trans.TransmitName, CmdType, trans.State, saveFlag, trans.Id)
End Sub
Public Sub KTDsendOpenClose(ByVal trans As TransmitKTD)
Select Case Today.DayOfWeek
Case DayOfWeek.Monday
If trans.Monday(0) Is Nothing Then
Else
If OnOffFlag(trans.Monday(0)) = True Then
KTDsendOrReceive(trans, 3, "00", False)
End If
End If
If trans.Monday(1) Is Nothing Then
Else
If OnOffFlag(trans.Monday(1)) = True Then
KTDsendOrReceive(trans, 4, "00", False)
End If
End If
Case DayOfWeek.Tuesday
If trans.Tuesday(0) Is Nothing Then
Else
If OnOffFlag(trans.Tuesday(0)) = True Then
KTDsendOrReceive(trans, 3, "00", False)
End If
End If
If trans.Tuesday(1) Is Nothing Then
Else
If OnOffFlag(trans.Tuesday(1)) = True Then
KTDsendOrReceive(trans, 4, "00", False)
End If
End If
If trans.Tuesday(2) Is Nothing Then
Else
If OnOffFlag(trans.Tuesday(2)) = True Then
KTDsendOrReceive(trans, 3, "00", False)
End If
End If
If trans.Tuesday(3) Is Nothing Then
Else
If OnOffFlag(trans.Tuesday(3)) = True Then
KTDsendOrReceive(trans, 4, "00", False)
End If
End If
Case DayOfWeek.Wednesday
If trans.Wednesday(0) Is Nothing Then
Else
If OnOffFlag(trans.Wednesday(0)) = True Then
KTDsendOrReceive(trans, 3, "00", False)
End If
End If
If trans.Wednesday(1) Is Nothing Then
Else
If OnOffFlag(trans.Wednesday(1)) = True Then
KTDsendOrReceive(trans, 4, "00", False)
End If
End If
Case DayOfWeek.Thursday
If trans.Thursday(0) Is Nothing Then
Else
If OnOffFlag(trans.Thursday(0)) = True Then
KTDsendOrReceive(trans, 3, "00", False)
End If
End If
If trans.Thursday(1) Is Nothing Then
Else
If OnOffFlag(trans.Thursday(1)) = True Then
KTDsendOrReceive(trans, 4, "00", False)
End If
End If
Case DayOfWeek.Friday
If trans.Friday(0) Is Nothing Then
Else
If OnOffFlag(trans.Friday(0)) = True Then
KTDsendOrReceive(trans, 3, "00", False)
End If
End If
If trans.Friday(1) Is Nothing Then
Else
If OnOffFlag(trans.Friday(1)) = True Then
KTDsendOrReceive(trans, 4, "00", False)
End If
End If
Case DayOfWeek.Saturday
If trans.Saturday(0) Is Nothing Then
Else
If OnOffFlag(trans.Saturday(0)) = True Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -