setting.frm

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

         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   600
         Width           =   375
      End
      Begin VB.Label Label8 
         Caption         =   "Start"
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Conv. #"
      Height          =   1335
      Left            =   2640
      TabIndex        =   3
      Top             =   1200
      Width           =   1575
      Begin VB.TextBox EditConv 
         Height          =   285
         Left            =   360
         TabIndex        =   4
         Text            =   "400000"
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label14 
         Caption         =   "Even Number and <=1024K"
         Height          =   495
         Left            =   120
         TabIndex        =   46
         Top             =   720
         Width           =   1400
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Pacer Rate"
      Height          =   1335
      Left            =   240
      TabIndex        =   0
      Top             =   1200
      Width           =   2295
      Begin VB.TextBox EditPacerRate 
         Height          =   285
         Left            =   720
         TabIndex        =   1
         Text            =   "250000"
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "PCI-1714: From 235K To 30M"
         Height          =   255
         Left            =   120
         TabIndex        =   59
         Top             =   1080
         Width           =   2175
      End
      Begin VB.Label Label13 
         Caption         =   "PCI-1716: From 154 to 250K"
         Height          =   255
         Left            =   120
         TabIndex        =   45
         Top             =   840
         Width           =   2055
      End
      Begin VB.Label Label12 
         Caption         =   "PCI-1712: From 154 to 1M"
         Height          =   255
         Left            =   120
         TabIndex        =   44
         Top             =   600
         Width           =   1935
      End
      Begin VB.Label Label1 
         Caption         =   "Hz"
         Height          =   255
         Left            =   1560
         TabIndex        =   2
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.Label Label6 
      Caption         =   "* Note: Multi-threading is not full suport in VB programming.  So don't pop up the MessageBox in thread function. "
      Height          =   495
      Left            =   480
      TabIndex        =   66
      Top             =   5520
      Width           =   6615
   End
End
Attribute VB_Name = "Setting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'OK button
Private Sub Command1_Click()
    If Not CheckRange("PacerRate", PacerRate1, 153, 1000000) Then
        Exit Sub
    End If
    
    TriggerVoltage1 = EditTriggerVoltage.Text
    
    PacerRate = PacerRate1
    TriggerMode = TriggerMode1
    DelayCount = DelayCount1
    
    StartChannel = StartChannel1
    ChannelNum = ChannelNum1
    
    Conv = Conv1
    
    If (OpInternalTrigger.value = True) Then
        TriggerSource = MODE_InternalTrigger
    End If
    
    If (OpExternalTrigger.value = True) Then
        TriggerSource = MODE_ExternalTrigger
    End If
    
    If (OpCyclic.value = True) Then
        CyclicMode = MODE_Cyclic
    End If
    
    If (OpNoncyclic.value = True) Then
        CyclicMode = MODE_Noncyclic
    End If

    
    TriggerType = TriggerType1
    TriggerVoltage = TriggerVoltage1
    
    DataType = DataType1
    
    ClockSource = ClockSource1
    
    TriggerEdge = TriggerEdge1
    
    GainOption = GainOption1
    InputRange = InputRange1
    
    CyclicMode = CyclicMode1
    
    EventMode = EventMode1
    OverrunTime = OverrunTime1
    
    SetState (STATE_Ready)
    Setting.Hide
    
    frmMain.Show
End Sub

'Cancel button
Private Sub Command2_Click()
    SetState (STATE_Ready)
    Setting.Hide
    frmMain.Show
End Sub

Private Sub Form_Load()
'RemoveX Me.HWND
       OverrunTime1 = OverrunTime

