各类贮罐大小呼吸量计算

Private Sub Combo1_Click()



    If Combo1.Text = "拱顶罐" Then



        '大呼吸量计算参数设置



        Label1.Visible = True

        Label2.Visible = True

        Label3.Visible = True

        Label3.Visible = True

        Label6.Visible = True

        Label7.Visible = True

        Label8.Visible = True

        Label9.Visible = True

        Label10.Visible = True

        Label11.Visible = True

        Label13.Visible = True

        Label14.Visible = True

        Label12.Visible = True

        Label15.Visible = True



        Text1.Visible = True

        Text2.Visible = True

        Text5.Visible = True

        Text6.Visible = True

        Text7.Visible = True

        Text8.Visible = True

        Text9.Visible = True

        Text10.Visible = True

        Text11.Visible = True

        Text13.Visible = True

        Text14.Visible = True

        Text12.Visible = True



        Text1.Text = ""

        Text2.Text = "100000"

        Text5.Text = ""

        Text6.Text = ""

        Text7.Text = ""

        Text8.Text = 51.6

        Text9.Text = ""

        Text10.Text = ""

        Text11.Text = ""

        Text13.Text = ""

        Text14.Text = ""

        Text12.Text = ""

        Text15.Text = ""

        Text1.Text = ""



        Text9.ToolTipText = "无需输入,由油罐年周转次数求得!"

        Text8.ToolTipText = "不可更改！"

        Label6.Caption = "泵送液体入罐量 V1        [m^3]："

        Label8.Caption = "油罐容积 V               [m^3]："

        Label7.Caption = "油罐年周转次数 N              ："

        Label9.Caption = "单位换算系数 K                ："

        Label10.Caption = "周转系数 Kt                   ："



        '小呼吸量参数设置

        Label17.Visible = True

        Label18.Visible = True

        Label19.Visible = True

        Label20.Visible = True

        Label21.Visible = True

        Label21.Visible = True

        Label23.Visible = True

        Label24.Visible = True

        Label25.Visible = True

        Label26.Visible = False

        Label27.Visible = False

        Label28.Visible = True

        Label29.Visible = True



        Text3.Visible = True

        Text4.Visible = True

        Text16.Visible = True

        Text17.Visible = True

        Text18.Visible = True

        Text19.Visible = True

        Text20.Visible = True

        Text21.Visible = True

        Text22.Visible = True

        Text23.Visible = False

        Text24.Visible = False

        Text25.Visible = True



        Label17.Caption = "罐内油品本体温度下蒸汽压P[Kpa]："

        Label18.Caption = "当地大气压             P1[Kpa]："

        Label19.Caption = "油罐内汽体空间高度        H[m]："

        Label20.Caption = "大气温度的平均日温差   ΔT[℃]："

        Label21.Caption = "涂料系数                    Fp："

        Label21.Caption = "单位换算系数                K2："

        Label23.Caption = "油品系数 K3                   ："

        Label24.Caption = "小直径油罐修正系数          C1："

        Label25.Caption = "油罐直径                  D[m]："

        Label26.Caption = "泵送液体入罐量 V1        [m^3]："

        Label27.Caption = "泵送液体入罐量 V1        [m^3]："



        Label29.Caption = "小呼吸量计算结果       [m^3/a]："

        Label16.Caption = "大呼吸量计算结果       [m^3/a]："

        Label1.Caption = "贮罐全年无组织排放量为 [m^3/a]："



    ElseIf Combo1.Text = "浮顶油罐" Then



        '大呼吸量计算参数设置



        Label9.Visible = False

        Label10.Visible = False

        Label11.Visible = False

        Label13.Visible = False

        Label14.Visible = False

        Label12.Visible = False

        Label15.Visible = False



        Text8.Visible = False

        Text9.Visible = False

        Text10.Visible = False

        Text11.Visible = False

        Text13.Visible = False

        Text14.Visible = False

        Text12.Visible = False



        Text1.Text = ""

        Text2.Text = "100000"

        Text5.Text = ""

        Text6.Text = ""

        Text7.Text = ""

        Text8.Text = ""

        Text9.Text = ""

        Text10.Text = ""

        Text11.Text = ""

        Text13.Text = ""

        Text14.Text = ""

        Text12.Text = ""

        Text15.Text = ""

        Text1.Text = ""

        Label26.Visible = True

        Label27.Visible = True

        Text23.Visible = True

        Text24.Visible = True

        Label23.Visible = True

        Text20.Visible = True

        Label6.Caption = "油罐直径                 D [m]："

        Label8.Caption = "油品密度          ρy [kg/m^3]："

        Label7.Caption = "油罐壁粘附系数 C [m^3/1000m^2]："



        '小呼吸量参数设置

        Label17.Caption = "密封耗损系数                Ft："

        Label18.Caption = "密封相关系数                Kt："

        Label19.Caption = "油罐所在地平均风速      V[m/s]："

        Label20.Caption = "与密封相关的风速指数         n："

        Label21.Caption = "蒸汽压函数，无量纲          P："

        Label22.Caption = "油气摩尔质量       Mv[Kg/kmol]："

        Label24.Caption = "油品系数                    Kc："

        Label25.Caption = "浮盘附件总损耗系数          Ff："

        Label26.Caption = "油品平均温度下蒸汽压   Py[Kpa]："

        Label27.Caption = "当地大气压             Pa[Kpa]："

        Label23.Caption = "油罐直径                 D [m]："



        Label29.Caption = "小呼吸量计算结果       [Kg/a]："

        Label16.Caption = "大呼吸量计算结果       [Kg/a]："

        Label1.Caption = "贮罐全年无组织排放量为 [Kg/a]："



    ElseIf Combo1.Text = "内浮顶油罐" Then



        '大呼吸量计算参数设置



        Label9.Visible = True

        Label10.Visible = True

        Label11.Visible = False

        Label13.Visible = False

        Label14.Visible = False

        Label12.Visible = False

        Label15.Visible = False



        Text8.Visible = True

        Text9.Visible = True

        Text10.Visible = False

        Text11.Visible = False

        Text13.Visible = False

        Text14.Visible = False

        Text12.Visible = False



        Text1.Text = ""

        Text2.Text = "100000"

        Text5.Text = ""

        Text6.Text = ""

        Text7.Text = ""

        Text8.Text = ""

        Text9.Text = ""

        Text10.Text = ""

        Text11.Text = ""

        Text13.Text = ""

        Text14.Text = ""

        Text12.Text = ""

        Text8.Text = ""

        Text15.Text = ""

        Text1.Text = ""



        Text6.ToolTipText = ""

        Text8.ToolTipText = "若无支柱,请填写0"

        Text9.ToolTipText = "若无支柱,请填写0"



        Label6.Caption = "油罐直径                 D [m]："

        Label8.Caption = "油品密度          ρy [kg/m^3]："

        Label7.Caption = "油罐壁粘附系数 C [m^3/1000m^2]："

        Label9.Caption = "支柱个数                    Nc："

        Label10.Caption = "支柱有效直径             Fc[m]："



        '小呼吸量参数设置



        Label26.Visible = True

        Label27.Visible = True

        Text23.Visible = True

        Text24.Visible = True

        Label24.Visible = True

        Text21.Visible = True



        Label17.Caption = "焊接长度系数                Fd："

        Label18.Caption = "顶板接缝耗损系数            Kd："

        Label19.Caption = "边圈密封损耗系数            Kc："

        Label20.Caption = "单位换算系数                K8："

        Label21.Caption = "蒸汽压函数，无量纲          P："

        Label22.Caption = "油气摩尔质量       Mv[Kg/kmol]："

        Label24.Caption = "支柱有效直径             Fc[m]："

        Label25.Caption = "浮盘附件总损耗系数          Fm："

        Label26.Caption = "油品平均温度下蒸汽压   Py[Kpa]："

        Label27.Caption = "当地大气压             Pa[Kpa]："

        Label23.Caption = "油罐直径                 D [m]："



       Label29.Caption = "小呼吸量计算结果       [Kg/a]："

        Label16.Caption = "大呼吸量计算结果       [Kg/a]："

        Label1.Caption = "贮罐全年无组织排放量为 [Kg/a]："

    End If

