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

📄 ad_form.frm

📁 此为用vb编写的usb高速数据采集实例 如果没有相应的驱动
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form AD_Form 
   Caption         =   "A/D数模转换16路"
   ClientHeight    =   9615
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   14640
   Icon            =   "AD_Form.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   641
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   976
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   8880
      Top             =   9120
   End
   Begin MSComDlg.CommonDialog NewDialog 
      Left            =   7080
      Top             =   9000
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      Caption         =   "数据处理方式"
      Height          =   1935
      Left            =   120
      TabIndex        =   29
      Top             =   7080
      Width           =   6615
      Begin VB.OptionButton 数据存盘 
         Caption         =   "数据存盘"
         Height          =   255
         Left            =   4680
         TabIndex        =   34
         Top             =   840
         Width           =   1095
      End
      Begin VB.OptionButton WaveShowOpt 
         Caption         =   "波形显示"
         Height          =   375
         Left            =   2880
         TabIndex        =   31
         Top             =   840
         Width           =   1335
      End
      Begin VB.OptionButton DigitOpt 
         Caption         =   "数字显示"
         Height          =   375
         Left            =   720
         TabIndex        =   30
         Top             =   840
         Width           =   1455
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "数据存盘进度显示"
      Height          =   1935
      Left            =   6840
      TabIndex        =   8
      Top             =   7080
      Width           =   7815
      Begin ComctlLib.ProgressBar ProgressBar 
         Height          =   255
         Left            =   1560
         TabIndex        =   54
         Top             =   1440
         Width           =   3375
         _ExtentX        =   5953
         _ExtentY        =   450
         _Version        =   327682
         Appearance      =   1
         Max             =   128
      End
      Begin ComctlLib.ProgressBar KW_ProgressBar 
         Height          =   255
         Left            =   1560
         TabIndex        =   33
         Top             =   840
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   450
         _Version        =   327682
         Appearance      =   1
         Max             =   128
      End
      Begin ComctlLib.ProgressBar MW_ProgressBar 
         Height          =   255
         Left            =   1560
         TabIndex        =   32
         Top             =   480
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   450
         _Version        =   327682
         Appearance      =   1
      End
      Begin VB.TextBox MW_Text 
         BackColor       =   &H80000000&
         Height          =   270
         Left            =   3960
         TabIndex        =   10
         Top             =   480
         Width           =   615
      End
      Begin VB.TextBox KW_Text 
         BackColor       =   &H80000000&
         Height          =   270
         Left            =   3960
         TabIndex        =   9
         Top             =   840
         Width           =   615
      End
      Begin VB.Label Label16 
         Caption         =   "数据采集进度"
         Height          =   255
         Left            =   360
         TabIndex        =   55
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "KW"
         Height          =   255
         Left            =   4680
         TabIndex        =   14
         Top             =   840
         Width           =   375
      End
      Begin VB.Label Label27 
         Caption         =   "全盘存储进度"
         Height          =   375
         Left            =   360
         TabIndex        =   13
         Top             =   480
         Width           =   1455
      End
      Begin VB.Label Label28 
         Caption         =   "每兆存储进度"
         Height          =   255
         Left            =   360
         TabIndex        =   12
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label29 
         Caption         =   "MW"
         Height          =   375
         Left            =   4680
         TabIndex        =   11
         Top             =   600
         Width           =   495
      End
   End
   Begin VB.TextBox Collect_Text 
      BackColor       =   &H80000000&
      Height          =   270
      Left            =   12360
      TabIndex        =   7
      Top             =   360
      Width           =   2295
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000007&
      FillColor       =   &H00C0C0C0&
      FillStyle       =   3  'Vertical Line
      ForeColor       =   &H80000009&
      Height          =   5895
      Left            =   6000
      ScaleHeight     =   389
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   572
      TabIndex        =   6
      Top             =   960
      Width           =   8640
   End
   Begin VB.ComboBox LastChannel_Combo 
      Height          =   300
      ItemData        =   "AD_Form.frx":0CCA
      Left            =   3480
      List            =   "AD_Form.frx":0CFE
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   360
      Width           =   855
   End
   Begin VB.ComboBox FirstChannel_Combo 
      Height          =   300
      ItemData        =   "AD_Form.frx":0D38
      Left            =   1800
      List            =   "AD_Form.frx":0D6C
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   360
      Width           =   855
   End
   Begin VB.CommandButton Stop_Command 
      Caption         =   "停止数据采集"
      Height          =   495
      Left            =   10680
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton Start_Command 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "开始数据采集"
      Height          =   495
      Left            =   9000
      TabIndex        =   0
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   15
      Left            =   3960
      TabIndex        =   53
      Top             =   5640
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   14
      Left            =   3960
      TabIndex        =   52
      Top             =   5040
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   13
      Left            =   3960
      TabIndex        =   51
      Top             =   4440
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   12
      Left            =   3960
      TabIndex        =   50
      Top             =   3840
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   11
      Left            =   3960
      TabIndex        =   49
      Top             =   3240
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   10
      Left            =   3960
      TabIndex        =   48
      Top             =   2640
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   9
      Left            =   3960
      TabIndex        =   47
      Top             =   2040
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   8
      Left            =   3960
      TabIndex        =   46
      Top             =   1440
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   7
      Left            =   1320
      TabIndex        =   45
      Top             =   5640
      Width           =   975
   End
   Begin VB.Label DstChannelText 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Index           =   6
      Left            =   1320
      TabIndex        =   44
      Top             =   5040
      Width           =   975
   End

⌨️ 快捷键说明

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