📄 form2.frm
字号:
Width = 615
End
Begin VB.Label Label13
Caption = "水含量%"
Height = 255
Left = 360
TabIndex = 37
Top = 6600
Width = 735
End
Begin VB.Label Label12
Caption = "Label12"
Height = 255
Left = 4920
TabIndex = 36
Top = 3600
Width = 855
End
Begin VB.Label Label11
Caption = "理论烟气量LY(m3/m3)"
Height = 255
Left = 4800
TabIndex = 35
Top = 2880
Width = 1815
End
Begin VB.Label Label10
Caption = "Label10"
Height = 255
Left = 4920
TabIndex = 34
Top = 2160
Width = 975
End
Begin VB.Label Label9
Caption = "理论空气需要量L0(m3/m3)"
Height = 255
Left = 4680
TabIndex = 33
Top = 1440
Width = 2175
End
Begin VB.Label Label8
Caption = "Label8"
Height = 255
Left = 4920
TabIndex = 32
Top = 720
Width = 855
End
Begin VB.Label Label7
Caption = "低发热量Qd(KJ/kg)"
Height = 255
Left = 4680
TabIndex = 31
Top = 240
Width = 1695
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 7
Left = 3840
TabIndex = 29
Top = 5760
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 6
Left = 3840
TabIndex = 28
Top = 5040
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 5
Left = 3840
TabIndex = 27
Top = 4320
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 4
Left = 3840
TabIndex = 26
Top = 3600
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 3
Left = 3840
TabIndex = 25
Top = 2880
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 2
Left = 3840
TabIndex = 24
Top = 2160
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 1
Left = 3840
TabIndex = 23
Top = 1440
Width = 615
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Index = 0
Left = 3840
TabIndex = 22
Top = 720
Width = 615
End
Begin VB.Label Label5
Caption = "湿成分%"
Height = 255
Left = 3840
TabIndex = 21
Top = 240
Width = 735
End
Begin VB.Label Label4
Caption = "g"
Height = 255
Left = 2880
TabIndex = 19
Top = 1200
Width = 255
End
Begin VB.Label Label3
Caption = "输入温度(度）"
Height = 255
Left = 2400
TabIndex = 17
Top = 240
Width = 1215
End
Begin VB.Label Label2
Caption = "干成分%"
Height = 255
Left = 1440
TabIndex = 8
Top = 240
Width = 735
End
Begin VB.Label Label1
Caption = "H2S"
Height = 375
Index = 7
Left = 360
TabIndex = 7
Top = 5760
Width = 615
End
Begin VB.Label Label1
Caption = "N2"
Height = 375
Index = 6
Left = 360
TabIndex = 6
Top = 5040
Width = 615
End
Begin VB.Label Label1
Caption = "CO"
Height = 375
Index = 5
Left = 360
TabIndex = 5
Top = 4320
Width = 615
End
Begin VB.Label Label1
Caption = "CH4"
Height = 375
Index = 4
Left = 360
TabIndex = 4
Top = 3600
Width = 615
End
Begin VB.Label Label1
Caption = "H2"
Height = 375
Index = 3
Left = 360
TabIndex = 3
Top = 2880
Width = 615
End
Begin VB.Label Label1
Caption = "O2"
Height = 375
Index = 2
Left = 360
TabIndex = 2
Top = 2160
Width = 615
End
Begin VB.Label Label1
Caption = "C2H4"
Height = 375
Index = 1
Left = 360
TabIndex = 1
Top = 1440
Width = 615
End
Begin VB.Label Label1
Caption = "CO2"
Height = 375
Index = 0
Left = 360
TabIndex = 0
Top = 720
Width = 615
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Dim i As Integer
Dim A As Integer
Text2.Text = " "
Text3.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
For i = 0 To 7
Text1(i).Text = ""
Label6(i).Caption = ""
Next i
For t = 0 To 4
Label21(t).Caption = ""
Next t
Label18.Caption = ""
Label10.Caption = ""
Label12.Caption = ""
Label14.Caption = ""
Label17.Caption = ""
Label19.Caption = ""
Label25.Caption = ""
End Sub
Private Sub Command3_Click()
Unload MDIForm1
End Sub
Private Sub Form_Load()
Dim i As Integer
'Text2.Text = " "
'Text3.Text = " "
'Text3.Text = " "
'Text4.Text = " "
'Text5.Text = " "
'Text6.Text = " "
' Text7.Text = " "
' For i = 0 To 7
'text1(i).Text = ""
' Next i
End Sub
'Dim g As Double
'SearchG 35, g
'Text1.Text = Str(g)
Public Sub command1_click()
Dim V As Single, k As Boolean
Dim CO, H2, CH4, C2H4, H2S, O2, CO2, N2, W As Single
Dim i As Integer
'Dim text1(7) As Single
t = Val(Text2.Text)
For i = 0 To 7
If Text1(i).Text = "" Or Text2.Text = "" Then
MsgBox "请输入燃料干成分和空气温度!", 64, "提示"
Exit Sub
End If
Next i
k = SearchG(t, V)
If Not k Then MsgBox "记录不存在!", 64, "提示"
Text3.Text = Str(V)
Label14.Caption = Val(Text3.Text) * 22.4 * 0.001 * 100 / (18 + 31.1 * 22.4 * 0.001)
For i = 0 To 7
Label6(i) = Int((Val(Text1(i).Text) * 100 / (100 + 0.124 * Val(Text3.Text))) * 100) / 100
Next i
CO = Val(Label6(5).Caption)
H2 = Val(Label6(3).Caption)
CH4 = Val(Label6(4).Caption)
C2H4 = Val(Label6(1).Caption)
H2S = Val(Label6(7).Caption)
O2 = Val(Label6(2).Caption)
CO2 = Val(Label6(0).Caption)
N2 = Val(Label6(6).Caption)
W = Val(Label14.Caption)
Label8 = GQd(CO, H2, CH4, C2H4, H2S)
Label10 = GL0(CO, H2, CH4, C2H4, H2S, O2)
Label12 = GLY(CO, H2, CH4, C2H4, H2S, CO2, N2, W)
Label17 = GLn(CO, H2, CH4, C2H4, H2S, O2)
Label19 = GSY(CO, H2, CH4, C2H4, H2S, CO2, O2, N2, W)
Label21(0) = GPCO2(CO, CH4, C2H4, CO2)
Label21(1) = GPSO2(H2S)
Label21(2) = GPH2O(H2, CH4, C2H4, H2S, W, CO, O2)
Label21(3) = GPN2(N2, CO, H2, CH4, C2H4, H2S, O2)
Label21(4) = GPO2(CO, H2, CH4, C2H4, H2S, O2)
Label25 = Gt理(CO, H2, CH4, C2H4, H2S, O2)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim msg
If UnloadMode > 0 Then
msg = "确实要退出应用程序吗？"
Else
msg = "确实要关闭窗体吗？"
End If
If MsgBox(msg, 36, Me.Caption) = 7 Then Cancel = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -