水泥配料計算的設(shè)計說明書

1、材料工程學(xué)院程序設(shè)計說明書計算機在無機材料工廠中的應(yīng)用專 業(yè)_材料科學(xué)與工程 _學(xué)生姓名 _班級 _B材料082 _學(xué)號 _0810201206 _指導(dǎo)教師_完成日期 2011 年10月21日1緒論 . 11.1設(shè)計目的與意義 . 11.2設(shè)計任務(wù)及目標 . 22程序設(shè)計思路 . 22.1計算依據(jù) . 22.2計算步驟 . 32.3編程原理 . 3數(shù)據(jù)輸入 . 33程序設(shè)計框圖 . 54軟件運行界面設(shè)計 . 64.1概述 . 64.2登錄界面設(shè)計 . 64.3主界面設(shè)計 . 84.4配料計算界面設(shè)計 . 95主要程序代碼說明 . 105.1 數(shù)據(jù)輸入 . 105.2數(shù)據(jù)處理 . 115.3數(shù)據(jù)

2、輸出 . 135.4數(shù)據(jù)保存 . 14設(shè)計總結(jié) . 17參考文獻 . 18致 謝 . 19附錄 . 20計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書11緒論1.1設(shè)計目的與意義1.1.1設(shè)計的目的（1）培養(yǎng)學(xué)生利用所學(xué)的 Visual Basic 程序設(shè)計語言來解決武技非金屬材料專 業(yè)方面實際問題的能力，進一步提高學(xué)生計算機應(yīng)用能力；（2）進一步掌握Visual Basic程序設(shè)計語言知識的上機調(diào)試、運行程序的技能。1.1.2設(shè)計的意義水泥配料計算就是生料組成的計算，是根據(jù)水泥熟料化學(xué)組成和礦物成份的要求 而計算出各種原料的配合比。因此，配料計算是水泥生產(chǎn)中的一個重要環(huán)節(jié)，其計算 結(jié)果的準確與否

3、直接關(guān)系到水泥廠的產(chǎn)品質(zhì)量。此外，配料計算又為物料平衡計算提 供基礎(chǔ)數(shù)據(jù)，而物料平衡是生產(chǎn)工藝中設(shè)備選型和穩(wěn)定生產(chǎn)的條件。目前配料計算中經(jīng)常使用的方法有以下幾種：代數(shù)法、圖解法、誤差嘗試法（也 叫遞減試湊法）、礦物組成法、最小二乘法等，其中代數(shù)法計算結(jié)果比較精確，但計算 煩瑣。圖解法計算簡單但誤差較大，誤差嘗試法將經(jīng)驗判斷和計算相結(jié)合，是一種經(jīng) 驗方法，手工計算較方便?？傊鲜鰩追N計算方法各有利弊。目前設(shè)計人員和生產(chǎn)管理人員大多采用手工計算，因此誤差嘗試法被廣泛應(yīng)用。 然而手工計算效率較低，尤其在原料不能滿足配料要求的情況下尤為突出。采用計算 機配料計算效率高，而且能對原始數(shù)據(jù)加以管理，能將計

4、算機結(jié)果打印輸出，其優(yōu)勢 十分明顯。以上幾種計算方式均可用于計算機計算，因此為計算機選擇一種合理的計算方法 就顯得十分重要。Visual Basic （以下簡稱VE）是一種可視化的、面向?qū)ο蟮暮兔子檬录?qū)動方式 的結(jié)構(gòu)化高級程序設(shè)計語言，它是以 Basic語言為基礎(chǔ)可視化軟件開發(fā)工具，采用了 以前Basic語言的一些語法，繼承了 Basic語言簡單易學(xué)、使用方便的特點，同時增 加了結(jié)構(gòu)化和可視化程序設(shè)計語言的功能。它將windows界面設(shè)計的復(fù)雜性圭寸裝起來, 編程人員只需為界面設(shè)計編寫少量代碼，利用系統(tǒng)提供的工具，在屏幕上畫出各種對 象，并設(shè)置對象的屬性即可。VB的可視化設(shè)計平臺簡化了編程的

5、過程，大大的提高了 編程的效率。本設(shè)計采用了 Visual Basic 語言進行配料計算，可以有以下特點：一是界面友 好，甚至連不懂計算機的人都可以根據(jù)屏幕上的提示輸入數(shù)據(jù)，完成計算任務(wù)；而是 模型簡單，知識稍具有一定配料知識，都能看懂原理，編輯相應(yīng)程序代碼，實現(xiàn)所需 功能；三是計算快捷、簡便、準確、高效，能夠正確指導(dǎo)生產(chǎn)。計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書2KH(2)硅率SMSiO2Al 2O3 Fe2O3(3)鋁率IMA| 2O3Fe2O31.2設(shè)計任務(wù)及目標1.2.1設(shè)計任務(wù)四種原料(石灰石、粘土、鐵粉、煤灰)的配料1.2.2設(shè)計目標將計算機計算的優(yōu)勢發(fā)揮出來，只要稍微具有一定配

