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

📄 manulcontrolfrm.frm

📁 数控切割控制系统,需要DLPORTIO,通过控制8位的并口的电位高低来4路控制数控切割机
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form ManulControlFrm 
   BackColor       =   &H00C0C0FF&
   BorderStyle     =   0  'None
   Caption         =   "手动控制"
   ClientHeight    =   7200
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9600
   LinkTopic       =   "Form1"
   ScaleHeight     =   7200
   ScaleWidth      =   9600
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer_Beep 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   7080
      Top             =   1020
   End
   Begin VB.Timer YTimerSlow 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   360
      Top             =   2580
   End
   Begin VB.Timer XTimer 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   3180
      Top             =   4800
   End
   Begin VB.CommandButton StopYCmd 
      Caption         =   "停止(F7)"
      Enabled         =   0   'False
      Height          =   435
      Left            =   8040
      TabIndex        =   23
      Top             =   2340
      Width           =   1095
   End
   Begin VB.Timer YTimerQuick 
      Enabled         =   0   'False
      Interval        =   5000
      Left            =   3540
      Top             =   1260
   End
   Begin VB.PictureBox Picture3 
      Height          =   615
      Left            =   1500
      ScaleHeight     =   555
      ScaleWidth      =   6555
      TabIndex        =   17
      Top             =   5760
      Width           =   6615
      Begin VB.Label LblYPosition 
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   1020
         TabIndex        =   22
         Top             =   120
         Width           =   2055
      End
      Begin VB.Label Label9 
         Caption         =   "Y = "
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   375
         Left            =   420
         TabIndex        =   21
         Top             =   120
         Width           =   615
      End
      Begin VB.Label LblXPosition 
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   4500
         TabIndex        =   19
         Top             =   120
         Width           =   1935
      End
      Begin VB.Label Label6 
         Caption         =   "X = "
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   3900
         TabIndex        =   18
         Top             =   120
         Width           =   495
      End
   End
   Begin VB.CommandButton StopXCmd 
      Caption         =   "停止(F8)"
      Enabled         =   0   'False
      Height          =   435
      Left            =   8100
      TabIndex        =   16
      Top             =   3960
      Width           =   1095
   End
   Begin VB.PictureBox Picture2 
      Height          =   675
      Left            =   1560
      ScaleHeight     =   615
      ScaleWidth      =   6375
      TabIndex        =   5
      Top             =   3840
      Width           =   6435
      Begin VB.CommandButton RightCmd 
         Caption         =   "右(F6)"
         Height          =   315
         Left            =   4860
         TabIndex        =   15
         Top             =   180
         Width           =   1215
      End
      Begin VB.CommandButton LeftCmd 
         Caption         =   "左(F5)"
         Height          =   315
         Left            =   3360
         TabIndex        =   14
         Top             =   180
         Width           =   1155
      End
      Begin VB.Label LblLRSpeed 
         Caption         =   "0米/秒"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   900
         TabIndex        =   25
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label Label10 
         Caption         =   "速度:"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   60
         TabIndex        =   24
         Top             =   240
         Width           =   1035
      End
   End
   Begin VB.PictureBox Picture1 
      Height          =   1335
      Left            =   1560
      ScaleHeight     =   1275
      ScaleWidth      =   6315
      TabIndex        =   2
      Top             =   1800
      Width           =   6375
      Begin VB.CommandButton SlowlyBackCmd 
         Caption         =   "后(F4)"
         Height          =   315
         Left            =   4860
         TabIndex        =   13
         Top             =   900
         Width           =   1215
      End
      Begin VB.CommandButton SlowlyFrontCmd 
         Caption         =   "前(F3)"
         Height          =   315
         Left            =   3420
         TabIndex        =   12
         Top             =   900
         Width           =   1095
      End
      Begin VB.CommandButton QuickBackCmd 
         Caption         =   "后(F2)"
         Height          =   315
         Left            =   4800
         TabIndex        =   9
         Top             =   180
         Width           =   1275
      End
      Begin VB.CommandButton QuickFrontCmd 
         Caption         =   "前(F1)"
         Height          =   315
         Left            =   3420
         TabIndex        =   8
         Top             =   180
         Width           =   1095
      End
      Begin VB.Label LblSlowly 
         Caption         =   "0米/分钟"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   11
         Top             =   900
         Width           =   2295
      End
      Begin VB.Label Label7 
         Caption         =   "慢速:"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   60
         TabIndex        =   10
         Top             =   900
         Width           =   1155
      End
      Begin VB.Label LblQuick 
         Caption         =   "0米/分钟 "
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   7
         Top             =   180
         Width           =   2355
      End
      Begin VB.Label Label5 
         Caption         =   "快速:"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   60
         TabIndex        =   6
         Top             =   120
         Width           =   1035
      End
   End
   Begin VB.CommandButton BackCmd 
      Caption         =   "返回(Alt+Back)"
      Height          =   375
      Left            =   7500
      TabIndex        =   0
      Top             =   6720
      Width           =   1695
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0C0FF&
      Caption         =   "数控切割控制系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   2520
      TabIndex        =   26
      Top             =   60
      Width           =   4095
   End
   Begin VB.Label Label8 
      BackColor       =   &H00C0C0FF&
      Caption         =   "坐标(毫米):"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1320
      TabIndex        =   20
      Top             =   5280
      Width           =   1815
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0C0FF&
      Caption         =   "左右移动:"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   1260
      TabIndex        =   4
      Top             =   3300
      Width           =   1635
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0C0FF&
      Caption         =   "前后移动:"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   1200
      TabIndex        =   3
      Top             =   1380
      Width           =   1695
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0C0FF&
      Caption         =   "手动控制"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134

⌨️ 快捷键说明

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