setting.frm

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

VERSION 5.00
Begin VB.Form Setting 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Setting"
   ClientHeight    =   3600
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5595
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3600
   ScaleWidth      =   5595
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   4080
      TabIndex        =   17
      Top             =   2880
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "OK"
      Height          =   375
      Left            =   2640
      TabIndex        =   16
      Top             =   2880
      Width           =   1095
   End
   Begin VB.Frame Frame6 
      Caption         =   "Event"
      Height          =   1095
      Left            =   3720
      TabIndex        =   13
      Top             =   1440
      Width           =   1455
      Begin VB.OptionButton disable 
         Caption         =   "Disable"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   720
         Width           =   975
      End
      Begin VB.OptionButton enable 
         Caption         =   "Enable"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   360
         Value           =   -1  'True
         Width           =   975
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "Trigger Source"
      Height          =   1095
      Left            =   2040
      TabIndex        =   10
      Top             =   1440
      Width           =   1335
      Begin VB.OptionButton external 
         Caption         =   "External"
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   720
         Width           =   975
      End
      Begin VB.OptionButton internal 
         Caption         =   "internal"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   360
         Value           =   -1  'True
         Width           =   975
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "Single/Auto"
      Height          =   1095
      Left            =   360
      TabIndex        =   7
      Top             =   1440
      Width           =   1335
      Begin VB.OptionButton noncyclic 
         Caption         =   "Noncyclic"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   720
         Width           =   1095
      End
      Begin VB.OptionButton cyclic 
         Caption         =   "Cyclic"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   360
         Value           =   -1  'True
         Width           =   975
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Output Channel"
      Height          =   855
      Left            =   3720
      TabIndex        =   5
      Top             =   360
      Width           =   1455
      Begin VB.TextBox EditOutputChannel 
         Height          =   285
         Left            =   120
         TabIndex        =   6
         Text            =   "0"
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Conv. #"
      Height          =   855
      Left            =   2040
      TabIndex        =   3
      Top             =   360
      Width           =   1335
      Begin VB.TextBox convno 
         Height          =   285
         Left            =   120
         TabIndex        =   4
         Text            =   "16384"
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Pacer Rate"
      Height          =   855
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   1335
      Begin VB.TextBox Hz 
         Height          =   285
         Left            =   120
         TabIndex        =   1
         Text            =   "32768"
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "Hz"
         Height          =   255
         Left            =   960
         TabIndex        =   2
         Top             =   360
         Width           =   255
      End
   End
End
Attribute VB_Name = "Setting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    PacerRate = PacerRate1
    Conv = Conv1
    OutputChannel = OutputChannel1
    CyclicMode = CyclicMode1
    TriggerSource = TriggerSource1
    EventMode = EventMode1
    SetState (STATE_Ready)
    Setting.Hide
    Form1.Show
End Sub

Private Sub Command2_Click()
    SetState (STATE_Ready)
    Setting.Hide
    Form1.Show
End Sub


Private Sub convno_Change()
Conv1 = Int(Val(Setting.convno.Text))
End Sub

Private Sub cyclic_Click()
CyclicMode1 = MODE_Cyclic
End Sub

Private Sub disable_Click()
EventMode1 = MODE_EventDisable
End Sub

Private Sub enable_Click()
EventMode1 = MODE_EventEnable
End Sub

Private Sub external_Click()
TriggerSource1 = MODE_External
End Sub

Private Sub Form_Load()
'RemoveX Me.HWND
End Sub

Private Sub Form_Terminate()
If state <> STATE_Run Then
    End
End If
End Sub

Private Sub hz_Change()
PacerRate1 = Int(Val(Setting.Hz.Text))
End Sub

Private Sub internal_Click()
TriggerSource1 = MODE_Internal
End Sub

Private Sub noncyclic_Click()
CyclicMode1 = MODE_Noncyclic
End Sub

Private Sub EditOutputChannel_Change()
OutputChannel1 = Int(Val(Setting.EditOutputChannel.Text))
End Sub