计算机在无机材料工厂中的应用程序设计说明书

1、材料工程学院 程 序 设 计 说 明 书 计算机在无机材料工厂中的应用 专专 业业 材料科学与工程 学生姓名学生姓名 * 班班 级级 学学 号号 * 指导教师指导教师 * 完成日期完成日期 目目 录录 1 1 绪论绪论.1 1.1 设计目的与意义.1 1.2 设计任务及目标.2 2 2 程序设计思路程序设计思路.3 2.1 计算依据.3 2.2 计算步骤.3 2.3 编程原理.4 3 3 程序设计框图程序设计框图.7 4 4 软件运行界面设计软件运行界面设计 .7 4.1 概述.8 4.2 登录界面设计.8 4.3 主界面设计.10 4.4 配料计算界面设计 .10 5 5 主要程序代码说明主

2、要程序代码说明 .13 5.1 数据输入.13 5.2 数据处理.13 5.3 数据输出.15 5.4 数据保存.16 设计总结设计总结 .19 参考文献参考文献 .20 致致 谢谢 .21 1 1 绪论绪论 1.11.1 设计目的与意义设计目的与意义 1.1.1 设计的目的 （1）培养学生利用所学的 Visual Basic 程序设计语言来解决无机非金属材料专业 方面实际问题的能力，进一步提高学生计算机应用的能力； （2）进一步掌握 Visual Basic 程序设计语言知识和上机调试、运行程序的技能。 1.1.2 设计的意义 水泥配料计算就是生料组成的计算，是根据水泥熟料化学组成和矿物成分

3、的要 求而计算出各种原料的配合比。因此，配料计算是水泥生产过程中一个重要的环节， 其计算结果的准确与否直接关系到水泥厂的产品质量。此外，配料计算又为物料平衡 计算提供基础数据，而物料平衡是生产工艺中设备选型和稳定生产的条件。 目前配料计算中经常使用的计算方法有以下几种：代数法、图解法、误差尝试 法（也叫递减试凑法） 、矿物组成法、最小二乘法等，其中代数法计算结果比较精确， 但计算繁琐。图解法计算简单但误差较大，误差尝试法将经验判断和计算相结合，是 一种经验方法，手工计算较为方便。总之上述几种计算方法各有利弊。 目前设计人员和生产管理人员大多采用手工计算，因此误差尝试法被广泛应用。 然而手工计算

4、效率较低，尤其在原料不能满足配料要求的情况下尤为突出。采用计算 机配料计算效率高，并且能对原始数据加以管理，能将计算结果打印输出，其优势十 分明显。 以上几种计算方法均可用于计算机计算，因此为计算机选择一种合理的计算方 法就显得十分重要。 Visual Basic（以下简称 VB）是一种可视化的、面向对象的和采用事件驱动方式 的结构化高级程序设计语言，它是以 Basic 语言为基础的可视化软件开发工具，采用 看以前 Basic 语言的一些语法，继承了 Basic 语言简单易学、使用方便的特点，同时 增加了结构化和可视化程序设计语言的功能。它将 Window 界面设计的复杂性封装起 来，编程人员

5、只需为界面 设计编写少量代码，利用系统提供的工具，在屏幕上画出 各种对象，并设置对象的属性即可。VB 的可视化设计平台简化了编程的过程，大大 提高了编程的效率。 本设计采用 Visual Basic 语言进行配料机算，可以有以下特点：一是界面友好， 甚至连不懂计算机的人都可以根据屏幕上的提示输入数据，完成计算任务；二是模型 简单，只要稍具有一定的配料知识，都能看懂原理，编辑相应程序代码，实现所需功 能；三是计算快捷、简单、准确、高效，能够正确指导生产。 1.21.2 设计任务及目标设计任务及目标 1.2.1 设计任务 四种原料（石灰石、粘土、铁粉、煤灰）加矿化剂（萤石）和校正原料的配料 1.2

