thermoform.vb

来自「使用研华DAQ和VB.net实现研华数据采集卡的多种功能.包括数据输入输出。内含」· VB 代码 · 共 885 行 · 第 1/3 页

        Me.Label8.BackColor = System.Drawing.SystemColors.Control
        Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label8.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(16, 96)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(16, 16)
        Me.Label8.TabIndex = 27
        Me.Label8.Text = "1"
        '
        'Label6
        '
        Me.Label6.BackColor = System.Drawing.SystemColors.Control
        Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label6.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(8, 160)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(97, 16)
        Me.Label6.TabIndex = 25
        Me.Label6.Text = "Thermo Reading:"
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.SystemColors.Control
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(16, 56)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(80, 17)
        Me.Label5.TabIndex = 24
        Me.Label5.Text = "Polling Rate:"
        '
        'ScanTimer
        '
        Me.ScanTimer.Interval = 1
        '
        'DAQAI1
        '
        Me.DAQAI1.Enabled = True
        Me.DAQAI1.Location = New System.Drawing.Point(416, 8)
        Me.DAQAI1.Name = "DAQAI1"
        Me.DAQAI1.OcxState = CType(resources.GetObject("DAQAI1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.DAQAI1.Size = New System.Drawing.Size(33, 33)
        Me.DAQAI1.TabIndex = 46
        '
        'frmThermo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(488, 349)
        Me.Controls.Add(Me.DAQAI1)
        Me.Controls.Add(Me.Frame1)
        Me.Controls.Add(Me.Frame4)
        Me.Controls.Add(Me.cmdExit)
        Me.Controls.Add(Me.FrameProperty)
        Me.MaximizeBox = False
        Me.Name = "frmThermo"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "thermo"
        Me.FrameProperty.ResumeLayout(False)
        Me.Frame1.ResumeLayout(False)
        Me.Frame4.ResumeLayout(False)
        CType(Me.DAQAI1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub cmbInputRange_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbInputRange.SelectedIndexChanged
        If (IsInitializing) Then
            Exit Sub
        End If

        DAQAI1.ThermoDasGain = cmbInputRange.SelectedIndex
    End Sub

    Private Sub cmbDasChannel_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbDasChannel.SelectedIndexChanged
        If (IsInitializing) Then
            Exit Sub
        End If
        DAQAI1.ThermoDasChannel = cmbDasChannel.SelectedIndex
    End Sub



    Private Sub cmbDaughterChannel_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbDaughterChannel.SelectedIndexChanged
        If (IsInitializing) Then
            Exit Sub
        End If
        DAQAI1.DaughterChannel = cmbDaughterChannel.SelectedIndex
    End Sub

    Private Sub cmbSelectDaughter_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbSelectDaughter.Click
        Dim j As Object

        Dim ThermoDasChannel = DAQAI1.SelectDaughter()

        txtDaughterName.Enabled = True
        cmbDaughterChannel.Enabled = True

        cmbDaughterChannel.Items.Clear()
        For j = 0 To 31
            cmbDaughterChannel.Items.Add((Str(j)))
        Next j

        txtDaughterName.Text = DAQAI1.DaughterName
        cmbDaughterChannel.SelectedIndex = 0
        cmbDasChannel.SelectedIndex = DAQAI1.ThermoDasChannel
        txtErrCode.Text = DAQAI1.ErrorMessage


    End Sub

    Private Sub cmbThermoScale_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbThermoScale.SelectedIndexChanged
        If (IsInitializing) Then
            Exit Sub
        End If
        DAQAI1.ThermoScale = cmbThermoScale.SelectedIndex
    End Sub

    Private Sub cmbThermoType_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmbThermoType.SelectedIndexChanged
        If (IsInitializing) Then
            Exit Sub
        End If
        DAQAI1.ThermoType = cmbThermoType.SelectedIndex
    End Sub



    Private Sub frmThermo_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        ' Add selectable items of Thermocouple type
        cmbThermoType.Items.Add("J type") ' 0
        cmbThermoType.Items.Add("K type") ' 1
        cmbThermoType.Items.Add("S type") ' 2
        cmbThermoType.Items.Add("T type") ' 3
        cmbThermoType.Items.Add("B type") ' 4
        cmbThermoType.Items.Add("R type") ' 5
        cmbThermoType.Items.Add("E type") ' 6

        ' Set the default selection of thermocouple type
        cmbThermoType.SelectedIndex = 0
        DAQAI1.ThermoType = 0

        ' Add selectable items of Thermocouple scale
        cmbThermoScale.Items.Add("C") ' 0
        cmbThermoScale.Items.Add("F") ' 1
        cmbThermoScale.Items.Add("R") ' 2
        cmbThermoScale.Items.Add("K") ' 3

        ' Set the default selection of thermocouple type
        cmbThermoScale.SelectedIndex = 0
        DAQAI1.ThermoScale = 0
        ' Disable Daughter Board
        txtDaughterName.Enabled = False
        cmbDaughterChannel.Enabled = False

        ' Select default device
        Call cmdSelectDevice_Click(cmdSelectDevice, New System.EventArgs)


    End Sub

    Private Sub cmdSelectDevice_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSelectDevice.Click
        Dim i As Short
        Dim j As Short
        Dim bRet As Boolean
        Dim strRange As New String("", 30)

        DAQAI1.SelectDevice()
        txtDeviceNum.Text = CStr(DAQAI1.DeviceNumber)
        txtDeviceName.Text = DAQAI1.DeviceName
        cmbInputRange.Items.Clear()
        cmbDasChannel.Items.Clear()

        ' Open device
        If DAQAI1.OpenDevice Then
            MsgBox(DAQAI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If
        ' Get input range list
        DAQAI1.GetFirstInputRange(strRange)
        cmbInputRange.Items.Add(strRange)
        While (DAQAI1.GetNextInputRange(strRange) = False)
            cmbInputRange.Items.Add(strRange)
        End While
        cmbInputRange.SelectedIndex = 0

        For j = 0 To NumOfInputRange - 1

        Next j
        If NumOfInputRange <> 0 Then
            cmbInputRange.SelectedIndex = 0
            DAQAI1.ThermoDasGain = 0
        End If
        ' Get Max. channel number
        If DAQAI1.MaxDifferentialChannel > DAQAI1.MaxSingleEndedChannel Then
            i = DAQAI1.MaxDifferentialChannel
        Else
            i = DAQAI1.MaxSingleEndedChannel
        End If
        If i = 0 Then
            MsgBox("Function Not Supported", MsgBoxStyle.OKOnly)
            DAQAI1.CloseDevice()
            Exit Sub
        End If

        For j = 0 To i - 1
            cmbDasChannel.Items.Add((Str(j)))
        Next j
        If i <> 0 Then
            cmbDasChannel.SelectedIndex = 0
        End If
        txtDaughterName.Text = DAQAI1.DaughterName

        DAQAI1.CloseDevice()
    End Sub



    Private Sub cmdThermoStart_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdThermoStart.Click
        If DAQAI1.OpenDevice Then
            MsgBox(DAQAI1.ErrorMessage, MsgBoxStyle.OKOnly)
            Exit Sub
        End If
        cmdThermoStart.Enabled = False
        cmdThermoStop.Enabled = True
        cmdExit.Enabled = False
        cmdSelectDevice.Enabled = False

        ' Start getting data
        ScanTimer.Enabled = True
        FrameProperty.Enabled = False
        ScanTimer.Interval = 1000 / hscrlFreq.Value
    End Sub

    Private Sub cmdThermoStop_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdThermoStop.Click
        ' Stop get data
        ScanTimer.Enabled = False
        cmdSelectDevice.Enabled = True

        ' Close device
        DAQAI1.CloseDevice()

        FrameProperty.Enabled = True
        cmdThermoStart.Enabled = True
        cmdThermoStop.Enabled = False
        cmdExit.Enabled = True
    End Sub

    Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
        Me.Close()
        End
    End Sub

    Private Sub hscrlFreq_Change(ByVal newScrollValue As Integer)

        If newScrollValue = 0 Then
            ScanTimer.Interval = 1000
        Else
            ScanTimer.Interval = 1000 / newScrollValue
        End If
    End Sub



    Private Sub ScanTimer_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ScanTimer.Tick
        txtThermoReading.Text = Format(DAQAI1.ThermoRead, "0.000")
        SampleNumber = SampleNumber + 1
        txtSampleNumber.Text = Str(SampleNumber)
        txtErrCode.Text = DAQAI1.ErrorMessage
    End Sub

    Private Sub txtDeviceNum_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles txtDeviceNum.TextChanged
        If (IsInitializing) Then
            Exit Sub
        End If
        DAQAI1.DeviceNumber = Val(txtDeviceNum.Text)
        txtDeviceName.Text = DAQAI1.DeviceName
    End Sub
    Private Sub hscrlFreq_Scroll(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) Handles hscrlFreq.Scroll

        Select Case eventArgs.Type
            Case System.Windows.Forms.ScrollEventType.EndScroll
                hscrlFreq_Change(eventArgs.NewValue)
        End Select
    End Sub
End Class