热电偶 - 图文

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

'Case 4

'Form17.Text12.Text = Form1.Text1.Text 'Form17.Show 'Case 5

'Form19.Text12.Text = Form1.Text1.Text 'Form19.Show 'Case 6

'Form21.Text12.Text = Form1.Text1.Text 'Form21.Show 'Case 7

'Form8.Text12.Text = Form1.Text1.Text 'Form8.Show 'Case 8

'Form23.Text12.Text = Form1.Text1.Text 'Form23.Show 'End Select 'End Sub

Private Sub Command7_Click() '反函数数据库

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

'Form12.Text12.Text = Form1.Text3.Text 'Form12.Show 'Case 3

'Case 4

34

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

'Case 5 'Case 6 'Case 7

'Form9.Text12.Text = Form1.Text3.Text 'Form9.Show 'Case 8 'End Select

Text5.Text = Str(rofjs(Val(Text3.Text))) '取函数的计算结果 Command9.Enabled = True Command7.Enabled = False End Sub

Private Sub Command8_Click()

Dim ee As Single, e1 As Double, e2 As Double e1 = Val(Text2.Text) e2 = Val(Text3.Text) ee = (e1 - e2) / e2 * 100

Debug.Print \Text6.Text = Str(ee) Command8.Enabled = False End Sub

Private Sub Command9_Click()

Dim tt As Single, t1 As Double, t2 As Double t1 = Val(Text4.Text) t2 = Val(Text5.Text) If t2 <> 0 Then tt = (t1 - t2) / t2 * 100

35

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

Debug.Print \End If

Text7.Text = Str(tt) Command9.Enabled = False End Sub

Private Sub Form_Load() fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\fdlist.AddItem \型热电偶\ End Sub

Private Sub fdlist_Click() fdmc = fdlist.Text fdh = fdlist.ListIndex + 1

Debug.Print \ cmdCollection.Enabled = True Command5.Enabled = True End Sub

'温度－毫伏确定按钮单击事件 'Private Sub Command1_Click()

'T = Val(Text1.Text) '取text1的输入值

' fdh = fdlist.List(fdlist.ListIndex) '取listbox中的内容

36

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

'Call rojs(T) '执行函数 'E = rojs(T) '取函数的计算结果 'Debug.Print \热电势=\

' Form2.Show 'End Sub

'毫伏－温度确定按钮单击事件 Private Sub Command2_Click()

' fdh = fdlist.List(fdlist.ListIndex) '取listbox中的内容

Text4.Text = Str(rofjs(Val(Text2.Text))) '取函数的计算结果 Debug.Print \温度=\ Command8.Enabled = True Command2.Enabled = False End Sub

Private Sub Command3_Click() Form5.Show

Unload Me End Sub

Private Function rojs(T As Double) As Double '正函数分度公式 t90 = T

37