6、.2 设计目标 通过 VB 程序计算熟料三率值、原料及燃料的干基配比和湿基配比、熟料矿物组 成和化学成分、生料碳酸钙滴定值，调整各参数找到适合的数据。 1.2.3 计算应得的结果： (1)熟料的三率值 KH、SM、IM (2)熟料的化学成分 (3)熟料可能的矿物成分 (4)干原料的重量百分比 (5)湿原料的重量百分比 (6)生料的碳酸钙滴定值 2 2 程序设计思路程序设计思路 2.12.1 计算依据计算依据 2.1.1 熟料三率值计算 (1)石灰石饱和系数（IM0.64） 2 33232 2.8SiO 0.70SOO0.35FeO1.65AlCaO KH (2)硅率 3232 2 OFeOAl

7、 SiO SM (3)铝率 32 32 OFe OAl IM 2.1.2 熟料化学成分计算 设 CaO+SiO2+Al2O3+Fe2O3= 1352.65SM1)1)(IMSM(2.8KH OFe 32 3232 OFeIMOAl )OFeOSM(AlSiO 32322 )OFeOAl(SiOCaO 32322 2.1.3 煤灰掺入量计算 4 adnet, ad A 10 Q SAq g 式中： gA煤灰掺入量，Kg/100kg 熟料 q熟料热耗，kJ/kg 熟料 Aad燃料中灰分含量，% S 煤灰沉落率，% Qnet,ad燃料发热量，kJ/kg 燃料 2.1.4 熟料可能的矿物成分计算 23

8、 SiO2)KH(33.8SC 2 SiOKH)(18.61SC2 32323 OFe1.69OAl2.65AC 324 OFe3.04AFC 2.22.2 计算步骤计算步骤 2.2.1 数据输入 1.录入煤热值 Qnet、灰份 AAd、沉落率 S，熟料热耗 Q 2.熟料三率值 KH、SM 和 IM 3.录入干燥基原料、煤灰、矿化剂化学成分 4.录入原料及煤的含水率 5.录入熟料中所需 SO3、CaF2的量 2.2.2 数据处理 1.干燥基化学成分换算灼烧基化学成分 2.计算煤灰及萤石的掺入量 3.配料方程的系数计算 4.解方程的程序调用 5.熟料的主要化学成分计算 2.2.3 数据输出 1.

9、原料配比 2.熟料的矿物成分 3.生料的碳酸钙滴定值 4. 熟料的主要化学成分 5. 配料后熟料三率值及其误差 2.2.4 数据保存 2.32.3 编程原理编程原理 此处介绍的编程原理以四种原理（石灰石、粘土、铁粉、煤灰）加矿化剂（石膏、 萤石）和校正原料的配料为例，其它可根据原料种类情况进行增减。 假定：以石膏和萤石作为矿化剂，生料中 CaF2由萤石提供，生料中 SO3仅由石 膏与煤提供，煅烧过程中的损失 CaF2、SO3忽略不计。 2.3.1 数据录入 （1）煤的热值 Qnet、灰分 AAd、沉落率 S、熟料热耗 Q 以及熟料三率值 KH、SM 和 IM 等用文本框控件录入数据，方法： X

10、=文本框名.Text 此处的 X 为 Qnet、AAd、S、Q、KH、SM、和 IM 等。 （2）干燥基原料、煤灰、矿化剂化学成分的录入 表 1 干燥基原料、煤灰、矿化剂化学成分 原料名LossCaOSiO2Al2O3Fe2O3MgOSO3CaF2Total 石灰石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(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

11、) 校正料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) 萤石A(6,1)A(6,2)A(6,3)A(6,4)A(6,5)A(6,6)A(6,7)A(6,8)A(6,9) 熟料A(7,1)A(7,2)A(7,3)A(7,4)A(7,5)A(7,6)A(7,7)A(7,8)A(7,9) 干燥基原料、煤灰、矿化剂化学成分采用文本框控件数组录入，方法： For I=1 to 7 For J=1 to 8 A(I,J)=文本框控

12、件数组名(9*(I-1)+J-1).Text A(I,9)= A(I,9)+A(I,J) Next J 文本框控件数组名(9*(I-1)+8).Text= A(I,9) Next I 式中：A(I,J)表示某一物料干燥基某种化学成分的值； I 表示原料、煤灰、矿化剂种类，数值范围为 17； J 表示化学成分的种类，数值范围为 19。 2.3.2 干燥基化学成分换算灼烧基化学成分 表 2 灼烧基原料、煤灰、矿化剂化学成分 原料名CaOSiO2Al2O3Fe2O3MgOSO3CaF2Total 石灰石B(1,1)B(1,2)B(1,3)B(1,4)B(1,5)B(1,6)B(1,7)B(1,8)

13、粘土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) 萤石B(6,1)B(6,2)B(6,3)B(6,4)B(6,5)B(6,6)B(6,7)B(6,8) 熟料B(7,1)B(7,2)B(7,3)B(7,4)B(7,5)B(7,6)B(7,7)