6、料知識的，都能夠看懂原理, 直接在界面輸入少許出事數(shù)據(jù)，即可得到誤差較小的配料計算結(jié)果，計算效率高，并 且能夠?qū)Τ鍪聰?shù)據(jù)加以管理，能將計算結(jié)果打印輸出。1.2.3計算應(yīng)得的結(jié)果：(1)熟料的三率值KH、SM、IM(2)熟料的化學(xué)成分(3)熟料可能的礦物成分(4)干原料的重量百分比(5)濕原料的重量百分比(6)生料的化學(xué)成分(7)生料的碳酸鈣滴定值2程序設(shè)計思路2.1計算依據(jù)2.1.1熟料三率值的計算(1)石灰飽和系數(shù)(IM 0.64)CaO- 1.65A12O3 - 0.35Fe2O3 - O.7OSO32.8SQ22.1.2熟料化學(xué)成分計算設(shè) Cao+SiO 2+Al 2O3+Fe2O3=匸

7、YFe?O3 ：SM(2.8KH 1)(IM1)2.6 5 SMI .35AI2O3 =IM * Fe2O3SiO2=SM(AI 2O3+Fe2O3)CaO=二-(SQ2+AI2O3+Fe2O3)2.1.3煤灰摻入量計算gA= q!Ad*10,Qnet, ad式中:g A-煤灰摻入量，Kg/100kg熟料計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書3q -熟料熱耗，kJ/kg熟料A ad -熟料中灰分含量，%S 煤灰沉落率，%Q net，ad-燃料發(fā)熱量，kJ/kg燃料2.1.4熟料可能的礦物組成成分計算C 3S=3.8*(3*KH-2)*SiO 2 C3S=8.16*(1-KH)*SiO 2C

8、 Q=2.65*AI 2Q-1.69*Fe 2QC 4AF=3.04*Fe2Q2.2計算步驟(1)輸入原燃料化學(xué)成分，煤熱值，灰份等(2)輸入KH SM IM、熱耗(3)計算煤灰摻入量GA(4)計算方程系數(shù)(5) 用最小二乘法將三元一次方程的四個方程式轉(zhuǎn)化成三個方程式AX=B(6) 用全主元高斯一一約當(dāng)消去法求解線性方程組 AX=B 2.3編程原理數(shù)據(jù)輸入1.錄入煤熱值Qnet、灰份AAd沉落率S,熟料熱耗QQn et = TxtMR Z.Text AAd = TxtMHF.Text 指1kg煤的發(fā)熱量，kJ/kg煤指100kg煤燃燒所剩的煤灰，kg煤灰/100kg煤S = TxtCLL.Te

9、xt Q = TxtSLRH.Text 指100kg煤灰中成為熟料的量，kg煤灰/100kg煤灰指1kg熟料所需的熱耗，kJ/kg熟料2.熟料三率值KH SM和IMKHM = TxtKHM.TextSMM = TxtSMM.Text 指熟料的KH值 指熟料的SM值IMM = TxtIMM.Text 1指熟料的IM值3.錄入干燥基原料、煤灰、礦化劑化學(xué)成分的錄入表1干燥基原料、煤灰、礦化劑化學(xué)成分原料LossCaOSiO2Al 2O3Fe2O3MgOSO3CaF2刀石灰石A(1,1)A(1,2)A(1,3)A(1,4)A(1,5)A(1,6)A(1,7)A(1,8)A(1,9)粘土A(2,1)A

10、(2,2)A(2,3)A(2,4)A(2,5)A(2,6)A(2,7)A(2,8)A(2,9)鐵粉A(3,1)A(3,2)A(3,3)A(3,4)A(3,5)A(3,6)A(3,7)A(3,8)A(3,9)煤灰A(4,1)A(4,2)A(4,3)A(4,4)A(4,5)A(4,6)A(4,7)A(4,8)A(4,9)熟料A(5,1)A(5,2)A(5,3)A(5,4)A(5,5)A(5,6)A(5,7)A(5,8)A(5,9)For i = 1 To 4Forj = 1 To 8A(i, j) = Val(TxtYLHXCF(9 * (i - 1) + j - 1).Text)A(i, 9)

