fomerror.frm

这个程序包的主要功能是对多台5101b进行功能化测试

VERSION 4.00
Begin VB.Form fomerror 
   Caption         =   "ERROR"
   ClientHeight    =   2085
   ClientLeft      =   1710
   ClientTop       =   1020
   ClientWidth     =   5010
   Height          =   2490
   Left            =   1650
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   2085
   ScaleWidth      =   5010
   Top             =   675
   Width           =   5130
   Begin VB.TextBox txterror 
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   400
         size            =   9.75
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   2085
      Left            =   0
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   0
      Width           =   5055
   End
End
Attribute VB_Name = "fomerror"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Form_Load()
Dim p As Integer
Dim dcvnullflag, dcinullflag, ohmnullflag, acvnullflag As Integer
 
   fomerror.Width = mdifomtest.ScaleWidth / 2.0001
   fomerror.Height = mdifomtest.ScaleHeight
   fomerror.Left = mdifomtest.ScaleWidth / 2
   fomerror.Top = 0
   
   For t = 1 To Number
   For p = 1 To 12
       If chdcvFS(t, p) = "" Then
          dcvnullflag = 1
          Exit For
       End If
   Next p
   Next t
   
   For t = 1 To Number
   For p = 1 To 5
       If chdciFS(t, p) = "" Then
          dcinullflag = 1
          Exit For
       End If
   Next p
   Next t
   
   For t = 1 To Number
   For p = 1 To 8
       If chohmFS(t, p) = "" Then
          ohmnullflag = 1
          Exit For
       End If
   Next p
   Next t
   
   For t = 1 To Number
   For p = 1 To 10
       If chacvFS(t, p) = "" Then
          acvnullflag = 1
          Exit For
       End If
   Next p
   Next t
   
   'dcv check data
 If dcvnullflag <> 1 Then
   
   txterror.Text = txterror.Text & "out dcv spec:" & Chr(13) & Chr(10)
   For t = 1 To Number
   For p = 1 To 6
      If CSng(Trim(chdcvFS(t, p))) > chdcv(p) * (1 + 0.006 / 100) + 5 / 1000000 Or _
         CSng(Trim(chdcvFS(t, p))) < chdcv(p) * (1 - 0.006 / 100) - 5 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chdcvFS(t, p), 16) & "V" & Chr(13) & Chr(10)
      End If
   Next p

   For p = 1 To 6
      If Abs(CSng(Trim(chdcvFS(t, p + 6)))) > chdcv(p) * (1 + 0.006 / 100) + 5 / 1000000 Or _
         Abs(CSng(Trim(chdcvFS(t, p + 6)))) < chdcv(p) * (1 - 0.006 / 100) - 5 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chdcvFS(t, p + 6), 16) & "V" & Chr(13) & Chr(10)
      End If
   Next p
   Next t
 End If
   
   'acv check data
 If acvnullflag <> 1 Then

   txterror.Text = txterror.Text & "out acv spec:" & Chr(13) & Chr(10)

   txterror.Text = txterror.Text & "- 1kHz" & Chr(13) & Chr(10)
   For t = 1 To Number
   For p = 1 To 4
      If CSng(Trim(chacvFS(t, p))) > chacv(p) * (1 + 0.055 / 100) + 50 / 1000000 Or _
         CSng(Trim(chacvFS(t, p))) < chacv(p) * (1 - 0.055 / 100) - 50 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chacvFS(t, p), 16) & "V" & Chr(13) & Chr(10)
      End If
   Next p
   For p = 5 To 5
      If CSng(Trim(chacvFS(t, p))) > chacv(p) * (1 + 0.05 / 100) + 100 * 0.005 / 100 + 50 / 1000000 Or _
         CSng(Trim(chacvFS(t, p))) < chacv(p) * (1 - 0.05 / 100) - 100 * 0.005 / 100 - 50 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chacvFS(t, p), 16) & "V" & Chr(13) & Chr(10)
      End If
   Next p
   Next t
   
   
   txterror.Text = txterror.Text & "- 10kHz" & Chr(13) & Chr(10)
   For t = 1 To Number
   For p = 1 To 4
      If CSng(Trim(chacvFS(t, p + 5))) > chacv(p) * (1 + 0.055 / 100) + 50 / 1000000 Or _
         CSng(Trim(chacvFS(t, p + 5))) < chacv(p) * (1 - 0.055 / 100) - 50 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chacvFS(t, p + 5), 16) & "V" & Chr(13) & Chr(10)
      End If
   Next p
   For p = 5 To 5
      If CSng(Trim(chacvFS(t, p + 5))) > chacv(p) * (1 + 0.05 / 100) + 100 * 0.005 / 100 + 50 / 1000000 Or _
         CSng(Trim(chacvFS(t, p + 5))) < chacv(p) * (1 - 0.05 / 100) - 100 * 0.005 / 100 - 50 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chacvFS(t, p + 5), 16) & "V" & Chr(13) & Chr(10)
      End If
   Next p
   Next t
 End If
   
   'ohm check data
 If ohmnullflag <> 1 Then

   txterror.Text = txterror.Text & "out ohm spec:" & Chr(13) & Chr(10)
   For t = 1 To Number
   For p = 1 To 8
      If CSng(Trim(chohmFS(t, p))) > chohm(p) * (1 + specohm2(p) / 100) Or _
         CSng(Trim(chohmFS(t, p))) < chohm(p) * (1 - specohm2(p) / 100) Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chohmFS(t, p), 16) & "ohm" & Chr(13) & Chr(10)
      End If
   Next p
   Next t
 End If
  
  'dci check data
If dcinullflag <> 1 Then
   
  txterror.Text = txterror.Text & "out dci spec:" & Chr(13) & Chr(10)
  For t = 1 To Number
  For p = 1 To 4
     If CSng(Trim(chdciFS(t, p))) > chdci(p) * (1 + 0.0275 / 100) + 0.01 / 1000000 Or _
        CSng(Trim(chdciFS(t, p))) < chdci(p) * (1 - 0.0275 / 100) - 0.01 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chdciFS(t, p), 16) & "A" & Chr(13) & Chr(10)
     End If
  Next p
  For p = 5 To 5
     If CSng(Trim(chdciFS(t, p))) > chdci(p) * (1 + 0.025 / 100) + 1.9 * 0.0025 / 100 + 0.01 / 1000000 Or _
        CSng(Trim(chdciFS(t, p))) < chdci(p) * (1 - 0.025 / 100) - 1.9 * 0.0025 / 100 - 0.01 / 1000000 Then
              txterror.Text = txterror.Text & "(" & t & ")" & Left(chdciFS(t, p), 16) & "A" & Chr(13) & Chr(10)
     End If
  Next p
  Next t
  
End If
   
End Sub


Private Sub Form_Resize()
   'lsterror.Height = fomerror.ScaleHeight
   'lsterror.Width = fomerror.ScaleWidth
   txterror.Height = fomerror.ScaleHeight
   txterror.Width = fomerror.ScaleWidth

End Sub