【正文】 在論文即將完成的時候，謹在此向陳老師表示深深的感謝和崇高的敬意!感謝四年來各位老師對我的教導以及關(guān)心，也要感謝各位同學，讓我感受到了集體的溫暖，在這里我收獲了知識，也收獲了友情，最后再次感謝各位老師及同學對我的幫助！杜蘭特2012年5月16日34。他嚴以律己、寬以待人的崇高品質(zhì)和勤儉樸素的生活作風將是我永遠學習的榜樣。借此機會，我要對四年來幫助過我的人表示深深的感謝本文是在導師布魯克斯老師的指導下完成的。 Multimedia Computer Programs[J].Welding amp。參考文獻[1] basic [M]. 北京：電子工業(yè)出版社，[2] 安劍，孫秀梅. visual basic [M]. 北京：人民郵電出版社，2007[3] 張朝昆. Visual Basic基礎與應用[M]. 北京：人民郵電出版社，2005[4] 吳林，陳善本等. 智能化焊接技術(shù)[M].北京：國防工業(yè)出版社，2000[5][M].北京:機械工業(yè)出版社，[6][M].北京：機械工業(yè)出版社，[7] inspection of gas pipeline welding defects using an expert vision system[J] . NDTamp。雖然本文設計的系統(tǒng)完成了設計要求，但是個人能力有限，還有許多細節(jié)問題并不完善，所以還需進一步的研究。本次設計為焊接工藝規(guī)程制定系統(tǒng)的模塊之一，提供BMP格式的焊接坡口及焊接順序圖形，因此本次設計的圖形要保存為BMP位圖格式，并且可在焊接工藝規(guī)程制定系統(tǒng)中方便的調(diào)用、運行。保存圖片格式及路徑SavePicture ， C:\Documents and Settings\Administrator\桌面\杜蘭特\生成圖像保存位置\End Sub5運行結(jié)果V型坡口（角接接頭）界面如下圖51 V型坡口（角接接頭）界面I型坡口（對接接頭）界面如圖52圖52 I型坡口（對接接頭）界面I型坡口（角接接頭）界面如圖53圖53 I型坡口（角接接頭）界面I型坡口（T型接頭）界面如圖54圖54 I型坡口（T型接頭）界面K型坡口（T型接頭）界面如圖55圖55 K型坡口（T型接頭）界面V型坡口（對接接頭）界面如圖56圖56 V型坡口（對接接頭）界面雙U型坡口焊接順序界面如圖57圖57 雙U型坡口焊接順序界面I型坡口（對接）焊接順序界面如圖58圖58 I型坡口（對接）焊接順序界面K型坡口焊接順序界面如圖59圖59 K型坡口焊接順序界面V型坡口（角接）焊接順序界面如圖510圖510 V型坡口（角接）焊接順序界面雙V型坡口焊接順序界面如圖511圖511 雙V型坡口焊接順序界面V型坡口（對接）焊接順序界面如圖512圖512 V型坡口（對接）焊接順序界面U型坡口焊接順序界面如圖513圖513 U型坡口焊接順序界面重新輸入合適參數(shù)界面如圖514圖514 重新輸入合適參數(shù)界面，如圖515圖515 保存位置界面6結(jié)論以Visual Basic（簡稱VB）可視化的、面向?qū)ο蟮?、采用事件?qū)動方式的、結(jié)構(gòu)化高級程序設計語言編程為基礎，編制好實現(xiàn)圖形的程序，構(gòu)建成簡潔的人機對話界面，用戶只需在對話框內(nèi)輸入?yún)?shù)，便可以得到圖形，根據(jù)參數(shù)的不同、程序不同得到不同的效果圖。設置標注p箭頭 (b / 2 + 5， b / (2 * Tan(β / 2)))Step(， 2) (b / 2 + 5， b / (2 * Tan(β / 2)))Step(， 2) Step(， 0) (b / 2 + 5， b / (2 * Tan(β / 2)) + p)Step(， 2) (b / 2 + 5， b / (2 * Tan(β / 2)) + p)Step(， 2) Step(， 0) = b / 2 + 2 39。設置β標注位置 = r 20 Val() = 3 (0， 0)， * r ， ， PI / 2 * β + ， PI / 2 * β + 39。設置β標注位置 = r 20 176。設置b標注位置 = p b / (2 * Tan(β / 2)) + 1 b (b / 2， b / (2 * Tan(β / 2)))((r + 10) * Sin(β / 2)， (r + 10) * Cos(β / 2)) 39。繪制坡口 Step(5， 0) Step(0， 35) = 2 Step(3， 1) (b / 2， 15) = 4 (b / 2， b / (2 * Tan(β / 2))) = 2 (b / 2， p b / (2 * Tan(β / 2)))Step(0， 10) (b / 2， p b / (2 * Tan(β / 2)) + 5)Step(5， 0) (b / 2， p b / (2 * Tan(β / 2)) + 5)Step(5 b， 0) = 3 (b / 2， p b / (2 * Tan(β / 2)) + 5)Step(2， ) 39。設置標注δ箭頭 (r * Sin(β / 2) + 15， r * Cos(β / 2))Step(， 2) (r * Sin(β / 2) + 15， r * Cos(β / 2))Step(， 2) Step(， 0) (r * Sin(β / 2) + 15， p b / (2 * Tan(β / 2)))Step(， 2) (r * Sin(β / 2) + 15， p b / (2 * Tan(β / 2)))Step(， 2) Step(， 0) = r * Sin(β / 2) + 11 39。設置標注線寬 (r * Sin(β / 2) + 10， r * Cos(β / 2))Step(1， 4) 39。繪制坡口 (r * Sin(β / 2) + 10， r * Cos(β / 2)) 39。設置坡口線寬 = Truer = (δ p + b / (2 * Tan(β / 2))) / Cos(β / 2) 39。坡口角度 (20， 60)(30， 20) 39。根部間隙p = Val() 39。V型坡口（角接接頭）界面如圖48圖48 V型坡口（角接接頭）界面Private Sub Form_Load() = δ = b = p = βEnd SubPrivate Sub Command1_Click()PI = δ = Val() 39。保存picturebox控件中的圖像SavePicture ， C:\Documents and Settings\Administrator\桌面\杜蘭特\生成圖像保存位置\ 實例分析下面以V型坡口（角接接頭）的焊接坡口為例來分析它的編程。例如：SavePicture ， c:\ 39。如果它是 GIF或JPEG文件，則將保存為位圖文件。Stringexpression指的是欲保存的圖形文件名。使用語法是：SavePicture picture， stringexpressionSavePicture語句的語法包含參數(shù)和描述兩部分。當縱橫比為 1時 畫出來的是一段圓弧，當縱橫比不等于1時，畫出一段橢圓弧。用畫圓的方法Circle來畫圓弧及扇形非常容易，只要加上起始角和終止角即可。語法格式： [對象.]Circle[Step]（x，y），[顏色]，縱橫比功能：橢圓兩個軸長之比，即縱橫比，它決定了橢圓的形狀。使用F參數(shù)時，矩形總是被填充為實心。Fillstyle 屬性值設置為 0 ，可以通過 FillColor 屬性的顏色設置將矩形填充為實心。用 Line方法畫矩形時，還要注意對象 FillStyle 和 FillColor 屬性的設置。3）用 Line方法繪制矩形語法格式：［對象．］ Line ［［ Step ］（ xl ， y1 ）］一［ Step ］（ x2 ， y2 ）， [ 顏色 ] ， B[F]功能：在對象上以指定的 ( x1，y1)與（x2，y2） 作為 矩形的左上角和右下角的坐標，參