热电偶 - 图文

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

图6-2 正函数测温范围提示

图6-3 反函数热电势范围提示

26

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

参考文献

[1] 范玉久.化工测量及仪表石油.北京：化学工业出版社，1981: 232-234

[2] 刘迎春，叶湘滨.传感器原理设计与应用（第三版）.长沙：国防科技大学出版

社，1997：159-161

[3] 国家技术监督局.GB/T16839.1热电偶第1部分：分度表.北京：中国标准出版

社，1998:90-104

[4] 王森.仪表常用数据手册.北京：化学工业出版社，1998：36-52 [5] 张天春.自动检测技术.安达：大庆石油学院教材.2000：276-289

[6] 李欣.世界石油市场发展趋势预测. 国务院发展研究中心信息网:

http://www.drcnet.com/,2000,2

[7] Allamaraju Subrahmanyam.Professional Java Server Programming J2EE

Edition.Wrox Press，2001

[8] Harvard, Gareth. Thematic Network in teacher education in Europe. XXXJ Journal

of Education for teaching, Vol.23, No.1,1997

27

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

致 谢

忠心感谢我的论文指导老师—张天春老师！在我编写论文的过程中张老师教学严谨的工作态度，对知识精益求精的求学态度给我留下了深刻的印象，我一定在以后的工作学习中将其继承并发扬，不辜负老师对我的栽培。

本论文的写作过程，使我对VB的开发、模拟软件的设计与实现的知识等都有了一定程度的理解，感谢大庆石油学院给了我这样一个学习的机会。

感谢武文斌同学在我写作论文过程中对我的帮助。 感谢我的家人对我的理解和支持。

28

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

附 录

附录 1 程序清单 (Form1窗体的中) Dim fdh As Integer Dim E As Double Dim T As Double

Private Sub cmdCollection_Click() Rem 打开设备

Dim TestRes As Boolean

TestRes = TestStr(\ If (TestRes) Then

MsgBox \不能使用设备！\ Exit Sub End If

Rem 1713卡的设备号是0

ErrCde = DRV_DeviceOpen(0, DeviceHandle) If (ErrCde <> 0) Then

DRV_GetErrorMessage ErrCde, szErrMsg

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

'数据采集在这里实现 Dim i As Integer Dim ii As Integer

29