Dim c3 As String.doc

Dim c3 As StringDim c4 As StringDim c5 As StringDim c6 As StringDim m2 As StringDim h2 As IntegerDim ri As BooleanDim ir As BooleanDim sb As BooleanDim bs As BooleanDim h3 As IntegerDim h4 As IntegerDim j As StringDim g As IntegerDim j1 As StringDim g1 As IntegerDim j2 As StringDim g2 As IntegerDim j3 As StringDim g3 As StringDim j4 As StringDim g4 As IntegerDim j5 As StringDim j7 As StringDim j6 As StringDim g5 As IntegerDim g6 As IntegerDim g7 As Integer楼层停站指令Private Sub Check1_Click(Index As Integer)For i = 8 To 12a(i) = Check1(i).Value * 2 ib = a(i) + bNext id8 = Hex(h2 Or b)c = c3 & d8 & c4If Winsock1.State = sckConnected Then Winsock1.SendData cText2.Text = cEnd Sub楼层召唤指令Private Sub Check2_Click(Index As Integer)g13 = 0For X = 0 To 7k(X) = Check2(X).Value * 2 Xg13 = k(X) + g13Next Xd6 = Hex(h5 Or g13)j13 = c5 & d6 & c6If Winsock1.State = sckConnected Then Winsock1.SendData j13Text2.Text = j13End SubPrivate Sub Command1_Click()If Winsock1.State sckClosed Then Winsock1.CloseEndEnd SubPrivate Sub Command2_Click()Winsock1.RemoteHost = Text3.TextWinsock1.RemotePort = 1002Winsock1.LocalPort = 0Winsock1.ConnectCommand2.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click()Winsock1.CloseCommand2.Enabled = TrueCommand3.Enabled = FalseEnd SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change()Timer2.Interval = HScroll2.ValueEnd Sub定时器1控制门开关Private Sub Timer1_Timer()If Picture2.Left = -2655 Then ri = FalseIf Picture3.Left = 5175 Then ri = FalseIf ri Then Picture2.Left = Picture2.Left - 10If ri Then Picture3.Left = Picture3.Left + 10If Picture2.Left = -120 Then ir = FalseIf Picture3.Left = 2655 Then ir = FalseIf ir Then Picture2.Left = Picture4.Left + 10If ir Then Picture3.Left = Picture5.Left - 10End Sub定时器2控制电梯上下Private Sub Timer2_Timer()If Picture5.Top = 8520 Then bs = FalseIf Picture5.Top = 1800 Then sb = FalseIf (h3 And 4) = 4 Then Picture5.Top = 8520If (h3 And 8) = 8 Then Picture5.Top = 6840If (h4 And 1) = 1 Then Picture5.Top = 5400If (h4 And 2) = 2 Then Picture5.Top = 3360If (h4 And 4) = 4 Then Picture5.Top = 1800If sb Then Picture5.Top = Picture5.Top - 10If bs Then Picture5.Top = Picture5.Top + 10End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim aaa As StringWinsock1.GetData aaa 数据接收Text1.Text = aaac3 = Mid(aaa, 1, 5)c4 = Mid(aaa, 7, 4)m2 = Mid(aaa, 6, 1)h2 = Val(&h + m2)c5 = Mid(aaa, 1, 7)c6 = Mid(aaa, 9, 2)j = Mid(aaa, 21, 1)j1 = Mid(aaa, 20, 1)j2 = Mid(aaa, 19, 1)j3 = Mid(aaa, 18, 1)g = Val(&h + j)g1 = Val(&h + j1)g2 = Val(&h + j2)g3 = Val(&h + j3)If (g And 4) = 4 Then Shape1(0).BackStyle = 1 Else Shape1.BackStyle = 0If (g And 8) = 8 Then Shape2.BackStyle = 1 Else Shape2.BackStyle = 0If (g1 And 1) = 1 Then Shape6.BackStyle = 1 Else Shape6.BackStyle = 0If (g1 And 2) = 2 Then Shape7.BackStyle = 1 Else Shape7.BackStyle = 0 数码管显示If (g1 And 4) = 4 Then Shape5.BackStyle = 1 Else Shape5.BackStyle = 0If (g1 And 8) = 8 Then Shape3.BackStyle = 1 Else Shape3.BackStyle = 0If (g2 And 1) = 1 Then Shape4.BackStyle = 1 Else Shape4.BackStyle = 0If (g2 And 2) = 2 Then S1.BackStyle = 1 Else S1.BackStyle = 0If (g2 And 4) = 4 Then S2.BackStyle = 1 Else S2.BackStyle = 0If (g2 And 8) = 8 Then S3.BackStyle = 1 Else S3.BackStyle = 0If (g3 And 1) = 1 Then S4.BackStyle = 1 Else S4.BackStyle = 0If (g3 And 2) = 2 Then S5.BackStyle = 1 Else S5.BackStyle = 0If (g3 And 4) = 4 Then S6.BackStyle = 1 Else S6.BackStyle = 0If (g3 And 8) = 8 Then S7.BackStyle = 1 Else S7.BackStyle = 0j4 = Mid(aaa, 17, 1) 召唤信号及楼层信号截取g4 = Val(&h + j4)If (g4 And 1) = 1 Then S8.BackStyle = 1 Else S8.BackStyle = 0If (g4 And 1) = 1 Then sb = True If (g4 And 2) = 2 Then Shape1(17).BackStyle = 1 Else Shape1(17).BackStyle = 0If (g4 And 4) = 4 Then Shape1(18).BackStyle = 1 Else Shape1(18).BackStyle = 0If (g4 And 8) = 8 Then Shape1(19).BackStyle = 1 Else Shape1(19).BackStyle = 0j5 = Mid(aaa, 16, 1) 桥厢上行下信号截取g5 = Val(&h + j5)If (g5 And 1) = 1 Then Shape1(20).BackStyle = 1 Else Shape1(20).BackStyle = 0If (g5 And 2) = 2 Then Shape1(21).BackStyle = 1 Else Shape1(21).BackStyle = 0If (g5 And 4) = 4 Then sb = True Else sb = FalseIf (g5 And 8) = 8 Then bs = True Else bs = Falsej6 = Mid(aaa, 15, 1) 桥厢开闭门信号截取g6 = Val(&h + j6)If (g6 And 1) = 1 Then ri = True Else ri = FalseIf (g6 And