mainfrm.frm

工控行业的控制卡驱动和应用程序, 能用于演示简单的pci控制卡的加工应用.

VERSION 5.00
Begin VB.Form MAIN_FRAME 
   Caption         =   "DMC3000编程示例之一"
   ClientHeight    =   4920
   ClientLeft      =   3780
   ClientTop       =   2190
   ClientWidth     =   5190
   LinkTopic       =   "Form1"
   ScaleHeight     =   4920
   ScaleWidth      =   5190
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   0
      Top             =   0
   End
   Begin VB.CommandButton BUTTON_OK 
      Caption         =   "执 行"
      Height          =   375
      Left            =   2640
      TabIndex        =   37
      Top             =   4440
      Width           =   1455
   End
   Begin VB.CommandButton BUTTON_EMGSTOP 
      Caption         =   "急停"
      Height          =   375
      Left            =   4200
      TabIndex        =   36
      Top             =   4440
      Width           =   975
   End
   Begin VB.CommandButton BUTTON_DECSTOP 
      Caption         =   "减速停"
      Height          =   375
      Left            =   4200
      TabIndex        =   35
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton BUTTON_CLOSE 
      Caption         =   "关闭"
      Height          =   375
      Left            =   4200
      TabIndex        =   34
      Top             =   3240
      Width           =   975
   End
   Begin VB.Frame Frame5 
      Caption         =   "运动轴选择"
      ClipControls    =   0   'False
      Height          =   1215
      Left            =   2640
      TabIndex        =   31
      Top             =   3000
      Width           =   1455
      Begin VB.OptionButton RADIO_U 
         Caption         =   "U轴"
         Height          =   375
         Left            =   720
         TabIndex        =   39
         Top             =   720
         Width           =   615
      End
      Begin VB.OptionButton RADIO_Z 
         Caption         =   "Z轴"
         Height          =   375
         Left            =   120
         TabIndex        =   38
         Top             =   720
         Width           =   735
      End
      Begin VB.OptionButton RADIO_Y 
         Caption         =   "Y轴"
         Height          =   420
         Index           =   0
         Left            =   720
         TabIndex        =   33
         Top             =   240
         UseMaskColor    =   -1  'True
         Width           =   615
      End
      Begin VB.OptionButton RADIO_AXISST 
         Caption         =   "X轴"
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   32
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "运动方式"
      Height          =   1335
      Left            =   2640
      TabIndex        =   25
      Top             =   1560
      Width           =   2415
      Begin VB.TextBox EDIT_PULSE 
         Height          =   390
         Left            =   1320
         TabIndex        =   30
         Text            =   "6400"
         Top             =   840
         Width           =   975
      End
      Begin VB.OptionButton RADIO_CMOVE 
         Caption         =   "持续"
         Height          =   255
         Left            =   1440
         TabIndex        =   28
         Top             =   600
         Width           =   855
      End
      Begin VB.OptionButton RADIO_MOVE 
         Caption         =   "点动"
         Height          =   255
         Left            =   360
         TabIndex        =   27
         Top             =   600
         Width           =   855
      End
      Begin VB.CheckBox CHECK_LOGIC 
         Caption         =   "逻辑方向：反"
         Height          =   255
         Left            =   360
         TabIndex        =   26
         Top             =   240
         Width           =   1575
      End
      Begin VB.Label Label10 
         Caption         =   "点位长度："
         Height          =   255
         Left            =   360
         TabIndex        =   29
         Top             =   960
         Width           =   975
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "速度曲线"
      Height          =   3255
      Left            =   120
      TabIndex        =   10
      Top             =   1560
      Width           =   2295
      Begin VB.TextBox EDIT_FEFF 
         Height          =   375
         Left            =   960
         TabIndex        =   24
         Text            =   "0.05"
         Top             =   2760
         Width           =   975
      End
      Begin VB.TextBox EDIT_DECEL 
         Height          =   375
         Left            =   960
         TabIndex        =   23
         Text            =   "0.1"
         Top             =   2400
         Width           =   975
      End
      Begin VB.TextBox EDIT_ACCEL 
         Height          =   375
         Left            =   960
         TabIndex        =   22
         Text            =   "0.1"
         Top             =   2040
         Width           =   975
      End
      Begin VB.TextBox EDIT_SPEED 
         Height          =   375
         Left            =   960
         TabIndex        =   21
         Text            =   "3200"
         Top             =   1680
         Width           =   975
      End
      Begin VB.TextBox EDIT_START 
         Height          =   390
         Left            =   960
         TabIndex        =   20
         Text            =   "1600"
         Top             =   1320
         Width           =   975
      End
      Begin VB.CheckBox CHECK_SYMMETRY 
         Caption         =   "对称曲线"
         Height          =   255
         Left            =   240
         TabIndex        =   14
         Top             =   960
         Width           =   1695
      End
      Begin VB.OptionButton RADIO_SSPEED 
         Caption         =   "S形变速"
         Height          =   255
         Left            =   960
         TabIndex        =   13
         Top             =   600
         Width           =   975
      End
      Begin VB.OptionButton RADIO_TSPEED 
         Caption         =   "T形变速"
         Height          =   255
         Left            =   960
         TabIndex        =   12
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton RADIO_SPEEDST 
         Caption         =   "匀速"
         Height          =   300
         Left            =   240
         TabIndex        =   11
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label9 
         Caption         =   "S加加速："
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   2880
         Width           =   855
      End
      Begin VB.Label Label8 
         Caption         =   "减速时间："
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   2520
         Width           =   975
      End
      Begin VB.Label Label7 
         Caption         =   "加速时间："
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   2160
         Width           =   975
      End
      Begin VB.Label Label6 
         Caption         =   "运行速度："
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   1800
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "起始速度："
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   1440
         Width           =   975
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "运动状态及位置显示"
      Height          =   1335
      Left            =   2640
      TabIndex        =   5
      Top             =   120
      Width           =   2415
      Begin VB.TextBox EDIT_POSITION 
         Enabled         =   0   'False
         Height          =   375
         Left            =   1200
         TabIndex        =   9
         Text            =   "Text3"
         Top             =   720
         Width           =   975
      End
      Begin VB.TextBox EDIT_STATUS 
         Enabled         =   0   'False
         Height          =   390
         Left            =   1200
         TabIndex        =   8
         Text            =   "Text2"
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "当前位置："
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "状态值："
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   360
         Width           =   855
      End