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