EditOverrunTime.Text = OverrunTime1
    ' Disable controllers according to user setting
    If (TriggerMode = MODE_PacerTrigger) Then
        ' it is pacer, disable Trigger Source, Trigger Edge and Trigger Type
        Frame5.Enabled = False
        OpInternalTrigger.Enabled = False
        OpExternalTrigger.Enabled = False
        Frame8.Enabled = False
        OpRising.Enabled = False
        OpFalling.Enabled = False
        Frame10.Enabled = False
        OpDigital.Enabled = False
        OpAnalog0.Enabled = False
        EditTriggerVoltage.Enabled = False
        EditDelayCount.Enabled = False
        Frame4.Enabled = True
        OpCyclic.Enabled = True
        OpNoncyclic.Enabled = True
        OpInternalTrigger.value = True
        OpRising.value = True
    ElseIf (TriggerMode = MODE_PostTrigger) Then
        ' it is pacer, disable Trigger Source
        Frame5.Enabled = False
        OpInternalTrigger.Enabled = False
        OpExternalTrigger.Enabled = False
        Frame8.Enabled = True
        OpRising.Enabled = True
        OpFalling.Enabled = True
        Frame10.Enabled = True
        OpDigital.Enabled = True
        OpAnalog.Enabled = True
        EditTriggerVoltage.Enabled = True
        EditDelayCount.Enabled = False
        Frame4.Enabled = True
        OpCyclic.Enabled = True
        OpNoncyclic.Enabled = True
        OpExternalTrigger.value = True
        OpRising.value = True
    ElseIf (TriggerMode = MODE_DelayTrigger) Then
        ' it is pacer, disable Trigger Source
        Frame5.Enabled = False
        OpInternalTrigger.Enabled = False
        OpExternalTrigger.Enabled = False
        Frame8.Enabled = True
        OpRising.Enabled = True
        OpFalling.Enabled = True
        Frame10.Enabled = True
        OpDigital.Enabled = True
        OpAnalog.Enabled = True
        EditTriggerVoltage.Enabled = True
        EditDelayCount.Enabled = True
        Frame4.Enabled = True
        OpCyclic.Enabled = True
        OpNoncyclic.Enabled = True
        OpExternalTrigger.value = True
        OpRising.value = True
    ElseIf (TriggerMode = MODE_AboutTrigger) Then
        ' it is pacer, disable Trigger Source
        Frame5.Enabled = False
        OpInternalTrigger.Enabled = False
        OpExternalTrigger.Enabled = False
        Frame8.Enabled = True
        OpRising.Enabled = True
        OpFalling.Enabled = True
        Frame10.Enabled = True
        OpDigital.Enabled = True
        OpAnalog.Enabled = True
        EditTriggerVoltage.Enabled = True
        EditDelayCount.Enabled = True
        Frame4.Enabled = False
        OpCyclic.Enabled = False
        OpCyclic.value = True
        OpNoncyclic.Enabled = False
        OpExternalTrigger.value = True
        OpRising.value = True
    End If
End Sub
Private Sub Form_Terminate()
If state <> STATE_Run Then
    End
End If
End Sub

' Settings
' Column 1
Private Sub EditPacerRate_Change()
  PacerRate1 = Val(EditPacerRate.Text)
End Sub

Private Sub OpAnalog0_Click()
   TriggerType1 = 1
End Sub

Private Sub OpAnalog1_Click()
   TriggerType1 = 2
End Sub

Private Sub OpAnalog2_Click()
   TriggerType1 = 3
End Sub

Private Sub OpAnalog3_Click()
    TriggerType1 = 4
End Sub

Private Sub OpPacer_Click()
    TriggerMode1 = MODE_PacerTrigger
  ' it is pacer, disable Trigger Source, Trigger Edge and Trigger Type
    Frame5.Enabled = False
    OpInternalTrigger.Enabled = False
    OpExternalTrigger.Enabled = False
    Frame8.Enabled = False
    OpRising.Enabled = False
    OpFalling.Enabled = False
    Frame10.Enabled = False
    OpDigital.Enabled = False
    OpAnalog0.Enabled = False
    OpAnalog1.Enabled = False
    OpAnalog2.Enabled = False
    OpAnalog3.Enabled = False
    EditTriggerVoltage.Enabled = False
    EditDelayCount.Enabled = False
    Frame4.Enabled = True
    OpCyclic.Enabled = True
    OpNoncyclic.Enabled = True
    OpInternalTrigger.value = True
    OpRising.value = True
End Sub
Private Sub OpPost_Click()
    TriggerMode1 = MODE_PostTrigger
    ' it is pacer, disable Trigger Source
    Frame5.Enabled = False
    OpInternalTrigger.Enabled = False
    OpExternalTrigger.Enabled = False
    Frame8.Enabled = True
    OpRising.Enabled = True
    OpFalling.Enabled = True
    Frame10.Enabled = True
    OpDigital.Enabled = True
    OpAnalog0.Enabled = True
    OpAnalog1.Enabled = True
    OpAnalog2.Enabled = True
    OpAnalog3.Enabled = True
    EditTriggerVoltage.Enabled = True
    EditDelayCount.Enabled = False
    Frame4.Enabled = True
    OpCyclic.Enabled = True
    OpNoncyclic.Enabled = True
    OpExternalTrigger.value = True
    'OpFalling.value = True
    OpRising.value = True
    TriggerEdge1 = MODE_RisingTrigger
