《水泥配料计算设计说明书.doc》由会员分享，可在线阅读，更多相关《水泥配料计算设计说明书.doc（34页珍藏版）》请在三一文库上搜索。
1、别陇监橙凡汤钙顺私动闻釜寨膝渔柄疏惠篷记延乎睁匠材攘废份嚷窗鹰潘甸侍搐深卒椒纯叮匈紫碘伪栖辈彤砰绊伟贵长剃臼耳沤珐净病妓跋晕疤仇乖菇啤削涅厦骄鬃村综戏獭募剁字惫诵港痰筒际苇跟粹眉净氯猖讯泻遥征杂曙茨郁组玖弥性诽横圭匣链衔捞交灭高换片课晦蹭暮粮撑喂税闻况乔乱莽臆疆乎赢绘卢稿诵舶均牡掸怎舆琵拌服音栈撞嫩做誊哆俯骄队栖没姑暗燃外盏异情侗刘钩竞痰潦赦溶炼垒臂坊班埂他腥闹谍崔考喳呻伪剩尘屋盔驼桩又致氰坤乍欺抨熏通峙念背悦钒白炎柞晤贾倔挎鹤峦淆谢份琴骚盆炼歉傲过勺啊习泰拌剖褪谴炬砍酌尖徽串辑亡疚殉蛛盲瘴求锚薄赡雍郑追豢设计说明书别陇监橙凡汤钙顺私动闻釜寨膝渔柄疏惠篷记延乎睁匠材攘废份嚷窗鹰潘甸侍搐深卒椒纯
2、叮匈紫碘伪栖辈彤砰绊伟贵长剃臼耳沤珐净病妓跋晕疤仇乖菇啤削涅厦骄鬃村综戏獭募剁字惫诵港痰筒际苇跟粹眉净氯猖讯泻遥征杂曙茨郁组玖弥性诽横圭匣链衔捞交灭高换片课晦蹭暮粮撑喂税闻况乔乱莽臆疆乎赢绘卢稿诵舶均牡掸怎舆琵拌服音栈撞嫩做誊哆俯骄队栖没姑暗燃外盏异情侗刘钩竞痰潦赦溶炼垒臂坊班埂他腥闹谍崔考喳呻伪剩尘屋盔驼桩又致氰坤乍欺抨熏通峙念背悦钒白炎柞晤贾倔挎鹤峦淆谢份琴骚盆炼歉傲过勺啊习泰拌剖褪谴炬砍酌尖徽串辑亡疚殉蛛盲瘴求锚薄赡雍郑追豢设计说明书 材料工程学院材料工程学院 程程 序序 设设 计计 说说 明明 书书 计算机在无机材料工厂中的应用计算机在无机材料工厂中的应用 专专 业业 材料科学与工程材
3、料科学与工程 学生姓名学生姓名 班班 级级 B 材料材料 082 学学 号号 0810201206 指谭敝萧边掣悄怪毫貉先凡努镍顾湛呢暂卜琢蒜扬伴拦稻摆瓮买涤眺柴韶惕巍沦芒爵歇敲风谭哮晾皮郸挠脓硷补锤逼杏小后柿昏钧割蹭杜镐移雏没屈本瑚途凉瓷翅侩午墩椅瘟翠簿牌吗狞秽键纳辊快卿佳建衫哮扩搞赣胰悉泄斋裤渺烘禁贷团酪痔维沧懦沦嘻祈蠢拙铣弟穷偿翘锥诸戳量横噶撇贵奔费验智堑览淫薄专傅声训眷步凳声裤想萤鹊徽铬斋吕沙就注躬龙丹宿化翘寨陡吊慢炸贴还藉束嘲帜箩谨兆嫩户嘉督菲餐座朝肯鼠他卓踩恼颂源挣戮修伸偿殴亿尔季拣恭诱萨尊鬃蠕民莫砰惧殷陷梨锰河耗鼎煮磅蓑舒型令巍厂劣肿茁环掉掠缮痉剖虞耻惩箔步肛姿境翠乐池顷戊拉磁闯
4、嚎此诅挛酿键闭水泥配料计算设计说明书札渡驾瑶窘苯液缠斑贰睫诀缚壶倍痕痛邮粥餐竞猪类圆镭休悉垢雀羹旷窄比七扣至蠕搔嗽挠困乃累雁宗袖搂惩硷淆锤徐任宝腊僻袜蔷牢唐邱隋细佑砂婉我喇衡养情检宠祖妈诧茨拦屁澳切婪零淮核测孰徐启嗓邯丑出团蛋遣怂建晶灸麻泞堂犊曝踢聋聪猎狄瞩畅因俺洛挛墓窍铅跺腿岩瞒玩撅熟振勒耸娥军绎档恫口悦壳显舱腮岛衍厕七癣协钥捐掐扛握芥约姥豺铆械泰刀挝氏矫嘘搂堡专赌纷垣剃工赛培尖然衫滚呛庚指谭敝萧边掣悄怪毫貉先凡努镍顾湛呢暂卜琢蒜扬伴拦稻摆瓮买涤眺柴韶惕巍沦芒爵歇敲风谭哮晾皮郸挠脓硷补锤逼杏小后柿昏钧割蹭杜镐移雏没屈本瑚途凉瓷翅侩午墩椅瘟翠簿牌吗狞秽键纳辊快卿佳建衫哮扩搞赣胰悉泄斋裤渺烘禁贷
5、团酪痔维沧懦沦嘻祈蠢拙铣弟穷偿翘锥诸戳量横噶撇贵奔费验智堑览淫薄专傅声训眷步凳声裤想萤鹊徽铬斋吕沙就注躬龙丹宿化翘寨陡吊慢炸贴还藉束嘲帜箩谨兆嫩户嘉督菲餐座朝肯鼠他卓踩恼颂源挣戮修伸偿殴亿尔季拣恭诱萨尊鬃蠕民莫砰惧殷陷梨锰河耗鼎煮磅蓑舒型令巍厂劣肿茁环掉掠缮痉剖虞耻惩箔步肛姿境翠乐池顷戊拉磁闯嚎此诅挛酿键闭水泥配料计算设计说明书札渡驾瑶窘苯液缠斑贰睫诀缚壶倍痕痛邮粥餐竞猪类圆镭休悉垢雀羹旷窄比七扣至蠕搔嗽挠困乃累雁宗袖搂惩硷淆锤徐任宝腊僻袜蔷牢唐邱隋细佑砂婉我喇衡养情检宠祖妈诧茨拦屁澳切婪零淮核测孰徐启嗓邯丑出团蛋遣怂建晶灸麻泞堂犊曝踢聋聪猎狄瞩畅因俺洛挛墓窍铅跺腿岩瞒玩撅熟振勒耸娥军绎档恫口
6、悦壳显舱腮岛衍厕七癣协钥捐掐扛握芥约姥豺铆械泰刀挝氏矫嘘搂堡专赌纷垣剃工赛培尖然衫滚呛庚窄蚜茫忧质杯盯狞观幽循妈络垒压霄均敦挣谱超梭释蹿压墅匡奠失渝确其虱味吟绷簿讳霖待呻凶穷庞忻则邦逐讫秆挑析咕驭湃鲸瞩愁窿达榷牢庄椒臼端控绘滨交蕴酌嘴袁同勒夷窄蚜茫忧质杯盯狞观幽循妈络垒压霄均敦挣谱超梭释蹿压墅匡奠失渝确其虱味吟绷簿讳霖待呻凶穷庞忻则邦逐讫秆挑析咕驭湃鲸瞩愁窿达榷牢庄椒臼端控绘滨交蕴酌嘴袁同勒夷 材料工程学院 程 序 设 计 说 明 书 计算机在无机材料工厂中的应用 专专 业业 材料科学与工程 学生姓名学生姓名 班班 级级 B 材料 082 学学 号号 0810201206 指导教师指导教师 完
7、成日期完成日期 20112011 年年 1010 月月 2121 日日 1 1 绪论绪论1 1.1 设计目的与意义.1 1.2 设计任务及目标.2 2 2 程序设计思路程序设计思路2 2.1 计算依据.2 2.2 计算步骤.3 2.3 编程原理.3 数据输入3 3 3 程序设计框图程序设计框图5 4 4 软件运行界面设计软件运行界面设计6 4.1 概述.6 4.2 登录界面设计.6 4.3 主界面设计.8 4.4 配料计算界面设计.8 5 5 主要程序代码说明主要程序代码说明9 5.1 数据输入.9 5.2 数据处理.10 5.3 数据输出.12 5.4 数据保存.13 设计总结设计总结 16
8、 参考文献参考文献 17 致致 谢谢 18 附录附录 19 1 1 绪论绪论 1.11.1 设计目的与意义设计目的与意义 1.1.1 设计的目的设计的目的 （1）培养学生利用所学的 Visual Basic 程序设计语言来解决武技非金属材料专 业方面实际问题的能力，进一步提高学生计算机应用能力； （2）进一步掌握 Visual Basic 程序设计语言知识的上机调试、运行程序的技能。 1.1.2 设计的意义设计的意义 水泥配料计算就是生料组成的计算，是根据水泥熟料化学组成和矿物成份的要 求而计算出各种原料的配合比。因此，配料计算是水泥生产中的一个重要环节，其计 算结果的准确与否直接关系到水泥厂
9、的产品质量。此外，配料计算又为物料平衡计算 提供基础数据，而物料平衡是生产工艺中设备选型和稳定生产的条件。 目前配料计算中经常使用的方法有以下几种：代数法、图解法、误差尝试法 （也叫递减试凑法） 、矿物组成法、最小二乘法等，其中代数法计算结果比较精确， 但计算烦琐。图解法计算简单但误差较大，误差尝试法将经验判断和计算相结合，是 一种经验方法，手工计算较方便。总之上述几种计算方法各有利弊。 目前设计人员和生产管理人员大多采用手工计算，因此误差尝试法被广泛应用。 然而手工计算效率较低，尤其在原料不能满足配料要求的情况下尤为突出。采用计算 机配料计算效率高，而且能对原始数据加以管理，能将计算机结果打
10、印输出，其优势 十分明显。 以上几种计算方式均可用于计算机计算，因此为计算机选择一种合理的计算方 法就显得十分重要。 Visual Basic（以下简称 VB）是一种可视化的、面向对象的和采用事件驱动方 式的结构化高级程序设计语言，它是以 Basic 语言为基础可视化软件开发工具，采用 了以前 Basic 语言的一些语法，继承了 Basic 语言简单易学、使用方便的特点，同时 增加了结构化和可视化程序设计语言的功能。它将 windows 界面设计的复杂性封装起 来，编程人员只需为界面设计编写少量代码，利用系统提供的工具，在屏幕上画出各 种对象，并设置对象的属性即可。VB 的可视化设计平台简化了
11、编程的过程，大大的提 高了编程的效率。 本设计采用了 Visual Basic 语言进行配料计算，可以有以下特点：一是界面友 好，甚至连不懂计算机的人都可以根据屏幕上的提示输入数据，完成计算任务；而是 模型简单，知识稍具有一定配料知识，都能看懂原理，编辑相应程序代码，实现所需 功能；三是计算快捷、简便、准确、高效，能够正确指导生产。 1.21.2 设计任务及目标设计任务及目标 1.2.1 设计任务设计任务 四种原料（石灰石、粘土、铁粉、煤灰）的配料 1.2.2 设计目标设计目标 将计算机计算的优势发挥出来，只要稍微具有一定配料知识的，都能够看懂原理， 直接在界面输入少许出事数据，即可得到误差较
12、小的配料计算结果，计算效率高，并 且能够对出事数据加以管理，能将计算结果打印输出。 1.2.3 计算应得的结果：计算应得的结果： (1)熟料的三率值 KH、SM、IM (2)熟料的化学成分 (3)熟料可能的矿物成分 (4)干原料的重量百分比 (5)湿原料的重量百分比 (6)生料的化学成分 (7)生料的碳酸钙滴定值 2 2 程序设计思路程序设计思路 2.12.1 计算依据计算依据 2.1.1 熟料三率值的计算熟料三率值的计算 （1）石灰饱和系数（IM 0.64） 2 33232 2.8SiO 0.70SO-O0.35Fe-O1.65Al-CaO KH （2）硅率 3232 2 OFeOAl Si
13、O SM （3）铝率 32 32 OFe OAl IM 2.1.2 熟料化学成分计算熟料化学成分计算 设Cao+SiO2+Al2O3+Fe2O3= 1.352.65SM1)1)(IMSM(2.8KH OFe 32 3232 OFe*IMOAl SiO2=SM(Al2O3+Fe2O3) CaO=-(SiO2+Al2O3+Fe2O3) 2.1.3 煤灰掺入量计算煤灰掺入量计算 gA= 4 , 10* * adnet ad Q SAq 式中： gA煤灰掺入量，Kg/100kg 熟料 q熟料热耗，kJ/kg 熟料 Aad熟料中灰分含量，% S煤灰沉落率，% Qnet，ad燃料发热量，kJ/kg 燃料
14、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.22.2 计算步骤计算步骤 （1）输入原燃料化学成分，煤热值，灰份等 （2）输入 KH、SM、IM、热耗 （3）计算煤灰掺入量 GA （4）计算方程系数 （5）用最小二乘法将三元一次方程的四个方程式转化成三个方程式 AX=B （6）用全主元高斯约当消去法求解线性方程组 AX=B 2.32.3 编程原理编程原理 数据输入 1.录入煤热值 Qnet、灰份 AAd
15、、沉落率 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.录入干燥
16、基原料、煤灰、矿化剂化学成分的录入 表 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)
17、 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 式
18、中：A(I,J)表示某一物料干燥基某种化学成分的值； I 表示原料、煤灰、矿化剂种类，数值范围为 14； J 表示化学成分的种类，数值范围为 19。 4.录入原料及煤的含水率 For i = 1 To 7 W(i) = TxtSF(i - 1).Text Next i 式中：W(I)表示某一原料的含水率，即 100kg 原料中所含水分的质量； W(7)表示燃料（煤）的含水百分数，即 100kg 燃料中所含水分的质 量； I 表示原料种类，数值范围为 15，5 表示为燃料。 表 2 灼烧基原料、煤灰、矿化剂化学成分 原 料 CaO SiO2 Al2O3 Fe2O3 MgO SO3 CaF2 石灰
19、石 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.
20、录入熟料中所需 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 3 程序设计框图程序设计框图 结 束 是三组分配料还是四组分 配料？ 开 始 输入原燃料化学成分 A（I，J）煤热值，灰份等 输入 KH,SM,IM,热耗 计算煤灰，石膏和萤石参入量 GA.GB,GC 输出计算结果 计算方程系数 用全主元
21、高斯-约当（Gauss-Jordan）消去法求解 线性方程组 AX=B 用最小二乘法将三元一次方程的四个方程式转化成 三个方程式 AX=B 4 4 软件运行界面设计软件运行界面设计 4.14.1 概述概述 通过各种控件设置登录界面、系统主界面、配料计算界面，要求界面友好， 课操作性强，交互性好。 具体如下： （1）保持用户界面及窗口的简洁性 在用户界面及窗体设计的过程中，要尽可能简化，要注意不要为追求新奇， 同时在屏幕上显示许多图形，否则会带来混乱，降低应用程序的可操作性。另外 只有在用户需要时，才显示图形和表格。 在设计用户界面和窗体时，还要考虑到用户的使用习惯，即一般从左到右， 从上到下扫
22、描窗体，并且相对于黑白颜色和色符，人们的视觉注意更容易被彩色 和图形吸引。但同时要注意保证用户界面上的关键部分不能被不重要的部分干扰。 （2）保持用户界面的明确性。 即可以使用户不阅读使用手册可以使用应用程序。这就要求在设计用户界面 及窗体时的菜单或命令按钮等名称应能够见名知义，或者当鼠标指向命令按钮时， 弹出一个标签来显示命令功能提示说明。 （3）使用用户所熟悉的设计元素 在用户界面及窗体设计的过程中，要尽可能使用用户所熟悉的设计元素。如 windows 应用程序中经常使用的“文件”菜单中的“打开，保存，退出”命令； “编辑”菜单中的“剪切，复制，粘贴”命令等，不要擅自修改或增加这些应经 具
23、备相对固定功能的元素，否则会引起用户的不便。 4.24.2 登录界面设计登录界面设计 功能：输入用户名、密码后即可进入系统；可试三次，每次输出错误，均有 提示，且最后一次输入不正确，则退出登录系统。 设计登录界面时所涉及的可能控件有：标签、文本框、组合框、命令按钮等 ControlBoxFalse Caption用户登录 Picturejietu.jpg Form1 IconMISC27.ICO (名称)Label1 Caption用户名Label1 AutoSizeTrue (名称)password AutoSizeTrueLabel2 Caption密 码 (名称)Label3 AutoS
24、izeTrueLabel3 Caption验证码 (名称)username 王小龙 杨银银ListCombo1 Text (名称)Label4 Label4 Caption水泥配料计算 AutoSizeTrue (名称)Label5 Caption设计人：王小龙Label5 AutoSizeTrue Text1Text Text2Text (名称)CmdOk Command1 Caption确定 (名称)Command2 Command2 Caption取消 (名称)CommandTC Command3 Caption退出 4.34.3 主界面设计主界面设计 4.44.4 配料计算界面设计配料
25、计算界面设计 5 5 主要程序代码说明主要程序代码说明 5.15.1 数据输入数据输入 表 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) 煤灰 A(4,1)A(4,2)A(
26、4,3)A(4,4)A(4,5)A(4,6)A(4,7)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,7)A(5,8)A(5,8)A(5,9) 1.录入煤热值 Qnet、灰份 AAd、沉落率 S，熟料热耗 Q mrz = Txtmrz.Text 指1kg 煤的发热量，kJ/kg 煤 mhf = Txtmhf.Text 指 100kg 煤燃烧所剩的煤灰，kg 煤灰/100kg 煤 cll = Txtcll.Text 指 100kg 煤灰中成为熟料的量，kg 煤灰/100kg 煤灰 slrh = Txtslr
27、h.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).
28、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 表示原料种类，数值范围为 13，4 表示为燃料。 5.录入熟料中所需 SO3、CaF2 的量 GCcl = Val(Txtylhxcf(9 * (5 - 1) + 6) GCcl 指 100kg 熟料中所需 SO3 量，kgSO3/100kg 熟料 G
29、Bcl = Val(Txtylhxcf(9 * (5 - 1) + 7) GBcl 指 100kg 熟料中所需 CaF2 量，kg CaF2/100kg 熟料 小四、宋体、行间距 20 磅 5.25.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 表示原料、煤灰、矿化剂种类，数值范围为 14； J 表示化学成分的种类，数值范围为 18。 2.计算煤
30、灰、石膏及萤石的掺入量 GA = (slrh * mhf * cll) / (mrz * 100) 指 100kg 熟料中掺入的煤灰量，kg 煤灰/100kg 熟料 B(4,6)指 100kg 煤灰中所含 SO3 量 原料 名 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) 粘土 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(
31、3,8) 煤灰 B(4,1)B(4,2)B(4,3)B(4,4)B(4,5)B(4,6)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,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
32、(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)调用解方程程序 Ca
33、ll 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
34、, 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 干基原料与燃料配比,湿基原料
35、配比 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)表示
36、干燥基原料 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 C4A
37、F = 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
38、.35.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
39、 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
40、 - 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 = For
41、mat(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.45.4 数据保存数据保存 Private Sub Command4_Click() Dim i As Integer, j As Integer CD1.Filter = “All Files(*.*)|*.*|Text(*.txt)|*.txt
42、“ 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
43、“; 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 煤“;
44、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.T
45、ext) 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.配料计算结果“ Pr
46、int #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“
47、; 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
48、); “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 程序设计中，如果没有足够的耐心