form1.frm

串口通讯。上位机实例.提供了良好的界面。对初学者很有参考性

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数字电压表和电压源上位机  V1.0"
   ClientHeight    =   3885
   ClientLeft      =   870
   ClientTop       =   1845
   ClientWidth     =   4770
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3885
   ScaleWidth      =   4770
   StartUpPosition =   2  '屏幕中心
   Begin MSCommLib.MSComm MSComm1 
      Left            =   300
      Top             =   2580
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin ComctlLib.ProgressBar ProgressBar1 
      Height          =   255
      Left            =   0
      TabIndex        =   15
      Top             =   3300
      Width           =   4755
      _ExtentX        =   8387
      _ExtentY        =   450
      _Version        =   327682
      Appearance      =   1
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   360
      Top             =   2040
   End
   Begin VB.CommandButton Command2 
      Height          =   975
      Left            =   2820
      MouseIcon       =   "Form1.frx":1CCA
      MousePointer    =   99  'Custom
      Picture         =   "Form1.frx":1E1C
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   2220
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Height          =   975
      Left            =   1080
      MouseIcon       =   "Form1.frx":5066
      MousePointer    =   99  'Custom
      Picture         =   "Form1.frx":51B8
      Style           =   1  'Graphical
      TabIndex        =   13
      Top             =   2220
      Width           =   855
   End
   Begin VB.ComboBox Combo5 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   300
      ItemData        =   "Form1.frx":8402
      Left            =   3960
      List            =   "Form1.frx":840C
      TabIndex        =   7
      Top             =   1560
      Width           =   615
   End
   Begin VB.ComboBox Combo4 
      Height          =   300
      ItemData        =   "Form1.frx":8416
      Left            =   3120
      List            =   "Form1.frx":8423
      TabIndex        =   6
      Top             =   1560
      Width           =   555
   End
   Begin VB.ComboBox Combo3 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   300
      ItemData        =   "Form1.frx":8430
      Left            =   2160
      List            =   "Form1.frx":843D
      TabIndex        =   5
      Top             =   1560
      Width           =   615
   End
   Begin VB.ComboBox Combo2 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   300
      ItemData        =   "Form1.frx":844A
      Left            =   1020
      List            =   "Form1.frx":845D
      TabIndex        =   4
      Top             =   1560
      Width           =   855
   End
   Begin VB.ComboBox Combo1 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   300
      ItemData        =   "Form1.frx":8480
      Left            =   240
      List            =   "Form1.frx":8490
      TabIndex        =   3
      Top             =   1560
      Width           =   555
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Left            =   -255
      ScaleHeight     =   945
      ScaleWidth      =   5145
      TabIndex        =   0
      Top             =   -45
      Width           =   5175
      Begin VB.PictureBox Picture2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   3870
         Picture         =   "Form1.frx":84A0
         ScaleHeight     =   735
         ScaleWidth      =   735
         TabIndex        =   2
         Top             =   135
         Width           =   735
      End
      Begin VB.Label Label9 
         BackColor       =   &H00FFFFFF&
         Caption         =   "ABOUT"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   210
         Left            =   285
         MouseIcon       =   "Form1.frx":A16A
         MousePointer    =   99  'Custom
         TabIndex        =   18
         Top             =   315
         Width           =   465
      End
      Begin VB.Label Label8 
         BackColor       =   &H80000009&
         Caption         =   "HELP"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   225
         Left            =   285
         MouseIcon       =   "Form1.frx":A2BC
         MousePointer    =   99  'Custom
         TabIndex        =   17
         Top             =   90
         Width           =   405
      End
      Begin VB.Line Line1 
         X1              =   120
         X2              =   4860
         Y1              =   960
         Y2              =   960
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         Caption         =   " 基于PC与单片机的 数字电压表和电压源"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   780
         Left            =   1005
         TabIndex        =   1
         Top             =   210
         Width           =   2820
      End
   End
   Begin VB.Label Label7 
      Height          =   195
      Left            =   60
      TabIndex        =   16
      Top             =   3660
      Width           =   4575
   End
   Begin VB.Label Label6 
      Caption         =   "停止位"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty