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