startup.frm

利用psoc进行usb及capsense的程序编写

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form StartUp 
   BackColor       =   &H00FF8080&
   Caption         =   "Example 3: Process Monitoring"
   ClientHeight    =   5655
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8865
   LinkTopic       =   "Form1"
   ScaleHeight     =   5655
   ScaleWidth      =   8865
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer 
      Interval        =   1000
      Left            =   120
      Top             =   4200
   End
   Begin MSComDlg.CommonDialog CD 
      Left            =   120
      Top             =   4800
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      DefaultExt      =   "dat"
      Filter          =   "Data Files|*.dat"
      FilterIndex     =   1
   End
   Begin VB.PictureBox Graph 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H80000008&
      Height          =   2560
      Left            =   720
      ScaleHeight     =   2535
      ScaleWidth      =   6225
      TabIndex        =   14
      Top             =   840
      Width           =   6250
   End
   Begin VB.TextBox Message 
      Height          =   285
      Left            =   840
      TabIndex        =   13
      Text            =   "Text1"
      Top             =   5040
      Width           =   7215
   End
   Begin VB.CommandButton Exit 
      Caption         =   "Exit"
      Height          =   495
      Left            =   7080
      TabIndex        =   12
      Top             =   4320
      Width           =   975
   End
   Begin VB.CommandButton Continuous 
      Caption         =   "Continuous Samples"
      Height          =   495
      Left            =   5520
      TabIndex        =   11
      Top             =   4320
      Width           =   975
   End
   Begin VB.CommandButton GetSamples 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Get Samples"
      Height          =   495
      Left            =   3960
      TabIndex        =   10
      Top             =   4320
      Width           =   975
   End
   Begin VB.CommandButton Load 
      Caption         =   "Load"
      Height          =   495
      Left            =   2400
      TabIndex        =   9
      Top             =   4320
      Width           =   975
   End
   Begin VB.CommandButton Save 
      Caption         =   "Save"
      Height          =   495
      Left            =   840
      TabIndex        =   8
      Top             =   4320
      Width           =   975
   End
   Begin VB.VScrollBar SampleRate 
      Height          =   2655
      Left            =   7560
      Max             =   255
      Min             =   1
      TabIndex        =   4
      Top             =   720
      Value           =   1
      Width           =   255
   End
   Begin VB.Image Image2 
      Height          =   270
      Left            =   4920
      Picture         =   "StartUp.frx":0000
      Top             =   3460
      Width           =   270
   End
   Begin VB.Image Image1 
      Height          =   270
      Left            =   340
      Picture         =   "StartUp.frx":1550
      Top             =   720
      Width           =   270
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "High"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   7800
      TabIndex        =   7
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Low"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   7800
      TabIndex        =   6
      Top             =   3120
      Width           =   735
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Sample Rate"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   6840
      TabIndex        =   5
      Top             =   360
      Width           =   1815
   End
   Begin VB.Label Maximum 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "256 msec"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   6120
      TabIndex        =   3
      Top             =   3480
      Width           =   1815
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   3480
      Width           =   375
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      X1              =   3120
      X2              =   4920
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Time"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   3120
      TabIndex        =   1
      Top             =   3600
      Width           =   1815
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   480
      X2              =   480
      Y1              =   3240
      Y2              =   840
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Temperature"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   120