test.frm

PCI1713板卡驱动,VB编写,8个通道,每个通道500次采样,对采样数据处理,为稳定现场信号的不稳定性

VERSION 5.00
Begin VB.Form Test 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "MCGS设备构件测试"
   ClientHeight    =   2175
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3705
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2175
   ScaleWidth      =   3705
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox Text1 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   300
      TabIndex        =   2
      Top             =   900
      Width           =   3105
   End
   Begin VB.CommandButton Cmd_Test 
      Caption         =   "设备构件运行环境接口测试"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   300
      TabIndex        =   1
      Top             =   1440
      Width           =   3105
   End
   Begin VB.CommandButton Cmd_SetPro 
      Caption         =   "设备构件组态环境接口测试"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   300
      TabIndex        =   0
      Top             =   270
      Width           =   3105
   End
End
Attribute VB_Name = "Test"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DatObj    As Object
Dim svrSave   As Object
Dim DDevObj   As Object

Dim flag As Long

Private Sub Cmd_SetPro_Click()
  On Error Resume Next
  If flag <> 1 Then
     flag = 1
     QueryDevObj DatObj, DDevObj
     DDevObj.InitNewDev svrSave
     GetDevObjProperty DatObj, DDevObj
  End If
  
  DDevObj.InitDevSet svrSave, DatObj
  Text1.Text = DDevObj.GetDevName()
  
  Dim dlg As TestSet
  Set dlg = New TestSet
  Set dlg.DatObj = DatObj
  Set dlg.DDevObj = DDevObj
  Set dlg.SavObj = svrSave
  dlg.Show 1
  
  SetDevObjProperty DatObj, DDevObj
  GetDevObjProperty DatObj, DDevObj
End Sub

Private Sub Cmd_Test_Click()
  On Error Resume Next
  Dim i As Long
  
  If flag <> 1 Then
     flag = 1
     QueryDevObj DatObj, DDevObj
     DDevObj.InitNewDev svrSave
     DDevObj.InitDevSet svrSave, DatObj
     GetDevObjProperty DatObj, DDevObj
  End If
  
  i = DDevObj.InitDevRun(DatObj, svrSave)
  
  If i <> 0 Then
     MsgBox "初始化硬件设备失败!", 48, "注  意"
     Exit Sub
  End If
  
  Dim dlg As TestRun
  Set dlg = New TestRun
  Set dlg.DatObj = DatObj
  Set dlg.DDevObj = DDevObj
  dlg.Show 1
End Sub

Private Sub Form_Load()
  On Error Resume Next
  Dim i As Long, DatSetObj As Object
  For i = 0 To Me.Controls.Count - 1
      Me.Controls(i).Font.Bold = False
  Next i
  
  Err.Clear
  Set DatSetObj = GetObject(, "McgsSet.DataCentre")

  If Err.Number <> 0 Then
     MsgBox "创建MCGS对象失败!请先启动MCGS组态环境.", 48, "注  意"
     End
  End If
  
  Set DatObj = GetObject(, "McgsRun.DataCentre")
  If Err Then Set DatObj = DatSetObj
  
  Set DDevObj = New DevObj
  Set svrSave = DatObj.SvrPackage
End Sub