modified.bas

回流焊监控系统-DCS,VB编写,对PLC进行通讯采集和控制,界面直观,操作方便,可以作为同类软件系统提供示范

Attribute VB_Name = "modified"
'
'Private Sub ShowMoveBlockL(ByVal Speed As Long)
'  Dim i As Long, j As Long, k As Long, l As Long
'  On Error Resume Next
'  Dim tt As Single
'  Static lastT As Single
'  If lastT < 1 Then
'
'  End If
'  tt = Timer
'  j = UBound(MoveB)
'  For i = 1 To j Step 1
'    If spTran(MoveB(i).Index).Visible Then
'         If tt - MoveB(i).startT < 0 Then
'            MoveB(i).startT = 0
'         End If
'         MoveB(i).iCurentLeft = picTran.Width - (tt - MoveB(i).startT) * Speed
'         If MoveB(i).iCurentLeft <= -480 Then
'           spTran(MoveB(i).Index).Visible = False
'         End If
'    End If
'   End If
'  Next
'  For i = 0 To j
'    If spTran(MoveB(i).Index).Visible Then
'        l = spTran(MoveB(i).Index).Left
'        For k = l To MoveB(i).iCurentLeft
'          spTran(MoveB(i).Index).Left = k
'          DoEvents
'        Next
'    End If
'  Next
'End Sub
'Private Sub ShowMoveBlockR(ByVal Speed As Long)
'  Dim i As Long, j As Long
'  On Error Resume Next
'  Dim tt As Single
'  tt = Timer
'  j = UBound(MoveB)
'  For i = 1 To j Step 1
'   If Not bFlag Then
'     If spTran(MoveB(i).Index).Visible Then
'         If tt - MoveB(i).startT < 0 Then
'            MoveB(i).startT = 0
'         End If 'spTran(MoveB(i).Index).Left
'         MoveB(i).iCurentLeft = spTran(MoveB(i).Index).Left + (tt - MoveB(i).startT) * Speed  ' - 255
'         MoveB(i).startT = tt
'         If MoveB(i).iCurentLeft >= Val(picTran.Width) Then
'           spTran(MoveB(i).Index).Visible = False
'         End If
'     End If
'   Else
'    If spTran(MoveB(i).Index).Visible Then
'         If tt - MoveB(i).startT < 0 Then
'            MoveB(i).startT = 0
'         End If
'         MoveB(i).iCurentLeft = picTran.Width - (tt - MoveB(i).startT) * Speed
'         If MoveB(i).iCurentLeft <= -480 Then
'           spTran(MoveB(i).Index).Visible = False
'         End If
'    End If
'   End If
'  Next
'  For i = 0 To j
'
'  Next
'
'End Sub


'Private Sub ShowMoveBlock(ByVal Speed As Long, ByVal bFlag As Long)
'  Dim i As Long, j As Long
'  On Error Resume Next
'  Dim tt As Single
'  tt = Timer
'  j = UBound(MoveB)
'  For i = 1 To j Step 1
'   If Not bFlag Then
'     If spTran(MoveB(i).Index).Visible Then
''         If tt - MoveB(i).startT < 0 Then
''            MoveB(i).startT = 0
''         End If 'spTran(MoveB(i).Index).Left
'         MoveB(i).iCurentLeft = spTran(MoveB(i).Index).Left + (tt - MoveB(i).startT) * Speed  ' - 255
'         MoveB(i).startT = tt
'         If Val(spTran(MoveB(i).Index).Left) >= Val(picTran.Width) Then
'           spTran(MoveB(i).Index).Visible = False
'         End If
'     End If
'   Else
'    If spTran(MoveB(i).Index).Visible Then
''         If tt - MoveB(i).startT < 0 Then
''            MoveB(i).startT = 0
''         End If
'         MoveB(i).iCurentLeft = picTran.Width - (tt - MoveB(i).startT) * Speed
''         If spTran(MoveB(i).Index).Left <= -480 Then
''           spTran(MoveB(i).Index).Visible = False
''         End If
'    End If
'   End If
'  Next
'  For i = 0 To j
'
'  Next
'
'End Sub
'For i = 0 To txtUT.UBound
'    txtUT(i).Text = ReadInIFiles("ParaSet", "UT" & CStr(i), "0.0", iniFile)
'Next
'For i = 0 To txtDT.UBound
'    txtDT(i).Text = ReadInIFiles("ParaSet", "DT" & CStr(i), "0.0", iniFile)
'Next
'For i = 0 To txtFj.UBound
'    txtFj(i).Text = ReadInIFiles("ParaSet", "FJ" & CStr(i), "0", iniFile)
'Next