frmmain.frm

来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 572 行 · 第 1/2 页

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Advantech Driver Demo: DI with Interrupt Event For  PCL733"
   ClientHeight    =   4110
   ClientLeft      =   4710
   ClientTop       =   5055
   ClientWidth     =   8310
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4110
   ScaleWidth      =   8310
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Left            =   4440
      Top             =   3480
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "Close"
      Height          =   375
      Left            =   6240
      TabIndex        =   16
      Top             =   3600
      Width           =   975
   End
   Begin VB.Frame Frame4 
      Caption         =   "Interrupt Event"
      Height          =   2295
      Left            =   2880
      TabIndex        =   15
      Top             =   1080
      Width           =   5175
      Begin VB.CommandButton cmdDisableDI16 
         Caption         =   "Disable"
         Enabled         =   0   'False
         Height          =   315
         Left            =   4200
         TabIndex        =   30
         Top             =   1440
         Width           =   855
      End
      Begin VB.CommandButton cmdDisableDI0 
         Caption         =   "Disable"
         Enabled         =   0   'False
         Height          =   315
         Left            =   4200
         TabIndex        =   29
         Top             =   840
         Width           =   855
      End
      Begin VB.CommandButton cmdEnableDI16 
         Caption         =   "Enable"
         Enabled         =   0   'False
         Height          =   315
         Left            =   3240
         TabIndex        =   28
         Top             =   1440
         Width           =   855
      End
      Begin VB.CommandButton cmdEnableDI0 
         Caption         =   "Enable"
         Enabled         =   0   'False
         Height          =   315
         Left            =   3240
         TabIndex        =   27
         Top             =   840
         Width           =   855
      End
      Begin VB.TextBox txtEvtCntDI16 
         Alignment       =   2  'Center
         Height          =   315
         Left            =   840
         TabIndex        =   24
         Text            =   "1"
         Top             =   1440
         Width           =   1095
      End
      Begin VB.TextBox txtEvtCntDI0 
         Alignment       =   2  'Center
         Height          =   315
         Left            =   840
         TabIndex        =   23
         Text            =   "1"
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label ctlEvtFrqDI16 
         BorderStyle     =   1  'Fixed Single
         Height          =   315
         Left            =   2040
         TabIndex        =   26
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label ctlEvtFrqDI0 
         BorderStyle     =   1  'Fixed Single
         Height          =   315
         Left            =   2040
         TabIndex        =   25
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "DI16"
         Height          =   195
         Index           =   4
         Left            =   360
         TabIndex        =   22
         Top             =   1440
         Width           =   345
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "DI0"
         Height          =   195
         Index           =   3
         Left            =   360
         TabIndex        =   21
         Top             =   840
         Width           =   255
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "Events / S"
         Height          =   195
         Index           =   2
         Left            =   2160
         TabIndex        =   20
         Top             =   360
         Width           =   765
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "Event Count"
         Height          =   195
         Index           =   1
         Left            =   840
         TabIndex        =   19
         Top             =   360
         Width           =   885
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "No."
         Height          =   195
         Index           =   0
         Left            =   360
         TabIndex        =   18
         Top             =   360
         Width           =   255
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Digital Input Scan"
      Height          =   2295
      Left            =   120
      TabIndex        =   6
      Top             =   1080
      Width           =   2535
      Begin VB.CommandButton cmdStop 
         Caption         =   "Stop"
         Enabled         =   0   'False
         Height          =   375
         Left            =   1440
         TabIndex        =   14
         Top             =   1680
         Width           =   855
      End
      Begin VB.CommandButton cmdStart 
         Caption         =   "Start"
         Enabled         =   0   'False
         Height          =   375
         Left            =   240
         TabIndex        =   13
         Top             =   1680
         Width           =   855
      End
      Begin VB.TextBox txtScantime 
         Height          =   285
         Left            =   1200
         TabIndex        =   8
         Text            =   "1000"
         Top             =   570
         Width           =   975
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "H"
         Height          =   195
         Left            =   2160
         TabIndex        =   12
         Top             =   1080
         Width           =   120
      End
      Begin VB.Label Label5 
         Caption         =   "ms"
         Height          =   255
         Left            =   2160
         TabIndex        =   11
         Top             =   600
         Width           =   255
      End
      Begin VB.Label ctlData 
         BorderStyle     =   1  'Fixed Single
         Height          =   285
         Left            =   1200
         TabIndex        =   10
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "Data:"
         Height          =   195
         Left            =   720
         TabIndex        =   9
         Top             =   1080
         Width           =   390
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "Scan Time:"
         Height          =   195
         Left            =   240
         TabIndex        =   7
         Top             =   600
         Width           =   810
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Port"
      Height          =   735
      Left            =   6360
      TabIndex        =   3
      Top             =   120
      Width           =   1695
      Begin VB.VScrollBar ctlSpinPort 
         Height          =   285
         Left            =   1320
         TabIndex        =   5
         Top             =   240
         Width           =   255
      End
      Begin VB.TextBox Port 
         BeginProperty DataFormat 
            Type            =   0
            Format          =   "0"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
         Height          =   285
         Left            =   240
         TabIndex        =   4
         Text            =   "0"
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Device Selection"
      Height          =   735
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6135
      Begin VB.CommandButton cmdSelectDevice 
         Caption         =   "Select Device"
         Height          =   375
         Left            =   4800
         TabIndex        =   2
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label ctlDeviceName 
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   240
         Width           =   4455
      End