form1.frm

一款简易的示波器程序

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   7455
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10140
   LinkTopic       =   "Form1"
   ScaleHeight     =   7455
   ScaleWidth      =   10140
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   120
      TabIndex        =   24
      Text            =   "16"
      Top             =   6330
      Width           =   855
   End
   Begin VB.OptionButton Option1 
      Caption         =   "其它码"
      Height          =   225
      Index           =   1
      Left            =   5730
      TabIndex        =   23
      Top             =   450
      Width           =   915
   End
   Begin VB.OptionButton Option1 
      Caption         =   "遥控码"
      Height          =   225
      Index           =   0
      Left            =   5730
      TabIndex        =   22
      Top             =   120
      Width           =   885
   End
   Begin VB.CommandButton Command12 
      Caption         =   "测量下一个低电平"
      Height          =   330
      Left            =   3300
      TabIndex        =   21
      Top             =   6900
      Width           =   1635
   End
   Begin VB.CommandButton Command11 
      Caption         =   "测量下一个高电平"
      Height          =   330
      Left            =   1590
      TabIndex        =   20
      Top             =   6900
      Width           =   1635
   End
   Begin VB.CommandButton Command10 
      Caption         =   "连续截图"
      DownPicture     =   "Form1.frx":0000
      Height          =   330
      Left            =   7170
      TabIndex        =   19
      Top             =   540
      Width           =   945
   End
   Begin VB.CommandButton Command9 
      Caption         =   "图像左移"
      Height          =   330
      Left            =   5100
      TabIndex        =   18
      Top             =   6900
      Width           =   945
   End
   Begin VB.CommandButton Command8 
      Caption         =   "图像右移"
      Height          =   330
      Left            =   6150
      TabIndex        =   17
      Top             =   6900
      Width           =   945
   End
   Begin VB.CheckBox Check1 
      Caption         =   "红色光标"
      Height          =   285
      Index           =   0
      Left            =   9030
      TabIndex        =   16
      Top             =   6480
      Value           =   1  'Checked
      Width           =   1035
   End
   Begin VB.CommandButton Command7 
      Caption         =   "光标向左微调"
      Height          =   330
      Left            =   7260
      TabIndex        =   14
      Top             =   6900
      Width           =   1335
   End
   Begin VB.PictureBox Picture2 
      AutoRedraw      =   -1  'True
      Height          =   3630
      Left            =   30
      ScaleHeight     =   3570
      ScaleMode       =   0  'User
      ScaleWidth      =   9945
      TabIndex        =   13
      Top             =   1350
      Width           =   10000
      Begin VB.Line Line2 
         BorderColor     =   &H00FF00FF&
         X1              =   6885
         X2              =   6885
         Y1              =   45
         Y2              =   4275
      End
      Begin VB.Line Line1 
         BorderColor     =   &H000000FF&
         X1              =   4980
         X2              =   4980
         Y1              =   45
         Y2              =   4230
      End
   End
   Begin VB.CommandButton Command6 
      Caption         =   "光标向右微调"
      Height          =   330
      Left            =   8760
      TabIndex        =   8
      Top             =   6900
      Width           =   1305
   End
   Begin VB.CommandButton Command5 
      Caption         =   "保存图片"
      Height          =   330
      Left            =   9180
      TabIndex        =   7
      Top             =   5430
      Width           =   915
   End
   Begin MSComctlLib.Slider Slider1 
      Height          =   330
      Left            =   0
      TabIndex        =   6
      Top             =   990
      Width           =   10140
      _ExtentX        =   17886
      _ExtentY        =   582
      _Version        =   393216
      MouseIcon       =   "Form1.frx":27A2
      LargeChange     =   4
      Max             =   100
      SelectRange     =   -1  'True
      SelStart        =   50
   End
   Begin VB.CommandButton Command4 
      Caption         =   "正常尺寸"
      Height          =   330
      Left            =   8325
      TabIndex        =   5
      Top             =   585
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "缩小"
      Height          =   330
      Left            =   8910
      TabIndex        =   4
      Top             =   135
      Width           =   510
   End
   Begin VB.CommandButton Command2 
      Caption         =   "放大"
      Height          =   330
      Left            =   8325
      TabIndex        =   3
      Top             =   135
      Width           =   510
   End
   Begin VB.CommandButton Command1 
      Caption         =   "pause"
      Default         =   -1  'True
      Height          =   330
      Left            =   7140
      TabIndex        =   2
      Top             =   90
      Width           =   1005
   End
   Begin VB.TextBox Text1 
      Height          =   825
      Left            =   180
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   0
      Width           =   5280
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   9480
      Top             =   5790
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.Timer Timer1 
      Left            =   9540
      Top             =   45
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      Height          =   3405
      Left            =   45
      ScaleHeight     =   3345
      ScaleMode       =   0  'User
      ScaleWidth      =   9945
      TabIndex        =   0
      Top             =   1350
      Width           =   10000
      Begin VB.Line Line4 
         BorderColor     =   &H00FF00FF&
         X1              =   6570
         X2              =   6570
         Y1              =   90
         Y2              =   3825
      End
      Begin VB.Line Line3 
         BorderColor     =   &H000000FF&
         X1              =   4410
         X2              =   4410
         Y1              =   45
         Y2              =   3780
      End
   End
   Begin MSComctlLib.Slider Slider2 
      Height          =   330
      Left            =   0
      TabIndex        =   15
      Top             =   4950
      Width           =   10140
      _ExtentX        =   17886
      _ExtentY        =   582
      _Version        =   393216
      MouseIcon       =   "Form1.frx":2ABC
      LargeChange     =   4
      Max             =   100
      SelectRange     =   -1  'True
      SelStart        =   50
   End
   Begin VB.Label Label2 
      Caption         =   "请根据您的电脑配置选择理想速度"
      Height          =   255
      Left            =   120
      TabIndex        =   25
      Top             =   6060
      Width           =   2835
   End
   Begin VB.Label Label1 
      Caption         =   "125us"
      Height          =   240
      Index           =   3
      Left            =   4560
      TabIndex        =   12
      Top             =   5730
      Width           =   4185
   End
   Begin VB.Label Label1 
      Caption         =   "125us"
      ForeColor       =   &H000000FF&
      Height          =   240
      Index           =   2
      Left            =   120
      TabIndex        =   11
      Top             =   5730
      Width           =   4275
   End
   Begin VB.Label Label1