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

📄 usbio.frm

📁 USB上位机驱动的DEMO程序源代码,基于ARM或其它下位机的上位机驱动
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form USBIOCOMForm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "USBIOCOM Visual Basic Application"
   ClientHeight    =   6015
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9150
   Icon            =   "usbio.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6015
   ScaleWidth      =   9150
   Begin VB.Frame Frame1 
      Caption         =   "Dummy"
      Enabled         =   0   'False
      Height          =   135
      Index           =   0
      Left            =   9000
      TabIndex        =   187
      Top             =   5520
      Visible         =   0   'False
      Width           =   375
   End
   Begin ComctlLib.TabStrip TabStrip1 
      Height          =   5775
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   10186
      _Version        =   327682
      BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
         NumTabs         =   8
         BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Device"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Descriptor"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Interface"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Read"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab5 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Write"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab6 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Feature"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab7 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Class or Vendor Request"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab8 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Other"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame1 
      Height          =   5295
      Index           =   4
      Left            =   240
      TabIndex        =   83
      Top             =   480
      Visible         =   0   'False
      Width           =   8655
      Begin VB.Frame ReadStatistics 
         Caption         =   "Statistic Information"
         Height          =   3015
         Left            =   5400
         TabIndex        =   194
         Top             =   240
         Width           =   3135
         Begin VB.TextBox ReqFailC 
            Height          =   285
            Left            =   1800
            TabIndex        =   202
            Text            =   "0"
            Top             =   1920
            Width           =   1215
         End
         Begin VB.TextBox ReqSuccC 
            Height          =   285
            Left            =   1800
            TabIndex        =   201
            Text            =   "0"
            Top             =   1440
            Width           =   1215
         End
         Begin VB.TextBox RdTotalBytesC 
            Height          =   285
            Left            =   1800
            TabIndex        =   200
            Text            =   "0"
            Top             =   960
            Width           =   1215
         End
         Begin VB.TextBox RdDataRateC 
            Height          =   285
            Left            =   1800
            TabIndex        =   199
            Text            =   "0"
            Top             =   480
            Width           =   1215
         End
         Begin VB.Label RdReqFailL 
            Caption         =   "Requests failed"
            Height          =   255
            Left            =   120
            TabIndex        =   198
            Top             =   1920
            Width           =   1575
         End
         Begin VB.Label RdRequestsSuccL 
            Caption         =   "Requests succeeded"
            Height          =   255
            Left            =   120
            TabIndex        =   197
            Top             =   1440
            Width           =   1695
         End
         Begin VB.Label RdTotalBytesL 
            Caption         =   "Total Bytes"
            Height          =   255
            Left            =   120
            TabIndex        =   196
            Top             =   960
            Width           =   1335
         End
         Begin VB.Label RdDataRateL 
            Caption         =   "Data Rate"
            Height          =   255
            Left            =   120
            TabIndex        =   195
            Top             =   480
            Width           =   1455
         End
      End
      Begin VB.Timer ReadStTimer 
         Enabled         =   0   'False
         Interval        =   1000
         Left            =   7200
         Top             =   4560
      End
      Begin VB.CheckBox InOutputWindow 
         Caption         =   "Print to Output Window"
         Height          =   255
         Left            =   3120
         TabIndex        =   40
         Top             =   2400
         Width           =   2175
      End
      Begin ComctlLib.ProgressBar ProgressBar1 
         Height          =   255
         Left            =   120
         TabIndex        =   181
         Top             =   3360
         Width           =   8415
         _ExtentX        =   14843
         _ExtentY        =   450
         _Version        =   327682
         Appearance      =   1
         Max             =   1000
      End
      Begin VB.CommandButton showoutputwindow 
         Caption         =   "Output Window"
         Height          =   375
         Left            =   240
         TabIndex        =   44
         Top             =   4680
         Width           =   2055
      End
      Begin VB.CheckBox IsoCheck 
         Caption         =   "ISO"
         Height          =   255
         Left            =   1680
         TabIndex        =   35
         Top             =   960
         Width           =   975
      End
      Begin VB.TextBox StartReadFileField 
         Height          =   285
         Left            =   1680
         TabIndex        =   41
         Text            =   "dump.bin"
         Top             =   2760
         Width           =   2535
      End
      Begin VB.CheckBox StartReadCheck 
         Caption         =   "To File"
         Height          =   255
         Left            =   1680
         TabIndex        =   39
         Top             =   2400
         Value           =   1  'Checked
         Width           =   975
      End
      Begin VB.CommandButton Clear 
         Caption         =   "Clear Output Window"
         Height          =   375
         Left            =   2520
         TabIndex        =   45
         Top             =   4680
         Width           =   2055
      End
      Begin VB.CommandButton StopReading 
         Caption         =   "Stop Reading"
         Height          =   495
         Left            =   2880
         TabIndex        =   43
         Top             =   240
         Width           =   2295
      End
      Begin VB.TextBox ReadBufferSizeField 
         Height          =   285
         Left            =   1680
         Locked          =   -1  'True
         TabIndex        =   84
         TabStop         =   0   'False
         Top             =   4080
         Width           =   735
      End
      Begin VB.TextBox StartReadMaxErrorCountField 
         Height          =   285
         Left            =   1680
         TabIndex        =   38
         Text            =   "5"
         Top             =   2040
         Width           =   975
      End
      Begin VB.TextBox StartReadNumberOfBuffersField 
         Height          =   285
         Left            =   1680
         TabIndex        =   37
         Text            =   "5"
         Top             =   1680
         Width           =   975
      End
      Begin VB.TextBox StartReadBufferSizeField 
         Height          =   285
         Left            =   1680
         TabIndex        =   36
         Text            =   "64"
         Top             =   1320
         Width           =   975
      End
      Begin VB.CommandButton StartReading 
         Caption         =   "Start Reading"
         Height          =   495
         Left            =   240
         TabIndex        =   42
         Top             =   240
         Width           =   2295
      End
      Begin VB.Label Label1 
         Caption         =   "Filename"
         Height          =   255
         Left            =   120
         TabIndex        =   173
         Top             =   2760
         Width           =   1455
      End
      Begin VB.Label ReadBufferSizeLabel 
         Caption         =   "Bytes Returned"
         Height          =   255
         Left            =   120
         TabIndex        =   140
         Top             =   4080
         Width           =   1455
      End
      Begin VB.Label StartReadMaxErrorCountLabel 
         Caption         =   "Max Error Count"
         Height          =   255
         Left            =   120
         TabIndex        =   127
         Top             =   2040
         Width           =   1335
      End
      Begin VB.Label StartReadNumberOfBuffersLabel 
         Caption         =   "Number of Buffers"
         Height          =   255
         Left            =   120
         TabIndex        =   126
         Top             =   1680
         Width           =   1455
      End
      Begin VB.Label StartReadBufferSizeLabel 
         Caption         =   "Buffer Size"
         Height          =   255
         Left            =   120
         TabIndex        =   125
         Top             =   1320
         Width           =   1575
      End
   End
   Begin VB.Frame Frame1 
      Height          =   5295
      Index           =   8
      Left            =   240
      TabIndex        =   90
      Top             =   480
      Visible         =   0   'False
      Width           =   8655
      Begin VB.Frame BWInfo 
         Caption         =   "Bandwidth Information"
         Height          =   975
         Left            =   240
         TabIndex        =   188
         Top             =   3960
         Width           =   8175
         Begin VB.TextBox ConsumedBwEdit 
            Height          =   285
            Left            =   6720
            TabIndex        =   191
            Top             =   360
            Width           =   1215
         End
         Begin VB.TextBox TotalBwEdit 
            Height          =   285
            Left            =   3480
            TabIndex        =   190
            Top             =   360
            Width           =   1215
         End
         Begin VB.CommandButton GetBwInfo 
            Caption         =   "Get"
            Height          =   375
            Left            =   240
            TabIndex        =   189
            Top             =   360
            Width           =   1335
         End
         Begin VB.Label ConsumedBwL 
            Caption         =   "Consumed Bandwidth"
            Height          =   255
            Left            =   4920
            TabIndex        =   193
            Top             =   360
            Width           =   1695
         End
         Begin VB.Label TotalBwL 
            Caption         =   "Total Bandwidth"
            Height          =   255
            Left            =   1920
            TabIndex        =   192
            Top             =   360
            Width           =   1455
         End
      End
      Begin VB.TextBox FrameNumberField 
         Height          =   285
         Left            =   6600
         Locked          =   -1  'True
         TabIndex        =   91
         TabStop         =   0   'False
         Top             =   2400
         Width           =   1575

⌨️ 快捷键说明

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