发布时间 : 星期一 文章热电偶 - 图文更新完毕开始阅读26a2ed373968011ca300919c
大庆石油学院本科生毕业设计（论文）
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