frv.frm

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

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FrV 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数字电压表和电压源上位机  V1.0"
   ClientHeight    =   5670
   ClientLeft      =   8970
   ClientTop       =   6480
   ClientWidth     =   6570
   Icon            =   "FrV.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   5670
   ScaleWidth      =   6570
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture5 
      BorderStyle     =   0  'None
      Height          =   2625
      Left            =   2370
      ScaleHeight     =   2625
      ScaleWidth      =   3990
      TabIndex        =   21
      Top             =   1890
      Width           =   3990
      Begin VB.PictureBox Picture6 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   2355
         Left            =   285
         ScaleHeight     =   255
         ScaleMode       =   0  'User
         ScaleWidth      =   100
         TabIndex        =   22
         Top             =   120
         Width           =   3615
      End
   End
   Begin VB.CommandButton Command8 
      Caption         =   "暂停"
      Height          =   375
      Left            =   3300
      TabIndex        =   20
      Top             =   4560
      Width           =   735
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   19
      Top             =   5355
      Width           =   6570
      _ExtentX        =   11589
      _ExtentY        =   556
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   5
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   2
            Object.Width           =   1773
            MinWidth        =   1764
            TextSave        =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   2
            Object.Width           =   1773
            MinWidth        =   1764
            TextSave        =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            AutoSize        =   2
            Object.Width           =   1746
            MinWidth        =   882
            TextSave        =   "2008-5-13"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            AutoSize        =   2
            Object.Width           =   1111
            MinWidth        =   882
            TextSave        =   "17:12"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   2
            TextSave        =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton Command7 
      Caption         =   "退出"
      Height          =   375
      Left            =   5460
      TabIndex        =   18
      Top             =   4560
      Width           =   795
   End
   Begin VB.CommandButton Command6 
      Caption         =   "返回"
      Height          =   375
      Left            =   4380
      TabIndex        =   17
      Top             =   4560
      Width           =   795
   End
   Begin VB.CommandButton Command5 
      Caption         =   "历史记录"
      Height          =   375
      Left            =   5040
      TabIndex        =   16
      Top             =   1440
      Width           =   1215
   End
   Begin VB.PictureBox Picture4 
      BorderStyle     =   0  'None
      Height          =   1095
      Left            =   360
      ScaleHeight     =   1095
      ScaleWidth      =   1875
      TabIndex        =   10
      Top             =   3960
      Width           =   1875
      Begin VB.CommandButton Command4 
         Caption         =   "-"
         Height          =   315
         Left            =   1440
         TabIndex        =   13
         Top             =   660
         Width           =   315
      End
      Begin VB.CommandButton Command3 
         Caption         =   "+"
         Height          =   315
         Left            =   60
         TabIndex        =   12
         Top             =   660
         Width           =   315
      End
      Begin 电压表与电压源上位机.MorphDisplay HZ 
         Height          =   375
         Left            =   480
         TabIndex        =   14
         Top             =   600
         Width           =   735
         _ExtentX        =   1296
         _ExtentY        =   661
         BackColor1      =   -2147483633
         BackColor2      =   -2147483633
         BorderWidth     =   0
         BurnInColor     =   16777215
         BurnInColorNeg  =   16777215
         NumDigits       =   3
         SegmentHeight   =   7
         SegmentLitColor =   255
         SegmentLitColorNeg=   16711680
      End
      Begin VB.Label Label4 
         Caption         =   "采样频率：HZ"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   180
         Width           =   1455
      End
   End
   Begin VB.PictureBox Picture3 
      BorderStyle     =   0  'None
      Height          =   975
      Left            =   360
      ScaleHeight     =   975
      ScaleWidth      =   1875
      TabIndex        =   5
      Top             =   2880
      Width           =   1875
      Begin VB.CommandButton Command1 
         Caption         =   "+"
         Height          =   315
         Left            =   60
         TabIndex        =   8
         Top             =   420
         Width           =   315
      End
      Begin VB.CommandButton Command2 
         Caption         =   "-"
         Height          =   315
         Left            =   1440
         TabIndex        =   7
         Top             =   420
         Width           =   315
      End
      Begin 电压表与电压源上位机.MorphDisplay SEG2 
         Height          =   375
         Left            =   360
         TabIndex        =   6
         Top             =   360
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   661
         BackColor1      =   -2147483633
         BackColor2      =   -2147483633
         BorderWidth     =   0
         BurnInColor     =   16777215
         BurnInColorNeg  =   16777215
         NumDigits       =   4
         SegmentHeight   =   7
         SegmentLitColor =   255
         SegmentLitColorNeg=   16711680
      End
      Begin VB.Label Label3 
         Caption         =   "电压校正：V"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&