姜依彤

(黑龙江省水利水电勘测设计研究院，哈尔滨 150080)

文章编号：1007-7596(2015)12-0100-03

Visual Basic在计算堤防超高中的应用

姜依彤

(黑龙江省水利水电勘测设计研究院，哈尔滨 150080)

随着计算机的飞速发展，如今计算机已成为各行各业中必不可少的工具。而利用计算机更好的在专业当中发挥作用，那要靠一些程序实现。利用VB编程，可以做一些简单的程序，节省工作时间，使计算成果更精准，更有效的完成工作。文章利用VB编程，来实现堤防超高的计算。

网站建设；网站设计；网页设计；水利工程

0 绪 论

Visual Basic是一种常用的编程开发工具。Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言[1]。

1 VB的特点

VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。

VB有如下特点：

1)可视化编程：最直观的编程方法，程序人员只需绘制界面，无需编程，VB自动产生界面代码，就可以完成许多步骤。这样大大的提高了程序设计的效率。这些在以前的编程语言下是要经过相当复杂的工作的。

2)面向对象的程序设计思想。

3)事件驱动的编程机制：由事件来引发程序的运行。

4)结构化的程序设计语言。

5)支持多种数据库系统的访问：Access、dBASE、FoxPro等。

6)支持DDE和OLE。

7)充分利用WINDOWS资源：通过ActiveX控件OCX、动态链接库DLL、应用程序接口API可任意扩展功能。

8)VB6.0在开发环境上、网络功能等的增强。

2 VB在水利方面的应用

如今，计算机已经是各行各业中必不可少的工具，而利用计算机更好的在专业当中发挥作用，那要靠一些程序实现。利用VB编程，可以做一些简单的程序，节省工作时间，使计算成果更精准，更有效的完成工作。

编程应用于各个领域当中，在水利工程设计中，更是应用广泛。根据VB的特点，在水利工程当中，可以利用VB编写很多程序，比如堤基处理计算、设计潮位计算、护岸计算、渗流计算、抗滑稳定计算等。

运用VB编写完程序后，可以代替电子表格等工具进行计算，实现输入数据自动生成结果，大量节省了工作时间，提高工作效率。

经实验，运用VB编程，实现了堤防超高的计算。

3 运用VB计算堤防超高

下面运用VB，简单实现堤防超高的计算。

3.1 主界面

首先做一个Frame框架，将所需要的基础数据要素名称都用Label标签输入进去，在每一个Label标签后都做个Text文本框，内容为空，以便运行程序时输入基础数据用。做好的主界面如图1所示。

图1 主界面

3.2 波浪要素确定

首先做一个Frame框架，将所要生成的数据要素名称都用Label标签输入进去，在每一个Label标签后都做个Text文本框，内容为空，在下面做一个command按钮。运行程序时，点击按钮，计算结果均显示在文本框里。做好的主界面如图2所示。

图2 波浪要素确定界面

3.3 风浪爬高确定

首先做一个Frame框架，将所要生成的数据要素名称都用Label标签输入进去，在每一个Label标签后都做个Text文本框，内容为空，在下面做一个command按钮。运行程序时，点击按钮，计算结果均显示在文本框里。

对于“请选择护面类型”和“是否允许越浪”，这里做了一个ComboBox组合框，当选择时，K△1与K△2、Kp均由程序给出数值。

做好的主界面如图3所示。

图3 风浪爬高确定界面

3.4 波浪爬高折减

首先做一个Frame框架，将所要生成的数据要素名称都用Label标签输入进去，在每一个Label标签后都做个Text文本框，内容为空，在下面做一个command按钮。运行程序时，点击按钮，计算结果均显示在文本框里。做好的主界面如图4所示。

图4 波浪爬高折减界面

3.5 超高计算

首先做一个Frame框架，将将所需要的基础数据要素名称和所要生成的数据要素名称都用Label标签输入进去，在每一个Label标签后都做个Text文本框，内容为空，再做一个command按钮。运行程序时，点击按钮，计算结果均显示在最后的文本框里。做好的主界面如图5所示。

图5 超高计算界面

通过以上图1～图5这几个步骤，超高计算就自动生成出来了。

3.6 菜单编辑

打开菜单编辑器，对菜进行编辑，做这个菜单编辑的好处就是，今后可以编写更多的内容来完善VB小程序，做好的菜单如图6所示。

图6 菜单界面

4 计算原理及程序编写

可视化的“框架”做好了，接下来就是对每一个控件进行程序编写。

下面以“3.2风浪要素确定”为例简单介绍。

根据《堤防工程设计规范》GB50286-2013，其中C.1.2、C.1.3、C.1.4计算波长L的公式。公式如下：

(1)

按平均波周期计算的波长可按下式计算：

(2)

式中：L为平均波长，m。

对于“计算”按钮的程序编写如下：

Private Sub Command1_Click()

Dim V, f, m, d, H, T, l As Double

Dim A1, b1, c1, d1, e1, V1, L1 As Double

m = Text3.Text

V1 = Text1.Text

V = V1 * Text17.Text

f = Text2.Text

d = Text5.Text

A1 = 0.7 * (9.81 * d / (V ^ 2)) ^ 0.7

b1 = 0.0018 * (9.81 * f / (V ^ 2)) ^ 0.45

c1 = (Exp(A1) - Exp(-A1)) / (Exp(A1) + Exp(-A1))

d1 = b1 / (0.13 * c1)

e1 = (Exp(d1) - Exp(-d1)) / (Exp(d1) + Exp(-d1))

H = 0.13 * c1 * e1 * (V ^ 2) / 9.81

T = 13.9 * (9.81 * H / (V ^ 2)) ^ 0.5 * V / 9.81

l = 1

Do

L1 = 9.81 * T ^ 2 * ((Exp(2 * 3.1415926 * d / l) - Exp(-2 * 3.1415926 * d / l)) / (Exp(2 * 3.1415926 * d / l) + Exp(-2 * 3.1415926 * d / l))) / (2 * 3.1415926)

l = l + 0.001

Loop While l <= L1

Text6.Text = H

Text7.Text = T

Text8.Text = L1

Text11.Text = V / (9.81 * d) ^ (0.5)

Text13.Text = H / d

End Sub

5 总 结

运用VB编写完程序后，可以代替电子表格等工具进行计算，实现输入数据自动生成结果，大量节省了工作时间，提高工作效率。因此，在今后的工作中，可以用VB编写一些程序，有效的利用在水利工程设计当中。

[1]龚沛增，Visual Basic 程序设计教程[M].北京：清华大学出版社,2004：26-34.

2015-09-11

姜依彤(1987- )，女，黑龙江哈尔滨人，助理工程师。

TP311.1

B