工學(xué)vb能力拓展

1、附件1：學(xué) 號：能力拓展訓(xùn)練題 目應(yīng)用VB軟件開發(fā)工具進行程序設(shè)計學(xué) 院專 業(yè)班 級姓 名指導(dǎo)教師年月日附件2：能力拓展訓(xùn)練任務(wù)書學(xué)生姓名： 專業(yè)班級：指導(dǎo)教師： 工作單位：題 目: 應(yīng)用VB軟件開發(fā)工具進行程序設(shè)計 初始條件：設(shè)計一程序當輸入試驗數(shù)據(jù)時，自動計算力學(xué)性能試驗的強度和塑性指標。要求完成的主要任務(wù):（1） 學(xué)習(xí)并掌握Visual Basic程序設(shè)計語言；（2） 應(yīng)用VB軟件開發(fā)工具完成指定題目的編程設(shè)計；（3） 完成能力拓展訓(xùn)練總結(jié)報告。時間安排：7月13日7月17日指導(dǎo)教師簽名： 2009年7月7日系主任（或責(zé)任教師）簽名： 年 月 日總結(jié)報告一、設(shè)計題目及要求設(shè)計一程序當輸入

2、試驗數(shù)據(jù)時，自動計算力學(xué)性能試驗的強度和塑性指標。二、設(shè)計分析1、由材料力學(xué)實驗知，材料的力學(xué)性能實驗的強度指標和塑性指標主要是計算低碳鋼圓棒試樣和鑄鐵圓棒試樣在拉伸試驗下的強度指標和塑性指標。對于低碳鋼試樣，在實驗前需測量低碳鋼圓棒試樣的原始標距長度和原始直徑d，在拉伸試驗機上進行拉伸試驗時，需記錄圓棒試樣的屈服載荷F和最大載荷F，在試樣拉斷后，需測量圓棒試樣的斷裂后的標距L和頸縮處的最小直徑d。然后利用公式：強度指標：屈服強度：R=抗拉強度： R=塑性指標：斷后延伸率： A=×100%斷后截面收縮率： Z=×100% 而 S=3.14* S=3.14*而對于鑄鐵試樣，材

3、料力學(xué)性能只需計算強度指標的抗拉強度：R=由此，可以知道，在進行計算之前，需首先輸入的參數(shù)為，、d、d，而且所有的變量都是單精度實型變量，然后即可由上述公式進行強度和塑性指標的計算。2、窗體布局設(shè)計為：在窗體上畫2個兩個大框架，11個標簽，10個文本框和3個命令按鈕，其中2-6號標簽和1-6號文本框放在第一個大框架中，7-10號標簽和8-11號文本框放在第二個大框架中，第二個大框架又分兩個小框架，7、8號標簽和8、9號文本框放在第一個小框架中，9、10號標簽和10、11號文本框放在第二個小框架中，如圖所示：需要實現(xiàn)的功能為：當驅(qū)動了應(yīng)用程序后，能在全屏幕顯示應(yīng)用界面，以方便進行數(shù)據(jù)的輸入，并能

4、針對不同的試驗條件進行不同的計算，當輸入的試驗條件或數(shù)據(jù)不滿足程序的要求時，能提醒用戶進行正確地輸入，以得到正確的結(jié)果。程序流程圖為：開始選擇試樣材料、輸入試驗數(shù)據(jù)判斷是否選擇了試樣材料判斷是否完全輸入了試驗數(shù)據(jù)YNNY判斷試驗材料低碳鋼鑄鐵公式一公式二輸出試驗結(jié)果結(jié)束提醒用戶正確輸入提醒用戶正確輸入全屏顯示界面三、程序設(shè)計：Private Sub Command1_Click() If (Option1 = True And Option2 = True) Or (Option1 = False And Option2 = False) Then MsgBox "請選擇一種材料進行