End Sub



Private Sub Command1_Click()

    卫生防护距离计算工具.Show

End Sub



Private Sub Command2_Click()

    If Combo1.Text = "拱顶罐" Then

        q = Text2.Text

        V1 = Text5.Text

        N = Text6.Text

        v = Text7.Text

        K = Text8.Text

        kt = Text9.Text

        K1 = Text10.Text

        py = Text11.Text

        py1 = Text12.Text

        py2 = Text13.Text

        uy = Text14.Text



        On Error Resume Next

        Text15.Text = kt K1 py V1 / ((690 - 4 uy) K)

        On Error Resume Next

        Text15.Text = Format(Text15.Text, "####.###")



    ElseIf Combo1.Text = "浮顶油罐" Then

        q = Text2.Text

        d = Text5.Text

        py = Text7.Text

        c = Text6.Text

        On Error Resume Next

        Text15.Text = 4 q c py / (d 1000)

        On Error Resume Next

        Text15.Text = Format(Text15.Text, "####.###")



    ElseIf Combo1.Text = "内浮顶油罐" Then

        q = Text2.Text

        d = Text5.Text

        py = Text7.Text

        c = Text6.Text

        nc = Text8.Text

        fc = Text9.Text

        On Error Resume Next

        Text15.Text = (4 q c py / (d 1000)) (1 + (nc fc) / d)

        On Error Resume Next

        Text15.Text = Format(Text15.Text, "####.###")

    End If



