用VB编制离心机计算工具-丽水三联环保机械设备有限公司-www.zjlssl.com

产品列表

联系方式

地址：浙江省丽水市水阁工业园区云景路94号
电话：0578—2124285 2154604
传真：0578—2154604
邮编：323000
电子邮件：lsslhb@126.com
网址：www.zjlssl.com

你的位置：卧螺离心机 >> 离心机行业新闻 >> 用VB编制离心机计算工具

用VB编制离心机计算工具
作者:三联环保来源: 添加时间:2010-12-11 13:34:44

用VB编制离心机计算工具

纪伟勇（浙江丽水市三联环保机械设备有限公司）

“分离因数”、“固体回收率”和“干污泥投药量”是衡量卧螺离心机分离效果的3个十分重要的量，在进行分离效果分析或编制产品标书时，往往需要提供这些数据。

这些数据是在实际测量值的基础上，再进行必要的运算得到的。要进行计算，需要掌握计算公式，特别是计算单位不能搞错，对于非专业人士，或不是经常进行计算的人来说，这确实是一件棘手的事情。

笔者用VB语言编制了一个小程序，较好的解决了这个问题，简介如下：

在窗口建立三个命令按钮，标签是“计算分离因数”“计算固体回收率”和“计算干污泥投药量”，再建立三个文本框，分别放置这三个量的计算结果，见图1。

对应于上面的三个命令按钮，分别编制三个子程序，这三个程序用来执行按钮按下时的动作，见图2，3，4。

Private Sub command1_Click() '计算分离因数

cl$ = Chr$(13) + Chr$(10)

msg1$ = "输入后按回车键或按确认键"

msg2$ = "输入0退出"

msg3$ = msg1$ + cl$ + cl$ + msg2$

msg4$ = "输入转速: r/min" + cl$ + cl$ + msg3$

msg5$ = "输入转鼓内半径: m" + cl$ + cl$ + msg3$

n = InputBox(msg4$, "计算分离因数"): If n = 0 Then GoTo 200

r = InputBox(msg5$, "计算分离因数"): If r = 0 Then GoTo 200

f = 1.12 * n * n * r / 1000

Text1.Text = f

200

End Sub

图2 计算分离因数子程序

Private Sub Command2_Click() '计算固体回收率

cl$ = Chr$(13) + Chr$(10)

msg1$ = "输入后按回车键或按确认键"

msg2$ = "输入0退出"

msg3$ = msg1$ + cl$ + cl$ + msg2$

msg5$ = "输入清液含固率 %" + cl$ + cl$ + msg3$

msg6$ = "输入进泥含固率%" + cl$ + cl$ + msg3$

msg7$ = "输入泥饼含固率 %" + cl$ + cl$ + msg3$

msg$ = "计算固体回收率 %"

c1 = InputBox(msg5$, msg$): If c1 = 0 Then GoTo 100

c2 = InputBox(msg6$, msg$): If c2 = 0 Then GoTo 100

c3 = InputBox(msg7$, msg$): If c3 = 0 Then GoTo 100

k = (100 * (1 - c1 / c2)) / (1 - c1 / c3)

Text2.Text = Format$(k, "00.0")

100

End Sub

图3 计算固体回收率子程序

Private Sub Command3_Click() '计算干污泥投药量

cl$ = Chr$(13) + Chr$(10)

msg1$ = "输入后按回车键或按确认键"

msg2$ = "输入0退出"

msg3$ = msg1$ + cl$ + cl$ + msg2$

msg4$ = "输入药剂配比 ‰" + cl$ + cl$ + msg3$

msg5$ = "输入加药流量 m3/h " + cl$ + cl$ + msg3$

msg6$ = "输入进泥流量 m3/h" + cl$ + cl$ + msg3$

msg7$ = "输入进泥含固率 %" + cl$ + cl$ + msg3$

msg$ = "计算干污泥投药量 ‰"

b = InputBox(msg4$, msg$): If b = 0 Then GoTo 100

q2 = InputBox(msg5$, msg$): If q2 = 0 Then GoTo 100

q1 = InputBox(msg6$, msg$): If q1 = 0 Then GoTo 100

c = InputBox(msg7$, msg$): If c = 0 Then GoTo 100

s = (100 * (b * q2)) / (q1 * c)

Text3.Text = Format$(s, "0.0")

100

End Sub

图4 计算干污泥投药量子程序

下面介绍计算公式：

（1）分离因数

f=1.12*10-3*r*n2

式中：f—分离因数

r—转鼓内半径，m

n—转鼓转速，r/min

计算举例：r=0.215m,

n=2500r/min

则f=1505

(2) 固体回收率

η= (1 – c液 / c进泥) / (1 – c液 / c泥饼)

式中：

η—固体回收率 %

c液—清液含固率 %

c进泥—进泥含固率 %

c泥饼—泥饼含固率 %

计算举例： c液=3%

c进泥—21%

c泥饼=78%

则η=89.1%

(3) 干污泥投药量

λ= 投入干粉量

处理干污泥量

= 药剂浓度（‰）* 加药流量（m3/h）（‰）

污泥处理量（m3/h）* 进泥含固率（%）

计算举例：

药剂浓度 = 2‰

加药流量 =1.2 m3/h

污泥处理量 = 25.1 m3/h

进泥含固率 = 4.9%

则λ=2‰

作者：纪伟勇

职位：董事长

职称：高级工程师

单位：浙江省丽水市三联环保机械设备有限公司

地址：浙江省丽水市水阁工业开发区云景路94号

电话： 0578-2154604

上一篇：节能环保打头阵新兴产业规划两会后陆续出台
下一篇：第二代卧螺离心式泥浆分离专用机(LWnJ-B-6000型)