工學(xué)vb能力拓展

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

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

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

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

5、試驗(yàn)" '判斷是否選擇了試樣材料 ElseIf (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" _ Or Text6.Text = "") Then MsgBox "請輸入完整的試驗(yàn)數(shù)據(jù)" '判斷輸入的試驗(yàn)數(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 '當(dāng)試樣是低碳鋼時(shí)的計(jì)算輸出方式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" '當(dāng)試樣是鑄鐵時(shí)的計(jì)算輸出方式 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 = "" '點(diǎn)擊按鈕2后數(shù)據(jù)全部清除Option1 = FalseOption2 = False '點(diǎn)擊按鈕2后兩個(gè)材料選項(xiàng)都設(shè)置為未選項(xiàng)End SubPrivate Sub Command3_Click()End '點(diǎn)擊按鈕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í)數(shù)據(jù)全部是清空的狀態(tài)Option1 = FalseOption2 = False '設(shè)置初始狀態(tài)時(shí)材料選項(xiàng)全部不選Label1.Caption = "材料"Label2.Caption = "試樣初始長度L0(cm)"Label3.Caption = "試樣初始直徑d0(mm)"Label4.Caption = "屈服力Fel(N）"Label5.Caption = "最大力Fm(N)"Label6.Caption = "實(shí)驗(yàn)后試樣長度Lu(cm）&qu

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

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

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

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

16、學(xué)習(xí)使用visual basic程序設(shè)計(jì)語言，并運(yùn)用visual basic程序設(shè)計(jì)語言進(jìn)行簡單的編程。在這次能力拓展訓(xùn)練中，我了解了visual basic與其他程序設(shè)計(jì)語言的相似點(diǎn)和不同點(diǎn)，并能與以前學(xué)的程序語言相比較，進(jìn)行簡單的編程，并能獨(dú)立、熟練地使用visual basic程序設(shè)計(jì)語言編程技術(shù)、上機(jī)調(diào)試、結(jié)果仿真，對實(shí)驗(yàn)過程中出現(xiàn)的現(xiàn)象進(jìn)行分析，解決一些基本的問題，雖然這次能力拓展訓(xùn)練時(shí)間比較短，但是收獲頗豐。與以前學(xué)的C語言相比，visual basic程序設(shè)計(jì)語言的最大特點(diǎn)是提供了面向?qū)ο蟮目梢暬幊坦ぞ撸梢栽谄聊簧稀爱嫛背鏊璧挠脩艚缑鎭恚蚨绦蛟O(shè)計(jì)的效率可大大地提高，并且

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