End Sub



Private Sub Command3_Click()

    If Combo1.Text = "拱顶罐" Then

        p = Val(Text3.Text)

        p1 = Val(Text4.Text)

        h = Val(Text16.Text)

        t12 = Val(Text17.Text)

        fp = Val(Text18.Text)

        K2 = Val(Text19.Text)

        k3 = Val(Text20.Text)

        C1 = Val(Text21.Text)

        d = Val(Text22.Text)

        cc = 0.024 K2 k3 (p / (p1 - p)) ^ 0.68 d ^ 1.73 h ^ 0.51 t12 ^ 0.5 fp C1

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

        Text25.Text = cc

    ElseIf Combo1.Text = "浮顶油罐" Then

        Ft = Text3.Text

        kt = Text4.Text

        v = Text16.Text

        N = Text17.Text

        Pm = Text18.Text

        mv = Text19.Text

        kc = Text21.Text

        Ff = Text22.Text

        py = Text23.Text

        pa = Text24.Text

        d = Text20.Text



        ls = 0.46 (3.28 Ft d + Ft) Pm mv kc

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



        Text25.Text = ls



    ElseIf Combo1.Text = "内浮顶油罐" = True Then



        fd = Text3.Text

        kd = Text4.Text

        kc = Text16.Text

        k8 = Text17.Text

        Pm = Text18.Text

        mv = Text19.Text

        d = Text20.Text

        fc = Text21.Text

        Fm = Text22.Text

        py = Text23.Text

        pa = Text24.Text

       

        On Error Resume Next

        ls2 = k8 (kc d + fc + fd kd d ^ 2) Pm mv kc



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



        Text25.Text = ls2



    End If

End Sub



Private Sub Form_Load()

    Combo1.AddItem "拱顶罐"

    Combo1.AddItem "浮顶油罐"

    Combo1.AddItem "内浮顶油罐"

    Combo1.Text = "拱顶罐"

    Label25.Visible = True

    Label26.Visible = False

    Label27.Visible = False

    Text22.Visible = True

    Text23.Visible = False

    Text24.Visible = False



End Sub



Private Sub Text10_DblClick()

    If Combo1.Text = "拱顶罐" Then

        MsgBox "汽油K1=1,原油K1=0.75;导则规定!"

    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If



End Sub



Private Sub Text12_Change()

    On Error Resume Next

    bb = (Val(Text12.Text) + Val(Text13.Text)) / 2

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

    Text11.Text = bb

End Sub



Private Sub Text13_Change()

    On Error Resume Next

    cc = (Val(Text12.Text) + Val(Text13.Text)) / 2

    bb = Format(cc, "###.###")

    Text11.Text = bb

End Sub



