【正文】 在論文即將完成的時候，謹在此向陳老師表示深深的感謝和崇高的敬意 ! 感謝四年來各位老師對我的教導以及關心，也要感謝各位同學，讓 我 感受到了集體的溫暖，在這里我收獲了知識，也收獲了友情，最 后再次感謝各位老師及同學對我的幫助！ 杜蘭特 2020 年 5 月 16 日 。他嚴以律己、寬以待人的崇高品質和勤儉樸素的生活作風將是我永遠學習的榜樣。借此機會，我要對四年來幫助過我的人表示深深的感謝 本文是在導師 布魯克斯 老師的指導下完成的。 Multimedia Computer Programs[J].Welding amp。 俄克拉荷馬 理工大學學士學位論文 32 參考文獻 [1]崔競 .visual basic 基礎與實踐教程 [M]. 北京：電子工業(yè)出版社， [2] 安劍，孫秀梅 . visual basic 自學手冊 [M]. 北京：人民郵電出版社，2020 [3] 張朝昆 . Visual Basic 基礎與應用 [M]. 北京：人民郵電出版社， 2020 [4] 吳林，陳善本等 . 智能化焊接技術 [M].北京：國防工業(yè)出版社， 2020 [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)中方便的調用、運行。保存圖片格式及路徑 SavePicture ， C:\Documents and Settings\Administrator\桌面 \杜蘭特 \生成圖像保存位置 \焊接坡口 .bmp End Sub 俄克拉荷馬 理工大學學士學位論文 23 5 運行結果 V 型坡口（角接接 頭）界面 如下 圖 51 V 型坡口（ 角 接接頭）界面 I 型坡口（對接接頭）界面 如圖 52 圖 52 I 型坡口（對接接頭）界面 俄克拉荷馬 理工大學學士學位論文 24 I 型坡口（角接接頭）界面 如圖 53 圖 53 I 型坡口（角接接頭）界面 I 型坡口（ T 型接頭）界面 如圖 54 圖 54 I 型坡口（ T 型接頭）界面 俄克拉荷馬 理工大學學士學位論文 25 K 型坡口（ T 型接頭）界面 如圖 55 圖 55 K 型坡口（ T 型接頭）界面 V 型坡口（對接接頭）界面 如圖 56 圖 56 V 型坡口（對接接頭）界面 俄克拉荷馬 理工大學學士學位論文 26 雙 U 型坡口焊接順序界面 如圖 57 圖 57 雙 U 型坡口焊接順序界面 I 型坡口（對接）焊接順序界面 如圖 58 圖 58 I 型坡口（對接）焊接順序界面 俄克拉荷馬 理工大學學士學位論文 27 K 型坡口焊接順序界面 如圖 59 圖 59 K 型坡口焊接順序界面 V 型坡口（角接）焊接順序界面如圖 510 圖 510 V 型坡口（角接）焊接順序界面 俄克拉荷馬 理工大學學士學位論文 28 雙 V 型坡口焊接順序界面 如圖 511 圖 511 雙 V 型坡口焊接順序界面 V 型坡口（對接）焊接順序界面 如圖 512 圖 512 V 型坡口（對接）焊接順序界面 俄克拉荷馬 理工大學學士學位論文 29 U 型坡口焊接順序界面 如圖 513 圖 513 U 型坡口焊接順序界面 重新輸入合適參數界面 如 圖 514 圖 514 重新輸入合適參數界面 俄克拉荷馬 理工大學學士學位論文 30 生成的焊接坡口和焊接 順序 .bmp 格式圖片自動保存到指定位置 ，如圖 515 圖 515 保存位置界面 俄克拉荷馬 理工大學學士學位論文 31 6 結論 以 Visual Basic（簡稱 VB）可視化的、面向對象的、采用事件驅動方式的、結構化高級程序設計語言編程為基礎，編制好實現圖形的程序，構建成簡潔的人機對話界面，用戶只需在對話框內輸入參數，便可以得到圖形，根據參數的不同、程序不同得到不同的效果圖。設置標 注 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() 俄克拉荷馬 理工大學學士學位論文 22 = 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) 俄克拉荷馬 理工大學學士學位論文 21 = 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。設置坡口線寬 = True 俄克拉荷馬 理工大學學士學位論文 20 r = (δ 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 Sub Private Sub Command1_Click() PI = δ = Val() 39。保存 picturebox 控件中的圖像 SavePicture ， C:\Documents and Settings\Administrator\桌面 \杜蘭特 \生成圖像保存位置 \焊接坡口 .bmp 俄克拉荷馬 理工大學學士學位論文 19 實例分析 下面以 V 型 坡口 （ 角接 接頭） 的焊接 坡口 為例來分析它的編程。 例如： SavePicture ， c:\ 39。如果它是 GIF 或 JPEG 文件，則將保存為位圖文件。 Stringexpression 指的是 欲保存的圖形文件名。 使用語法是： SavePicture picture， stringexpression SavePicture 語句的語法包含 參數和 描述兩部分。當縱橫比為 1 時 畫出來的是一段圓弧，當縱橫比不等于 1 時，畫出一段橢圓弧。用畫圓的方法 Circle 來畫圓弧及扇形非常容易，只要加上起始角和終止角即可。 語法格式： [對象 .]Circle[Step]（ x， y） ， [顏色 ]，縱橫比 功能：橢圓兩個軸長之比，即縱橫比，它決定了橢圓的形狀。使用 F 參數時，矩形總是被填充為實心。Fillstyle 屬性值設置為 0 ，可以通過 FillColor 屬性的顏色設置將矩形填充為實心。 用 Line 方法畫矩形時，還要注意對象 FillStyle 和 FillColor 屬性的 設置。 3） 用 Line 方法繪制矩形 語法格式：［對象．］ Line ［［ Step ］（ xl ， y1 ）］一［ Step ］（ x2 ， y2 ）， [ 顏色 ] ， B[F] 功能：在對象上以指定的 ( x1， y1)與（ x2， y2） 作為 矩形的左上角和右下角的坐標，參數 B 表示要畫一個矩形 ， 參數 F 是指畫一個實心的矩形。 說明： 對象是指窗體、圖片框等