Fx plc通讯程序.docVIP

Dim D_time As Long Dim Ani_bool As Boolean Private Sub Combo1_Click(Index As Integer) If Index = 1 Then Text1(1).Text = 0 Text2(1).Text = 1 For i = 0 To 31 Label4(i).Caption = Combo1(1).Text i Text6(i).Text = 0 Next End If End Sub Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer) KeyAscii = 0 End Sub Private Sub Command1_Click(Index As Integer) If Index = 0 Then If Check1(0).Value Then If Command1(0).Caption = 读(R) Then Command1(0).Caption = 停止(S) Check1(0).Enabled = False Combo1(0).Enabled = False Text1(0).Enabled = False Text2(0).Enabled = False Text5(0).Enabled = False Timer1.Interval = Val(Text5(0).Text) Timer1.Enabled = True Else Command1(0).Caption = 读(R) Check1(0).Enabled = True Combo1(0).Enabled = True Text1(0).Enabled = True Text2(0).Enabled = True Text5(0).Enabled = True Timer1.Enabled = False End If Else D_time = timeGetTime() Back = fxObject.Group_Access(fxReadStatus, Combo1(0).ListIndex, Val(Text1(0).Text), Val(Text2(0).Text), fxData) Text4(0).Text = timeGetTime - D_time If Back Then List1(0).Clear Text3(0).Text = True If (Combo1(0).Text = D) Or (Combo1(0).Text = TV) Or (Combo1(0).Text = CV) Then For i = 0 To Val(Text2(0).Text) - 1 List1(0).AddItem Combo1(0).Text Val(Text1(0).Text) + i = fxData.PLCdata(i) Next Else For i = 0 To Val(Text2(0).Text) - 1 For i1 = i * 8 To (i + 1) * 8 - 1 If (Combo1(0).Text = Y) Or (Combo1(0).Text = X) Then If (fxData.PLCdata(i) And 2 ^ (i1 - i * 8)) = 2 ^ (i1 - i * 8) Then List1(0).AddItem Combo1