📄 mainform.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00FFC0C0&
Caption = "温度计算小程序--ZEL"
ClientHeight = 2685
ClientLeft = 60
ClientTop = 450
ClientWidth = 5310
DrawMode = 1 'Blackness
Icon = "MainForm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2685
ScaleWidth = 5310
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 375
Left = 2280
TabIndex = 14
Top = 2280
Visible = 0 'False
Width = 1095
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 420
Index = 2
Left = 1680
TabIndex = 12
Text = "25"
Top = 1837
Width = 525
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3480
MaskColor = &H0000C000&
Picture = "MainForm.frx":1CCA
Style = 1 'Graphical
TabIndex = 4
Top = 1800
Width = 1000
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 420
Index = 1
Left = 3960
Locked = -1 'True
TabIndex = 5
Text = "0"
Top = 1125
Width = 855
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 420
Index = 0
Left = 3960
TabIndex = 0
Text = "0"
Top = 525
Width = 855
End
Begin VB.ComboBox Combo1
Height = 315
Index = 1
Left = 1680
TabIndex = 2
Text = "Combo1"
Top = 1170
Width = 735
End
Begin VB.ComboBox Combo1
Height = 315
Index = 0
ItemData = "MainForm.frx":4100
Left = 1680
List = "MainForm.frx":4102
TabIndex = 1
Text = "Combo1"
Top = 570
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "℃"
BeginProperty Font
Name = "MS Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 2185
TabIndex = 13
Top = 1920
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "冷端温度"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 480
TabIndex = 11
Top = 1920
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "℃"
BeginProperty Font
Name = "MS Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 4800
TabIndex = 10
Top = 1200
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "℃"
BeginProperty Font
Name = "MS Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 4800
TabIndex = 9
Top = 600
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "显示温度"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 2880
TabIndex = 8
Top = 600
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "实际温度"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 2880
TabIndex = 7
Top = 1200
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "热电偶类型"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 240
TabIndex = 6
Top = 1200
Width = 1335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "温度表类型"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 3
Top = 600
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public File_Tag As Boolean
Public aaaa As Integer
Private Sub Command1_Click()
Dim TestValueT As Single
Dim RealValueT As Single
Dim RefValueT As Single
Dim TestValueV As Single
Dim RealValueV As Single
Dim RefValueV1 As Single
Dim RefValueV2 As Single
Dim ValueVdef As Single
Dim P As Single
Dim j, k, r As Integer
Dim XTemp(41) As Single
Dim Ytemp(41) As Single
TestValueT = Text1(0).Text
RefValueT = Text1(2).Text
RefValueV1 = 0
RefValueV2 = 0
ValueVdef = 0
RealValueV = 0
RealValueT = 0
P = 0: k = 0
If TestValueT < TValue(1) Or TestValueT >= TValue(40) Then ''''''''''''''''从Tvalue(1)到TValue(40）的数据是温度
MsgBox ("温度仪表类型错误或测得的温度不正确！")
Exit Sub
Else
For i = 0 To 9
If TType(i) = Combo1(0) Then
'' For j = 41 * i + 1 To i * 41 + 39
'' k = j Mod 41
'' If TestValueT >= TValue(k) And TestValueT < TValue(k + 1) Then
'' If TestValueT < TValue(2) Then P = (TestValueT - TValue(k + 1)) * (TestValueT - TValue(k + 2)) / (TValue(k) - TValue(k + 1)) / (TValue(k) - TValue(k + 2)) * TValue(j) + (TestValueT - TValue(k)) * (TestValueT - TValue(k + 2)) / (TValue(k + 1) - TValue(k)) / (TValue(k + 1) - TValue(k + 2)) * TValue(j + 1) + (TestValueT - TValue(k)) * (TestValueT - TValue(k + 1)) / (TValue(k + 2) - TValue(k)) / (TValue(k + 2) - TValue(k + 1)) * TValue(j + 2)
'' If TestValueT >= TValue(39) Then P = (TestValueT - TValue(k)) / (TValue(k + 1) - TValue(k)) * TValue(j + 1) + (TestValueT - TValue(k + 1)) / (TValue(k) - TValue(k + 1)) * TValue(j)
'' If TestValueT >= TValue(2) And TestValueT < TValue(39) Then P = (TestValueT - TValue(k)) * (TestValueT - TValue(k + 1)) * (TestValueT - TValue(k + 2)) / (TValue(k - 1) - TValue(k)) / (TValue(k - 1) - TValue(k + 1)) / (TValue(k - 1) - TValue(k + 2)) * TValue(j - 1) + (TestValueT - TValue(k - 1)) * (TestValueT - TValue(k + 1)) * (TestValueT - TValue(k + 2)) / (TValue(k) - TValue(k - 1)) / (TValue(k) - TValue(k + 1)) / (TValue(k) - TValue(k + 2)) * TValue(j) + (TestValueT - TValue(k - 1)) * (TestValueT - TValue(k)) * (TestValueT - TValue(k + 2)) / (TValue(k + 1) - TValue(k - 1)) / (TValue(k + 1) - TValue(k)) / (TValue(k + 1) - TValue(k + 2)) * TValue(j + 1) + (TestValueT - TValue(k - 1)) * (TestValueT - TValue(k)) * (TestValueT - TValue(k + 1)) / (TValue(k + 2) - TValue(k - 1)) / (TValue(k + 2) - TValue(k)) / (TValue(k + 2) - TValue(k + 1)) * TValue(j + 2)
'' End If
'' Next j
''''求显示温度对应的电动势
For j = 41 * i To 41 * i + 40
k = j Mod 41
XTemp(k) = TValue(k)
Ytemp(k) = TValue(j)
Next j
TestValueV = InsertValue(XTemp(), Ytemp(), TestValueT)
''''求参考温度对应的仪表类型的电动势
RefValueV1 = InsertValue(XTemp(), Ytemp(), RefValueT)
ValueVdef = TestValueV - RefValueV1
End If
Next i
For i = 0 To 9
If TType(i) = Combo1(1) Then
For j = 41 * i To 41 * i + 40
k = j Mod 41
XTemp(k) = TValue(j)
Ytemp(k) = TValue(k)
Next j
''''求参考温度对应的热电偶类型的电动势
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -