亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        Visual Basic在計算堤防超高中的應用

        2015-01-12 08:20:18姜依彤
        黑龍江水利科技 2015年12期
        關鍵詞:文本框堤防程序設計

        姜依彤

        (黑龍江省水利水電勘測設計研究院,哈爾濱 150080)

        文章編號:1007-7596(2015)12-0100-03

        Visual Basic在計算堤防超高中的應用

        姜依彤

        (黑龍江省水利水電勘測設計研究院,哈爾濱 150080)

        隨著計算機的飛速發(fā)展,如今計算機已成為各行各業(yè)中必不可少的工具。而利用計算機更好的在專業(yè)當中發(fā)揮作用,那要靠一些程序實現(xiàn)。利用VB編程,可以做一些簡單的程序,節(jié)省工作時間,使計算成果更精準,更有效的完成工作。文章利用VB編程,來實現(xiàn)堤防超高的計算。

        網(wǎng)站建設;網(wǎng)站設計;網(wǎng)頁設計;水利工程

        0 緒 論

        Visual Basic是一種常用的編程開發(fā)工具。Visual Basic是一種由 Microsoft 公司開發(fā)的結構化的、模塊化的、面向對象的、包含協(xié)助開發(fā)環(huán)境的事件驅動為機制的可視化程序設計語言[1]。

        1 VB的特點

        VB的程序是一種基于窗體的可視化組件安排的聯(lián)合,并且增加代碼來指定組建的屬性和方法。因為默認的屬性和方法已經(jīng)有一部分定義在了組件內,所以程序員不用寫多少代碼就可以完成一個簡單的程序。

        VB有如下特點:

        1)可視化編程:最直觀的編程方法,程序人員只需繪制界面,無需編程,VB自動產(chǎn)生界面代碼,就可以完成許多步驟。這樣大大的提高了程序設計的效率。這些在以前的編程語言下是要經(jīng)過相當復雜的工作的。

        2)面向對象的程序設計思想。

        3)事件驅動的編程機制:由事件來引發(fā)程序的運行。

        4)結構化的程序設計語言。

        5)支持多種數(shù)據(jù)庫系統(tǒng)的訪問:Access、dBASE、FoxPro等。

        6)支持DDE和OLE。

        7)充分利用WINDOWS資源:通過ActiveX控件OCX、動態(tài)鏈接庫DLL、應用程序接口API可任意擴展功能。

        8)VB6.0在開發(fā)環(huán)境上、網(wǎng)絡功能等的增強。

        2 VB在水利方面的應用

        如今,計算機已經(jīng)是各行各業(yè)中必不可少的工具,而利用計算機更好的在專業(yè)當中發(fā)揮作用,那要靠一些程序實現(xiàn)。利用VB編程,可以做一些簡單的程序,節(jié)省工作時間,使計算成果更精準,更有效的完成工作。

        編程應用于各個領域當中,在水利工程設計中,更是應用廣泛。根據(jù)VB的特點,在水利工程當中,可以利用VB編寫很多程序,比如堤基處理計算、設計潮位計算、護岸計算、滲流計算、抗滑穩(wěn)定計算等。

        運用VB編寫完程序后,可以代替電子表格等工具進行計算,實現(xiàn)輸入數(shù)據(jù)自動生成結果,大量節(jié)省了工作時間,提高工作效率。

        經(jīng)實驗,運用VB編程,實現(xiàn)了堤防超高的計算。

        3 運用VB計算堤防超高

        下面運用VB,簡單實現(xiàn)堤防超高的計算。

        3.1 主界面

        首先做一個Frame框架,將所需要的基礎數(shù)據(jù)要素名稱都用Label標簽輸入進去,在每一個Label標簽后都做個Text文本框,內容為空,以便運行程序時輸入基礎數(shù)據(jù)用。做好的主界面如圖1所示。

        圖1 主界面

        3.2 波浪要素確定

        首先做一個Frame框架,將所要生成的數(shù)據(jù)要素名稱都用Label標簽輸入進去,在每一個Label標簽后都做個Text文本框,內容為空,在下面做一個command按鈕。運行程序時,點擊按鈕,計算結果均顯示在文本框里。做好的主界面如圖2所示。

        圖2 波浪要素確定界面

        3.3 風浪爬高確定

        首先做一個Frame框架,將所要生成的數(shù)據(jù)要素名稱都用Label標簽輸入進去,在每一個Label標簽后都做個Text文本框,內容為空,在下面做一個command按鈕。運行程序時,點擊按鈕,計算結果均顯示在文本框里。

        對于“請選擇護面類型”和“是否允許越浪”,這里做了一個ComboBox組合框,當選擇時,K△1與K△2、Kp均由程序給出數(shù)值。

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

        圖3 風浪爬高確定界面

        3.4 波浪爬高折減

        首先做一個Frame框架,將所要生成的數(shù)據(jù)要素名稱都用Label標簽輸入進去,在每一個Label標簽后都做個Text文本框,內容為空,在下面做一個command按鈕。運行程序時,點擊按鈕,計算結果均顯示在文本框里。做好的主界面如圖4所示。

        圖4 波浪爬高折減界面

        3.5 超高計算

        首先做一個Frame框架,將將所需要的基礎數(shù)據(jù)要素名稱和所要生成的數(shù)據(jù)要素名稱都用Label標簽輸入進去,在每一個Label標簽后都做個Text文本框,內容為空,再做一個command按鈕。運行程序時,點擊按鈕,計算結果均顯示在最后的文本框里。做好的主界面如圖5所示。

        圖5 超高計算界面

        通過以上圖1~圖5這幾個步驟,超高計算就自動生成出來了。

        3.6 菜單編輯

        打開菜單編輯器,對菜進行編輯,做這個菜單編輯的好處就是,今后可以編寫更多的內容來完善VB小程序,做好的菜單如圖6所示。

        圖6 菜單界面

        4 計算原理及程序編寫

        可視化的“框架”做好了,接下來就是對每一個控件進行程序編寫。

        下面以“3.2風浪要素確定”為例簡單介紹。

        根據(jù)《堤防工程設計規(guī)范》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編寫完程序后,可以代替電子表格等工具進行計算,實現(xiàn)輸入數(shù)據(jù)自動生成結果,大量節(jié)省了工作時間,提高工作效率。因此,在今后的工作中,可以用VB編寫一些程序,有效的利用在水利工程設計當中。

        [1]龔沛增,Visual Basic 程序設計教程[M].北京:清華大學出版社,2004:26-34.

        2015-09-11

        姜依彤(1987- ),女,黑龍江哈爾濱人,助理工程師。

        TP311.1

        B

        猜你喜歡
        文本框堤防程序設計
        巧用文本框實現(xiàn)PPT多圖片排版
        基于Visual Studio Code的C語言程序設計實踐教學探索
        計算機教育(2020年5期)2020-07-24 08:52:56
        PPT文本框的另類應用
        從細節(jié)入手,談PLC程序設計技巧
        電子制作(2019年9期)2019-05-30 09:42:04
        2016年河南省己建成堤防長度
        高職高專院校C語言程序設計教學改革探索
        文本框酷變3D效果
        河南省2014年已治理堤防長度
        河南省2014年已治理達標堤防長度
        PLC梯形圖程序設計技巧及應用
        亚洲人成网站在线播放观看| 热99re久久精品这里都是精品免费| 亚洲成av人片在www| 国产成人www免费人成看片| 国产成人精品三上悠亚久久 | 亚洲不卡av二区三区四区| 精品人妻一区二区三区蜜臀在线| 日本一区二区三区光视频| 和黑人邻居中文字幕在线| 粗一硬一长一进一爽一a级| 国产精品毛片无码久久| 亚洲av日韩一区二三四五六七 | 乱色欧美激惰| 久久久久久久久888| 欧美日本视频一区| 男女视频网站在线观看| 色婷婷亚洲一区二区三区| 免费观看性欧美大片无片| 国产乱人伦偷精品视频免| 人妻少妇中文字幕av| 国语自产视频在线| 国产人与禽zoz0性伦| 中出高潮了中文字幕| 日本在线视频二区一区| 国产偷国产偷亚洲高清视频| 2021久久精品国产99国产精品| 精品 无码 国产观看| 国产成人亚洲精品一区二区三区 | 免费毛片a线观看| 亚洲综合自拍| 最新永久免费AV网站| 久久精品天堂一区二区| 欧洲美女熟乱av| 国产在线无码一区二区三区 | 人妻av一区二区三区高| 丰满少妇被猛进去高潮| 久久久国产精品黄毛片| 成人片在线看无码不卡| 国产自拍av在线观看| 国产乱子伦| 四虎在线播放免费永久视频|