PLC恒压控水系统设计3(8)

Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \End Sub

Private Sub Command2_Click() Hxsy = Text1.Text Pa = Text2.Text Py = Text3.Text ρy = Text4.Text g = Text5.Text

Text6.Text = Hxsy + (Pa - Py) / ρy * g - 10 End Sub

油泵的允许汽蚀余量： Dim Hxy!, V!, g!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Command2_Click() Hxy = Text1.Text V = Text2.Text g = Text3.Text

Text4.Text = 10 + V ^ 2 / 2 * g - Hxy End Sub

泵的允许安装高度：

Dim Z1!, Z2!, H!, Pa!, Py!, ρy!, g!, Hxsy! Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \Text8.Text = \

33

End Sub

Private Sub Command2_Click() Z1 = Text1.Text H = Text2.Text Pa = Text3.Text Py = Text4.Text ρy = Text5.Text g = Text6.Text Hxsy = Text7.Text

Text8.Text = Hxsy + (Pa - Py) / (ρy * g) - 10 - H + Z1 End Sub

输油管壁厚度：

Dim P!, D!, σ!, Φ!, K!, C!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \End Sub

Private Sub Command2_Click() P = Text1.Text D = Text2.Text σ = Text3.Text Φ = Text4.Text K = Text5.Text C = Text6.Text

Text7.Text = P * D / (2 * σ * Φ + K * P) + C End Sub

输油管径： Dim Q!, v!, π!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

34

Private Sub Command2_Click() Q = Text1.Text v = Text2.Text π = Text3.Text

Text4.Text = (4 * Q / (v * π)) ^ 0.5 End Sub

泡沫泵设计流量：

Dim Qh!, q!, Qh1!, Qh2!, Nc!, qc1!, Nq!, qc2!, f!, g!, H!, μ! Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \End Sub

Private Sub Command2_Click() Qh = Text1.Text q = Text2.Text

Text3.Text = Qh + q End Sub

Private Sub Command3_Click() Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \End Sub

Private Sub Command4_Click() Qh1 = Text4.Text Qh2 = Text5.Text q = Text6.Text

Text7.Text = Qh1 + Qh2 + q End Sub

Private Sub Command5_Click() Text8.Text = \Text9.Text = \Text10.Text = \Text11.Text = \Text12.Text = \

35

Text13.Text = \Text14.Text = \Text15.Text = \Text16.Text = \End Sub

Private Sub Command6_Click() Nc = Text8.Text qc1 = Text9.Text qc2 = Text10.Text Nq = Text11.Text μ = Text12.Text f = Text13.Text g = Text14.Text H = Text15.Text

Text16.Text = Nc * qc1 + Nq * qc2 + μ * f * (2 * g * H) ^ 0.5 End Sub

消防水泵设计流量： Dim Zs!, S1!, S2!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Command2_Click() Zs = Text1.Text S1 = Text2.Text S2 = Text3.Text

Text4.Text = Zs * (S1 + S2) End Sub

泡沫泵扬程：

Dim hp!, ΔZ!, Pc!, ρc!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \End Sub

36

Private Sub Command2_Click() hp = Text1.Text ΔZ = Text2.Text Pc = Text3.Text ρc = Text4.Text

Text5.Text = hp + ΔZ + Pc / ρc End Sub

清水泵扬程：

Dim ΔZ!, hg!, hz!, hd!, h!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Command2_Click() h = hz + hd

ΔZ = Text1.Text hg = Text2.Text h = Text3.Text

Text4.Text = h + hg + ΔZ End Sub

消防管径： Dim Q!, v!, π!

Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Command2_Click() Q = Text1.Text v = Text2.Text π = Text3.Text

Text4.Text = (4 * Q / (v * π)) ^ 0.5End Sub

泡沫比例混合器数量： Dim Qh!, qb!

37