【文章內(nèi)容簡介】 爐組裝界面這是一個(gè)獨(dú)立的設(shè)有密碼的窗口，只有管理人員才能進(jìn)得去，當(dāng)點(diǎn)擊窯爐組裝界面中的“數(shù)據(jù)庫維護(hù)”按鈕就會(huì)彈出一個(gè)密碼框要求輸入密碼。如果輸入錯(cuò)三次這個(gè)密碼框就會(huì)自動(dòng)關(guān)閉，當(dāng)密碼正確時(shí)進(jìn)入數(shù)據(jù)庫維護(hù)界面如圖33 所示。在圖33有表的名稱，名稱上顯示在數(shù)據(jù)庫中建立的每個(gè)表，選擇表就可以看到里面的信息，例如：圖33中表的名稱是：預(yù)熱帶中段，其下面就是表“預(yù)熱帶中段”里面的內(nèi)容。再下面有三個(gè)按鈕：“添加”、“刪除”、“退出”，當(dāng)黑色的小三角箭頭哪一條數(shù)據(jù)時(shí)，點(diǎn)擊刪除系統(tǒng)就會(huì)彈出一個(gè)確認(rèn)對話框提示客戶是否真的要?jiǎng)h除這條內(nèi)容，是就點(diǎn)“是”，不想就點(diǎn)“否”；點(diǎn)擊“退出”按鈕就會(huì)退出這個(gè)界面。點(diǎn)擊“添加”按鈕會(huì)彈出一個(gè)對話框如圖34所示：上面有表名稱，你想在那個(gè)表上添加數(shù)據(jù)你就選擇那一個(gè)表，窯寬，一定只能是數(shù)字不然系統(tǒng)就會(huì)提示錯(cuò)誤要求輸入數(shù)字，在“JPG圖名”和“CAD圖名”中輸入圖名，注意它們的后綴是jpg、dxf。如圖34所示表名稱：燒成帶；窯寬：；JPG圖名：；CAD圖名：?！?VB調(diào)用圖庫的程序編寫 為了實(shí)現(xiàn)窯爐的自動(dòng)組裝編寫程序那是必不可少的，以下為VB引用CAD的一些代碼。（1）VB打開CAD的程序［9］Option ExplicitPublic acad As AcadApplication 39。定義Autocad程序?qū)ο驪ublic doc As AcadDocument 39。建立名稱為acab的文件Public Sub AutoCAD_Appliaction(MainForm As , acadapp As AcadApplication) 圖33　數(shù)據(jù)庫維護(hù)界面 On Error Resume Next 39。出錯(cuò)了繼續(xù)即不顯示錯(cuò)誤. Dim Thisdrawing As AcadDocumentDim i As IntegerSet acadapp = GetObject(, ) 39。如果AutoCAD已打開,獲得它. If Err Then Set acadapp = CreateObject() 39。如果AutoCAD未打開,就啟動(dòng)它.圖34　數(shù)據(jù)庫添加界面 If Err Then = False MsgBox = True Exit Sub End If Else If = 1 Then For i = To 1 Step 1 Set Thisdrawing = (i 1) Next End If End If Set Thisdrawing = Nothing 39。39。釋放Autocad程序列程占用的內(nèi)存 = True 39。39。使AutoCAD可見 = acMax 39。39。使AutoCAD最大化End Sub（2）導(dǎo)入CAD圖形 以下的程序是導(dǎo)入CAD圖形，思路是：建立一個(gè)全集，把實(shí)體放在這個(gè)集上面用”import”這個(gè)函數(shù)來導(dǎo)出數(shù)據(jù)庫里面的圖形。Private Sub cmdpyd_Click() AutoCAD_Appliaction Me, acadSet doc = (dsfdf)Dim aa(0 To 2) As Double 　　　　　　　　　　　　　　　　　　Dim sset As AcadSelectionSet Dim entity As AcadEntity aa(0) = 0: aa(1) = 0: aa(2) = 0 Set sset = (dfdf) If = 排煙段CAD圖形 Then ( + \圖形庫\ + !cadtuxing_dxf), aa, 1 ZoomAll ElseIf = 急冷段CAD圖形 Then ( + \圖形庫\ + !cadtuxing_dxf), aa, 1 ZoomAll End IfEnd Sub（3）連接數(shù)據(jù)庫［10］ = Provider=。Data Source= + + 數(shù)據(jù)庫/。Persist Security Info=False = select * from shaochengdai where yaokuan=39。 amp。 (Yaokuan_Select) amp。 39。=LoadPicture(+/圖形庫/ +!tuxing_jpg)Where = 5 AUTOCAD組裝圖形思路 本設(shè)計(jì)的組裝分為三帶來出圖那就是預(yù)熱帶、燒成帶、冷卻帶。這是為了出圖的方便，因?yàn)榻M裝一條整窯的話時(shí)間過長，也不方便查看。設(shè)計(jì)思路如圖35所示：導(dǎo)出CAD選中CAD中的所有實(shí)體選中的實(shí)體插入到1200,5555這個(gè)點(diǎn)上選定（0，0）到（15000,15000）這個(gè)區(qū)域上的實(shí)體移到（17150, 17150）這個(gè)點(diǎn)上每加一節(jié)就多移動(dòng)一節(jié)的長度＝一條窯圖35組裝圖形流程4. 結(jié)束語 在經(jīng)過將近3個(gè)來月的緊張?jiān)O(shè)計(jì)和論文寫作后，終于圓滿地完成。在本設(shè)計(jì)中，我是采用AutoCAD設(shè)計(jì)輥道窯及建立輥道窯圖庫并借助Visual Basic這個(gè)編程工具來編寫一個(gè)可以根據(jù)客戶的不同需要的自由調(diào)配圖庫里面的圖形來組成一條輥道窯。本課題在窯爐設(shè)計(jì)中是一個(gè)非常有探索性的課題，它不僅能讓我從設(shè)計(jì)中，學(xué)到了一些以前沒注意到的輥道窯的知識(shí)，也重新讓我對以前掌握一些的輥道窯知識(shí)，又有了一個(gè)全面理解；并且我通過用AutoCAD進(jìn)行設(shè)計(jì)，在CAD的繪圖運(yùn)用水平上也有所提高。通過使用Visual Basic我學(xué)到了很多編程方面的知識(shí),這也必將為自己在以后工作帶來很大幫助。能夠順利完成本設(shè)計(jì)除了我個(gè)人的努力之外還要感謝胡老師的認(rèn)真指導(dǎo)還有李日強(qiáng)、汪小鵬等同學(xué)的熱心幫助，我忠心地祝福他們身體健康，生活美滿。通過一個(gè)小小的軟件就可以快速地組裝成一條窯。對客戶來說可以根據(jù)自己的實(shí)際情況來組裝適合自己的窯；對于窯爐的設(shè)計(jì)者來說可以收集輥道窯的窯爐圖放在圖庫里為自己以后的設(shè)計(jì)提供了便利。例如:一位客戶想建一條200萬平方米/年，產(chǎn)品是600x600,燒成時(shí)間40分鐘。只要把這些信息輸入到這個(gè)程序中去就會(huì)計(jì)算出幾種窯內(nèi)寬來，客戶可以根據(jù)自己的實(shí)際情況來選擇他所需要的窯內(nèi)寬，當(dāng)窯寬確定之后，客戶可以瀏覽到圖庫里關(guān)于他所選擇的窯內(nèi)寬各段的所有圖形來供客戶選擇，當(dāng)客戶確定后一條整窯就會(huì)出現(xiàn)在客戶的面前，很直觀地看到他要建的窯是一個(gè)什么樣子的，擺脫了以前那種用手工組建的方法使窯爐的設(shè)計(jì)更加智能化，使組裝窯爐智能化這就是本設(shè)計(jì)最大的創(chuàng)新點(diǎn)。有人說只要有付出就會(huì)有收獲只是多少的問題，但如果你不付出就會(huì)一無所獲。我喜歡這句話，在這三個(gè)多月的設(shè)計(jì)中我收獲了很多，首先是進(jìn)一步加深了對窯爐結(jié)構(gòu)了解，鞏固以前學(xué)到的知識(shí)；其次是學(xué)到了新的知識(shí)如：Visual Basic、Photoshop、Access等，這些都使我有更多的熱情投入到我的設(shè)計(jì)中去。在設(shè)計(jì)的過程中我也遇到很多的問題，就像建立Visual Basic與CAD的關(guān)系這個(gè)問題就讓我很是頭痛，如果這一步解決不了的話那我的設(shè)計(jì)就沒有辦法完成那就是不能畢業(yè)，這個(gè)問題曾一度讓我心灰意冷，幸好有老師和同學(xué)們的幫助加上自己的努力使我實(shí)現(xiàn)了這一步，這很是讓我感動(dòng)，讓我明白了要做成做好一件事除了自己加倍努力之外還要借助外界的力量，也讓我有了團(tuán)隊(duì)精神。但由于水平有限本設(shè)計(jì)并非完美,例如在編寫的程序中抗錯(cuò)性能比較差,如果有不正確有操作就有可能出錯(cuò)。由于時(shí)間和水平能力有限本設(shè)計(jì)有許多不足之處，有以下幾點(diǎn)要加以改進(jìn)：① 選擇窯寬，如果客戶不點(diǎn)擊窯寬來加以選擇而是直接點(diǎn)擊下一步進(jìn)入組裝界面程序就會(huì)出錯(cuò)提示“下標(biāo)”越界。例如：當(dāng)“請選擇你需要的窯寬”上面顯示窯內(nèi)寬為‘’客戶認(rèn)為這個(gè)窯寬符合自己的要求而直接點(diǎn)擊下一步進(jìn)入組裝界面，從而出錯(cuò)；因?yàn)樵诔绦蚓帉懙臅r(shí)用有是click事件。如果不點(diǎn)擊當(dāng)然會(huì)出錯(cuò)，怎么樣才能不用點(diǎn)擊窯寬也能直接進(jìn)入組裝界面？② 圖形組裝，本設(shè)計(jì)的圖形組裝分三部分：預(yù)熱帶、燒成帶、冷卻帶。以預(yù)熱帶為例：排煙段，客戶無論選擇集中排煙還是分散排煙都要點(diǎn)擊“添加”按鈕來添加所要的圖形。同理，預(yù)熱帶中段、預(yù)熱帶后段也要點(diǎn)擊“添加”按鈕來添加所要的圖形，只有當(dāng)這三個(gè)段點(diǎn)擊了添加之后才能點(diǎn)擊“預(yù)熱帶總圖”按鈕進(jìn)行圖形組裝，漏了任何的一段圖形都無法組裝系統(tǒng)將提示“參數(shù)無效”，燒成帶、冷卻帶也是一樣。如果客戶只想輸出預(yù)熱帶中段的組裝圖形時(shí)就辦不到了。也就是還沒能達(dá)到按用戶要求隨心所欲的境界。③ 上擋板和下?lián)鯄?在圖形組裝的時(shí)候沒有辦法插入合理的上擋板和下?lián)鯄?尤其是上擋板的問題,在程序編寫時(shí)沒法插入,如要改進(jìn)，是否可考慮在總圖組裝后，在程序中添加一個(gè)模塊，但對上擋板須將原有部分畫線復(fù)蓋，這將是一個(gè)難點(diǎn)問題。④ 數(shù)據(jù)庫維護(hù)中，沒有修改數(shù)據(jù)庫功能。只有添加、刪除、退出，今后考慮增加修改圖庫功能，例如在程序中進(jìn)入了CAD圖形后，用戶可根據(jù)自己需要作小的修改，再存入圖庫中，當(dāng)然這需要時(shí)間去實(shí)踐。以上為本設(shè)計(jì)的不足之處，希望能在以后的學(xué)習(xí)中不斷地改進(jìn)，完善這個(gè)軟件。最終能夠運(yùn)用到實(shí)際當(dāng)中去。主要參考資料[1]
[2]
[3]
[4] 宋
[5]
[6] 杜 [7] 舒 [8] 曾令可，張　明，羅民華等 《陶瓷輥道窯寬斷面需解決的問題》[9] 謝步瀛，龔沛曾. Visual [10] 啟明工作室. Visual Basic + 附件一：窯內(nèi)寬和窯長計(jì)算程序代碼39。39。39。39。39。以下為窯內(nèi)寬和窯長計(jì)算部分chanpin_shuru = Val() 　　pitikuan = chanpin_shuru / (1000 * (1 )) n = Int(2 / pitikuan) 　jieshu_yaokuan = 2 　jieshu_yaochang = 51 　 Do While jieshu_yaokuan = 2 And jieshu_yaokuan = 3 And jieshu_yaochang = 250 And jieshu_yaochang = 50 39。39。39。39。39。39。計(jì)算窯長 yaochang_arr(i) = ((chanliang_shuru * time_shuru * 10000) / ((chanpin_shuru / 1000) * n * (330 * 24 * * 60)))jieshu(i) = Int(yaochang_arr(i) / ) yaochang_arr(i) = jieshu(i) * yaokuan_arr(i) = Format(yaokuan_arr(i), ) yrdjieshu(i) = Int(yaochang_arr(i) * / ) yrdzdjieshu(i) = Int(yrdjieshu(i) * ) yrdhdjieshu(i) = yrdjieshu(i) yrdzdjieshu(i) 1 scdjieshu(i) = Int(yaochang_arr(i) * / ) lqdjieshu(i) = Int(yaochang_arr(i) * / ) jldjieshu(i) = Int(lqdjieshu(i) * ) hldjieshu(i) = Int(lqdjieshu(i) * ) kldjieshu(i) = lqdjieshu(i) jldjieshu(i) hldjieshu(i) zongjieshu(i) = yrdjieshu(i) + scdjieshu(i) + lqdjieshu(i) yrdyaochang(i) = yrdjieshu(i) * 39。預(yù)熱帶窯長的計(jì)算 scdyaochang(i) = scdjieshu(i) * 39。燒成帶窯長的計(jì)算 lqdyaochang(i) = lqdjieshu(i) * 39。冷卻帶窯長的計(jì)算 yaocha