Private Sub Text15_Change()

    If Combo1.Text = "拱顶罐" Then

        Ff = Val(Text15.Text) + Val(Text25.Text)

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

        Text1.Text = Ff

    ElseIf Combo1.Text = "浮顶油罐" Then

        Ff = Val(Text15.Text) + Val(Text25.Text)

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

        Text1.Text = Ff

    ElseIf Combo1.Text = "内浮顶油罐" Then

        Ff = Val(Text15.Text) + Val(Text25.Text)

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

        Text1.Text = Ff

    End If



End Sub



Private Sub Text16_Change()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        kt = Val(Text4.Text)

        v = Val(Text16.Text)

        N = Val(Text17.Text)

        On Error Resume Next

        Ft = kt (2.24 v) ^ N

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

        Text3.Text = Ft

    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If

End Sub



Private Sub Text16_DblClick()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" = True Then

        边圈密封损耗系数.Show

    End If



End Sub



Private Sub Text17_Change()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        kt = Val(Text4.Text)

        v = Val(Text16.Text)

        N = Val(Text17.Text)

        On Error Resume Next

        Ft = kt (2.24 v) ^ N

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

        Text3.Text = Ft

    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If

End Sub



Private Sub Text17_DblClick()

    If Combo1.Text = "拱顶罐" Then

        tlxs.Show

    ElseIf Combo1.Text = "浮顶油罐" Then

        mfxs.Show

    ElseIf Combo1.Text = "内浮顶油罐" Then

        MsgBox "单位换算系数K8=0.45"

    End If

End Sub



Private Sub Text18_DblClick()

    If Combo1.Text = "拱顶罐" Then

        tlxs.Show

    ElseIf Combo1.Text = "浮顶油罐" Then

        MsgBox "蒸汽压函数无量纲，要求输入油品的平均蒸汽压Py和当地气压Pa，由系统自动求得！"



    ElseIf Combo1.Text = "内浮顶油罐" Then

        MsgBox "蒸汽压函数无量纲，要求输入油品的平均蒸汽压Py和当地气压Pa，由系统自动求得！"

    End If

End Sub



Private Sub Text19_DblClick()

    If Combo1.Text = "拱顶罐" Then

        MsgBox "单位换算系数,K2=3.05"

    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If

End Sub



Private Sub Text20_DblClick()

    If Combo1.Text = "拱顶罐" Then

        MsgBox "汽油K3=1,原油K3=0.58;导则规定!"

    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If

End Sub



Private Sub Text21_DblClick()

    If Combo1.Text = "拱顶罐" Then

        MsgBox "小直径油罐修正系数C1由油罐直径求得,要求输入油罐直径!"

    ElseIf Combo1.Text = "浮顶油罐" Then

        MsgBox "油品系数，原油Kc=0.4，汽油Kc=0.1"



    ElseIf Combo1.Text = "内浮顶油罐" Then



    End If

End Sub



Private Sub Text22_Change()

    If Combo1.Text = "拱顶罐" Then

        If Val(Text22.Text) > 9.14 Or Val(Text22.Text) = 9.14 Then

            Text21.Text = 1#

        Else

            bb = 0.082626 + 0.073636 Val(Text22.Text) + 0.0013099 Val(Text22.Text) ^ 2 + 0.0000019891 Val(Text22.Text) ^ 3

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

            Text21.Text = bb

        End If



    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If

End Sub



Private Sub Text22_DblClick()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        MsgBox "Ff浮盘附件总耗损系数因各罐所用的附件不一样，无法给出，请对照《石油库节能设计导则》手工计算输入！"



    ElseIf Combo1.Text = "内浮顶油罐" Then

        MsgBox "Ff浮盘附件总耗损系数因各罐所用的附件不一样，无法给出，请对照《石油库节能设计导则》手工计算输入！"

    End If



End Sub



Private Sub Text23_Change()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        py = Val(Text23.Text)

        pa = Val(Text24.Text)

        On Error Resume Next

        Pm = py / (pa (1 + (1 - py / pa) ^ 0.5) ^ 2)

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

        Text18.Text = Pm



    ElseIf Combo1.Text = "内浮顶油罐" Then

        py = Val(Text23.Text)

        pa = Val(Text24.Text)

        On Error Resume Next

        Pm = py / (pa (1 + (1 - py / pa) ^ 0.5) ^ 2)

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

        Text18.Text = Pm



    End If