14、B(7,8) For I=1 to 7 For J=1 to 8 B(I,J)=A(I,J+1)*100/(100-A(I,1) Next J Next I 式中：B(I,J)表示某一物料灼烧基某种化学成分的值； I 表示原料、煤灰、矿化剂种类，数值范围为 17； J 表示化学成分的种类，数值范围为 18。 2.3.3 煤灰、石膏及萤石的掺入量计算 煤灰掺入量：GA(Q*AAd*S)/(Qnet*100) 石膏掺入量：GC(GCclGA*B(5,6)/100)*100/B(7,6) 萤石掺入量：GBGBcl*100/B(6,7) 式中：GA、GC、GB 分别表示煤灰、石膏及萤石掺入量 Q 表示

15、熟料的热耗，Qnet 表示煤的热值 S 表示煤灰沉落率，AAd 表示煤的灰分 GCcl、GBcl 分别表示熟料中 SO3及 CaF2含量 B(5,6)、B(7,6)分别表示煤灰、石膏中 SO3含量 B(6,7)表示萤石中 CaF2含量 3 3 程序设计框图程序设计框图 程序可分为三大部分：第一部分为数据输入，包括配料计算所需数据和物料平衡 计算所需数据；第二部分为计算部分，反复输入不同的 KH、SM、IM 值，直到计算 出满意的结果为止；第三部分为输出部分，输出所有配料计算数据和物料平衡表。程 序设计简单框图如下： 开 始 输入原燃料化学成分 A（I，J） ，煤热值、灰分等 输入 KH、SM、

16、IM、热 耗 计算煤灰和萤石掺 入量 GA、GB 计算方程系数 是三组分配料还 是四组分分配料？ 用最小二乘法将三元一次方程的四 个方程式转化成三个方程式 AX=B 用全主元高斯-约（Gauss-Jordan） 消 去法求解线性方程组 AX=B 输出计算结果 结 束 四组分配料 三组分配料 4 4 软件运行界面设计软件运行界面设计 4.14.1 概述概述 通过各种控件设置登录界面、系统主界面、配料计算界面，要求界面友好，可操 作性强，交互性好。 具体如下： （1）保持用户界面及窗体的简洁性。 在用户界面及窗体设计的过程中，要尽可能简化，要注意不要为追求新奇，同时 在屏幕上显示许多图形，否则会带

17、来混乱，降低应用程序的可操作性。另外只有在用 户需要时，才显示图形或表格。 在设计用户界面及窗体时，还要考虑到用户的使用习惯，即一般从左到右，从上到下 扫描窗体，并且相对于黑白颜色和字符，人们的视觉注意力更容易被彩色和图形所吸 引。但同时要注意保证用户界面上的关键部分不能被不重要的部分干扰。 （2）保持用户界面的明确性。 即可以使用户不阅读使用手册也可以使用应用程序。这就要求在设计用户界面及 窗体时的菜单或命令按钮等名称应能够见名知义，或者当鼠标指向命令按钮时，弹出 一个标签来显示命令功能提示说明。 （3）使用用户所熟悉的设计元素。 在用户界面及窗体设计的过程中，要尽可能使用用户所熟悉的设计元

18、素。如 Windows 应用程序中经常使用的“文件”菜单中的“打开，保存，退出”命令；“编 辑”菜单中的“剪切，复制，粘贴”命令等。不要擅自修改或增加这些已经具备相对 固定功能的元素，否则会引起用户的不便。 4.24.2 登录界面设计登录界面设计 功能：输入用户名、密码后即可进入系统；可试三次，每次输出错误，均有提示，且 最好一次输入不正确，则退出登录系统。 名称目的属性 BorderStyle=1-Fixed SingleFrmBegin提供窗体 Picture=登录图.jpg Caption=用户名 AutoSize=TrueLbl1 用于说明 BackStyle=0-Transpare

19、Caption=密码 AutoSize=TrueLbl2 用于说明 BackStyle=0-Transpare Caption=配料计算 AutoSize=TrueLbl3 用于说明 BackStyle=0-Transpare Caption=设计人：陈云 AutoSize=TrueLbl4 用于说明 BackStyle=0-Transpare CmdOKCaption=确定 CmdExit 单击执行命令 Caption=退出 List=chyun19900 CmbBegin 列表框与文本框的组合 Text= Text=TxtBegin用于文本输入 PasswordChar = * 4.34.

20、3 主界面设计主界面设计 功能：通过下拉菜单，可调用各配料计算界面，可进行系统说明，用户名、密码的修 改，可设计帮助文件。 4.44.4 配料计算界面设计配料计算界面设计 FrmJSCaption=四种原料（石灰石、粘土、铁粉、 煤灰）加矿化剂（萤石）和校正原料的配 料 Frame1Caption=燃料与热耗 Frame2Caption=熟料三率值 Frame3Caption=配料计算结果 Frame4Caption=原料化学成分 Frame5Caption=熟料矿物组成 Frame6Caption=生料碳酸钙滴定值 Label1Caption=水泥配料计算Label11Caption=SM

21、Label2Caption=煤热值Label12Caption=IM Label3Caption=煤灰分Label13Caption=水分 Label4Caption=沉落率Label14Caption=干基配比 Label5Caption=熟料热耗Label15Caption=湿基配比 Label6Caption=煤灰掺量Label16（0 ） Caption=石灰石 Label7Caption=目标值Label16（1 ） Caption=粘土 Label8Caption=计算值Label16（2 ） Caption=铁粉 Label9Caption=误差Label16（3 ） Capti

22、on=校正料 Label10Caption=KHLabel16（4 ） Caption=萤石 Label27Caption=原料Label16（5 ） Caption=煤 Label28Caption=LossLabel29Caption=CaO Label30Caption=SiO2Label34Caption=SO3 Label31Caption=Al2O3Label35Caption=CaF2 Label32Caption=Fe2O3Label36Caption=Total Label33Caption=MgOLblYL(0)Caption=石灰石 LblYL(1)Caption=粘土L

23、blYL(2)Caption=铁粉 LblYL(3)Caption=校正料LblYL(4)Caption=煤灰 LblYL(5)Caption=萤石LblYL(6)Caption=熟料 Label21（0 ） Caption=C3SLabel21（2 ） Caption=C3A Label21（1 ） Caption=C2SLabel21（3 ） Caption=C4AF Label22Caption=TcCmdJSCaption=计算 CmdQCCaption=清除CmdBCCaption=保存 CmdTCCaption=退出TextText= Text=* 功能： a)输入原料及煤灰的干燥

