frmprocessing.frm

电力机车牵引变压器试验站总控程序

VERSION 5.00
Begin VB.Form frmProcessing 
   BorderStyle     =   0  'None
   ClientHeight    =   855
   ClientLeft      =   210
   ClientTop       =   1365
   ClientWidth     =   3855
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmProcessing.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   3855
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Height          =   810
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3840
      Begin VB.Timer Timer2 
         Left            =   0
         Top             =   120
      End
      Begin VB.Timer Timer1 
         Left            =   360
         Top             =   120
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   195
         Left            =   960
         TabIndex        =   1
         Top             =   360
         Width           =   45
      End
   End
End
Attribute VB_Name = "frmProcessing"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim errCount As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
    Label1.Caption = "正在处理操作，请等待............"
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    On Error GoTo ErrorHandler
    errCount = errCount + 1
    If errCount > 10 Then
        MsgBox "操作失败!", 0 + 0 + 48, "警告"
        errCount = 0
        Unload Me
    End If
'    Timer1.Enabled = False
'    If Not frmMain.MSComm1(portPLC).PortOpen Then
'        frmMain.MSComm1(portPLC).PortOpen = True
'    End If
    
'    Timer2.Interval = 1000
'    Timer2.Enabled = True
    Exit Sub
    
ErrorHandler:
   Select Case Err.Number
      Case 8005
        MsgBox "串口" & frmMain.MSComm1(portPLC).commPort & "已被占用，请检查！"
        Err.Clear
        Unload frmProcessing
        Exit Sub
      Case 8002
        MsgBox "串口" & frmMain.MSComm1(portPLC).commPort & "不存在，请检查！"
        Err.Clear
        Unload frmProcessing
        Exit Sub
      Case Else
        MsgBox "unknown error"
        Err.Clear
        Exit Sub
   End Select
   Resume
End Sub

Private Sub Timer2_Timer()
    On Error GoTo ErrorHandler
    Dim x As Long
    x = InStr(1, strHex(portPLC), "008FFF", vbTextCompare)
    If x <> 0 Then
        Timer2.Enabled = False
'        intReceiveLen = 0
'        intPort = 2
'        intTime = 1000
'        strSet = "9600,n,8,1"
        
'        Dim n As Integer
    
'        For n = 1 To 2
'            If Not frmMain.MSComm1(n).PortOpen Then
'                frmMain.MSComm1(n).InBufferSize = 1024
'                frmMain.MSComm1(n).OutBufferSize = 512
'                frmMain.ctrMSComm(index).CommPort = intPort
'                frmMain.MSComm1(n).Settings = strSet
'                frmMain.MSComm1(n).PortOpen = True
'            End If
           
'            frmMain.MSComm1(n).InputLen = 0
'            frmMain.MSComm1(n).InputMode = 0
            
        
'            frmMain.MSComm1(n).InBufferCount = 0
'            frmMain.MSComm1(n).RThreshold = 1
'            Next n
        strHex(portPLC) = ""
        Unload frmProcessing
    Else
    End If
        Exit Sub
    
ErrorHandler:
   Select Case Err.Number
      Case 8005
        MsgBox "串口" & n & "已被占用，请检查！"
        Err.Clear
        Unload frmProcessing
        Exit Sub
      Case 8002
        MsgBox "串口" & frmMain.MSComm1(n).commPort & "不存在，请检查！"
        Err.Clear
        Unload frmProcessing
        Exit Sub
      Case Else
        MsgBox "未知错误"
        Err.Clear
        Unload frmProcessing
        Exit Sub
   End Select
   Resume
End Sub