5、試驗" '判斷是否選擇了試樣材料 ElseIf (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" _ Or Text6.Text = "") Then MsgBox "請輸入完整的試驗數(shù)據(jù)" '判斷輸入的試驗數(shù)據(jù)是否完整 ElseIf Option1 = True And Option2 = Fa

6、lse Then Text7.Text = Val(Text3.Text) * 4 / Val(Text2.Text) / Val(Text2.Text) / 3.14 Text8.Text = Val(Text4.Text) * 4 / Val(Text2.Text) / Val(Text2.Text) / 3.14 Text9.Text = (Val(Text5.Text) - Val(Text1.Text) / Val(Text1.Text) * 100 Text10.Text = (Val(Text2.Text) * Val(Text2.Text) * 3.14 / 4 - Val(T

7、ext6.Text) _ * Val(Text6.Text) * 3.14 / 4) / (Val(Text2.Text) * Val(Text2.Text) * 3.14 / 4) * 100 '當試樣是低碳鋼時的計算輸出方式ElseIf Option2 = True And Option1 = False Then Text3.Text = "voild" Text7.Text = "voild" Text8.Text = Val(Text4.Text) * 4 / Val(Text2.Text) / Val(Text2.Text) / 3.

8、14 Text9.Text = "voild" Text10.Text = "voild" '當試樣是鑄鐵時的計算輸出方式 End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = "&quo

9、t;Text8.Text = ""Text9.Text = ""Text10.Text = "" '點擊按鈕2后數(shù)據(jù)全部清除Option1 = FalseOption2 = False '點擊按鈕2后兩個材料選項都設(shè)置為未選項End SubPrivate Sub Command3_Click()End '點擊按鈕3結(jié)束程序End SubPrivate Sub Form_Load()Width = Screen.WidthHeight = Screen.HeightLeft = Screen.Width - Wi

10、dthTop = Screen.Height - Height '設(shè)置窗口顯示為全屏顯示Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""

11、'設(shè)置初始狀態(tài)時數(shù)據(jù)全部是清空的狀態(tài)Option1 = FalseOption2 = False '設(shè)置初始狀態(tài)時材料選項全部不選Label1.Caption = "材料"Label2.Caption = "試樣初始長度L0(cm)"Label3.Caption = "試樣初始直徑d0(mm)"Label4.Caption = "屈服力Fel(N）"Label5.Caption = "最大力Fm(N)"Label6.Caption = "實驗后試樣長度Lu(cm）&qu

12、ot;Label7.Caption = "實驗后試樣直徑du（mm）"Label8.Caption = "屈服強度Rel(MPa)"Label9.Caption = "抗拉強度Rm(MPa)"Label10.Caption = "斷后延伸率A(%)"Label11.Caption = "斷后截面收縮率Z(%)" '設(shè)置標簽名稱Option1.Caption = "低碳鋼"Option2.Caption = "鑄鐵" '設(shè)置材料選項的名稱Co

13、mmand1.Caption = "計算并輸出"Command2.Caption = "重新計算"Command3.Caption = "退 出" '設(shè)置三個按鈕的名稱Form1.Caption = "材料力學(xué)性能試驗"Frame1.Caption = "所測試驗數(shù)據(jù)"Frame2.Caption = "試驗結(jié)果"Frame3.Caption = "強度指標"Frame4.Caption = "塑性指標" '設(shè)置其他相應(yīng)

14、的選項名稱End Sub點擊菜單欄中的文件選項，選擇“工程另存為”，保存為材料力學(xué)性能實驗2.frm文件和材料力學(xué)性能實驗2.vbp文件,并點擊“生成第一個程序.exe”，生成“材料力學(xué)性能試驗.exe”。四、結(jié)果分析1、雙擊擊材料力學(xué)性能實驗2.frm文件，開始執(zhí)行此文件，出現(xiàn)如圖所示界面：2、單擊菜單欄中的“運行”選項，在下拉菜單中單擊“驅(qū)動”選項，則開始運行程序，或者開機直接點擊“材料力學(xué)性能試驗.exe”也能生成下面的界面，如圖所示：3、選擇低碳鋼試樣材料并輸入實驗數(shù)據(jù)，點擊“計算并輸出”按鈕：4、選擇鑄鐵試樣，輸入實驗數(shù)據(jù)并選擇“計算并輸出”按鈕：5、當沒選擇材料試樣，點擊了“計算并

15、輸出”按鈕時：6、當選擇了材料而數(shù)據(jù)輸入不完全，點擊“計算并輸出”按鈕時：7、單擊 “重新計算” 按鈕后，清除窗口界面里的所有數(shù)據(jù)：8、點擊“退出”按鈕，退出界面：結(jié)果分析：首先，在程序的開始設(shè)置了界面的顯示方式為全屏幕顯示，便于進行數(shù)據(jù)的輸入。其次，對于不同的材料，程序能選擇不同的計算方式進行計算，并能正確的輸出不同條件下的正確結(jié)果。而當輸入的實驗條件或數(shù)據(jù)不滿足程序的要求時，程序能自動的提醒用戶正確的輸入實驗條件或數(shù)據(jù)，從而計算得出正確的實驗結(jié)果。五、心得體會visual basic程序設(shè)計語言是現(xiàn)代工程技術(shù)人員廣泛使用的軟件開發(fā)工具，在大三暑假開始之初，我們進行了為期一周的能力拓展訓(xùn)練，

16、學(xué)習(xí)使用visual basic程序設(shè)計語言，并運用visual basic程序設(shè)計語言進行簡單的編程。在這次能力拓展訓(xùn)練中，我了解了visual basic與其他程序設(shè)計語言的相似點和不同點，并能與以前學(xué)的程序語言相比較，進行簡單的編程，并能獨立、熟練地使用visual basic程序設(shè)計語言編程技術(shù)、上機調(diào)試、結(jié)果仿真，對實驗過程中出現(xiàn)的現(xiàn)象進行分析，解決一些基本的問題，雖然這次能力拓展訓(xùn)練時間比較短，但是收獲頗豐。與以前學(xué)的C語言相比，visual basic程序設(shè)計語言的最大特點是提供了面向?qū)ο蟮目梢暬幊坦ぞ?，可以在屏幕上“畫”出所需的用戶界面來，因而程序設(shè)計的效率可大大地提高，并且

