燃油二氧化硫氮氧化物一氧化碳排放量

Private Sub Command1_Click()

燃油全硫分含量.Show

End Sub



Private Sub Command10_Click()

MsgBox "当计算结果为0或未知时,请检查你的输入,是不是有0或是未知数据!"

End Sub



Private Sub Command11_Click()

MsgBox "当计算结果为0或未知时,请检查你的输入,是不是有0或是未知数据!"



End Sub



Private Sub Command12_Click()

MsgBox "当计算结果为0或未知时,请检查你的输入,是不是有0或是未知数据!"



End Sub



Private Sub Command2_Click()

燃油中含氮量.Show

End Sub



Private Sub Command5_Click()

MsgBox "目前只有燃油锅炉数据,NOX转化率为40%,此项不可更改!"

End Sub



Private Sub Command6_Click()

MsgBox "目前只有重油的含碳量,数据为90%,不要更改!"

End Sub



Private Sub Command7_Click()

MsgBox "目前只有重油的燃烧不完全值,数据为2%,不要更改!"

End Sub



Private Sub Text1_Change()

On Error Resume Next

B = Text1.Text

s = Text9.Text

rate1 = Text8.Text

GSO2 = 2000 B s / 100 (1 - rate1 / 100)

GSO2 = Format(GSO2, "######.##")

Text10.Text = GSO2



On Error Resume Next

B = Text1.Text

q = Text12.Text

c = Text13.Text

GCO = 2330 B c / 100 q / 100

GCO = Format(GCO, "######.##")

Text14.Text = GCO



On Error Resume Next

B = Text1.Text

RATE3 = Text7.Text

N = Text2.Text

GNOX = 1630 B (N / 100 TATE3 / 100 + 0.000938)

GNOX = Format(GNOX, "######.##")

Text11.Text = GNOX



End Sub



Private Sub Text10_Click()

On Error Resume Next

B = Text1.Text

s = Text9.Text

rate1 = Text8.Text

GSO2 = 2000 B s / 100 (1 - rate1 / 100)

GSO2 = Format(GSO2, "######.##")

Text10.Text = GSO2

End Sub



Private Sub Text11_Click()

On Error Resume Next

B = Text1.Text

RATE3 = Text7.Text

N = Text2.Text

GNOX = 1630 B (N / 100 RATE3 / 100 + 0.000938)

GNOX = Format(GNOX, "######.##")

Text11.Text = GNOX

End Sub



Private Sub Text14_Click()

On Error Resume Next

B = Text1.Text

q = Text12.Text

c = Text13.Text

GCO = 2330 B c / 100 q / 100

GCO = Format(GCO, "######.##")

Text14.Text = GCO

End Sub



Private Sub Text2_Change()

On Error Resume Next

B = Text1.Text

RATE3 = Text7.Text

N = Text2.Text

GNOX = 1630 B (N / 100 RATE3 / 100 + 0.000938)

GNOX = Format(GNOX, "######.##")

Text11.Text = GNOX

End Sub

Private Sub Text8_Change()

On Error Resume Next

B = Text1.Text

s = Text9.Text

rate1 = Text8.Text

GSO2 = 2000 B s / 100 (1 - rate1 / 100)

GSO2 = Format(GSO2, "######.##")

Text10.Text = GSO2

End Sub



Private Sub Text9_Change()

On Error Resume Next

B = Text1.Text

s = Text9.Text

rate1 = Text8.Text

GSO2 = 2000 B s / 100 * (1 - rate1 / 100)

GSO2 = Format(GSO2, "######.##")

Text10.Text = GSO2

End Sub