📄 继电器控制界面.frm
字号:
Left = 4200
TabIndex = 40
Top = 120
Width = 855
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "时间是"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6120
TabIndex = 39
Top = 120
Width = 735
End
Begin VB.Label Label1
Caption = "八路继电器控制界面"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
TabIndex = 38
Top = 600
Width = 3135
End
Begin VB.Label Label2
Caption = "继电器运行状态"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 37
Top = 5040
Width = 2415
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "串口号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1440
TabIndex = 36
Top = 1440
Width = 1575
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "波特率："
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 4080
TabIndex = 35
Top = 1440
Width = 1455
End
End
Attribute VB_Name = "继电器控制界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************************
'********************************** 设置串口号部分*************************************
Private Sub Combo1_Click()
If Combo1.Text = "COM1" Then
MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
ElseIf Combo1.Text = "COM2" Then
MSComm1.PortOpen = False
MSComm1.CommPort = 2
MSComm1.PortOpen = True
ElseIf Combo1.Text = "COM3" Then
MSComm1.PortOpen = False
MSComm1.CommPort = 3
MSComm1.PortOpen = True
ElseIf Combo1.Text = "COM4" Then
MSComm1.PortOpen = False
MSComm1.CommPort = 4
MSComm1.PortOpen = True
ElseIf Combo1.Text = "COM5" Then
MSComm1.PortOpen = False
MSComm1.CommPort = 5
MSComm1.PortOpen = True
Else:
MSComm1.PortOpen = False
MSComm1.CommPort = 6
MSComm1.PortOpen = True
End If
End Sub
'**************************************************************************************
'********************************** 设置波特率部分*************************************
Private Sub Combo2_Click()
If Combo2.Text = "1200" Then
MSComm1.Settings = "1200,n,8,1"
ElseIf Combo2.Text = "2400" Then
MSComm1.Settings = "2400,n,8,1"
ElseIf Combo2.Text = "4800" Then
MSComm1.Settings = "4800,n,8,1"
ElseIf Combo2.Text = "9600" Then
MSComm1.Settings = "9600,n,8,1"
Else:
MSComm1.Settings = "19200,n,8,1"
End If
End Sub
'**************************************************************************************
'********************************** 退出系统按钮部分***********************************
Private Sub 退出系统_Click()
MSComm1.PortOpen = False
End
End Sub
'********************************** 串口设置部分***************************************
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 1 '设置并返回每次Input属性从接收缓冲区读取的字符数，为0时，input将读取接收缓冲区的全部字符
MSComm1.InputMode = 0 '设置返回类型，input属性所检取的是文本
'MSComm1.CommPort = 1 '设置串口号1
MSComm1.PortOpen = True
End Sub
'*****************************************************************************************
'**********************************日期时间显示部分***************************************
Private Sub Timer1_Timer()
labyear.Text = Year(Date)
labmonth.Text = Month(Date)
labday.Text = Day(Date)
If Weekday(Date) - 1 = 1 Then
labweek.Text = "一"
ElseIf Weekday(Date) - 1 = 2 Then
labweek.Text = "二"
ElseIf Weekday(Date) - 1 = 3 Then
labweek.Text = "三"
ElseIf Weekday(Date) - 1 = 4 Then
labweek.Text = "四"
ElseIf Weekday(Date) - 1 = 5 Then
labweek.Text = "五"
ElseIf Weekday(Date) - 1 = 6 Then
labweek.Text = "六"
Else
labweek.Text = "日"
End If
labtime.Text = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
End Sub
'******************************************************************************************
'************************************八工位开控制****************************************
Private Sub 工位1开_Click()
MSComm1.Output = "A"
工位1.Text = "开"
工位1.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位2开_Click()
MSComm1.Output = "B"
工位2.Text = "开"
工位2.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位3开_Click()
MSComm1.Output = "C"
工位3.Text = "开"
工位3.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位4开_Click(Index As Integer)
MSComm1.Output = "D"
工位4.Text = "开"
工位4.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位5开_Click()
MSComm1.Output = "E"
工位5.Text = "开"
工位5.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位6开_Click()
MSComm1.Output = "F"
工位6.Text = "开"
工位6.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位7开_Click()
MSComm1.Output = "G"
工位7.Text = "开"
工位7.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位8开_Click()
MSComm1.Output = "H"
工位8.Text = "开"
工位8.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 全开_Click(Index As Integer)
MSComm1.Output = "I"
工位1.Text = "开"
工位1.ForeColor = RGB(255, 0, 0)
工位2.Text = "开"
工位2.ForeColor = RGB(255, 0, 0)
工位3.Text = "开"
工位3.ForeColor = RGB(255, 0, 0)
工位4.Text = "开"
工位4.ForeColor = RGB(255, 0, 0)
工位5.Text = "开"
工位5.ForeColor = RGB(255, 0, 0)
工位6.Text = "开"
工位6.ForeColor = RGB(255, 0, 0)
工位7.Text = "开"
工位7.ForeColor = RGB(255, 0, 0)
工位8.Text = "开"
工位8.ForeColor = RGB(255, 0, 0)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
'******************************************************************************************
'************************************八工位关控制*****************************************
Private Sub 工位1关_Click(Index As Integer)
MSComm1.Output = "a"
工位1.Text = "关"
工位1.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位2关_Click()
MSComm1.Output = "b"
工位2.Text = "关"
工位2.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位3关_Click()
MSComm1.Output = "c"
工位3.Text = "关"
工位3.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位4关_Click(Index As Integer)
MSComm1.Output = "d"
工位4.Text = "关"
工位4.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位5关_Click(Index As Integer)
MSComm1.Output = "e"
工位5.Text = "关"
工位5.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位6关_Click()
MSComm1.Output = "f"
工位6.Text = "关"
工位6.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位7关_Click()
MSComm1.Output = "g"
工位7.Text = "关"
工位7.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 工位8关_Click(Index As Integer)
MSComm1.Output = "h"
工位8.Text = "关"
工位8.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
Private Sub 全关_Click(Index As Integer)
MSComm1.Output = "i"
工位1.Text = "关"
工位1.ForeColor = RGB(0, 0, 255)
工位2.Text = "关"
工位2.ForeColor = RGB(0, 0, 255)
工位3.Text = "关"
工位3.ForeColor = RGB(0, 0, 255)
工位4.Text = "关"
工位4.ForeColor = RGB(0, 0, 255)
工位5.Text = "关"
工位5.ForeColor = RGB(0, 0, 255)
工位6.Text = "关"
工位6.ForeColor = RGB(0, 0, 255)
工位7.Text = "关"
工位7.ForeColor = RGB(0, 0, 255)
工位8.Text = "关"
工位8.ForeColor = RGB(0, 0, 255)
运行状态.Text = " " + "继电器1:" + 工位1.Text + ";" + " " + "继电器2:" + 工位2.Text + ";" + " " + "继电器3:" + 工位3.Text + ";" + " " + "继电器4:" + 工位4.Text + ";" + Chr$(13) + Chr(10) + " " + "继电器5:" + 工位5.Text + ";" + " " + "继电器6:" + 工位6.Text + ";" + " " + "继电器7:" + 工位7.Text + ";" + " " + "继电器8:" + 工位8.Text + ";"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -