锅炉煤灰渣产生量计算

Private Sub Command1_Click()

    MsgBox "炉渣中的可燃物百分含量，在无热工测试资料的情况下，一般Ciz的取值范围为10-25%，煤粉炉可取0-5%！"

End Sub



Private Sub Command2_Click()

    燃煤DTH.Show

End Sub



Private Sub Command3_Click()

    燃煤可燃物.Show

End Sub



Private Sub Text1_Change()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 1000)

End Sub



Private Sub Text11_Change()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 1000)

End Sub



Private Sub Text13_Click()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

End Sub



Private Sub Text2_Change()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 1000)

End Sub



Private Sub Text3_Change()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 1000)

End Sub



Private Sub Text4_Change()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 1000)

End Sub



Private Sub Text5_Change()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 1000)

End Sub



Private Sub Text6_Click()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    'Text13.Text = Int((g1 + g2) 1000)

    Text6.Text = Int(g1 1000)

    'Text8.Text = Int(g2 1000)

End Sub



Private Sub Text8_Click()

    On Error Resume Next

    q = Text1.Text

    A = Text2.Text

    dif = Text3.Text

    diz = 100 - dif

    cih = Text4.Text

    rate1 = Text5.Text

    ciz = Text11.Text

    'Print q, A, diz, ciz

    g1 = q A diz / ((100 - ciz) 100)

    g2 = q A dif rate1 / ((100 - cih) 100 100)

    'Print g1, g2

    'Text13.Text = Int((g1 + g2) 1000)

    'Text6.Text = Int(g1 1000)

    Text8.Text = Int(g2 * 1000)

End Sub