水泥配料计算设计说明书.doc

材料工程学院
程 序 设 计 说 明 书

计算机在无机材料工厂中的应用

专 业 材料科学与工程
学生姓名
班 级 B材料082
学 号 0810201206
指导教师
完成日期 2011年10月21 日

1 绪论 1
1.1 设计目的与意义 1
1.2 设计任务及目标 2
2 程序设计思路 2
2.1 计算依据 2
2.2 计算步骤 3
2.3 编程原理 3
数据输入 3
3 程序设计框图 5
4 软件运行界面设计 6
4.1 概述 6
4.2 登录界面设计 6
4.3 主界面设计 8
4.4 配料计算界面设计 8
5 主要程序代码说明 9
5.1 数据输入 9
5.2 数据处理 10
5.3 数据输出 12
5.4 数据保存 13
设计总结 16
参考文献 17
致 谢 18
附录 19

《计算机在无机材料工厂中的应用》程序设计说明书
1 绪论
1.1 设计目的与意义
1.1.1 设计的目的
（1）培养学生利用所学的Visual Basic程序设计语言来解决武技非金属材料专业方面实际问题的能力，进一步提高学生计算机应用能力；
（2）进一步掌握Visual Basic程序设计语言知识的上机调试、运行程序的技能。
1.1.2 设计的意义
水泥配料计算就是生料组成的计算，是根据水泥熟料化学组成和矿物成份的要求而计算出各种原料的配合比。因此，配料计算是水泥生产中的一个重要环节，其计算结果的准确与否直接关系到水泥厂的产品质量。此外，配料计算又为物料平衡计算提供基础数据，而物料平衡是生产工艺中设备选型和稳定生产的条件。
目前配料计算中经常使用的方法有以下几种：代数法、图解法、误差尝试法（也叫递减试凑法）、矿物组成法、最小二乘法等，其中代数法计算结果比较精确，但计算烦琐。图解法计算简单但误差较大，误差尝试法将经验判断和计算相结合，是一种经验方法，手工计算较方便。总之上述几种计算方法各有利弊。
目前设计人员和生产管理人员大多采用手工计算，因此误差尝试法被广泛应用。然而手工计算效率较低，尤其在原料不能满足配料要求的情况下尤为突出。采用计算机配料计算效率高，而且能对原始数据加以管理，能将计算机结果打印输出，其优势十分明显。
以上几种计算方式均可用于计算机计算，因此为计算机选择一种合理的计算方法就显得十分重要。
Visual Basic（以下简称VB）是一种可视化的、面向对象的和采用事件驱动方式的结构化高级程序设计语言，它是以Basic语言为基础可视化软件开发工具，采用了以前Basic语言的一些语法，继承了Basic语言简单易学、使用方便的特点，同时增加了结构化和可视化程序设计语言的功能。它将windows界面设计的复杂性封装起来，编程人员只需为界面设计编写少量代码，利用系统提供的工具，在屏幕上画出各种对象，并设置对象的属性即可。VB的可视化设计平台简化了编程的过程，大大的提高了编程的效率。
本设计采用了Visual Basic语言进行配料计算，可以有以下特点：一是界面友好，甚至连不懂计算机的人都可以根据屏幕上的提示输入数据，完成计算任务；而是模型简单，知识稍具有一定配料知识，都能看懂原理，编辑相应程序代码，实现所需功能；三是计算快捷、简便、准确、高效，能够正确指导生产。

1.2 设计任务及目标
1.2.1 设计任务
四种原料（石灰石、粘土、铁粉、煤灰）的配料
1.2.2 设计目标
将计算机计算的优势发挥出来，只要稍微具有一定配料知识的，都能够看懂原理，直接在界面输入少许出事数据，即可得到误差较小的配料计算结果，计算效率高，并且能够对出事数据加以管理，能将计算结果打印输出。
1.2.3 计算应得的结果：
(1)熟料的三率值KH、SM、IM
(2)熟料的化学成分
(3)熟料可能的矿物成分
(4)干原料的重量百分比
(5)湿原料的重量百分比
(6)生料的化学成分
(7)生料的碳酸钙滴定值
2 程序设计思路
2.1 计算依据
2.1.1 熟料三率值的计算

（1）石灰饱和系数（IM >0.64）

（2）硅率
（3）铝率
2.1.2 熟料化学成分计算
设Cao+SiO2+Al2O3+Fe2O3=

SiO2=SM(Al2O3+Fe2O3)
CaO=-(SiO2+Al2O3+Fe2O3)

2.1.3 煤灰掺入量计算
gA=
式中：
gA——煤灰掺入量，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)*SiO2
C3A=2.65*Al2O3-1.69*Fe2O3 C4AF=3.04*Fe2O3

2.2 计算步骤
（1）输入原燃料化学成分，煤热值，灰份等
（2）输入KH、SM、IM、热耗
（3）计算煤灰掺入量GA
（4）计算方程系数
（5）用最小二乘法将三元一次方程的四个方程式转化成三个方程式AX=B
（6）用全主元高斯——约当消去法求解线性方程组AX=B

2.3 编程原理
数据输入
1.录入煤热值Qnet、灰份AAd、沉落率S，熟料热耗Q
Qnet = TxtMRZ.Text '指1kg煤的发热量，kJ/kg煤
AAd = TxtMHF.Text '指100kg煤燃烧所剩的煤灰，kg煤灰/100kg煤
S = TxtCLL.Text '指100kg煤灰中成为熟料的量，kg煤灰/100kg煤灰
Q = TxtSLRH.Text '指1kg熟料所需的热耗，kJ/kg熟料
2.熟料三率值KH、SM和IM
KHM = 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,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 4
For j = 1 To 8
A(i, j) = Val(TxtYLHXCF(9 * (i - 1) + j - 1).Text)
A(i, 9) = A(i, 9) + A(i, j)
Next j
TxtYLHXCF(9 * (i - 1) + 8).Text = Format(A(i, 9), "###0.00")
Next i
式中：A(I,J)表示某一物料干燥基某种化学成分的值；
I表示原料、煤灰、矿化剂种类，数值范围为1~4；
J表示化学成分的种类，数值范围为1~9。
4.录入原料及煤的含水率
For i = 1 To 7
W(i) = TxtSF(i - 1).Text
Next i
式中：W(I)表示某一原料的含水率，即100kg原料中所含水分的质量；
W(7)表示燃料（煤）的含水百分数，即100kg燃料中所含水分的质量；
I表示原料种类，数值范围为1~5，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) 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))

GBcl指100kg熟料中所需CaF2量，kg CaF2/100kg熟料
3 程序设计框图结 束
是三组分配料还是四组分配料？
开 始
输入原燃料化学成分A（I，J）煤热值，灰份等
输入KH,SM,IM,热耗
计算煤灰，石膏和萤石参入量GA.GB,GC
输出计算结果
计算方程系数
用全主元高斯---约当（Gauss-Jordan）消去法求解线性方程组AX=B
用最小二乘法将三元一次方程的四个方程式转化成三个方程式AX=B
4 软件运行界面设计
4.1 概述
通过各种控件设置登录界面、系统主界面、配料计算界面，要求界面友好，课操作性强，交互性好。
具体如下：
（1）保持用户界面及窗口的简洁性
在用户界面及窗体设计的过程中，要尽可能简化，要注意不要为追求新奇，同时在屏幕上显示许多图形，否则会带来混乱，降低应用程序的可操作性。另外只有在用户需要时，才显示图形和表格。
在设计用户界面和窗体时，还要考虑到用户的使用习惯，即一般从左到右，从上到下扫描窗体，并且相对于黑白颜色和色符，人们的视觉注意更容易被彩色和图形吸引。但同时要注意保证用户界面上的关键部分不能被不重要的部分干扰。
（2）保持用户界面的明确性。
即可以使用户不阅读使用手册可以使用应用程序。这就要求在设计用户界面及窗体时的菜单或命令按钮等名称应能够见名知义，或者当鼠标指向命令按钮时，弹出一个标签来显示命令功能提示说明。
（3）使用用户所熟悉的设计元素
在用户界面及窗体设计的过程中，要尽可能使用用户所熟悉的设计元素。如windows应用程序中经常使用的“文件”菜单中的“打开，保存，退出”命令；“编辑”菜单中的“剪切，复制，粘贴”命令等，不要擅自修改或增加这些应经具备相对固定功能的元素，否则会引起用户的不便。
4.2 登录界面设计

功能：输入用户名、密码后即可进入系统；可试三次，每次输出错误，均有提示，且最后一次输入不正确，则退出登录系统。
设计登录界面时所涉及的可能控件有：标签、文本框、组合框、命令按钮等
Form1
ControlBox
False
Caption
用户登录
Picture
jietu.jpg
Icon
MISC27.ICO
Label1
(名称)
Label1
Caption
用户名
AutoSize
True
Label2
(名称)
password
AutoSize
True
Caption
密 码
Label3
(名称)
Label3
AutoSize
True
Caption
验证码
Combo1
(名称)
username
List
王小龙
杨银银

Text

Label4
(名称)
Label4
Caption
水泥配料计算
AutoSize
True
Label5
(名称)
Label5
Caption
设计人：王小龙
AutoSize
True
Text1
Text

Text2
Text

Command1
(名称)
CmdOk
Caption
确定
Command2
(名称)
Command2
Caption
取消
Command3
(名称)
CommandTC
Caption
退出

4.3 主界面设计

4.4 配料计算界面设计

5 主要程序代码说明
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)
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，熟料热耗Q
mrz = Txtmrz.Text '指< xmlnamespace prefix ="st1" ns ="urn:schemas-microsoft-com:office:smarttags" />1kg煤的发热量，kJ/kg煤
mhf = Txtmhf.Text '指100kg煤燃烧所剩的煤灰，kg煤灰/100kg煤
cll = Txtcll.Text '指100kg煤灰中成为熟料的量，kg煤灰/100kg煤灰
slrh = Txtslrh.Text '指1kg熟料所需的热耗，kJ/kg熟料
2.熟料三率值KH、SM和IM
KH = TxtKHMB.Text '指熟料的KH值
SM = TxtSMMB.Text '指熟料的SM值
IM = TxtIMMB.Text '指熟料的IM值
3.录入干燥基原料、煤灰、矿化剂化学成分的录入
For i = 1 To 4
For j = 1 To 8
A(i, j) = Val(Txtylhxcf(9 * (i - 1) + j - 1).Text)
A(i, 9) = A(i, 9) + A(i, j)
Next j
Txtylhxcf(9 * (i - 1) + 8).Text = Format(A(i, 9), "###0.00")
Next i
4.录入原料及煤的含水率
For i = 1 To 4
W(i) = Txtsf(i - 1).Text
Next i
W(I)表示某一原料的含水率，即100kg原料中所含水分的质量；
W(4)表示燃料（煤）的含水百分数，即100kg燃料中所含水分的质量；
I表示原料种类，数值范围为1~3，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 4
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表示原料、煤灰、矿化剂种类，数值范围为1~4；
J表示化学成分的种类，数值范围为1~8。

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,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 3
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(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) - 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) / 100
SiO2 = (B(1, 2) * X(1) + B(2, 2) * X(2) + B(3, 2) * X(3) + B(4, 2) * GA) / 100
Al2O3 = (B(1, 3) * X(1) + B(2, 3) * X(2) +B(3, 3) * X(3) + B(4, 3) * GA) / 100
Fe2O3 = (B(1, 4) * X(1)+ B(2, 4) * X(2) + B(3, 4) * X(3) + B(4, 4) * GA) / 100
MgO = (B(1, 5) * X(1) + B(2, 5) * X(2) + B(3, 5) * X(3) + B(4, 5) * GA) / 100
SO3 = (B(1, 6) * X(1) + B(2, 6) * X(2) + B(3, 6) * X(3) + B(4, 6) * GA) / 100
CaF2 = (B(1, 7) * X(1) + B(2, 7) * X(2) + B(3, 7) * X(3) + B(4, 7) * GA) / 100
干基原料与燃料配比,湿基原料配比
For i = 1 To 3
XO(i) = X(i) * 100 / (100 - A(i, 1))
XW(i) = XO(i) * 100 / (100 - W(i))
Next i
XO(4) = slrh * 100 / mrz
XW(4) = XO(4) * 100 / (100 - W(4))
式中：X0(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)表示燃料所含水分百分含量；
XW(4)表示生产100kg熟料所需湿基燃料的用量。熟料的矿物成分
C3S = 3.8 * (3 * KH - 2) * SiO2
C2S = 8.61 * (1 - KH) * SiO2
C3A = 2.65 * Al2O3 - 1.69 * Fe2O3
C4AF = 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)) / 100
MgO = (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
式中：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) = Format(MgO, "###0.00")
Txtylhxcf(42) = Format(SO3, "###0.00")
Txtylhxcf(43) = Format(CaF2, "###0.00")
For i = 37 To 43
M = M + Txtylhxcf(i)
Next i
Txtylhxcf(44).Text = M
原料配比输出：
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.Text - TxtSMJS.Text, "###0.00")
TxtIMWC.Text = Format(TxtIMMB.Text - TxtIMJS.Text, "###0.00")
用文本框数组输出原燃料配比
For i = 1 To 4
Txtgjpb(i - 1).Text = Format(XO(i), "###0.00")
Next i
For i = 1 To 4
Txtsjpb(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 Command4_Click()
Dim i As Integer, j As Integer
CD1.Filter = "All Files(*.*)|*.*|Text(*.txt)|*.txt"
CD1.FilterIndex = 2
CD1.DefaultExt = "txt"
CD1.ShowSave '显示保存对话框
Open CD1.FileName For Output As #1

Print #1, Tab(10); "水泥配料结果报告单"
Print #1, Tab(10); Now
Print #1, "1.原材料的化学成分"
Print #1, Tab(1); "原※料"; 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 4
Print #1, Tab(1); CStr(LabelRM(i - 1).Caption);
For j = 0 To 8
Print #1, Tab(7 * j + 6); CStr(Txtylhxcf(9 * (i - 1) + j));
Next j
Print #1,
Next i
Print #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); "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："; 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 3
Print #1, Tab(1); Label16(i).Caption; Tab(8); Txtsf(i).Text; Tab(17); Txtgjpb(i).Text; Tab(28); Txtsjpb(i).Text
Next i
Print #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 8
Print #1, Tab(7 * (i - 1) + 1); CStr(Txtylhxcf(9 * (5 - 1) + i));
Next i
Print #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 #1
End Sub
设计总结
在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。
经过这次的VB程序设计，让我知道了更多学习的方法。
具体如下：
(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心。
(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习。
(3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，做起来才比较从容。
(4)上机调试程序应注意多问问同学，多问问老师、，把不懂的地方标出来。
总之，在此次的VB程序设计中，如果没有足够的耐心，就不可能完成的很好。所以此次VB程序设计，让我做事情更加有耐心，更加细心，学习更加认真仔细。
参考文献
[1] 沈威.水泥工艺学(M). 武汉：武汉工业大学出版社，1990.
[2] 牛又奇，孙建国.新编Visual Basic程序设计教程(M).苏州：苏州大学出版社，2002.
[3] 李文.用计算机实现水泥配料(J).水泥技术,2002,2:63-64.
[4] 赵立刚，仇明华，罗娟，张正星.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).水泥,1999,14(2):31-35.
致 谢
本次设计最终得以顺利完成，与老师和同学的帮助是分不开的，虽然他们没有直接参与我的设计指导，但在设计过程中给我提供了很多意见，提出了一系列可行性的建议，他们有蔡书元老师，俞平胜老师以及我的同学们，在此向他们表示深深的感谢！
附录：程序代码
登陆界面（Form1）：
Priva