1、材料工程学院程 序 设 计 说 明 书计算机在无机材料工厂中的应用专 业 材料科学与工程 学生姓名 班 级 B 材料 082 学 号 0810201206 指导教师 完成日期 2011 年 10 月 21 日 1 绪论 11.1 设计目的与意义 .11.2 设计任务及目标 .22 程序设计思路 22.1 计算依据 .22.2 计算步骤 .32.3 编程原理 .3数据输入 33 程序设计框图 54 软件运行界面设计 64.1 概述 .64.2 登录界面设计 .64.3 主界面设计 .84.4 配料计算界面设计 .85 主要程序代码说明 95.1 数据输入 .95.2 数据处理 .105.3 数据
2、输出 .125.4 数据保存 .13设计总结 16参考文献 17致 谢 18附录 19计算机在无机材料工厂中的应用程序设计说明书11 绪论1.1 设计目的与意义1.1.1 设计的目的（1）培养学生利用所学的 Visual Basic 程序设计语言来解决武技非金属材料专业方面实际问题的能力，进一步提高学生计算机应用能力；（2）进一步掌握 Visual Basic 程序设计语言知识的上机调试、运行程序的技能。1.1.2 设计的意义水泥配料计算就是生料组成的计算，是根据水泥熟料化学组成和矿物成份的要求而计算出各种原料的配合比。因此，配料计算是水泥生产中的一个重要环节，其计算结果的准确与否直接关系到水
3、泥厂的产品质量。此外，配料计算又为物料平衡计算提供基础数据，而物料平衡是生产工艺中设备选型和稳定生产的条件。目前配料计算中经常使用的方法有以下几种：代数法、图解法、误差尝试法（也叫递减试凑法） 、矿物组成法、最小二乘法等，其中代数法计算结果比较精确，但计算烦琐。图解法计算简单但误差较大，误差尝试法将经验判断和计算相结合，是一种经验方法，手工计算较方便。总之上述几种计算方法各有利弊。目前设计人员和生产管理人员大多采用手工计算，因此误差尝试法被广泛应用。然而手工计算效率较低，尤其在原料不能满足配料要求的情况下尤为突出。采用计算机配料计算效率高，而且能对原始数据加以管理，能将计算机结果打印输出，其优
4、势十分明显。以上几种计算方式均可用于计算机计算，因此为计算机选择一种合理的计算方法就显得十分重要。Visual Basic（以下简称 VB）是一种可视化的、面向对象的和采用事件驱动方式的结构化高级程序设计语言，它是以 Basic 语言为基础可视化软件开发工具，采用了以前 Basic 语言的一些语法，继承了 Basic 语言简单易学、使用方便的特点，同时增加了结构化和可视化程序设计语言的功能。它将 windows 界面设计的复杂性封装起来，编程人员只需为界面设计编写少量代码，利用系统提供的工具，在屏幕上画出各种对象，并设置对象的属性即可。VB 的可视化设计平台简化了编程的过程，大大的提高了编程的
5、效率。本设计采用了 Visual Basic 语言进行配料计算，可以有以下特点：一是界面友好，甚至连不懂计算机的人都可以根据屏幕上的提示输入数据，完成计算任务；而是模型简单，知识稍具有一定配料知识，都能看懂原理，编辑相应程序代码，实现所需功能；三是计算快捷、简便、准确、高效，能够正确指导生产。计算机在无机材料工厂中的应用程序设计说明书21.2 设计任务及目标1.2.1 设计任务四种原料（石灰石、粘土、铁粉、煤灰）的配料1.2.2 设计目标将计算机计算的优势发挥出来，只要稍微具有一定配料知识的，都能够看懂原理，直接在界面输入少许出事数据，即可得到误差较小的配料计算结果，计算效率高，并且能够对出事
6、数据加以管理，能将计算结果打印输出。1.2.3 计算应得的结果：(1)熟料的三率值 KH、SM、IM(2)熟料的化学成分(3)熟料可能的矿物成分(4)干原料的重量百分比(5)湿原料的重量百分比(6)生料的化学成分(7)生料的碳酸钙滴定值2 程序设计思路2.1 计算依据2.1.1 熟料三率值的计算（1）石灰饱和系数（IM 0.64） 23332.8SiO0.7S-5Fe-1.6Al-CaKH（2）硅率 332lM（3）铝率 FeI2.1.2 熟料化学成分计算设 Cao+SiO2+Al2O3+Fe2O3=1.35.6SM1)(IS(.8KHFe32 32e*IMAlSiO2=SM(Al2O3+Fe
7、2O3)CaO= -(SiO2+Al2O3+Fe2O3)2.1.3 煤灰掺入量计算gA= 4,10*adnetQSq式中：计算机在无机材料工厂中的应用程序设计说明书3gA煤灰掺入量，Kg/100kg 熟料q熟料热耗，kJ/kg 熟料Aad熟料中灰分含量，%S煤灰沉落率，%Qnet，ad 燃料发热量，kJ/kg 燃料2.1.4 熟料可能的矿物组成成分计算C3S=3.8*(3*KH-2)*SiO2 C3S=8.16*(1-KH)*SiO2C3A=2.65*Al2O3-1.69*Fe2O3 C4AF=3.04*Fe2O32.2 计算步骤（1）输入原燃料化学成分，煤热值，灰份等（2）输入 KH、SM、
8、IM、热耗（3）计算煤灰掺入量 GA（4）计算方程系数（5）用最小二乘法将三元一次方程的四个方程式转化成三个方程式 AX=B（6）用全主元高斯约当消去法求解线性方程组 AX=B2.3 编程原理数据输入1.录入煤热值 Qnet、灰份 AAd、沉落率 S，熟料热耗 QQnet = TxtMRZ.Text 指 1kg 煤的发热量，kJ/kg 煤AAd = TxtMHF.Text 指 100kg 煤燃烧所剩的煤灰，kg 煤灰/100kg 煤S = TxtCLL.Text 指 100kg 煤灰中成为熟料的量，kg 煤灰/100kg 煤灰Q = TxtSLRH.Text 指 1kg 熟料所需的热耗，kJ/
9、kg 熟料2.熟料三率值 KH、SM 和 IMKHM = TxtKHM.Text 指熟料的 KH 值 SMM = TxtSMM.Text 指熟料的 SM 值IMM = TxtIMM.Text 指熟料的 IM 值 3.录入干燥基原料、煤灰、矿化剂化学成分的录入表 1 干燥基原料、煤灰、矿化剂化学成分原 料 Loss CaO SiO2 Al2O3 Fe2O3 MgO SO3 CaF2 石灰石 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
10、,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)计算机在无机材料工厂中的应用程序设计说明书4For i = 1 To 4For j = 1 To 8A(i, j) = Val(TxtYLHXCF(9 *
11、(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 i式中：A(I,J)表示某一物料干燥基某种化学成分的值；I 表示原料、煤灰、矿化剂种类，数值范围为 14；J 表示化学成分的种类，数值范围为 19。4.录入原料及煤的含水率For i = 1 To 7W(i) = TxtSF(i - 1).TextNext i式中：W(I) 表示某一原料的含水率，即 100kg 原料中所含水分的质量；W(7)表示燃料（煤）的含水
12、百分数，即 100kg 燃料中所含水分的质量；I 表示原料种类，数值范围为 15，5 表示为燃料。表 2 灼烧基原料、煤灰、矿化剂化学成分原 料 CaO SiO2 Al2O3 Fe2O3 MgO SO3 CaF2 石灰石 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
13、) 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)5.录入熟料中所需 SO3、CaF2 的量GCcl = Val(TxtYLHXCF(9 * (8 - 1) + 6)GCcl 指 100kg 熟料中所需 SO3 量，kgSO3/100kg 熟料GBcl = Val(TxtYLHXCF(9 * (8 - 1) + 7)计算机在无机材料工厂中的应用程序设计说明书5GBcl 指 100kg 熟料中所需 CaF2 量，kg CaF2/100kg 熟料
14、3 程序设计框图 结 束是三组分配料还是四组分配料？开 始输入原燃料化学成分A（I ，J）煤热值，灰份等输入 KH,SM,IM,热耗 计算煤灰，石膏和萤石参入量GA.GB,GC输出计算结果计算方程系数用全主元高斯-约当（Gauss-Jordan ）消去法求解线性方程组 AX=B用最小二乘法将三元一次方程的四个方程式转化成三个方程式 AX=B计算机在无机材料工厂中的应用程序设计说明书64 软件运行界面设计4.1 概述通过各种控件设置登录界面、系统主界面、配料计算界面，要求界面友好，课操作性强，交互性好。具体如下：（1）保持用户界面及窗口的简洁性在用户界面及窗体设计的过程中，要尽可能简化，要注意不
15、要为追求新奇，同时在屏幕上显示许多图形，否则会带来混乱，降低应用程序的可操作性。另外只有在用户需要时，才显示图形和表格。在设计用户界面和窗体时，还要考虑到用户的使用习惯，即一般从左到右，从上到下扫描窗体，并且相对于黑白颜色和色符，人们的视觉注意更容易被彩色和图形吸引。但同时要注意保证用户界面上的关键部分不能被不重要的部分干扰。（2）保持用户界面的明确性。即可以使用户不阅读使用手册可以使用应用程序。这就要求在设计用户界面及窗体时的菜单或命令按钮等名称应能够见名知义，或者当鼠标指向命令按钮时，弹出一个标签来显示命令功能提示说明。（3）使用用户所熟悉的设计元素在用户界面及窗体设计的过程中，要尽可能使
16、用用户所熟悉的设计元素。如windows 应用程序中经常使用的“文件”菜单中的“打开，保存，退出”命令；“编辑”菜单中的“剪切，复制，粘贴”命令等，不要擅自修改或增加这些应经具备相对固定功能的元素，否则会引起用户的不便。4.2 登录界面设计计算机在无机材料工厂中的应用程序设计说明书7功能：输入用户名、密码后即可进入系统；可试三次，每次输出错误，均有提示，且最后一次输入不正确，则退出登录系统。设计登录界面时所涉及的可能控件有：标签、文本框、组合框、命令按钮等ControlBox FalseCaption 用户登录Picture jietu.jpgForm1Icon MISC27.ICO(名称)
17、Label1Caption 用户名Label1AutoSize True(名称) passwordAutoSize TrueLabel2Caption 密 码(名称) Label3AutoSize TrueLabel3Caption 验证码(名称) username王小龙杨银银ListCombo1Text(名称) Label4Label4Caption 水泥配料计算计算机在无机材料工厂中的应用程序设计说明书8AutoSize True(名称) Label5Caption 设计人：王小龙Label5AutoSize TrueText1 TextText2 Text(名称) CmdOkComman
18、d1Caption 确定(名称) Command2Command2Caption 取消(名称) CommandTCCommand3Caption 退出4.3 主界面设计计算机在无机材料工厂中的应用程序设计说明书94.4 配料计算界面设计计算机在无机材料工厂中的应用程序设计说明书105 主要程序代码说明5.1 数据输入表 1 干燥基原料、煤灰、矿化剂化学成分原料名Loss CaO SiO2 Al2O3 Fe2O3 MgO SO3 CaF2 Total石灰石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)
19、 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)煤灰 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)1.录入煤热值 Qnet、灰份 AAd、沉落率 S，熟料热耗 Qmrz = Txtmrz.Text
20、 指1kg 煤的发热量，kJ/kg 煤mhf = Txtmhf.Text 指 100kg 煤燃烧所剩的煤灰，kg 煤灰/100kg 煤cll = Txtcll.Text 指 100kg 煤灰中成为熟料的量，kg 煤灰/100kg煤灰slrh = Txtslrh.Text 指 1kg 熟料所需的热耗，kJ/kg 熟料2.熟料三率值 KH、SM 和 IMKH = TxtKHMB.Text 指熟料的 KH 值SM = TxtSMMB.Text 指熟料的 SM 值IM = TxtIMMB.Text 指熟料的 IM 值3.录入干燥基原料、煤灰、矿化剂化学成分的录入For i = 1 To 4For j
21、= 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 原料中所含水分的质量；计算机在无机材料工厂中的应用程序设计说明书11W(4)表示燃料（煤）的含水百分数，即 100kg 燃料中所含水
22、分的质量；I 表示原料种类，数值范围为 13，4 表示为燃料。5.录入熟料中所需 SO3、CaF2 的量GCcl = Val(Txtylhxcf(9 * (5 - 1) + 6)GCcl 指 100kg 熟料中所需 SO3 量，kgSO3/100kg 熟料GBcl = Val(Txtylhxcf(9 * (5 - 1) + 7)GBcl 指 100kg 熟料中所需 CaF2 量，kg CaF2/100kg 熟料小四、宋体、行间距 20 磅5.2 数据处理1.干燥基化学成分换算灼烧基化学成分For i = 1 To 4For j = 1 To 8B(i, j) = A(i, j + 1) * 1
23、00 / (100 - A(i, 1)Next jNext i式中：B(I,J)表示某一物料灼烧基某种化学成分的值；I 表示原料、煤灰、矿化剂种类，数值范围为 14；J 表示化学成分的种类，数值范围为 18。2.计算煤灰、石膏及萤石的掺入量GA = (slrh * mhf * cll) / (mrz * 100)指 100kg 熟料中掺入的煤灰量，kg 煤灰/100kg 熟料B(4,6)指 100kg 煤灰中所含 SO3 量原料名 CaO SiO2 Al2O3 Fe2O3 MgO SO3 CaF2 Total石灰石 B(1,1) B(1,2) B(1,3) B(1,4) B(1,5) B(1,
24、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,4) B(5,5) B(5,6) B(5,7) B(5,8)3.配料方程的系数计算For i = 1 To 3BB(1, i) = 2.8 * KH * B(i,
25、2) + 1.65 * B(i, 3) + 0.35 * B(i, 4) + 计算机在无机材料工厂中的应用程序设计说明书120.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 *
26、 (B(4, 3) + B(4, 4)BC(3) = GA * (B(4, 3) - IM * B(4, 4)BC(4) = 100 - GA解方程的程序调用(1)调用最小二乘法程序Call transpose(BB, BC, BBB, BCC)(2)调用解方程程序Call SolvQua(BBB, BCC, X)熟料的主要化学成分计算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(
27、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) * X(2) + B(3, 5) * X(3) + B(4, 5) * GA) / 100SO3 = (B(1, 6) * X(1) + B(2, 6) * X(2) + B(
28、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干基原料与燃料配比,湿基原料配比For i = 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)计算机在无机材料工厂中的应用程序设计说明书13式中：X
29、0(1)、X0(2) 和 X0(3)表示生产 100kg 熟料所需干燥基 CaO、SiO2 和Fe2O3 的用量；X(1)、X(2)和 X(3)表示生产 100kg 熟料所需灼烧基原料 CaO、SiO2 和 Fe2O3 的用量；A(1,0)、A(2,0) 和 A(3,0)表示干燥基原料 CaO、SiO2 和 Fe2O3 的烧失量；X0(4)表示生产 100kg 熟料所需干燥基燃料的用量。XW(1)、XW(2)和 XW(3)表示生产 100kg 熟料所需湿基、和的用量；W(1)、W(2)和 W(3)表示原料 CaO、SiO2 和 Fe2O3 所含水分百分含量，W(4)表示燃料所含水分百分含量；X
30、W(4)表示生产 100kg 熟料所需湿基燃料的用量。熟料的矿物成分C3S = 3.8 * (3 * KH - 2) * SiO2C2S = 8.61 * (1 - KH) * SiO2C3A = 2.65 * Al2O3 - 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
31、) * XO(3) / (XO(1) + XO(2) + XO(3) / 100生料的碳酸钙滴定值TCaCO3 = (1.685 * CaO + 2.48 * MgO) * 100式中：CaO、MgO 表示生料中 CaO、MgO 的百分含量。5.3 数据输出熟料部分成分的输出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)
32、 = Format(MgO, “#0.00“)Txtylhxcf(42) = Format(SO3, “#0.00“)Txtylhxcf(43) = Format(CaF2, “#0.00“)For i = 37 To 43计算机在无机材料工厂中的应用程序设计说明书14M = M + Txtylhxcf(i)Next iTxtylhxcf(44).Text = M原料配比输出：Txtmhcl.Text = Format(GA, “#0.00“)TxtKHJS.Text = Format(KH, “#0.00“)TxtSMJS.Text = Format(SM, “#0.00“)TxtIMJS.
33、Text = Format(IM, “#0.00“)TxtKHWC.Text = Format(TxtKHMB.Text - TxtKHJS.Text, “#0.00“)TxtSMWC.Text = Format(TxtSMMB.Text - TxtSMJS.Text, “#0.00“)TxtIMWC.Text = Format(TxtIMMB.Text - TxtIMJS.Text, “#0.00“)用文本框数组输出原燃料配比For i = 1 To 4Txtgjpb(i - 1).Text = Format(XO(i), “#0.00“)Next iFor i = 1 To 4Txtsjp
34、b(i - 1).Text = Format(XW(i), “#0.00“)Next i用文本框输出熟料的矿物成分TxtC3S.Text = Format(C3S, “#0.00“)TxtC2S.Text = Format(C2S, “#0.00“)TxtC3A.Text = Format(C3A, “#0.00“)TxtC4AF.Text = Format(C4AF, “#0.00“)用文本框输出生料的碳酸钙滴定值Text1.Text = Format(TCaCO3, “#0.00“)XXX XXX XXX XXX，小四、宋体、行间距 20 磅5.4 数据保存Private Sub Comm
35、and4_Click()Dim i As Integer, j As IntegerCD1.Filter = “All Files(*.*)|*.*|Text(*.txt)|*.txt“CD1.FilterIndex = 2CD1.DefaultExt = “txt“CD1.ShowSave 显示保存对话框Open CD1.FileName For Output As #1计算机在无机材料工厂中的应用程序设计说明书15Print #1, Tab(10); “水泥配料结果报告单“Print #1, Tab(10); NowPrint #1, “1.原材料的化学成分“Print #1, Tab(1
36、); “原料“; Tab(6); “Loss“; Tab(13); “CaO“; Tab(20); “SiO2“; Tab(27); “Al2O3“; Tab(34); “Fe2O3“; Tab(41); “MgO“; Tab(48); “SO3“; Tab(55); “CaF2“; Tab(62); “Total“For i = 1 To 4Print #1, Tab(1); CStr(LabelRM(i - 1).Caption);For j = 0 To 8Print #1, Tab(7 * j + 6); CStr(Txtylhxcf(9 * (i - 1) + j);Next jPr
37、int #1,Next iPrint #1,Print #1, “2.燃料与热耗“Print #1, Tab(1); “煤热值：“; CStr(Txtmrz.Text); “kJ/kg 煤“; Tab(25); “煤灰份：“; CStr(Txtmhf.Text); “kg/kg 煤“Print #1, Tab(1); “沉落率：“; CStr(Txtcll.Text); “%“; Tab(25); “热耗：“; CStr(Txtslrh.Text); “kJ/kg 熟料“Print #1,Print #1, “3.熟料三率值“Print #1, Tab(1); “设定值“; Tab(5); “
38、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(TxtSMJS.Text); Tab(25); “IM：“; CStr(TxtIMJS.Text)Print #1, Tab(1); “误差值“; Tab(5); “KH：“; CStr(TxtKHWC.Text); Tab(15); “SM：“
39、; CStr(TxtSMWC.Text); Tab(25); “IM：“; CStr(TxtIMWC.Text)Print #1,Print #1, “4.配料计算结果“Print #1, Tab(1); “原 料“; Tab(8); “水 分“; Tab(15); “干基配比“; Tab(22); “湿基配比“For i = 0 To 3Print #1, Tab(1); Label16(i).Caption; Tab(8); Txtsf(i).Text; Tab(17); Txtgjpb(i).Text; Tab(28); Txtsjpb(i).Text计算机在无机材料工厂中的应用程序设计
40、说明书16Next iPrint #1,Print #1, “5.熟料化学与矿物成分“Print #1, “(1)熟料化学成分“Print #1, Tab(1); “CaO“; Tab(8); “SiO2“; Tab(15); “Al2O3“; Tab(22); “Fe2O3“; Tab(29); “MgO“; Tab(36); “SO3“; Tab(43); “CaF2“; Tab(50); “Total“For i = 1 To 8Print #1, Tab(7 * (i - 1) + 1); CStr(Txtylhxcf(9 * (5 - 1) + i);Next iPrint #1,P
41、rint #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计算机在无机材料工厂中的应用程序设计说明书17设计总结在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按
42、照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。经过这次的 VB 程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心。(2)要了解概念：VB 程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习。(3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程序
43、，才会有成就感，进而对课程产生兴趣，做起来才比较从容。 (4)上机调试程序应注意多问问同学，多问问老师、 ，把不懂的地方标出来。总之，在此次的 VB 程序设计中，如果没有足够的耐心，就不可能完成的很好。所以此次 VB 程序设计，让我做事情更加有耐心，更加细心，学习更加认真仔细。计算机在无机材料工厂中的应用程序设计说明书18参考文献1 沈威.水泥工艺学(M). 武汉：武汉工业大学出版社，1990.2 牛又奇，孙建国.新编 Visual Basic 程序设计教程(M).苏州：苏州大学出版社，2002.3 李文.用计算机实现水泥配料(J).水泥技术,2002,2:63-64.4 赵立刚，仇明华，罗娟
44、，张正星.C 语言在水泥配料计算中的运用(J).计算机与应用化学,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).水泥,19
45、99,14(2):31-35.计算机在无机材料工厂中的应用程序设计说明书19致 谢本次设计最终得以顺利完成，与老师和同学的帮助是分不开的，虽然他们没有直接参与我的设计指导，但在设计过程中给我提供了很多意见，提出了一系列可行性的建议，他们有蔡书元老师，俞平胜老师以及我的同学们，在此向他们表示深深的感谢！ 计算机在无机材料工厂中的应用程序设计说明书20附录：程序代码登陆界面（Form1）：Private Sub CmdOK_Click()If username.Text = “ ThenMsgBox “用户名不能为空“, 48, “提示信息“Exit SubElseIf password.Text
46、 = “ Then MsgBox “密码不能为空“, 48, “提示信息“Exit SubElseIf Text1.Text = “ Then MsgBox “请输入验证码“, 48, “提示信息“Exit SubEnd IfStatic n As IntegerIf username.Text “000000“ Thenn = n + 1If n = 1 Or n = 2 ThenMsgBox “对不起,你输入的密码错误,请重新输入!“, 16, “警告“password.Text = “password.SetFocusExit SubElseIf n = 3 ThenMsgBox “对不
47、起,您已连续错误三次,退出本系统!“, 16, “警告“EndEnd IfElseIf Text1.Text check.Caption ThenMsgBox “对不起,你输入的验证码错误,请重新输入!“, 16, “提示信息“Text1.Text = “Text1.SetFocus计算机在无机材料工厂中的应用程序设计说明书21Exit SubElseForm2.ShowUnload Form1End IfEnd SubPrivate Sub Command2_Click()username.Text = “password.Text = “End SubPrivate Sub Command
48、3_Click()EndEnd SubPrivate Sub Label7_Click()Randomizecheck.Caption = CStr(Int(Rnd * 1000)End SubPrivate Sub password_Change()Randomizecheck.Caption = CStr(Int(Rnd * 1000)End Sub主界面（Form2）：Private Sub szcldpl_Click()Unload MeForm3.ShowEnd SubPrivate Sub szylhkhjhjzyldpl_Click()Unload MeForm8.ShowEnd
49、 SubPrivate Sub szyljfhkhjdpl_Click()Unload Me计算机在无机材料工厂中的应用程序设计说明书22Form6.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 计算界面；四
