005-板坯高压水除鳞用水量计算

板坯高压水除鳞用水量计算 高压水除鳞是利用高压水射流把氧化铁皮从热轧钢坯表面去除的过程。

个人认为高压水除鳞设备的设计，是从确定去除氧化铁皮的打击力开始的，然后进行喷嘴参数的选择和喷嘴的排布，在设计过程中进行参数和布局的优化，达到最优除鳞效果的同时尽量减少用水量。

高压水除鳞也是热轧生产线中耗水量较大的用户之一，今天编制的板坯高压水除鳞用水量计算程序，主要用于工厂方案设计以及设备设计时的参考，在具体应用时还应类比同类项目的实际用水情况进行修正使用。

程序界面见图1，典型粗除鳞技术参数表见图2，程序源代码附后。

图 1：板坯高压水除鳞用水量计算程序界面

图 2：典型粗除鳞技术参数表

计算程序代码：

Private Sub btnLLJS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLLJS.Click

Dim B As Single'喷射宽度

Dim d As Single'喷嘴间距

Dim m1 As Single'上集管排数

Dim m2 As Single'下集管排数

Dim n As Integer'喷嘴数量

Dim PLL As Single'每个喷嘴流量

Dim ZLL As Single'总流量

'获取窗口参数

B = Val(txtPSKD.Text)

d = Val(txtPZJJ.Text)

m1 = Val(txtSJGPS.Text)

m2 = Val(txtXJGPS.Text)

PLL = Val(txtPLL.Text)

'计算

n = Math.Round(B / d) * (m1 + m2)

ZLL = PLL * n * 60 / 1000

'显示结果

txtPZSL.Text = n

txtZLL.Text = ZLL

End Sub