📄 form2.frm
字号:
TabIndex = 12
Top = 3360
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 10
Left = 3360
TabIndex = 11
Top = 3120
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 9
Left = 3000
TabIndex = 10
Top = 3360
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 8
Left = 3120
TabIndex = 9
Top = 3120
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 7
Left = 2520
TabIndex = 8
Top = 3360
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 6
Left = 2640
TabIndex = 7
Top = 3120
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 5
Left = 2280
TabIndex = 6
Top = 3360
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 4
Left = 2400
TabIndex = 5
Top = 3120
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 3
Left = 2040
TabIndex = 4
Top = 3360
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 2
Left = 2160
TabIndex = 3
Top = 3120
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 1
Left = 1800
TabIndex = 2
Top = 3360
Width = 255
End
Begin VB.Frame Frame1
BackColor = &H8000000A&
Caption = "PLC"
Height = 2775
Left = 120
TabIndex = 0
Top = 2640
Width = 7095
Begin VB.CheckBox Check2
Caption = "Check2"
Height = 255
Index = 0
Left = 1680
TabIndex = 33
Top = 1920
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Index = 0
Left = 1800
TabIndex = 1
Top = 480
Width = 255
End
Begin VB.Label Label7
Caption = "37|"
ForeColor = &H000000FF&
Height = 255
Left = 6120
TabIndex = 71
Top = 1320
Width = 735
End
Begin VB.Label Label6
Caption = "27|30"
ForeColor = &H000000FF&
Height = 255
Left = 4920
TabIndex = 70
Top = 1320
Width = 735
End
Begin VB.Label Label5
Caption = "17|20"
ForeColor = &H000000FF&
Height = 255
Left = 3720
TabIndex = 69
Top = 1320
Width = 855
End
Begin VB.Label Label4
Caption = "07|10"
ForeColor = &H000000FF&
Height = 255
Left = 2520
TabIndex = 68
Top = 1320
Width = 615
End
Begin VB.Label Label3
Caption = "|00"
ForeColor = &H000000FF&
Height = 375
Left = 1560
TabIndex = 67
Top = 1320
Width = 495
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "输出Y："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 66
Top = 2160
Width = 735
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "输入X："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 360
TabIndex = 65
Top = 720
Width = 735
End
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "远程计算机："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1200
TabIndex = 79
Top = 360
Width = 1530
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "数据发送："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 720
TabIndex = 78
Top = 2040
Width = 1275
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "接受数据："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 720
TabIndex = 77
Top = 1320
Width = 1275
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1020
Winsock1.Listen
End Sub
Private Sub Text3_Change()
If Winsock1.State = sckConnected Then Winsock1.SendData Text3.Text
End Sub
Private Sub Timer1_Timer()
Dim X(32) As Integer, U1(8) As Integer, U8(8) As Integer
Dim U2(8) As Integer, U3(8) As Integer, U4(8) As Integer
Dim U5(8) As Integer, U6(8) As Integer, U7(8) As Integer
Dim Y1(8) As Integer, Y2(8) As Integer, Y3(8) As Integer
Dim Y4(8) As Integer, Y5(8) As Integer, Y6(8) As Integer
Dim Y7(8) As Integer, Y8(8) As Integer
For i = 0 To 3
X(i) = Check1(i).Value * 2 ^ i
U1(0) = U1(0) + X(i)
Next i
For i = 4 To 7
X(i) = Check1(i).Value * 2 ^ (i - 4)
U2(0) = U2(0) + X(i)
Next i
For i = 8 To 11
X(i) = Check1(i).Value * 2 ^ (i - 8)
U3(0) = U3(0) + X(i)
Next i
For i = 12 To 15
X(i) = Check1(i).Value * 2 ^ (i - 12)
U4(0) = U4(0) + X(i)
Next i
For i = 16 To 19
X(i) = Check1(i).Value * 2 ^ (i - 16)
U5(0) = U5(0) + X(i)
Next i
For i = 20 To 23
X(i) = Check1(i).Value * 2 ^ (i - 20)
U6(0) = U6(0) + X(i)
Next i
For i = 24 To 27
X(i) = Check1(i).Value * 2 ^ (i - 24)
U7(0) = U7(0) + X(i)
Next i
For i = 28 To 31
X(i) = Check1(i).Value * 2 ^ (i - 28)
U8(0) = U8(0) + X(i)
Next i
For i = 0 To 3
X(i) = Check2(i).Value * 2 ^ i
Y1(0) = Y1(0) + X(i)
Next i
For i = 4 To 7
X(i) = Check2(i).Value * 2 ^ (i - 4)
Y2(0) = Y2(0) + X(i)
Next i
For i = 8 To 11
X(i) = Check2(i).Value * 2 ^ (i - 8)
Y3(0) = Y3(0) + X(i)
Next i
For i = 12 To 15
X(i) = Check2(i).Value * 2 ^ (i - 12)
Y4(0) = Y4(0) + X(i)
Next i
For i = 16 To 19
X(i) = Check2(i).Value * 2 ^ (i - 16)
Y5(0) = Y5(0) + X(i)
Next i
For i = 20 To 23
X(i) = Check2(i).Value * 2 ^ (i - 20)
Y6(0) = Y6(0) + X(i)
Next i
For i = 24 To 27
X(i) = Check2(i).Value * 2 ^ (i - 24)
Y7(0) = Y7(0) + X(i)
Next i
For i = 28 To 31
X(i) = Check2(i).Value * 2 ^ (i - 28)
Y8(0) = Y8(0) + X(i)
Next i
Text3.Text = "X " & Hex(U8(0)) & Hex(U7(0)) & Hex(U6(0)) & Hex(U5(0)) & Hex(U4(0)) & Hex(U3(0)) & Hex(U2(0)) & Hex(U1(0)) & " Y " & Hex(Y8(0)) & Hex(Y7(0)) & Hex(Y6(0)) & Hex(Y5(0)) & Hex(Y4(0)) & Hex(Y3(0)) & Hex(Y2(0)) & Hex(Y1(0))
'For i = 0 To 31
'If Check1(i).Value = 1 Then Shape1(i).BackStyle = 1 Else Shape1(i).BackStyle = 0
'If Check2(i).Value = 1 Then Shape2(i).BackStyle = 1 Else Shape2(i).BackStyle = 0
'Next i
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Text1.Text = Winsock1.RemoteHostIP
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim aaa As String
Winsock1.GetData aaa
Text2.Text = aaa
For i = 0 To 7
j = 4 * i
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 0 Then Shape1(j).BackStyle = 1 Else Shape1(j).BackStyle = 0
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 1 Then Shape1(j + 1).BackStyle = 1 Else Shape1(j + 1).BackStyle = 0
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 2 Then Shape1(j + 2).BackStyle = 1 Else Shape1(j + 2).BackStyle = 0
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 3 Then Shape1(j + 3).BackStyle = 1 Else Shape1(j + 3).BackStyle = 0
Next i
For i = 0 To 7
j = 4 * i
If Val("&h" & (Mid(aaa, 21 - i, 1))) And 2 ^ 0 Then Shape2(j).BackStyle = 1 Else Shape2(j).BackStyle = 0
If Val("&h" & (Mid(aaa, 21 - i, 1))) And 2 ^ 1 Then Shape2(j + 1).BackStyle = 1 Else Shape2(j + 1).BackStyle = 0
If Val("&h" & (Mid(aaa, 21 - i, 1))) And 2 ^ 2 Then Shape2(j + 2).BackStyle = 1 Else Shape2(j + 2).BackStyle = 0
If Val("&h" & (Mid(aaa, 21 - i, 1))) And 2 ^ 3 Then Shape2(j + 3).BackStyle = 1 Else Shape2(j + 3).BackStyle = 0
Next i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -