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