End Sub



Private Sub Text23_DblClick()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        MsgBox "油品液面的平均蒸汽压，为油罐液面表面蒸汽压年记录的最高温度液面蒸汽压和最低温度的液面蒸汽压平均值！需手工计算输入！"



    ElseIf Combo1.Text = "内浮顶油罐" Then

        MsgBox "油品液面的平均蒸汽压，为油罐液面表面蒸汽压年记录的最高温度液面蒸汽压和最低温度的液面蒸汽压平均值！需手工计算输入！"



    End If

End Sub



Private Sub Text24_Change()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        py = Val(Text23.Text)

        pa = Val(Text24.Text)

        On Error Resume Next

        Pm = py / (pa (1 + (1 - py / pa) ^ 0.5) ^ 2)

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

        Text18.Text = Pm



    ElseIf Combo1.Text = "内浮顶油罐" Then

        py = Val(Text23.Text)

        pa = Val(Text24.Text)

        On Error Resume Next

        Pm = py / (pa (1 + (1 - py / pa) ^ 0.5) ^ 2)

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

        Text18.Text = Pm



    End If

End Sub



Private Sub Text25_Change()

    If Combo1.Text = "拱顶罐" Then

        Ff = Val(Text15.Text) + Val(Text25.Text)

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

        Text1.Text = Ff

    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" Then



    End If

End Sub



Private Sub Text3_DblClick()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        MsgBox "要求输入密封相关系数Kt和风速指数n,由密封相关系数和风速指数系统自动由得!"



    ElseIf Combo1.Text = "内浮顶油罐" = True Then

        MsgBox "Fd顶板焊接系数,系指顶板接缝长度与顶板面积的比值；需手工计算输入！"

    End If

End Sub



Private Sub Text4_Change()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        kt = Val(Text4.Text)

        v = Val(Text16.Text)

        N = Val(Text17.Text)

        On Error Resume Next

        Ft = kt (2.24 v) ^ N

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

        Text3.Text = Ft

    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If

End Sub



Private Sub Text4_DblClick()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        mfxs.Show

    ElseIf Combo1.Text = "内浮顶油罐" = True Then

        MsgBox "顶板接缝系数Kd，焊接顶板，Kd=0；非焊接顶板，Kd=3.66！"

    End If

End Sub



Private Sub Text6_Change()

    If Combo1.Text = "拱顶罐" Then

        AA = Text6.Text

        If AA > 36 Then

            On Error Resume Next

            Text9.Text = (180 + AA) / (6 AA)

            Text9.Text = Format(Text9.Text, "####.###")

        Else

            On Error Resume Next

            Text9.Text = 1

        End If



    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" = True Then



    End If



End Sub



Private Sub Text6_DblClick()

    If Combo1.Text = "拱顶罐" Then



    ElseIf Combo1.Text = "浮顶油罐" Then

        MsgBox "若装气油的贮罐，缸壁分为轻锈、内锈和喷涂内衬，油罐壁粘滞系数对应的值为：0.00257、0.01284、0.2567！若装原油的贮罐，缸壁分为轻锈、内锈和喷涂内衬，对应的值为：0.01027、0.05134、1.0268！"

    ElseIf Combo1.Text = "内浮顶油罐" = True Then

        MsgBox "若装气油的贮罐，缸壁分为轻锈、内锈和喷涂内衬，油罐壁粘滞系数对应的值为：0.00257、0.01284、0.2567！若装原油的贮罐，缸壁分为轻锈、内锈和喷涂内衬，对应的值为：0.01027、0.05134、1.0268！"

    End If

End Sub



Private Sub Text7_Change()

    If Combo1.Text = "拱顶罐" Then

        On Error Resume Next

        Text6.Text = Text2.Text / Text7.Text

        On Error Resume Next

        Text6.Text = Format(Text6.Text, "####.###")

    ElseIf Combo1.Text = "浮顶油罐" Then



    ElseIf Combo1.Text = "内浮顶油罐" Then



    End If

End Sub