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

📄 main_frm.frm

📁 模拟的示波器
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form main_frm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数字存储示波器 v1.1.3"
   ClientHeight    =   5370
   ClientLeft      =   1635
   ClientTop       =   2325
   ClientWidth     =   11055
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5370
   ScaleMode       =   0  'User
   ScaleWidth      =   26113.89
   Begin VB.Frame Frame4 
      Height          =   490
      Left            =   8400
      TabIndex        =   25
      Top             =   4920
      Width           =   2535
      Begin VB.CommandButton open_comm 
         Caption         =   "打开串口"
         Height          =   300
         Left            =   120
         TabIndex        =   26
         Top             =   140
         Width           =   1095
      End
      Begin VB.Shape lamp 
         BackColor       =   &H00404040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00FF0000&
         Height          =   300
         Left            =   1320
         Top             =   135
         Width           =   1095
      End
   End
   Begin VB.Frame Frame3 
      Height          =   2295
      Left            =   8400
      TabIndex        =   21
      Top             =   2640
      Width           =   2535
      Begin VB.TextBox receive 
         Height          =   1590
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   22
         Top             =   220
         Width           =   2295
      End
      Begin VB.Label receive_label 
         BackColor       =   &H00808080&
         BackStyle       =   0  'Transparent
         Caption         =   "共收到数据:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   1920
         Width           =   1335
      End
      Begin VB.Label rece_quantity 
         Alignment       =   2  'Center
         Caption         =   "12345678"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   23
         Top             =   1920
         Width           =   975
      End
   End
   Begin VB.Frame Frame2 
      Height          =   1550
      Left            =   8400
      TabIndex        =   11
      Top             =   1080
      Width           =   2535
      Begin VB.CommandButton reset 
         Caption         =   "复 位"
         Height          =   375
         Left            =   1680
         TabIndex        =   20
         Top             =   180
         Width           =   690
      End
      Begin VB.CommandButton zoom_in 
         Caption         =   "缩 小"
         Height          =   375
         Left            =   900
         TabIndex        =   19
         Top             =   180
         Width           =   690
      End
      Begin VB.CommandButton zoom_out 
         Caption         =   "放 大"
         Height          =   375
         Left            =   120
         TabIndex        =   18
         Top             =   180
         Width           =   690
      End
      Begin VB.CommandButton move_left 
         Caption         =   "左 移"
         Height          =   375
         Left            =   120
         TabIndex        =   17
         Top             =   620
         Width           =   690
      End
      Begin VB.CommandButton move_right 
         Caption         =   "右 移"
         Height          =   375
         Left            =   900
         TabIndex        =   16
         Top             =   620
         Width           =   690
      End
      Begin VB.CommandButton enlarge 
         Caption         =   "← →"
         Height          =   375
         Left            =   1680
         TabIndex        =   15
         Top             =   600
         Width           =   690
      End
      Begin VB.CommandButton move_up 
         Caption         =   "上 移"
         Height          =   375
         Left            =   120
         TabIndex        =   14
         Top             =   1050
         Width           =   690
      End
      Begin VB.CommandButton move_down 
         Caption         =   "下 移"
         Height          =   375
         Left            =   900
         TabIndex        =   13
         Top             =   1050
         Width           =   690
      End
      Begin VB.CommandButton shorten 
         Caption         =   "→ ←"
         Height          =   375
         Left            =   1680
         TabIndex        =   12
         Top             =   1050
         Width           =   690
      End
   End
   Begin VB.Frame Frame1 
      Height          =   980
      Left            =   8400
      TabIndex        =   3
      Top             =   0
      Width           =   2535
      Begin VB.PictureBox Picture1 
         BackColor       =   &H00000000&
         Height          =   760
         Left            =   80
         ScaleHeight     =   705
         ScaleWidth      =   2310
         TabIndex        =   4
         Top             =   155
         Width           =   2370
         Begin VB.Label mess_label 
            BackColor       =   &H00FFC0FF&
            BackStyle       =   0  'Transparent
            Caption         =   "信号频率:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FFFF&
            Height          =   255
            Left            =   90
            TabIndex        =   10
            Top             =   105
            Width           =   1155
         End
         Begin VB.Label samp_label 
            BackColor       =   &H0080C0FF&
            BackStyle       =   0  'Transparent
            Caption         =   "采样频率:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FFFF&
            Height          =   255
            Left            =   90
            TabIndex        =   9
            Top             =   375
            Width           =   1155
         End
         Begin VB.Label mess_sing 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFC0FF&
            BackStyle       =   0  'Transparent
            Caption         =   "0000.00"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FFFF&
            Height          =   255
            Left            =   960
            TabIndex        =   8
            Top             =   120
            Width           =   855
         End
         Begin VB.Label mess_samp 
            Alignment       =   1  'Right Justify
            BackColor       =   &H0080C0FF&
            BackStyle       =   0  'Transparent
            Caption         =   "0000.00"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FFFF&
            Height          =   255
            Left            =   980
            TabIndex        =   7
            Top             =   375
            Width           =   855
         End
         Begin VB.Label singunit 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFC0FF&
            BackStyle       =   0  'Transparent
            Caption         =   "MHz"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FFFF&
            Height          =   255
            Left            =   1850
            TabIndex        =   6
            Top             =   105
            Width           =   375
         End
         Begin VB.Label sampunit 
            Alignment       =   1  'Right Justify
            BackColor       =   &H0080C0FF&
            BackStyle       =   0  'Transparent
            Caption         =   "MHz"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FFFF&
            Height          =   255
            Left            =   1850
            TabIndex        =   5
            Top             =   375
            Width           =   375
         End
      End
   End
   Begin VB.Frame wave_show 
      Height          =   5290
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8240
      Begin VB.PictureBox wave_pic 
         AutoRedraw      =   -1  'True
         BackColor       =   &H00C0E0FF&
         Height          =   5000
         Left            =   120
         ScaleHeight     =   4935
         ScaleWidth      =   7935
         TabIndex        =   1
         Top             =   240
         Width           =   8000
         Begin VB.PictureBox com_pic 
            Appearance      =   0  'Flat
            ForeColor       =   &H80000008&
            Height          =   3375
            Left            =   120
            ScaleHeight     =   3345
            ScaleWidth      =   2625
            TabIndex        =   27
            Top             =   1440
            Width           =   2655
            Begin VB.Frame Frame5 
               Height          =   3255
               Left            =   120
               TabIndex        =   28
               Top             =   0
               Width           =   2415
               Begin VB.ComboBox comm_data 
                  Height          =   300
                  ItemData        =   "main_frm.frx":0000
                  Left            =   1125
                  List            =   "main_frm.frx":000D
                  TabIndex        =   35
                  Text            =   "8"
                  Top             =   1800
                  Width           =   1095
               End
               Begin VB.ComboBox comm_stop 
                  Height          =   300
                  ItemData        =   "main_frm.frx":001A
                  Left            =   1125
                  List            =   "main_frm.frx":0024
                  TabIndex        =   34
                  Text            =   "1"
                  Top             =   2160
                  Width           =   1095
               End
               Begin VB.ComboBox comm_parity 
                  Height          =   300
                  ItemData        =   "main_frm.frx":002E
                  Left            =   1125
                  List            =   "main_frm.frx":003B
                  TabIndex        =   33
                  Text            =   "无NONE"
                  Top             =   1440
                  Width           =   1095
               End
               Begin VB.ComboBox comm_port 
                  Height          =   300
                  ItemData        =   "main_frm.frx":0056
                  Left            =   1125

⌨️ 快捷键说明

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