11、= A(i, 9) + A(i, j)計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書4Next jTxtYLHXCF(9 * (i - 1) + 8).Text = Format(A(i, 9), #0.00)Next i式中：A(I,J)表示某一物料干燥基某種化學(xué)成分的值；I表示原料、煤灰、礦化劑種類，數(shù)值范圍為14；J表示化學(xué)成分的種類，數(shù)值范圍為19。4錄入原料及煤的含水率For i = 1 To 7W(i) = TxtSF(i - 1).TextNext i式中：W(I)表示某一原料的含水率，即1OOkg原料中所含水分的質(zhì)量; W(7)表示燃料(煤)的含水百分數(shù)，即100kg燃料中所含水分

12、的質(zhì)量; I表示原料種類，數(shù)值范圍為15，5表示為燃料。表2灼燒基原料、煤灰、礦化劑化學(xué)成分原料CaOSi02AI2O3Fe2O3MgOSO3CaF2刀石灰石B(1,1)B(1,2)B(1,3)B(1,4)B(1,5)B(1,6)B(1,7)B(1,8)粘土B(2,1)B(2,2)B(2,3)B(2,4)B(2,5)B(2,6)B(2,7)B(2,8)鐵粉B(3,1)B(3,2)B(3,3)B(3,4)B(3,5)B(3,6)B(3,7)B(3,8)煤灰B(4,1)B(4,2)B(4,3)B(4,4)B(4,5)B(4,6)B(4,7)B(4,8)熟料B(5,1)B(5,2)B(5,3)B(5

13、,4)B(5,5)B(5,6)B(5,7)B(5,8)5.錄入熟料中所需S03 CaF2的量GCcl = Val(TxtYLHXCF(9 * (8 - 1) + 6)GCcl 指 100kg 熟料中所需 S03量, kgS03/100kg 熟料GBcl = Val(TxtYLHXCF(9 * (8 - 1) + 7)GBcl 指100kg熟料中所需CaF2量，kg CaF2/100kg熟料計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書53程序設(shè)計框圖計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書64軟件運行界面設(shè)計4.1概述通過各種控件設(shè)置登錄界面、系統(tǒng)主界面、配料計算界面，要求界面友好，課 操作性強

14、，交互性好。具體如下：（1）保持用戶界面及窗口的簡潔性在用戶界面及窗體設(shè)計的過程中， 要盡可能簡化，要注意不要為追求新奇，同 時在屏幕上顯示許多圖形，否則會帶來混亂，降低應(yīng)用程序的可操作性。另外只有 在用戶需要時，才顯示圖形和表格。在設(shè)計用戶界面和窗體時，還要考慮到用戶的使用習(xí)慣，即一般從左到右，從 上到下掃描窗體，并且相對于黑白顏色和色符，人們的視覺注意更容易被彩色和圖 形吸引。但同時要注意保證用戶界面上的關(guān)鍵部分不能被不重要的部分干擾。（2）保持用戶界面的明確性。即可以使用戶不閱讀使用手冊可以使用應(yīng)用程序。這就要求在設(shè)計用戶界面及 窗體時的菜單或命令按鈕等名稱應(yīng)能夠見名知義，或者當(dāng)鼠標指向

15、命令按鈕時，彈出一個標簽來顯示命令功能提示說明。（3）使用用戶所熟悉的設(shè)計元素在用戶界面及窗體設(shè)計的過程中，要盡可能使用用戶所熟悉的設(shè)計元素。如 windows應(yīng)用程序中經(jīng)常使用的“文件”菜單中的“打開，保存，退出”命令；“編 輯”菜單中的“剪切，復(fù)制，粘貼”命令等，不要擅自修改或增加這些應(yīng)經(jīng)具備相 對固定功能的元素，否則會引起用戶的不便。4.2登錄界面設(shè)計計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書7功能：輸入用戶名、密碼后即可進入系統(tǒng)；可試三次，每次輸出錯誤，均有提示，且最后一次輸入不正確，則退出登錄系統(tǒng)。設(shè)計登錄界面時所涉及的可能控件有：標簽、文本框、組合框、命令按鈕等Con trolBo

16、xFalseCapti on用戶登錄Picturejietu.jpgFormlIconMISC27.ICO（名稱）Label1Capti on用戶名LabellAutoSizeTrue（名稱）passwordAutoSizeTrueLabel2Capti on密碼（名稱）Label3AutoSizeTrueLabel3Capti on驗證碼（名稱）user name王小龍楊銀銀ListCombolText（名稱）Label4Label4Capti on水泥配料計算計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書8AutoSizeTrue（名稱）Label5Capti on設(shè)計人：王小龍Label5A

17、utoSizeTrueTextlTextText2Text（名稱）CmdOkComma nd1Capti on確定（名稱）Comma nd2Comma nd2Capti on取消（名稱）Comma ndTCComma nd3Capti on退出4.3主界面設(shè)計計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書94.4配料計算界面設(shè)計計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書10mrz= Txtmrz.Text扌旨 1kg指100kg煤燃燒所剩的煤灰，kg煤灰/100kg煤 指100kg煤灰中成為熟料的量，kg煤灰/100kg指1kg熟料所需的熱耗，kJ/kg熟料指熟料的KH值指熟料的SM值指熟料的IM

18、值3.錄入干燥基原料、煤灰、礦化劑化學(xué)成分的錄入For i = 1 To 4Forj = 1 To 8A(i, j) = Val(Txtylhxcf(9 * (i - 1) + j - 1).Text)A(i, 9) = A(i, 9) + A(i, j)Next jTxtylhxcf(9 * (i - 1) + 8).Text = Format(A(i, 9), #0.00)Next i4.錄入原料及煤的含水率For i = 1 To 4W(i) = Txtsf(i - 1).TextNext iW(I)表示某一原料的含水率，即100kg原料中所含水分的質(zhì)量;計算機在無機材料工廠中的應(yīng)用程序

19、設(shè)計說明書11W(4)表示燃料(煤)的含水百分數(shù)，即100kg燃料中所含水分的質(zhì)量; I表示原料種類，數(shù)值范圍為13，4表示為燃料。5.錄入熟料中所需SO3 CaF2的量GCcI = Val(Txtylhxcf(9 * (5 - 1) + 6)GCcI 指 100kg 熟料中所需 SO3量, kgSO3/100kg熟料GBcl = Val(Txtylhxcf(9 * (5 - 1) + 7)GBcl指100kg熟料中所需CaF2量，kg CaF2/100kg熟料小四、宋體、行間距20磅5.2數(shù)據(jù)處理1.干燥基化學(xué)成分換算灼燒基化學(xué)成分For i = 1 To 4Forj = 1 To 8B(i

20、, j) = A(i, j + 1) * 100 / (100 - A(i, 1)Next jNext i式中：B(I,J)表示某一物料灼燒基某種化學(xué)成分的值；I表示原料、煤灰、礦化劑種類，數(shù)值范圍為14；J表示化學(xué)成分的種類，數(shù)值范圍為18。2.計算煤灰、石膏及螢石的摻入量GA = (slrh * mhf * cll) / (mrz * 100)指100kg熟料中摻入的煤灰量，kg煤灰/100kg熟料B(4,6)指100kg煤灰中所含SO3量原料 名CaOSiO2AI2QFQQMgOSOCaFTotal石灰 石B(1,1)B(1,2)B(1,3)B(1,4)B(1,5)B(1,6)B(1,7

21、)B(1,8)粘土B(2,1)B(2,2)B(2,3)B(2,4)B(2,5)B(2,6)B(2,7)B(2,8)鐵粉B(3,1)B(3,2)B(3,3)B(3,4)B(3,5)B(3,6)B(3,7)B(3,8)煤灰B(4,1)B(4,2)B(4,3)B(4,4)B(4,5)B(4,6)B(4,7)B(4,8)熟料B(5,1)B(5,2)B(5,3)B(5,4)B(5,5)B(5,6)B(5,7)B(5,8)3.配料方程的系數(shù)計算計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書12Fori = 1 To 3BB(1, i) = 2.8 * KH * B(i, 2) + 1.65 * B(i, 3)

22、 + 0.35 * B(i, 4) + 0.7* B(i, 6) - B(i, 1)BB(2, i) = SM * (B(i, 3) + B(i, 4) - B(i, 2)BB(3, i) = IM * B(i, 4) - B(i, 3)BB(4, i) = 1Next iBC(1) = GA * (B(4, 1) - 2.8 * KH * B(4, 2) - 1.65 * B(4, 3) - 0.35 * B(4,4) - 0.7 * B(4, 6)BC(2) = GA * (B(4, 2) - SM * (B(4, 3) + B(4, 4)BC(3) = GA * (B(4, 3) - I

23、M * B(4, 4)BC(4) = 100 - GA解方程的程序調(diào)用(1)調(diào)用最小二乘法程序Call tran spose(BB, BC, BBB, BCC)(2)調(diào)用解方程程序Call SolvQua(BBB, BCC, X)熟料的主要化學(xué)成分計算CaO = (B(1, 1) * X(1) + B(2, 1) * X(2) + B(3, 1) * X(3) + B(4, 1) * GA) / 100SiO2 = (B(1,2) * X(1) + B(2, 2) * X(2) + B(3, 2) * X(3) + B(4, 2) * GA) / 100Al2O3 = (B(1,3) * X(

24、1) + B(2, 3) * X(2) +B(3, 3) * X(3) + B(4, 3) * GA) / 100Fe2O3 = (B(1,4) * X(1)+ B(2, 4) * X(2) + B(3, 4) * X(3) + B(4, 4) * GA) / 100MgO = (B(1,5) * X(1) + B(2, 5) * X(2) + B(3, 5) * X(3) + B(4, 5) * GA) / 100SO3 = (B(1,6) * X(1) + B(2, 6) * X(2) + B(3, 6) * X(3) + B(4, 6) * GA) / 100CaF2 = (B(1,7)

25、 * X(1) + B(2, 7) * X(2) + B(3, 7) * X(3) + B(4, 7) * GA) / 100 干基原料與燃料配比，濕基原料配比Fori = 1 To 3XO(i) = X(i) * 100 / (100 - A(i, 1)XW(i) = XO(i) * 100 / (100 - W(i)Next iXO=slrh * 100 / mrzXW(4) = XO * 100 / (100 - W(4)式中：X0(1)、X0(2)和X0(3)表示生產(chǎn)100kg熟料所需干燥基 CaO SiO2和Fe2O3 的用量；X(1)、X(2)和X(3)表示生產(chǎn)100kg熟料所需灼

26、燒基原料 CaO SiO2和Fe2O3的用計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書13W(4)表示燃量;A(1,0)、A(2,0)和A(3,0)表示干燥基原料 CaO SiO2和Fe2O3的燒失量；X0(4)表示生產(chǎn)100kg熟料所需干燥基燃料的用量。XW(1)、XW(2)和XW(3)表示生產(chǎn)100kg熟料所需濕基、和的用量；W(1)、W(2)和 W(3)表示原料CaO SiO2和Fe2O3所含水分百分含量, 料所含水分百分含量；XW(4)表示生產(chǎn)100kg熟料所需濕基燃料的用量。熟料的礦物成分C3S = 3.8 * (3 * KH - 2) * SiO2C2S = 8.61 * (1 -

27、KH) * SiO2C3A = 2.65 * A12O3 - 1.69 * Fe2O3C4AF = 3.04 * Fe2O3生料中的CaO與MgO勺量CaO = (A(1,2) * XO(1) + A(2, 2) * XO(2) + A(3, 2) * XO(3) / (XO(1)+ XO(2) + XO(3) / 100MgO = (A(1,6) * XO(1) + A(2, 6) * XO(2) + A(3, 6) * XO(3) / (XO(1)+ XO(2) + XO(3) / 100生料的碳酸鈣滴定值TCaCO3 = (1.685 * CaO + 2.48 * MgO) * 100

28、式中：CaO MgO表示生料中CaO MgC的百分含量5.3數(shù)據(jù)輸出熟料部分成分的輸出Txtylhxcf(37) = Format(CaO, #0.00)Txtylhxcf(38) = Format(SiO2, #0.00)Txtylhxcf(39) = Format(Al2O3, #0.00)Txtylhxcf(40) = Format(Fe2O3, #0.00)Txtylhxcf(41) = Format(MgO, #0.00)Txtylhxcf(42) = Format(SO3, #0.00)Txtylhxcf(43) = Format(CaF2, #0.00)For i = 37 To

29、 43M = M + Txtylhxcf(i)Next iTxtylhxcf(44).Text = M計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書14原料配比輸出：Txtmhcl.Text = Format(GA, #0.00)TxtKHJS.Text = Format(KH, #0.00)TxtSMJS.Text = Format(SM, #0.00)TxtIMJS.Text = Format(IM, #0.00)TxtKHWC.Text = Format(TxtKHMB.Text - TxtKHJS.Text, #0.00) TxtSMWC.Text = Format(TxtSMMB.Tex

30、t - TxtSMJS.Text, #0.00)TxtIMWC.Text = Format(TxtlMMB.Text - TxtIMJS.Text, #0.00) 用文本框數(shù)組輸出原燃料配比For i = 1 To 4 Txtgjpb(i - 1).Text = Format(XO(i), #0.00)Next iFor i = 1 To 4Txtsjpb(i - 1).Text = Format(XW(i), #0.00)Next i用文本框輸出熟料的礦物成分TxtC3S.Text = Format(C3S, #0.00)TxtC2S.Text = Format(C2S, #0.00)Txt

31、C3A.Text = Format(C3A, #0.00)TxtC4AF.Text = Format(C4AF, #0.00)用文本框輸出生料的碳酸鈣滴定值Text1.Text = Format(TCaCO3, #0.00)XXX XXX XXX XX，小四、宋體、行間距 20磅5.4數(shù)據(jù)保存Private Sub Comma nd4_Click()Dim i As In teger, j As In tegerCDl.Filter = All Files(*.*)|*.*|Text(*.txt)|*.txtCDl.Filterl ndex = 2CDl.DefaultExt = txtCDl

32、.ShowSave 顯示保存對話框Open CDl.FileName For Output As #1Print #1, Tab(10);水泥配料結(jié)果報告單Print #1, Tab(10); NowPrint #1, 1.原材料的化學(xué)成分計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書15Print #1, Tab(1); 原料;Tab(6); Loss; Tab(13); CaO; Tab(20);計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書16SM: ; CStr(TxtSMWC.Text); Tab(25); IMPrint #1,Print #1, 4. 配料計算結(jié)果Print #1, Ta

33、b(1); 原 料;Tab(8);Tab(22); 濕基配比For i = 0 To 3Print #1, Tab(1); Label16(i).Caption;Txtgjpb(i).Text; Tab(28); Txtsjpb(i).TextNext iPrint #1,Print #1, 5.熟料化學(xué)與礦物成分Print #1, (1)熟料化學(xué)成分:;CStr(TxtIMWC.Text)水分;Tab(15);干基配比Tab(8); Txtsf(i).Text; Tab(17);SiO2; Tab(27); AI2O3; Tab(34); Fe2O3; Tab(41); MgO; Tab(4

34、8); S03;Tab(55); CaF2; Tab(62); TotalFor i = 1 To 4Print #1, Tab(1); CStr(LabelRM(i - 1).Caption);Forj = 0 To 8Print #1, Tab(7 * j + 6); CStr(Txtylhxcf(9 * (i - 1) + j);Next jPrint #1,Next iPrint #1,Print #1, 2.燃料與熱耗Print #1, Tab(1); 煤熱值：;CStr(Txtmrz.Text); kJ/kg 煤;Tab(25);煤灰份：;CStr(Txtmhf.Text); kg

35、/kg 煤Print #1, Tab(1);沉落率：;CStr(Txtcll.Text); %; Tab(25);熱耗;CStr(Txtslrh.Text); kJ/kg熟料Print #1,Print #1, 3.熟料三率值Print#1,Tab(1);設(shè)定值;Tab(5);KH: ; CStr(TxtKHMB.Text);Tab(15)SM: ; CStr(TxtSMMB.Text); Tab(25); IM: ; CStr(TxtIMMB.Text)Print#1,Tab(1);計算值;Tab(5);KH: ; CStr(TxtKHJS.Text);Tab(15)SM: ; CStr(T

36、xtSMJS.Text); Tab(25); IM: ; CStr(TxtIMJS.Text)Print#1,Tab(1);誤差值;Tab(5);KH :; CStr(TxtKHWC.Text);Tab(15)Print #1, Tab(1); CaO; Tab(8); SiO2; Tab(15); Al2O3; Tab(22);計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書17Fe2O3; Tab(29); MgO; Tab(36); S03; Tab(43); CaF2; Tab(50); TotalFor i = 1 To 8Print #1, Tab(7 * (i - 1) + 1); C

37、Str(Txtylhxcf(9 * (5 - 1) + i);Next iPrint #1,Print #1, (2)熟料礦物成分Print #1, Tab(1); C3S=; CStr(TxtC3S); Tab(11); C2S=; CStr(TxtC2S);Tab(21); C3A=; CStr(TxtC3A); Tab(31); C4AF=; CStr(TxtC4AF)Print #1,Print #1, 6.生料碳酸鈣滴定值Print #1, TCaCO3=; CStr(Text1.Text)Close #1End Sub計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書18設(shè)計總結(jié)在課程設(shè)計

38、過程中，雖然我對程序設(shè)計不是很熟悉，但是通過老師詳細的講解， 我按照步驟去做，遇到問題的時候先自己想辦法解決， 解決不了的就去問同學(xué)，問 老師，通過這種學(xué)習(xí)，收獲很大，學(xué)會了自己解決棘手問題，知道了團結(jié)的力量。經(jīng)過這次的VB程序設(shè)計，讓我知道了更多學(xué)習(xí)的方法。具體如下：保持良好的學(xué)習(xí)心態(tài)，第一，要有自信，自強，積極主動學(xué)習(xí)第二，克服 畏難情緒，樹立學(xué)好程序設(shè)計的信心。(2)要了解概念：VB程序設(shè)計本身并不復(fù)雜，變量，函數(shù)，條件語句，循環(huán)語 句等概念較多.要真正能進行程序設(shè)計，就要深入理解這些概念.應(yīng)該重視概念的學(xué) 習(xí)。(3)自己動手編寫程序，親自動手進行程序設(shè)計是培養(yǎng)邏輯思維的好方法因此 我們

39、得多動手編寫程序，逐漸提高寫程序的能力 自己動手，編寫一些程序，才會 有成就感，進而對課程產(chǎn)生興趣，做起來才比較從容。(4)上機調(diào)試程序應(yīng)注意多問問同學(xué)，多問問老師、，把不懂的地方標出來。 總之，在此次的VB程序設(shè)計中，如果沒有足夠的耐心，就不可能完成的很好。所以此次VB程序設(shè)計，讓我做事情更加有耐心，更加細心，學(xué)習(xí)更加認真仔細。計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書19參考文獻1沈威.水泥工藝學(xué)（M）.武漢：武漢工業(yè)大學(xué)出版社，1990.2牛又奇，孫建國.新編Visual Basic程序設(shè)計教程（M）.蘇州：蘇州大學(xué)出版社， 2002.3李文.用計算機實現(xiàn)水泥配料（J）.水泥技術(shù)，200

40、2,2:63-64.4趙立剛，仇明華，羅娟，張正星.C語言在水泥配料計算中的運用 J）.計算機 與應(yīng)用化學(xué),2002,2:63-64. 肖琪仲，陸樹標.水泥生料配料的計算機程序設(shè)計（J）.水泥,1999,2:37-38.6楊德興.水泥生產(chǎn)配料計算程序（J）.三明高等專科學(xué)校學(xué) 報,2002,19:88-92.7邵惠琪，孫健哲，陸暉，白森祥.水泥生產(chǎn)工藝及計算（M）.西安：陜西科學(xué)技 術(shù)出版社,1992.8仇振強，向奇汝，仇梅.水泥生產(chǎn)工藝及計算（J）.四川水泥,1995,（2）:8-10.9薛劍白.三組分配料下的率值平衡方程（J）.水泥,1996,（6）:10-15.10齊硯勇，呂民.水泥原料

41、直接配料法（J）.水泥,1999,14（2）:31-35.計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書20本次設(shè)計最終得以順利完成，與老師和同學(xué)的幫助是分不開的，雖然他們沒有 直接參與我的設(shè)計指導(dǎo)，但在設(shè)計過程中給我提供了很多意見， 提出了一系列可行 性的建議，他們有蔡書元老師，俞平勝老師以及我的同學(xué)們，在此向他們表示深深 的感謝！計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書21MsgBox用戶名不能為空, 48,提示信息Exit SubElseIf password.Text = Then MsgBox密碼不能為空,48,提示信息Exit SubElseIf Text1.Text = Then

42、MsgBox請輸入驗證碼,48, 提示信息Exit SubEnd IfStatic n As IntegerIf username.Text username.List(username.Listlndex) ThenMsgBox 對不起,該用戶不存在，請重新輸入!, 48,提示信息username.Text =username.SetFocusExit SubElseIf password.Text 000000 Thenn = n + 1If n = 1 Or n = 2 ThenMsgBox 對不起，你輸入的密碼錯誤，請重新輸入!, 16, 警告password.Text =passwo

43、rd.SetFocusExit SubElseIf n = 3 ThenMsgBox 對不起，您已連續(xù)錯誤三次，退出本系統(tǒng)!, 16, 警告EndEnd IfElseIf Text1.Text check.Caption ThenMsgBox 對不起,你輸入的驗證碼錯誤，請重新輸入!, 16, 提示信息Text1.Text =Text1.SetFocus附寸錄：程序代碼登陸界面（Forml）：Private Sub CmdOK_Click()If username.Text = ThenExit Sub計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書22ElseForm2.ShowUnload Fo

44、rmlEnd IfEnd SubPrivate Sub Command2_Click()username.Text =password.Text =End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Label7_Click()Randomizecheck.Caption = CStr(lnt(Rnd * 1000)End SubPrivate Sub password_Change()Randomizecheck.Caption = CStr(Int(Rnd * 1000)End Sub主界面(Form2):Private Sub

45、 szcldpl_Click()Unload MeForm3.ShowEnd SubPrivate Sub szylhkhjhjzyldpl_Click()Unload MeForm8.ShowEnd SubPrivate Sub szyljfhkhjdpl_Click()Unload Me計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書23TCaCO3mrzTxtmrz.Text指 1kg煤的發(fā)熱量，kJ/kg煤mhf = Txtmhf.Text指100kg煤燃燒所剩的煤灰,kg煤灰/100kg煤cll = Txtcll.Text指100kg煤灰中成為熟料的量,kg煤灰/100kg煤灰slrh =

46、 Txtslrh.Text指1kg熟料所需的熱耗，kJ/kg熟料Form6.ShowEnd SubPrivate Sub szyljfhkhjhjzyldpl_Click()Unload MeForm7.ShowEnd SubPrivate Sub szyljjzyldpl_Click()Unload MeForm4.ShowEnd SubPrivate Sub szyljkhjdpl_Click()Unload MeForm5.ShowEnd SubPrivate Sub tuichu_Click()EndEnd Sub3.Form3計算界面；四種原料(石灰石，粘土，鐵粉，煤灰)的配料的計算

47、代碼：Private Sub Command1_Click()Dim i As Integer, j As Integer, mrz As Single, mhf As Single, cll As Single, slrh As SingleDim KH As Single, SM As Single, IM As Single, GCcl As Single, GBcl As Single, GA As SingleDim CaO As Single, SiO2 As Single, Al2O3 As Single, Fe2O3 As Single, MgO As Single, SO3

48、As Single, CaF2As SingleDim XO(4) As Single, XW(4) As Single, C3S As Single, C2S As Single, C3A As Single, C4AFAs Single,As SingleDim a(5, 9) As Single, w(4) As Single, B(4, 8) As Single, BB(4, 3) As Single, BC(4) As Single, BBB(3, 3) As Single, BCC(3) As Single, X(4) As Single, M As Single1.錄入煤熱值Qn

49、et、灰份AAd沉落率S,熟料熱耗Q2熟料三率值 KH SM和 IM計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書24KH = TxtKHMB.Text 指熟料的 KH值計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書25SM = TxtSMMB.Text 指熟料的 SMIM = TxtIMMB.Text 指熟料的 IM 值3錄入干燥基原料、煤灰、礦化劑化學(xué)成分的錄入Fori = 1 To 4Forj = 1 To 8a(i, j) = Val(Txtylhxcf(9 * (i - 1) + j - 1).Text)a(i, 9) = a(i, 9) + a(i, j)Next jTxtylhxcf(9

50、 * (i - 1) + 8).Text = Format(a(i, 9), #0.00)Next i4錄入原料及煤的含水率Fori = 1 To 4w(i) = Txtsf(i - 1).TextNext iW(I)表示某一原料的含水率，即100kg原料中所含水分的質(zhì)量；W(4)表示燃料(煤)的含水百分數(shù)，即 100kg燃料中所含水分的質(zhì)量; I表示原料種類，數(shù)值范圍為13， 4表示為燃料。5.錄入熟料中所需 SO3 CaF2的量GCcl = Val(Txtylhxcf(9 * (5 - 1) + 6)GCcl指100kg熟料中所需S03量，kgS03/100kg熟料GBcl = Val(T

51、xtylhxcf(9 * (5 - 1) + 7)GBcl指100kg熟料中所需 CaF2量，kg CaF2/100kg熟料三、數(shù)據(jù)處理1.干燥基化學(xué)成分換算灼燒基化學(xué)成分Fori = 1 To 4Forj = 1 To 8B(i, j) = a(i, j + 1) * 100 / (100 - a(i, 1)Next jNext i式中：B(I,J)表示某一物料灼燒基某種化學(xué)成分的值; I表示原料、煤灰、礦化劑種類，數(shù)值范圍為14；J表示化學(xué)成分的種類，數(shù)值范圍為18。計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書262計算煤灰、石膏及螢石的摻入量GA = (slrh * mhf * ell)

52、/ (mrz * 100)指100kg熟料中摻入的煤灰量，kg煤灰/100kg熟料B(4,6) 指100kg煤灰中所含SO3量3配料方程的系數(shù)計算Fori = 1 To 3BB(1, i) = 2.8 * KH * B(i, 2) + 1.65 * B(i, 3) + 0.35 * B(i, 4) + 0.7 * B(i, 6) - B(i, 1)BB(2, i) = SM * (B(i, 3) + B(i, 4) - B(i, 2)BB(3, i) = IM * B(i, 4) - B(i, 3)BB(4, i) = 1Next iBC(1) = GA * (B(4, 1) - 2.8 *

53、KH * B(4, 2) - 1.65 * B(4, 3) - 0.35 * B(4, 4) - 0.7 * B(4, 6)BC(2) = GA * (B(4, 2) - SM * (B(4, 3) + B(4, 4)BC(3) = GA * (B(4, 3) - IM * B(4, 4)BC(4) = 100 - GA4.解方程的程序調(diào)用(1)調(diào)用最小二乘法程序Call transpose(BB, BC, BBB, BCC)(2)調(diào)用解方程程序Call SolvQua(BBB, BCC, X)熟料的主要化學(xué)成分計算CaO = (B(1, 1) * X(1) + B(2, 1) * X(2)

54、+ B(3, 1) * X(3) + B(4, 1) * GA) / 100SiO2 = (B(1,2) * X(1) + B(2, 2) * X(2) + B(3, 2) * X(3) + B(4, 2) * GA) / 100Al2O3 = (B(1,3) * X(1) + B(2, 3) * X(2) + B(3, 3) * X(3) + B(4, 3) * GA) / 100Fe2O3 = (B(1,4) * X(1) + B(2, 4) * X(2) + B(3, 4) * X(3) + B(4, 4) * GA) / 100MgO = (B(1,5) * X(1) + B(2, 5

55、) * X(2) + B(3, 5) * X(3) + B(4, 5) * GA) / 100SO3 = (B(1,6) * X(1) + B(2, 6) * X(2) + B(3, 6) * X(3) + B(4, 6) * GA) / 100CaF2 = (B(1, 7) * X(1) + B(2, 7) * X(2) + B(3, 7) * X(3) + B(4, 7) * GA) / 100熟料部分成分的輸岀Txtylhxcf(37) = Format(CaO, #0.00):Txtylhxcf(38) = Format(SiO2, #0.00)Txtylhxcf(39) = Form

56、at(Al2O3, #0.00): Txtylhxcf(40) = Format(Fe2O3, #0.00):Txtylhxcf(41) = Format(MgO, #0.00): Txtylhxcf(42) = Format(SO3, #0.00)Txtylhxcf(43) = Format(CaF2, #0.00)計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書27For i = 37 To 43M = M + Txtylhxcf(i)Next iTxtylhxcf(44).Text = M6配料后熟料三率值計算KH = (CaO - 1.65 * AI2O3 - 0.35 * Fe2O3 -

57、0.6 * SO3) / (2.8 * SiO2)SM = SiO2 / (Al2O3 + Fe2O3)IM = Al2O3 / Fe2O3四、計算結(jié)果輸岀1.原料配比Txtmhcl.Text = Format(GA, #0.00):TxtKHJS.Text = Format(KH, #0.00)TxtSMJS.Text = Format(SM, #0.00):TxtIMJS.Text = Format(IM, #0.00)TxtKHWC.Text = Format(TxtKHMB.Text - TxtKHJS.Text, #0.00)TxtSMWC.Text = Format(TxtSMMB

58、.Text - TxtSMJS.Text, #0.00)TxtIMWC.Text = Format(TxtlMMB.Text - TxtIMJS.Text, #0.00)(1)干基原料與燃料配比，濕基原料配比Fori = 1 To 3XO(i) = X(i) * 100 / (100 - a(i, 1)XW(i) = XO(i) * 100 / (100 - w(i)Next iXO(4) = slrh * 100 / mrzXW(4) = XO(4) * 100 / (100 - w(4)式中：X0(1)、X0(2)和X0(3)表示生產(chǎn)100kg熟料所需干燥基 CaO SiO2和Fe2O3的

59、用量；X(1)、X(2)和X(3)表示生產(chǎn)100kg熟料所需灼燒基原料 CaO SiO2和Fe2O3的用量；A(1,0) 、A(2,0)和A(3,0)表示干燥基原料CaO SiO2和Fe2O3的燒失量；X0(4)表示生產(chǎn)100kg熟料所需干燥基燃料的用量。XW(1)、XW(2)和XW(3)表示生產(chǎn)100kg熟料所需濕基、和的用量；W(1)、W(2)和W(3)表示原料CaO SiO2和Fe2O3所含水分百分含量，W(4)表示燃料所含水分百分含量;XW(4)表示生產(chǎn)100kg熟料所需濕基燃料的用量。(3)用文本框數(shù)組輸出原燃料配比計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書28Fori = 1 To

60、 4計算機在無機材料工廠中的應(yīng)用程序設(shè)計說明書For i = 0 To 4429Txtgjpb(i - 1).Text = Format(XO(i), #0.00)Next iFori = 1 To 4Txtsjpb(i - 1).Text = Format(XW(i), #0.00)Next i2熟料的礦物成分(1)熟料的礦物成分C3S = 3.8 * (3 * KH - 2) * SiO2C2S = 8.61 * (1 - KH) * SiO2C3A = 2.65 * A12O3 - 1.69 * Fe2O3C4AF = 3.04 * Fe2O3(2)用文本框輸出熟料的礦物成分TxtC3S