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

📄 vb9111s.frm

📁 PCI9111卡的采集例子程序
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 4.00
Begin VB.Form int9111 
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   Caption         =   "PCI-9111 AutoScan Interrupt Transfer"
   ClientHeight    =   5025
   ClientLeft      =   1650
   ClientTop       =   2490
   ClientWidth     =   7665
   BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H0000FFFF&
   Height          =   5430
   Left            =   1590
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   7665
   Top             =   2145
   Width           =   7785
   Begin VB.CommandButton btnExit 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Exit"
      Height          =   375
      Left            =   6360
      TabIndex        =   5
      Top             =   4320
      Width           =   1005
   End
   Begin VB.CommandButton btnStop 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Stop"
      Height          =   375
      Left            =   5280
      TabIndex        =   4
      Top             =   4320
      Width           =   1005
   End
   Begin VB.CommandButton btnStart 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Start"
      Height          =   375
      Left            =   4080
      TabIndex        =   3
      Top             =   4320
      Width           =   1005
   End
   Begin VB.Frame frmData 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Data Size"
      ForeColor       =   &H00FF0000&
      Height          =   615
      Left            =   1920
      TabIndex        =   2
      Top             =   4200
      Width           =   1935
      Begin VB.ComboBox cobData 
         Appearance      =   0  'Flat
         Height          =   315
         Left            =   120
         Style           =   2  'Dropdown List
         TabIndex        =   18
         Top             =   240
         Width           =   975
      End
      Begin VB.Label labData 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "samples"
         ForeColor       =   &H0000FFFF&
         Height          =   255
         Left            =   1155
         TabIndex        =   19
         Top             =   240
         Width           =   720
      End
   End
   Begin VB.Frame frmSample 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Sampling Rate"
      ForeColor       =   &H00FF0000&
      Height          =   615
      Left            =   120
      TabIndex        =   1
      Top             =   4200
      Width           =   1700
      Begin VB.ComboBox cobSample 
         Appearance      =   0  'Flat
         Height          =   315
         Left            =   120
         Style           =   2  'Dropdown List
         TabIndex        =   17
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "KHz"
         ForeColor       =   &H0000FFFF&
         Height          =   255
         Left            =   1150
         TabIndex        =   20
         Top             =   260
         Width           =   450
      End
   End
   Begin VB.Frame intFrame 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Interrupt Input(A/D)"
      ForeColor       =   &H00FF0000&
      Height          =   3435
      Left            =   120
      TabIndex        =   0
      Top             =   420
      Width           =   7455
      Begin VB.Frame Frame1 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "Channel"
         ForeColor       =   &H00FF0000&
         Height          =   615
         Left            =   5880
         TabIndex        =   29
         Top             =   2100
         Width           =   1380
         Begin VB.ComboBox cobChn 
            Appearance      =   0  'Flat
            Height          =   315
            Left            =   100
            Style           =   2  'Dropdown List
            TabIndex        =   30
            Top             =   240
            Width           =   1200
         End
      End
      Begin VB.Frame frmRange 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "Range"
         ForeColor       =   &H00FF0000&
         Height          =   615
         Left            =   5880
         TabIndex        =   8
         Top             =   2700
         Width           =   1380
         Begin VB.ComboBox cobRange 
            Appearance      =   0  'Flat
            Height          =   315
            Left            =   100
            Style           =   2  'Dropdown List
            TabIndex        =   16
            Top             =   240
            Width           =   1200
         End
      End
      Begin VB.Frame frmChannel 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         ForeColor       =   &H00FF0000&
         Height          =   1755
         Left            =   5880
         TabIndex        =   7
         Top             =   300
         Width           =   1380
         Begin VB.Label Label2 
            Caption         =   "7"
            Height          =   195
            Index           =   7
            Left            =   780
            TabIndex        =   28
            Top             =   1320
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "6"
            Height          =   195
            Index           =   6
            Left            =   780
            TabIndex        =   27
            Top             =   960
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "5"
            Height          =   195
            Index           =   5
            Left            =   780
            TabIndex        =   26
            Top             =   600
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "4"
            Height          =   195
            Index           =   4
            Left            =   780
            TabIndex        =   25
            Top             =   240
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "3"
            Height          =   195
            Index           =   3
            Left            =   120
            TabIndex        =   24
            Top             =   1320
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "2"
            Height          =   195
            Index           =   2
            Left            =   120
            TabIndex        =   23
            Top             =   960
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "1"
            Height          =   195
            Index           =   1
            Left            =   120
            TabIndex        =   22
            Top             =   600
            Width           =   135
         End
         Begin VB.Label Label2 
            Caption         =   "0"
            Height          =   195
            Index           =   0
            Left            =   120
            TabIndex        =   21
            Top             =   240
            Width           =   135
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H0000FF00&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   7
            Left            =   960
            Top             =   1320
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H00FFFF00&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   6
            Left            =   960
            Top             =   960
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H00FF00FF&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   5
            Left            =   960
            Top             =   600
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H000080FF&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   4
            Left            =   960
            Top             =   240
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H00008000&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   3
            Left            =   300
            Top             =   1320
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H00FF0000&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   2
            Left            =   300
            Top             =   960
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H000000FF&
            FillStyle       =   0  'Solid
            Height          =   255
            Index           =   1
            Left            =   300
            Top             =   600
            Width           =   195
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H0000FFFF&
            FillColor       =   &H0000FFFF&

⌨️ 快捷键说明

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