End Sub
Private Sub OpDelay_Click()
    TriggerMode1 = MODE_DelayTrigger
    ' it is pacer, disable Trigger Source
    Frame5.Enabled = False
    OpInternalTrigger.Enabled = False
    OpExternalTrigger.Enabled = False
    Frame8.Enabled = True
    OpRising.Enabled = True
    OpFalling.Enabled = True
    Frame10.Enabled = True
    OpDigital.Enabled = True
    OpAnalog0.Enabled = True
    OpAnalog1.Enabled = True
    OpAnalog2.Enabled = True
    OpAnalog3.Enabled = True
    EditTriggerVoltage.Enabled = True
    EditDelayCount.Enabled = True
    Frame4.Enabled = True
    OpCyclic.Enabled = True
    OpNoncyclic.Enabled = True
    OpExternalTrigger.value = True
    OpRising.value = True
    OpFalling.value = True
    TriggerEdge1 = MODE_FallingTrigger
End Sub
Private Sub OpAbout_Click()
    TriggerMode1 = MODE_AboutTrigger
     ' it is pacer, disable Trigger Source
    Frame5.Enabled = False
    OpInternalTrigger.Enabled = False
    OpExternalTrigger.Enabled = False
    Frame8.Enabled = True
    OpRising.Enabled = True
    OpFalling.Enabled = True
    Frame10.Enabled = True
    OpDigital.Enabled = True
    OpAnalog0.Enabled = True
    OpAnalog1.Enabled = True
    OpAnalog2.Enabled = True
    OpAnalog3.Enabled = True
    EditTriggerVoltage.Enabled = True
    EditDelayCount.Enabled = True
    Frame4.Enabled = False
    OpCyclic.Enabled = False
    OpCyclic.value = True
    OpNoncyclic.Enabled = False
    OpExternalTrigger.value = True
    OpRising.value = True
    
    TriggerEdge1 = MODE_RisingTrigger
End Sub

Private Sub EditDelayCount_Change()
  DelayCount1 = Val(EditDelayCount.Text)
End Sub

Private Sub EditStartChannel_Change()
  StartChannel1 = Val(EditStartChannel.Text)
End Sub
Private Sub EditChannelNum_Change()
  ChannelNum1 = Val(EditChannelNum.Text)
End Sub

Private Sub EditConv_Change()
  Conv1 = Val(EditConv.Text)
End Sub

Private Sub OpInternalTrigger_Click()
  TriggerSource1 = MODE_InternalTrigger
End Sub
Private Sub OpExternalTrigger_Click()
  TriggerSource1 = MODE_ExternalTrigger
End Sub

Private Sub OpDigital_Click()
  TriggerType1 = MODE_DigitalTrigger
End Sub

Private Sub EditTriggerVoltage_Change()
  TriggerVoltage1 = Val(EditTriggerVoltage.Text)
End Sub

' Column 2
Private Sub OpRawData_Click()
  DataType1 = MODE_RawData
End Sub
Private Sub OpVoltageData_Click()
  DataType1 = MODE_VoltageData
End Sub

Private Sub OpInternalClock_Click()
  ClockSource1 = MODE_InternalClock
  EditPacerRate.Enabled = True
   
End Sub
Private Sub OpExternalClock_Click()
  ClockSource1 = MODE_ExternalClock
  EditPacerRate.Enabled = False
End Sub


Private Sub OpRising_Click()
  TriggerEdge1 = MODE_RisingTrigger
End Sub
Private Sub OpFalling_Click()
  TriggerEdge1 = MODE_FallingTrigger
End Sub

Private Sub OpOverall_Click()
  GainOption1 = MODE_OverallGain
  ComboxInputRange.Enabled = True
  btGainList.Enabled = False
End Sub
Private Sub OpGainList_Click()
  GainOption1 = MODE_GainList
  ComboxInputRange.Enabled = False
  btGainList.Enabled = True
End Sub
Private Sub ComboxInputRange_Click()
  InputRange1 = ComboxInputRange.ListIndex
End Sub

Private Sub OpCyclic_Click()
  CyclicMode1 = MODE_Cyclic
End Sub
Private Sub OpNoncyclic_Click()
  CyclicMode1 = MODE_Noncyclic
End Sub

Private Sub OpEnable_Click()
  EventMode1 = MODE_EventEnable
End Sub
Private Sub OpDisable_Click()
  EventMode1 = MODE_EventDisable
End Sub

Private Sub EditOverrunTime_Change()
  OverrunTime1 = Val(EditOverrunTime)
End Sub

Private Sub btGainList_Click()
  Setting.Hide
  GainList.Show
End Sub