frmpara.frm

回流焊监控系统-DCS,VB编写,对PLC进行通讯采集和控制,界面直观,操作方便,可以作为同类软件系统提供示范

VERSION 5.00
Begin VB.Form frmPara 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "机器参数"
   ClientHeight    =   5010
   ClientLeft      =   5625
   ClientTop       =   3315
   ClientWidth     =   4815
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmPara.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5010
   ScaleWidth      =   4815
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   4320
      Top             =   4440
   End
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   2280
      Top             =   4560
   End
   Begin VB.Frame Frame1 
      Caption         =   "选项"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4215
      Left            =   120
      TabIndex        =   10
      Top             =   120
      Width           =   4575
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   9
         Left            =   1920
         TabIndex        =   31
         Text            =   "0.0"
         Top             =   3600
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   8
         Left            =   1920
         TabIndex        =   24
         Text            =   "0.0"
         Top             =   3240
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   7
         Left            =   1920
         TabIndex        =   7
         Text            =   "0.0"
         Top             =   2880
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   6
         Left            =   1920
         TabIndex        =   6
         Text            =   "0.0"
         Top             =   2520
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   5
         Left            =   1920
         TabIndex        =   5
         Text            =   "0.0"
         Top             =   2160
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   4
         Left            =   1920
         TabIndex        =   4
         Text            =   "0.0"
         Top             =   1800
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   3
         Left            =   1920
         TabIndex        =   3
         Text            =   "0.0"
         Top             =   1440
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   2
         Left            =   1920
         TabIndex        =   2
         Text            =   "0.0"
         Top             =   1080
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   1
         Left            =   1920
         TabIndex        =   1
         Text            =   "0.0"
         Top             =   720
         Width           =   1455
      End
      Begin VB.TextBox txtOption 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   0
         Left            =   1920
         TabIndex        =   0
         Text            =   "0.0"
         Top             =   360
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "调节 范围 最小："
         Height          =   255
         Index           =   13
         Left            =   240
         TabIndex        =   30
         Top             =   5040
         Visible         =   0   'False
         Width           =   1695
      End
      Begin VB.Label Label1 
         Caption         =   "调节 范围 最大："
         Height          =   255
         Index           =   12
         Left            =   240
         TabIndex        =   29
         Top             =   4680
         Visible         =   0   'False
         Width           =   1695
      End
      Begin VB.Label Label1 
         Caption         =   "运  输  速  率："
         Height          =   255
         Index           =   11
         Left            =   240
         TabIndex        =   28
         Top             =   4320
         Visible         =   0   'False
         Width           =   1695
      End
      Begin VB.Label Label1 
         Caption         =   "安  全  温  度："
         Height          =   255
         Index           =   10
         Left            =   240
         TabIndex        =   27
         Top             =   3720
         Width           =   1695
      End
      Begin VB.Label Label2 
         Caption         =   "mm"
         Height          =   255
         Index           =   9
         Left            =   3480
         TabIndex        =   26
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "输 送 PV 速 率："
         Height          =   255
         Index           =   9
         Left            =   240