热电偶 - 图文

大庆石油学院本科生毕业设计（论文）

Rem t1是被校正热电偶的热电势，t2是标准热电偶的热电势 Dim t1 As Single Dim t2 As Single Dim voltage As Single

Rem 设置电压范围，17表示电压范围是0-5V lpAIConfig.DasGain = 17 t1 = 0: t2 = 0 For i = 1 To 10 Rem 设置通道号 For ii = 0 To 1

lpAIConfig.DasChan = ii

ErrCde = DRV_AIConfig(DeviceHandle, lpAIConfig) If (ErrCde <> 0) Then

DRV_GetErrorMessage ErrCde, szErrMsg

Response = MsgBox(szErrMsg, vbOKOnly, \ Exit Sub End If

AiVolIn.chan = lpAIConfig.DasChan AiVolIn.gain = lpAIConfig.DasGain AiVolIn.TrigMode = AiCtrMode

AiVolIn.voltage = DRV_GetAddress(voltage) Rem 采集电压信号

ErrCde = DRV_AIVoltageIn(DeviceHandle, AiVolIn) If (ErrCde <> 0) Then 'Rem 出错处理 DRV_GetErrorMessage ErrCde, szErrMsg

Response = MsgBox(szErrMsg, vbOKOnly, \ tmrRead.Enabled = False Exit Sub End If If ii = 0 Then t1 = t1 + voltage Else

t2 = t2 + voltage End If

30

大庆石油学院本科生毕业设计（论文）

Next ii Next i

t1 = t1 / 10: t2 = t2 / 10

Rem -----------------------将采集到的标准信号换算成热电偶的热电势------------------- Select Case fdh Case 1: 'R

SToU t1, -188, 21003 SToU t2, -188, 21003 Case 2: 'S

SToU t1, -194, 18609 SToU t2, -194, 18609 Case 3: 'B

t1 = t1 / 4 * 1800 t2 = t2 / 4 * 1800 Case 4: 'J

SToU t1, -7890, 69553 SToU t2, -7890, 69553 Case 5: 'T

SToU t1, -6232, 20872 SToU t2, -6232, 20872 Case 6: 'E

SToU t1, -9797, 76373 SToU t2, -9797, 76373 Case 7: 'K

SToU t1, -6441, 52410 SToU t2, -6441, 52410 Case 8: 'N

SToU t1, -4336, 47513 SToU t2, -4336, 47513 End Select

Text2.Text = Format(t1, \ Text3.Text = Format(t2, \

31

大庆石油学院本科生毕业设计（论文）

Rem 关闭设备

ErrCde = DRV_DeviceClose(DeviceHandle) If (ErrCde <> 0) Then

DRV_GetErrorMessage ErrCde, szErrMsg

Response = MsgBox(szErrMsg, vbOKOnly, \ End If

Command2.Enabled = True Command7.Enabled = True End Sub

Rem 该函数实现的功能是将标准信号量转换成微伏信号量

Private Function SToU(T As Single, ByVal min As Single, ByVal max As Single) T = (T - 1) / 4 * (max - min) + min End Function

Private Sub Command4_Click() Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \ End Sub

Private Sub commond_Click() End Sub

Private Sub Command5_Click() '阅览 Select Case fdh Case 1 'R型热电偶 Form26.Show

32

大庆石油学院本科生毕业设计（论文）

Case 2 Form13.Show Case 3 Form16.Show Case 4 Form18.Show Case 5 Form20.Show Case 6 Form22.Show Case 7 Form10.Show Case 8 Form24.Show End Select End Sub

'Private Sub Command6_Click() '正函数数据库

'Select Case fdh 'Case 1 'R型热电偶

'Form4.Text12.Text = Form1.Text1.Text 'Form4.Show 'Case 2

'Form7.Text12.Text = Form1.Text1.Text 'Form7.Show 'Case 3

'Form15.Text12.Text = Form1.Text1.Text 'Form15.Show

33