24、基化学成分、煤的工业分析、煤的热值、煤灰沉落率及 熟料热耗，设定熟料的三率值； b)计算原料配合比； c)输出原料干基配合比、湿基配合比、生料及熟料化学成分、熟料矿物组成、碳酸 钙滴定值。 5 5 主要程序代码说明主要程序代码说明 5.15.1 数据输入数据输入 5.1.1 录入煤热值 Qnet、灰份 AAd、沉落率 S，熟料热耗 Q Qnet = Text1(0).Text AAd = Text1(1).Text S = Text1(2).Text Q = Text1(3).Text 5.1.2 熟料三率值 KH、SM 和 IM KH = TxtKH(0).Text SM = TxtSM(0

25、).Text IM = TxtIM(0).Text 5.1.3 录入干燥基原料、煤灰、矿化剂化学成分 For i = 1 To 6 For j = 1 To 8 A(i, j) = Text13(9 * (i - 1) + j - 1).Text A(i, 9) = A(i, 9) + A(i, j) Next j Text13(9 * (i - 1) + 8).Text = Format(A(i, 9), #0.00) Next i 式中：A(I,J)表示某一物料干燥基某种化学成分的值； I 表示原料、煤灰、矿化剂种类，数值范围为 17； J 表示化学成分的种类，数值范围为 19。 5.1.

26、4 录入原料及煤的含水率 For i = 1 To 6 W(i) = Text9(i - 1).Text Next i 5.1.5 录入熟料中所需 SO3、CaF2的量 GCcl = Val(Text13(9 * (7 - 1) + 6) GBcl = Val(Text13(9 * (7 -1) + 7) 5.25.2 数据处理数据处理 5.2.1 干燥基化学成分换算灼烧基化学成分 For i = 1 To 6 For j = 1 To 8 B(i, j) = A(i, j + 1) * 100 / (100 - A(i, 1) Next j Next i 5.2. 2 计算煤灰及萤石的掺入量

27、 GA = (Q * AAd * S) / (Qnet * 100) GB = GBcl * 100 / B(6, 7) 5.2.3 配料方程的系数计算 For i = 1 To 4 BB(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) = 1 Next i BC(1) = GA*(B(5,1) - 2.8*KH*B(5,2) -

28、 1.65*(5,3) - 0.35*B(5,4) - 0.7*B(5,6) +GB*(B(6,1) -2.8*KH*B(6,2) -1.65*B(6,3) -0.35*B(6,4) -0.7*B(6,6) BC(2) = GA*(B(5,2)-SM*(B(5,3)+B(5,4)+GB*(B(6,2)-SM*(B(6,3)+B(6,4) BC(3) = GA * (B(5, 3) - IM * B(5, 4) + GB * (B(6, 3) - IM * B(6, 4) BC(4) = 100 - GA - GB 5.2.4 解方程的程序调用 Call SolvQua(BB, BC, X) 5

29、.2.5 熟料的主要化学成分计算 CaO = (B(1,1)*X(1) + B(2,1)*X(2) + B(3,1)*X(3) + B(4,1)*X(4) + B(5,1)*GA + B(6, 1) * GB) / 100 SiO2 = (B(1,2)*X(1) + B(2,2)*X(2) +B(3,2)*X(3) + B(4,2)*X(4) + B(5,2)*GA + B(6, 2) * GB) / 100 Al2O3 = (B(1,3)*X(1) + B(2,3)*X(2) +B(3,3)*X(3) +B(4,3)*X(4) +B(5,3)*GA + B(6, 3) * GB) / 100

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

31、X(1) + B(2,7)*X(2) + B(3,7)*X(3) + B(4,7)*X(4) + B(5,7)*GA + B(6, 7) * GB) / 100 5.2.6 配料后熟料三率值计算 KH1 = (CaO - 1.65 * Al2O3 - 0.35 * Fe2O3 - 0.7 * SO3) / (2.8 * SiO2) SM1 = SiO2 / (Al2O3 + Fe2O3) IM1 = Al2O3 / Fe2O3 5.35.3 数据输出数据输出 5.3.1 原料配比 (1)干基原料及燃料配比 For i = 1 To 4 X0(i) = X(i) * 100 / (100 - A

32、(i, 1) Next i X0(5) = GB X0(6) = Q * 100 / Qnet (2)湿基原料配比 For i = 1 To 6 XW(i) = X0(i) * 100 / (100 - W(i) Next i (3)用文本框数组输出原燃料配比 For i = 1 To 6 Text10(i - 1).Text = Format(X0(i), #0.00) Text11(i - 1).Text = Format(XW(i), #0.00) Next i 5.3.2 熟料的矿物成分 (1)熟料的矿物成分 C3S = 3.8 * (3 * KH - 2) * SiO2 C2S =

33、8.61 * (1 - KH) * SiO2 C3A = 2.65 * Al2O3 - 1.69 * Fe2O3 C4AF = 3.04 * Fe2O3 (2)用文本框输出熟料的矿物成分 Text12(0).Text = Format(C3S, #0.00) Text12(1).Text = Format(C2S, #0.00) Text12(2).Text = Format(C3A, #0.00) Text12(3).Text = Format(C4AF, #0.00) 5.3.3 生料的碳酸钙滴定值 (1)生料中的 CaO 与 MgO 的量 CaO = (A(1,2)*X0(1) + A(

34、2,2)*X0(2) + A(3,2)*X0(3) + B(4,2)*X0(4) + B(6,2)*GB) / (X0(1) + X0(2) + X0(3) + X0(4) + GB) / 100 MgO = (A(1,6)*X(1) + B(2,6)*X0(2) + A(3,6)*X0(3) + B(4,6)*X0(4) + A(6, 6) * GB) / (X0(1) + X0(2) + X0(3) + X0(4) + GB) / 100 (2)生料的碳酸钙滴定值 Tcaco3 = (1.785 * CaO + 2.48 * MgO) * 100 (3)用文本框输出生料的碳酸钙滴定值 Te

35、xt14.Text = Format(Tcaco3, #0.00) 5.4.4 熟料的主要化学成分 Text13(55).Text = Format(CaO, #0.00) Text13(56).Text = Format(SiO2, #0.00) Text13(57).Text = Format(Al2O3, #0.00) Text13(58).Text = Format(Fe2O3, #0.00) Text13(59).Text = Format(MgO, #0.00) Text13(60).Text = Format(SO3, #0.00) Text13(61).Text = Forma

36、t(CaF2, #0.00) For i = 55 To 61 m = m + Val(Text13(i).Text) Next i 5.5.5 配料后熟料三率值及其误差 TxtKH(1).Text = Format(KH1, #0.00) TxtSM(1).Text = Format(SM1, #0.00) TxtIM(1).Text = Format(IM1, #0.00) TxtKH(2).Text = Format(KH - KH1, #0.00) TxtSM(2).Text = Format(SM - SM1, #0.00) TxtIM(2).Text = Format(IM - I

37、M1, #0.00) 5.45.4 数据保存数据保存 Private Sub Cmdbc_Click() Dim i As Integer, j As Integer Cmd1.Filter = All Files(*.*)|*.*|Text(*.txt)|*.txt Cmd1.FilterIndex = 2 Cmd1.DefaultExt = txt Cmd1.ShowSave 显示保存对话框 Open Cmd1.FileName For Output As #1 Print #1, Tab(10); 水泥配料结果报告单 Print #1, Tab(10); Now Print #1, 1.

38、原材料的化学成分 Print #1, Tab(1);原料;Tab(6);Loss;Tab(13);CaO;Tab(20);SiO2;Tab(27); Al2O3; Tab(34); Fe2O3; Tab(42); MgO; Tab(48); SO3; Tab(55); CaF2; Tab(62); Total For i = 1 To 6 Print #1, Tab(1); CStr(LblYL(i - 1).Caption); For j = 0 To 8 Print #1, Tab(7 * j + 6); CStr(Text13(9 * (i - 1) + j); Next j Print

39、 #1, Next i Print #1, Print #1, 2.燃料与热耗 Print #1, Tab(1);煤热值：;CStr(Text1(0).Text);kJ/kg 煤;Tab(25);煤灰份：; CStr(Text1(1).Text); kg/kg 煤 Print #1, Tab(1); 沉落率：; CStr(Text1(2).Text); %; Tab(26); 热耗：; CStr(Text1(3).Text); kJ/kg 熟料 Print #1, Print #1, 3.熟料三率值 Print #1, Tab(1);设定值; Tab(5);KH：;CStr(TxtKH(0).

40、Text);Tab(16);SM：; CStr(TxtSM(0).Text); Tab(27); IM：; CStr(TxtIM(0).Text) Print #1, Tab(1);计算值;Tab(5); KH：;CStr(TxtKH(1).Text);Tab(16);SM：; CStr(TxtSM(1).Text); Tab(27); IM：; CStr(TxtIM(1).Text) Print #1, Tab(1);误差值;Tab(5); KH：;CStr(TxtKH(2).Text);Tab(16);SM：; CStr(TxtSM(2).Text); Tab(27); IM：; CStr

41、(TxtIM(2).Text) Print #1, Print #1, 4.配料计算结果 Print #1,Tab(1);原 料;Tab(8);水 分;Tab(15);干基配比;Tab(22);湿基配比 For i = 0 To 5 Print #1,Tab(1);Label16(i).Caption;Tab(8);Text9(i).Text;Tab(17);Text10(i).Text; Tab(28); Text11(i).Text Next i Print #1, Print #1, 5.熟料化学与矿物成分 Print #1, (1)熟料化学成分 Print #1,Tab(1);CaO;

42、Tab(8);SiO2;Tab(15);Al2O3;Tab(22);Fe2O3;Tab(30); MgO; Tab(37); SO3; Tab(43); CaF2; Tab(50); Total For i = 1 To 8 Print #1, Tab(7 * (i - 1) + 1); CStr(Text13(9 * (7 - 1) + i); Next i Print #1, Print #1, (2)熟料矿物成分 Print #1,Tab(1);C3S=;CStr(Text12(0);Tab(13);C2S=;CStr(Text12(1);Tab(25); C3A=; CStr(Text

43、12(2); Tab(37); C4AF=; CStr(Text12(3) Print #1, Print #1, 6.生料碳酸钙滴定值 Print #1, TCaCO3=; CStr(Text14) Close #1 End Sub 设计总结设计总结 参考文献参考文献 1 沈威.水泥工艺学(M). 武汉：武汉工业大学出版社，1990. 2 牛又奇，孙建国.新编 Visual Basic 程序设计教程(M).苏州：苏州大学出版社， 2002. 3 李文.用计算机实现水泥配料(J).水泥技术,2002,2:63-64. 4 赵立刚，仇明华，罗娟，张正星.C 语言在水泥配料计算中的运用(J).计算

44、机与 应用化学,2002,2:63-64. 5 肖琪仲，陆树标.水泥生料配料的计算机程序设计(J).水泥,1999,2:37-38. 6 杨德兴.水泥生产配料计算程序(J).三明高等专科学校学报,2002,19(4):88-92. 7 邵惠琪，孙健哲，陆晖，白森祥.水泥生产工艺及计算(M).西安：陕西科学技 术出版社,1992. 8 仇振强，向奇汝，仇梅.水泥生产工艺及计算(J).四川水泥,1995,(2):8-10. 9 薛剑白.三组分配料下的率值平衡方程(J).水泥,1996,(6):10-15. 10 齐砚勇，吕民.水泥原料直接配料法(J).水泥,1999,14(2):31-35. 致致

45、 谢谢 附录附录：程序代码 Private Sub CmdOK_Click() If CmbBegin.Text = Then MsgBox 请选择一个用户名。, vbInformation, 系统提示 CmbBegin.SetFocus Exit Sub ElseIf TxtBegin.Text = Then MsgBox 密码不能为空!, vbInformation, 系统提示 TxtBegin.SetFocus Exit Sub End If Static n As Integer n = n + 1 If n = 1 Or n = 2 Then If CmbBegin.Text Cmb

46、Begin.List(CmbBegin.ListIndex) Then MsgBox 对不起,该用户不存在,请重新输入! TxtBegin.Text = CmbBegin.Text = Exit Sub ElseIf TxtBegin.Text Then MsgBox 对不起,你输入的密码错误,请重新输入! TxtBegin.Text = TxtBegin.SetFocus Exit Sub Else FrmMain.Show Unload FrmBegin End If ElseIf n = 3 Then MsgBox 对不起,您已经试过三次,退出本系统! End End If End Su

47、b Private Sub CmdExit_Click() End End Sub Private Sub m6_Click() FrmJS.Show Unload FrmMain End Sub Option Explicit Option Base 1 Dim i As Integer, j As Integer, m As Single, A(7, 9) As Single, B(7, 8) As Single, X0(6) As Single, XW(6) As Single, X(4) As Single, W(6) As Single Dim Qnet As Single, AAd

48、 As Single, S As Single, Q As Single, KH As Single, SM As Single, IM As Single, KH1 As Single, SM1 As Single, IM1 As Single Dim GA As Single, GB As Single, BB(4, 4) As Single, BC(4) As Single, GCcl As Single, GBcl As Single Dim CaO As Single, SiO2 As Single, Al2O3 As Single, Fe2O3 As Single, MgO As Si