⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmaotester.frm

📁 使用研华DAQ实现研华数据采集卡的多种功能。包括数据输入输出等。内含多个源码
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{0970DD26-8809-11D2-A9B8-002018650913}#1.1#0"; "adaout.ocx"
Begin VB.Form frmAoTester 
   Caption         =   "Ao Tester"
   ClientHeight    =   5730
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7635
   LinkTopic       =   "Form1"
   ScaleHeight     =   5730
   ScaleWidth      =   7635
   StartUpPosition =   2  'CenterScreen
   Begin DAQAOLib.DAQAO DAQAO1 
      Height          =   495
      Left            =   6600
      TabIndex        =   35
      Top             =   240
      Width           =   495
      _Version        =   65537
      _ExtentX        =   864
      _ExtentY        =   864
      _StockProps     =   0
   End
   Begin VB.Frame Frame4 
      Caption         =   "Output:"
      Height          =   4125
      Left            =   3600
      TabIndex        =   19
      Top             =   1440
      Width           =   3852
      Begin VB.Frame Frame3 
         Caption         =   "Error Message"
         Height          =   1215
         Left            =   120
         TabIndex        =   30
         Top             =   2760
         Width           =   3495
         Begin VB.Timer ErrorTimer 
            Interval        =   1000
            Left            =   2760
            Top             =   240
         End
         Begin VB.TextBox txtErrorMessage 
            Enabled         =   0   'False
            Height          =   285
            Left            =   1200
            TabIndex        =   34
            Top             =   720
            Width           =   2055
         End
         Begin VB.TextBox txtErrorCode 
            Enabled         =   0   'False
            Height          =   285
            Left            =   1200
            TabIndex        =   33
            Top             =   360
            Width           =   1215
         End
         Begin VB.Label Label13 
            Caption         =   "Message:"
            Height          =   255
            Left            =   240
            TabIndex        =   32
            Top             =   720
            Width           =   855
         End
         Begin VB.Label Label12 
            Caption         =   "Error Code:"
            Height          =   255
            Left            =   240
            TabIndex        =   31
            Top             =   360
            Width           =   855
         End
      End
      Begin VB.TextBox txtStatus 
         Enabled         =   0   'False
         Height          =   285
         Left            =   240
         TabIndex        =   29
         Top             =   2400
         Width           =   1095
      End
      Begin VB.CommandButton cmdStatus 
         Caption         =   "Status"
         Height          =   375
         Left            =   240
         TabIndex        =   28
         Top             =   1920
         Width           =   1095
      End
      Begin VB.CommandButton cmdOutputStop 
         Caption         =   "St&op"
         Enabled         =   0   'False
         Height          =   375
         Left            =   240
         TabIndex        =   23
         ToolTipText     =   "Stop Auto Scan"
         Top             =   960
         Width           =   1095
      End
      Begin VB.CommandButton cmdOutputStart 
         Caption         =   "St&art"
         Height          =   375
         Left            =   240
         TabIndex        =   22
         ToolTipText     =   "Star Auto Scan"
         Top             =   375
         Width           =   1095
      End
      Begin VB.ListBox lstWritting 
         Height          =   2205
         Left            =   1515
         TabIndex        =   21
         Top             =   510
         Width           =   2100
      End
      Begin VB.CheckBox chkEventEnabled 
         Caption         =   "Event Enabled"
         Height          =   315
         Left            =   105
         TabIndex        =   20
         Top             =   1440
         Width           =   1365
      End
      Begin VB.Label Label10 
         Caption         =   "Writting :"
         Height          =   270
         Left            =   1515
         TabIndex        =   36
         Top             =   195
         Width           =   720
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Property Settings:"
      Height          =   4095
      Left            =   120
      TabIndex        =   7
      Top             =   1440
      Width           =   3255
      Begin VB.TextBox txtNumberOfOutputs 
         Height          =   285
         Left            =   1440
         TabIndex        =   27
         Top             =   2280
         Width           =   975
      End
      Begin VB.CheckBox chkCyclicMode 
         Alignment       =   1  'Right Justify
         Caption         =   "Cyclic Mode"
         Height          =   345
         Left            =   120
         TabIndex        =   24
         Top             =   3240
         Width           =   1500
      End
      Begin VB.ComboBox cmbOutputRange 
         Height          =   315
         ItemData        =   "frmAoTester.frx":0000
         Left            =   1440
         List            =   "frmAoTester.frx":000A
         TabIndex        =   18
         Text            =   "5"
         Top             =   2760
         Width           =   972
      End
      Begin VB.ComboBox cmbChannel 
         Height          =   315
         ItemData        =   "frmAoTester.frx":0015
         Left            =   1440
         List            =   "frmAoTester.frx":0017
         TabIndex        =   16
         Text            =   "0"
         Top             =   360
         Width           =   1575
      End
      Begin VB.TextBox txtOutputRate 
         Alignment       =   1  'Right Justify
         Height          =   315
         Left            =   1440
         TabIndex        =   13
         Text            =   "100"
         ToolTipText     =   "Sample rate"
         Top             =   1800
         Width           =   975
      End
      Begin VB.ComboBox cmbDataType 
         Height          =   315
         ItemData        =   "frmAoTester.frx":0019
         Left            =   1440
         List            =   "frmAoTester.frx":0023
         TabIndex        =   9
         ToolTipText     =   "Device Data ype"
         Top             =   840
         Width           =   1605
      End
      Begin VB.ComboBox cmbTransferMode 
         Height          =   315
         ItemData        =   "frmAoTester.frx":003C
         Left            =   1440
         List            =   "frmAoTester.frx":0049
         TabIndex        =   8
         ToolTipText     =   "Data transfer mode"
         Top             =   1320
         Width           =   1605
      End
      Begin VB.Label Label11 
         Caption         =   "Hz"
         Height          =   255
         Left            =   2520
         TabIndex        =   26
         Top             =   1800
         Width           =   375
      End
      Begin VB.Label Label9 
         Caption         =   "V"
         Height          =   255
         Left            =   2640
         TabIndex        =   25
         Top             =   2760
         Width           =   255
      End
      Begin VB.Label Label8 
         Caption         =   "Output Range:"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   2760
         Width           =   1215
      End
      Begin VB.Label Label6 
         Caption         =   "Channel:"
         Height          =   252
         Left            =   120
         TabIndex        =   15
         Top             =   360
         Width           =   732
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "Output Rate :"
         Height          =   195
         Left            =   120
         TabIndex        =   14
         Top             =   1800
         Width           =   1080
      End
      Begin VB.Label Label3 
         Caption         =   "Output Numbers:"
         Height          =   252
         Left            =   120
         TabIndex        =   12
         Top             =   2280
         Width           =   1212
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "Data Type :"
         Height          =   192
         Left            =   120
         TabIndex        =   11
         Top             =   840
         Width           =   840
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "Transfer mode :"
         Height          =   192
         Left            =   120
         TabIndex        =   10
         Top             =   1320
         Width           =   1116
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Select Device :"
      Height          =   1185
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   5655
      Begin VB.TextBox txtDeviceNum 
         Height          =   285
         Left            =   1320
         TabIndex        =   4
         Text            =   "-100"
         ToolTipText     =   "Device Number"
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox txtDeviceName 
         Height          =   285
         Left            =   1320
         TabIndex        =   3

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -