1、
一、 上机目的
二、 程序框图
输入各数据
由公式计算扬程He
计算有效功率Pe
计算效率η
数据输完？ No
Yes
结果存在Excel中
Excel作图
结束
三、编程内容
①、用Visual Basic 6.0编程处理实验数据：
代码：
2、Private Sub Command1_Click()
md = Val(Text9.Text) '取原始数据
d1 = Val(Text11.Text)
d2 = Val(Text12.Text)
qv = Val(Text1.Text)
P1 = Val(Text2.Text) * 10 ^ 6
P2 = Val(Text3.Text) * 10 ^ 6
Pa = Val(Text4.Text)
u2 = qv * 0.001 / (0.25 * 3.1415926 * d2 ^ 2)
3、 '计算过程
u1 = qv * 0.001 / (0.25 * 3.1415926 * d1 ^ 2)
yc = (P1 + P2) / md / 9.81 + (u2 ^ 2 - u1 ^ 2) / (2 * 9.81)
Pe = md * 9.81 * qv * 0.001 * yc
xiao_lv = Pe / Pa * 100
Text5.Text = Round(yc, 2) '输出结果
Text6.Text = Pa
Text7.Text = Round(xiao_lv,
4、2)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
fo
5、rm1.AutoRedraw = True
End Sub
②、用Excel软件作散点图，见结果
三、 结果
原始数据表：
No
流量
真空表读数
压力表度数
功率表读数
L/s
Mpa
Mpa
W
1
3.65
0.0489
0.09
1052
2
3.22
0.0415
0.138
1027
3
3.05
0.0389
0.156
1018
4
2.87
0.0363
0.173
1015
5
2.68
0.034
0.19
1006
6
2.44
0.0312
0.21
988
7
2.
6、22
0.0285
0.222
978
8
2.00
0.026
0.237
934
9
1.82
0.024
0.248
900
10
1.63
0.0225
0.258
864
11
1.34
0.02
0.276
768
12
1.14
0.019
0.286
725
13
0.89
0.0175
0.297
686
14
0.6
0.0165
0.307
613
15
0.34
0.016
0.316
526
16
0
0.0151
0.328
409
实验结果运算表：
7、No
流量
扬程
有效功率
电功率
效率
L/s
mH2O
Mpa
KW
%
1
3.65
14.84
529
1.052
50.29
2
3.22
18.86
593
1.027
57.76
3
3.05
20.39
607
1.016
59.66
4
2.87
21.81
611
1.015
60.24
5
2.68
23.27
609
1.006
60.54
6
2.44
24.97
595
0.988
60.24
7
2.22
25.87
561
0.978
57.37
8
8、
2.00
27.11
530
0.934
56.71
9
1.82
28．00
498
0.9
55.31
10
1.63
28.84
459
0.864
53.15
11
1.34
30.39
398
0.768
51.79
12
1.14
31.29
348
0.725
48.05
13
0.89
32.23
280
0.668
40.73
14
0.6
33.14
194
0.613
31.68
15
0.34
33.99
113
0.526
21.46
16
0
35.13
0
0.409
0
离心泵特性曲线图：
浙ICP备2021020529号-1 | 浙B2-20240490 
