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

致 谢

在本次设计中，我要真诚的感谢吾布里老师给予我的指导，在设计过程中吾布里老师严格督促我的毕业设计速度，及时的帮我解决我在设计中遇到的各种问题和困难，在设计中一直对我严格要求，在整个毕业设计过程中都给我耐心的指导和讲解，并主动为我提供各种相关技术资料，在老师帮助和指导下我顺利完成了本次毕业设计，也让我在这次毕业设计中受益匪浅，在此谨向吾布里老师致以深切的谢意！

在这次毕业设计中我同样还得到了老师的帮助和指导，老师在工作中上的一丝不苟得精神和踏实的生活态度，更是我值得学习的地方。

感谢家人的关心与支持！

感谢评阅和阅读本文的老师为此付出的辛勤劳动！

28

参考文献

[1] 王新·微型计算机控制技术·北京：中国电力出版社，2009年

[2] 张万忠·可编程控制器入门与应用实例·北京：中国电力出版社，2005年 [3] 周万珍、高鸿斌·PLC分析与设计应用·北京：电子工业出版社，2004年 [4] 刘爱民·电机与拖动技术·大连：大连理工大学出版社，2011年

29

附 录

此程序利用vb编写，以下显示部分程序。 油罐容量的确定：

Dim G!, K!, ρ!, η!, Vs!, Vmax!, Vmin! Private Sub Command1_Click() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \Text5.Text = \End Sub

Private Sub Command2_Click() G = Text1.Text K = Text2.Text ρ = Text3.Text η = Text4.Text

Text5.Text = G / (K * ρ * η) End Sub

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

Private Sub Command4_Click() Vmax = Text6.Text Vmin = Text7.Text

Text8.Text = Vmax - Vmin End Sub

铁路栈桥鹤位数： Dim n!, K!, G!, V!, ρ!

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

30

Private Sub Command2_Click() G = Text1.Text K = Text2.Text V = Text3.Text ρ = Text4.Text

Text5.Text = K * G / (360 * V * ρ) End Sub

泊位数：

Dim n!, m!, t1!, t!, Ty!

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

Private Sub Command2_Click() n = Text1.Text m = Text2.Text Text3.Text = n / m End Sub

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

Private Sub Command4_Click() n = Text4.Text t1 = Text5.Text t = Text6.Text Ty = Text7.Text

Text8.Text = n * (t1 + t) / Ty End Sub

罐装油罐车车位数： Dim N!, k!, Q1!, q!

Private Sub Command1_Click() Text1.Text = \

31

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

Private Sub Command2_Click() k = Text1.Text Q1 = Text2.Text q = Text3.Text

Text4.Text = k * Q1 / (24 * 365 * q) End Sub

油泵扬程：

Dim v1!, v2!, g!, H1!, H2!, v!, λ!, ζ!

Private Sub Command2_Click() v2 = Text1.Text v1 = Text2.Text g = Text3.Text H2 = Text4.Text H1 = Text5.Text λ = Text6.Text ζ = Text7.Text v = Text8.Text

Text9.Text = v2 ^ 2 / (2 * g) - v1 ^ 2 / (2 * g) - (H2 - H1) - (λ + ζ) * v ^ 2 / (2 * g) End Sub

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

油泵的允许吸入高度： Dim Hxsy!, Pa!, Py!, ρy!, g! Private Sub Command1_Click() Text1.Text = \

32