17、加強了程序設(shè)計的可視性，方便程序設(shè)計人員進行程序設(shè)計。同時，我也在編程過程中體會到visual basic程序設(shè)計語言的編程特點，在編程時可以進行程序的復(fù)制和粘貼，同時，visual basic程序設(shè)計語言不區(qū)分大小寫，并能自動地進行轉(zhuǎn)換，這大大簡化了編程的過程，使得visual basic程序設(shè)計語言的應(yīng)用更加簡便。在上機調(diào)試的過程中，更能感覺到其與C語言相比的強大優(yōu)勢就是可視化和結(jié)構(gòu)化的程序設(shè)計語言，簡單易懂，容易操作，減少了出錯的概率?？傮w感覺visual basic程序設(shè)計語言是一個非常好的程序設(shè)計語言，因為本次能力拓展訓(xùn)練的時間比較短暫，故不可能將其完整的和比較好的掌握，但我今后一定會繼續(xù)地學(xué)習(xí)visual basic程序設(shè)計語言，以期能更好的掌握和應(yīng)用它，在今后的學(xué)習(xí)中充分利用visual basic程序設(shè)計語言的優(yōu)點，希望能對自己的學(xué)習(xí)有所幫助。六、參考文獻1、visual basic6.0程序設(shè)計教程（第2版）林卓然 編著 電子工業(yè)出版社 2007年7月2、visual basic6.0程序設(shè)計教程（第二版）主編 羅朝盛 人民郵電出版社2005年7月3、visual basic程序設(shè)計例題匯編 劉炳文 編著 清華大