我爱环境保护

锅炉煤灰渣产生量计算

发布:65环保2012-12-11 11:00分类: 电脑知识 标签: 锅炉

赞助: 精致礼品 爆款直降| 京东母婴 放心购| 买家电 上京东| 你家装修花多少钱?
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

本文最后更新于2012-12-11,已超过 1 年请注意内容时效!
  • 65环保-最新文章

  • 65环保-热门文章

  • 65环保-随机标签

  • 65环保-我爱环境保护

    blogger

    65环保 :为了曾经的梦想-绿色地球,一直在努力!

  • 65环保-随机推荐

  • 65环保-版权申明

    本站为公益性环保网站,版权归文章作者所有,本站转发旨在传播,若有任何版权问题,请 反馈至站长
  • 扫描二维码

    扫描二维码关注本站,了解更新资讯!