📄 pc机控制教学信息.frm

📁 15入15出继电器控制板
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
End Sub

Private Sub Label1_Click()

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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub
Private Sub 工位9开_Click()
MSComm1.Output = "J"
工位9.Text = "开"
工位9.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub
Private Sub 工位10开_Click()
MSComm1.Output = "K"
工位10.Text = "开"
工位10.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub

Private Sub 工位11开_Click()
MSComm1.Output = "L"
工位11.Text = "开"
工位11.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub

Private Sub 工位12开_Click()
MSComm1.Output = "M"
工位12.Text = "开"
工位12.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub

Private Sub 工位13开_Click()
MSComm1.Output = "N"
工位13.Text = "开"
工位13.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub
Private Sub 工位14开_Click()
MSComm1.Output = "O"
工位14.Text = "开"
工位14.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub
Private Sub 工位15开_Click()
MSComm1.Output = "P"
工位15.Text = "开"
工位15.ForeColor = RGB(255, 0, 0)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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)
工位9.Text = "开"
工位9.ForeColor = RGB(255, 0, 0)
工位10.Text = "开"
工位10.ForeColor = RGB(255, 0, 0)
工位11.Text = "开"
工位11.ForeColor = RGB(255, 0, 0)
工位12.Text = "开"
工位12.ForeColor = RGB(255, 0, 0)
工位13.Text = "开"
工位13.ForeColor = RGB(255, 0, 0)
工位14.Text = "开"
工位14.ForeColor = RGB(255, 0, 0)
工位15.Text = "开"
工位15.ForeColor = RGB(255, 0, 0)

运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.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 + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub
Private Sub 工位9关_Click()
MSComm1.Output = "j"
工位9.Text = "关"
工位9.ForeColor = RGB(0, 0, 255)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器 3:" + 工位3.Text + ";" + "  " + "继电器 4:" + 工位4.Text + _
";" + "  " + "继电器 5:" + 工位5.Text + ";" + "  " + "继电器 6:" + 工位6.Text + ";" + "  " + "继电器 7:" + 工位7.Text + ";" + "  " + "继电器 8:" + 工位8.Text + ";" + _
"  " + "继电器 9:" + 工位9.Text + ";" + "  " + "继电器10:" + 工位10.Text + ";" + Chr$(13) + Chr(10) + "  " + "继电器11:" + 工位11.Text + ";" + "  " + "继电器12:" + 工位12.Text + ";" _
+ "  " + "继电器13:" + 工位13.Text + ";" + "  " + "继电器14:" + 工位14.Text + ";" + "  " + "继电器15:" + 工位15.Text + ";"
End Sub

Private Sub 工位10关_Click()
MSComm1.Output = "k"
工位10.Text = "关"
工位10.ForeColor = RGB(0, 0, 255)
运行状态.Text = "  " + "继电器 1:" + 工位1.Text + ";" + "  " + "继电器 2:" + 工位2.Text + ";" + "  " + "继电器
上一页 1 2 3 45
💿 文件大小 1793 K
👤 上传用户 zdhloo
📂 所属分类工控技术
🏷️ 相关标签

#继电器 #控制板
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -