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

材料工程学院 程 序 设 计 说 明 书 计算机在无机材料工厂中的应用 专专 业业 学生姓名学生姓名 班班 级级 学学 号号 指导教师指导教师 完成日期完成日期 20112011 年年 1010 月月 2121 日日 目目 录录 1 绪论绪论1 1.1 设计目的与意义.1 1.2 设计任务及目标.2 2 程序程序设计设计思路思路3 2.1 计算依据3 2.2 计算步骤3 2.3 编程原理 4 3 程序程序设计设计框框图图7 4 软软件运行界面件运行界面设计设计 7 4.1 概述.8 4.2 登录界面设计.8 4.3 主界面设计9 4.4 配料计算界面设计 .10 5 主要程序代主要程序代码说码说明明 13 5.1 数据输入13 5.2 数据处理13 5.3 数据输出14 设计总结设计总结 19 参考文献参考文献 20 致致 谢谢 21 计算机在无机材料工厂中的应用程序设计说明书 1 1 绪论绪论 1.11.1 设计目的与意义设计目的与意义 1.1.1 设计的目的 (1)培养学生利用所学的 visual basic 程序设计语言来解决无机非金属材料专业方 面实际问题的能力，进一步提高学生计算机应用的能力； (2)进一步掌握 visual basic 程序设计语言知识和上机调试、运行程序的技能。 1.1.2 设计的意义 水泥配料计算就是生料组成的计算，使根据水泥熟料化学组成和矿物成分的要求 而计算出各种原料的配合比。因此，配料计算是水泥生产中的一个重要环节，其计算 结果的准确与否直接关系到水泥厂的产品质量。此外，配料计算又为物料平衡计算提 供基础数据，而物料平衡是生产工艺设计中设备选型和稳定生产的条件。 目前配料计算中经常使用的计算方法有以下几种：代数法、图解法、误差尝试法 （也叫递减试凑法） 、矿物组成法、最小二乘法等，其中代数法计算结果比较精确， 但计算繁琐。图解法计算简单但误差较大，误差尝试法将经验判断和计算相结合，是 一种经验方法，手工计算较为方便。总之上述几种计算方法各有利弊。 目前设计人员和生产管理人员大多采用手工计算，因此误差尝试法被广泛应用。 然而手工计算效率较低，尤其在原料不能满足配料要求的情况下尤为突出。采用计算 机配料计算效率高，并且能对原始数据加以管理，能将计算结果打印输出，其优势十 分明显。 以上几种计算方法均可用于计算机计算，因此为计算机选择一种合理的计算方法 就显得十分重要。 visual basic（以下简称 vb）是一种可视化的、面向对象的和采用事件驱动方式 的结构化高级程序设计语言，它是以 basic 语言为基础的可视化软件开发工具，采用 看以前 basic 语言的一些语法，继承了 basic 语言简单易学、使用方便的特点，同时 增加了结构化和可视化程序设计语言的功能。它将 window 界面设计的复杂性封装起 来，编程人员只需为界面 设计编写少量代码，利用系统提供的工具，在屏幕上画出 各种对象，并设置对象的属性即可。vb 的可视化设计平台简化了编程的过程，大大 提高了编程的效率。 本设计采用 visual basic 语言进行配料机算，可以有以下特点：一是界面友好， 甚至连不懂计算机的人都可以根据屏幕上的提示输入数据，完成计算任务；二是模型 简单，只要稍具有一定的配料知识，都能看懂原理，编辑相应程序代码，实现所需功 能；三是计算快捷、简单、准确、高效，能够正确指导生产。 计算机在无机材料工厂中的应用程序设计说明书 2 1.21.2 设计任务及目标设计任务及目标 1.2.1 设计任务 四种原料加校正原料的配料 1.2.2 设计目标 用 vb 语言精确计算出孰料三率值，孰料各化学成分，孰料矿物组成，干基原料 及燃料配比，湿基原料配比，生料碳酸钙滴定值。 1.2.3 计算应得的结果： (1)熟料的三率值 kh、sm、im (2)熟料的化学成分 (3)熟料可能的矿物成分 (4)干原料的重量百分比 (5)湿原料的重量百分比 (6)生料的化学成分 (7)生料的碳酸钙滴定值 计算机在无机材料工厂中的应用程序设计说明书 3 2 程序程序设计设计思路思路 2.12.1 计算依据计算依据 2.1.1 熟料三率值计算 (1)石灰饱和系数（im0.64） 2 33232 2.8sio 0.70soo0.35feo1.65alcao kh (2)硅率 3232 2 ofeoal sio sm (3)铝率 32 32 ofe oal im 2.1.2 熟料化学成分计算 设 cao+sio2+al2o3+fe2o3= 1.352.65sm1)1)(imsm(2.8kh ofe 32 3232 ofeimoal sio2 =sm(al2o3+fe2o3) cao=-(sio2+al2o3+fe2o3) 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 sio2)kh(33.8sc 22 siokh)(18.61sc 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 数据计算 计算机在无机材料工厂中的应用程序设计说明书 4 （1）干燥基化学成分换算灼烧基化学成分 （2）计算煤灰的掺入量 （3）配料方程的系数计算 （4）解方程的程序调用 （5）熟料的主要化学成分计算 （6）配料后熟料三率值计算 2.2.3 计算结果输出 （1）原料配比 （2）熟料的矿物成分 （3）生料的碳酸钙滴定值 2.32.3 编程原理编程原理 此处介绍的编程原理以四种原料(石灰石、粘土、铁粉、煤灰)和校正原料的配料 为例，其它可根据原料种类情况进行增减。 2.3.1 数据录入 (1)煤的热值 qnet、灰分 aad、沉落率 s，孰料热耗 q 以及孰料三率值 kh、sm、 和 im 等用文本框控件录入数据，方法： x=文本框.text 此处的 x 为 qnet、aad、s、q、kh、sm 和 im 等。 (2)干燥基原料、煤灰、矿化剂化学成分的录入 表 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(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) 干燥基原料、煤灰、矿化剂化学成分采用文本框控件数组录入，方法： for i=1 to 5 for j=1 to 8 a(i,j)=文本框控件数组名(9*(i-1)+j-1).text a(i,9)= a(i,9)+ a(i,j) next j 计算机在无机材料工厂中的应用程序设计说明书 5 文本框控件数组名(9*(i-1)+8).text= a(i,9) next i 式中：a(i,j)表示某一物料干燥基某种化学成分的值； i 表示原料、煤灰、矿化剂种类，数值范围为 15； j 表示化学成分的种类，数值范围为 18。 2.3.2 干燥基化学成分换算灼烧基化学成分 干燥基原料、煤灰、矿化剂化学成分换算灼烧基化学成分的表示方法： 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 表 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) 粘土 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(i,j)表示某一物料灼烧基某种化学成分的值； i 表示原料、煤灰、矿化剂种类，数值范围为 15； j 表示化学成分的种类，数值范围为 18。 2.3.3 煤灰掺入量计算 煤灰掺入量：ga(q*aad*s)/(qnet*100) 式中：ga 表示煤灰掺入量 q 表示孰料的热耗，qnet 表示煤的热值 s 表示煤灰沉落率，aad 表示煤的灰分 gccl、gbcl 分别表示孰料中 so3及 caf2含量 计算机在无机材料工厂中的应用程序设计说明书 6 3 程序程序设计设计框框图图 程序可分为三大部分：第一部分为数据输入，包括配料计算所需数据和无聊平衡计算 所需数据；第二部分为计算部分，反复输入不同的 kh、sm、im 值，直到计算出满 意的结果为止；第三部分为输出部分，输出所有配料计算数据和物料平衡表。程序设 计简单框图如下： 开 始 输入原燃料化学成分 a(i，j)，煤热值、灰分 等 输入 kh、sm、im、热耗 计算煤灰、石膏和萤石 掺入量 ga、gc、gb 计算方程系数 是三组分配料还 是四组分配料？ 用最小二乘法将三元一次方程的四 个方程式转化成三个方程式 ax=b 用全主元高斯-约当(gauss-jordan)消 去法求解线性方程组 ax=b 输出计算结果 结 束 三组分配料四组分配料 计算机在无机材料工厂中的应用程序设计说明书 7 4 软软件运行界面件运行界面设计设计 4.14.1 概述概述 通过各种控件设置登录界面、系统主界面、配料计算界面，要求界面友好，可操 作性强，交互友好。 具体如下： (1)保护用户界面及窗体的简洁性。 在用户界面及窗体设计过程中，要尽可能简化，要注意不要为追求新奇，同时在 屏幕上显示许多图形，否则会带来混乱，降低应用程序的可操作性。另外只有在用户 需要时，才显示图形或表格。 在设计用户界面及窗体时，还要考虑到用户的使用习惯，即一般从左到右，从上 到下扫描窗体，并且相对于黑白颜色和字符，人们的视觉注意力更容易被彩色和图形 所吸引。但同时要注意保证用户界面上的关键部分不能被不重要的部分干扰。 (2)保护用户界面的明确性。 即可以使用户不阅读使用手册也可以使用应用程序。这就要求在设计用户界面及 窗体时的菜单或命令按钮等名称应能够见名知意，或者当鼠标指向命令按钮时，弹出 一个标签来显示命令功能提示说明。 (3)使用用户所熟悉的设计元素。 在用户界面及窗体设计的过程中，要尽可能使用用户所熟悉的设计元素。如 windows 应用程序中经常使用的“文件”菜单中的“打开，保存，退出”命令；“编 辑”菜单中的“剪切，复制，粘帖”命令等。不要擅自修改或增加这些已经具备相对 固定功能的元素，否则会引起用户的不便。 计算机在无机材料工厂中的应用程序设计说明书 8 4.24.2 登录界面设计登录界面设计 功能：输入用户名、密码后即可进入系统；可试三次，每次输出错误，均有提 示，且最后一次输入不正确，则退出登录系统。 （名称）text1text1 text skj caption 配料计算lable1 autosizetrue caption登陆账号：label2 autosizetrue caption登录密码label3 autosizetrue caption验证码label4 autosizetrue caption看不清楚换一张label5 autosizetrue lable6caption设计者 计算机在无机材料工厂中的应用程序设计说明书 9 autosizetrue caption沈凯健 b 材料 081 0810201111 lable7 autosizetrue text2（名称）password command1caption登陆 command2caption取消 command3caption退出 4.34.3 主界面设计主界面设计 功能：通过下拉菜单，可调用各配料计算界面，可进行系统说明，用户名、密码 的修改，可设计帮助文件。 4.44.4 配料计算界面设计配料计算界面设计 功能： 计算机在无机材料工厂中的应用程序设计说明书 10 a)输入原料及煤灰的干燥基化学成分、煤的工业分析、煤的热值、煤灰沉落率及 孰料热耗，设定孰料的三率值； b)计算原料配合比； c)输出原料干基配合比、湿基配合比，生料及孰料化学成分、孰料矿物组成、碳 酸钙滴定值。 所有的 labelautosizetrue frame1caption燃料与热耗 frame2caption熟料三率值 frame3caption配料计算结果 frame4caption原料化学成分 frame5caption熟料矿物组成 frame6caption生料碳酸钙滴定值 (名称)cmdjscommand1 caption计算 (名称)cmdqccommand2 caption清除 (名称)cmdbccommand3 caption保存 (名称)cmdtccommand4 caption退出 form7caption四种原料和校正原料的配 料 texttext“ texttext* lbl2caption燃煤值 lbl3caption煤灰分 lbl4caption沉落率 lbl5caption熟料热耗 lbl6caption煤灰掺量 lbl10caption目标值 lbl11caption计算值 lbl12caption误差 lbl7captionkh lbl8captionsm 计算机在无机材料工厂中的应用程序设计说明书 11 lbl9captionim lbl16caption水分 lbl17caption干基配比 lbl18caption湿基配比 lbl19(0)caption石灰石 lbl19(1)caption粘土 lbl19(2)caption铁粉 lbl19(3)caption校正料 lbl19(4)caption煤 label2caption原料 label26captionloss label27captioncao label28captionsio2 label29captional2o3 label30captionfe2o3 label31captionmgo label32captionso3 label33captioncaf2 label34captiontotal lbl11(0)caption石灰石 lbl11(1)caption粘土 lbl11(2)caption铁粉 lbl11(3)caption校正料 lbl11(4)caption煤灰 lbl11(5)caption熟料 label35captionc3s label36captionc2s label37captionc3a label38captionc4af label39captiontc= 计算机在无机材料工厂中的应用程序设计说明书 12 计算机在无机材料工厂中的应用程序设计说明书 13 5 主要程序代主要程序代码说码说明明 5.15.1 数据输入数据输入 5.1.1 录入煤热值 qnet、灰份 aad、沉落率 s，熟料热耗 q qnet = txt1.text aad = txt2.text s = txt3.text q = txt4.text 5.1.2 熟料三率值 kh、sm 和 im kh = val(txt6.text) sm = val(txt7.text) im = val(txt8.text) 5.1.3 录入原料及煤的含水率 for i = 1 to 5 w(i) = val(text1(i - 1) * 3).text) next i 5.1.4 录入熟料中所需 so3、caf2 的量 gcclval(text7(9 * (8 - 1) + 6) gbclval(text7(9 * (8 - 1) + 7) 5.25.2 数据处理数据处理 5.2.1 计算煤灰、石膏及萤石的掺入量 ga(q*aad*s)/(qnet*100) gc(gcclga*b(5,6)/100)*100/b(6,6) gbgbcl*100/b(7,7) 5.2.2 配料方程的系数计算 设以生产 100kg 熟料，原料 1、原料 2、原料 3、原料 4 的灼烧基需要量分别为 x(1)、 x(2)、x(3)、x(4)。 for i = 1 to 4 qa(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) qa(2, i) = sm * (b(i, 3) + b(i, 4) - b(i, 2) qa(3, i) = im * b(i, 4) - b(i, 3) qa(4, i) = 1 next i qb(1) = ga * (b(5, 1) - 2.8 * kh * b(5, 2) - 1.65 * b(5, 3) - 0.35 * b(5, 4) - 0.7 * b(5, 6) 计算机在无机材料工厂中的应用程序设计说明书 14 qb(2) = ga * (b(5, 2) - sm * (b(5, 3) + b(5, 4) qb(3) = ga * (b(5, 3) - im * b(5, 4) qb(4) = 100 - ga 5.2.3 解方程的程序调用 call solvqua(qa(), qb(), x() 5.2.4 熟料的主要化学成分计算 熟料的主要化学成分为 cao、sio2、al2o3、fe2o3、mgo、so3、caf2 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) / 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) / 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) / 100 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) / 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) / 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) / 100 caf2 = (b(1, 7) * x(1) + b(2, 7) * x(2) + b(3, 7) * x(3) + b(4, 7) * x(4) + b(5, 7) * ga) / 100 5.2.5 配料后熟料三率值计算 kh1=(cao-1.65al2o3-0.35fe2o3-0.70so3)/(2.8sio2) sm1=sio2/(al2o3+fe2o3) im1=al2o3/fe2o3 5.35.3 数据输出数据输出 5.3.1 原料配比 (1)干基原料及燃料配比 for i = 1 to 5 xo(i) = x(i) * 100 / (100 - a(i, 1) next i 燃料量: xo(5) = q * 100 / qnet text1(13).text = xo(5) 计算机在无机材料工厂中的应用程序设计说明书 15 湿基原料配比 for i = 1 to 5 xw(i) = xo(i) * 100 / (100 - w(i) next i text1(14).text = xw(5) (2)用文本框数组输出原燃料配比 for i = 1 to 4 text1(i - 1) * 3 + 1).text = xo(i) text1(i - 1) * 3 + 2).text = xw(i) next i 5.3.2 孰料的矿物成分 (1)熟料的矿物成分 c3s=3.8*(3*kh-2)*sio2 c2s=8.61*(1-kh)*sio2 c3a=2.65*al2o3-1.69*fe2o3 c4af=3.04*fe2o3 (2)用文本框输出熟料的矿物成分 txt15.text = c3s: txt16.text = c2s txt17.text = c3a: txt18.text = c4f 5.3.3 生料碳酸钙滴定值 (1)生料中的 cao 与 mgo 的量 cao = (a(1, 2) * xo(1) + b(2, 2) * xo(2) + a(3, 2) * xo(3) + b(4, 2) * xo(4) / (xo(1) + xo(2) + xo(3) + xo(4) / 100 mgo = (a(1, 6) * xo(1) + b(2, 6) * xo(2) + a(3, 6) * xo(3) + b(4, 6) * xo(4) / (xo(1) + xo(2) + xo(3) + xo(4) / 100 (2)生料的碳酸钙滴定值 tcaco3=1.785 * cao + 2.48 * mgo (3)用文本框输出生料的碳酸钙滴定值 txt19.text = tcaco3 5.3.4 用文本框输出孰料化学成分 text9(45) = “ text9(46) = format(cao, “#0.00“) text9(47) = format(sio2, “#0.00“) text9(48) = format(al2o3, “#0.00“) text9(49) = format(fe2o3, “#0.00“) 计算机在无机材料工厂中的应用程序设计说明书 16 text9(50) = format(mgo, “#0.00“) text9(51) = format(so3, “#0.00“) text9(52) = format(caf2, “#0.00“) text9(53) = format(cao + sio2 + al2o3 + fe2o3 + mgo + so3 + caf2), “#0.00“) 5.3.5 用文本框输出三率值 kh = (cao - 1.65 * al2o3 - 0.35 * fe2o3 - 0.7 * so3) / (2.8 * sio2) sm = sio2 / (al2o3 + fe2o3) im = al2o3 / fe2o3 txt9.text = kh1 txt10.text = sm1 txt11.text = im1 txt12.text = kh1 - kh txt13.text = sm1 - sm txt14.text = format(im - im1), “#0.00“) 5.4 数据保存 private sub cmdbc_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(lbl11(i - 1).caption); for j = 0 to 8 print #1, tab(7 * j + 6); cstr(text9(9 * (i - 1) + j); next j print #1, 计算机在无机材料工厂中的应用程序设计说明书 17 next i print #1, print #1, “2.燃料与热耗“ print #1, tab(1); “煤热值：“; cstr(txt1.text); “kj/kg 煤“; tab(25); “煤灰份：“; cstr(txt2.text); “kg/kg 煤“ print #1, tab(1); “沉落率：“; cstr(txt3.text); “%“; tab(25); “热耗：“; cstr(txt4.text); “kj/kg 熟 料“ print #1, print #1, “3.熟料三率值“ print #1, tab(1); “设定值“; tab(5); “kh：“; cstr(txt6.text); tab(15); “sm：“; cstr(txt7.text); tab(25); “im：“; cstr(txt8.text) print #1, tab(1); “计算值“; tab(5); “kh：“; cstr(txt9.text); tab(15); “sm：“; cstr(txt10.text); tab(25); “im：“; cstr(txt11.text) print #1, tab(1); “误差值“; tab(5); “kh：“; cstr(txt12.text); tab(15); “sm：“; cstr(txt13.text); tab(25); “im：“; cstr(txt14.text) print #1, print #1, “4.配料计算结果“ print #1, tab(1); “原 料“; tab(8); “水 分“; tab(15); “干基配比“; tab(22); “湿基配比“ for i = 0 to 4 print #1, tab(1); lbl19(i).caption; tab(8); text1(i * 3).text; tab(17); text1(i * 3 + 1).text; tab(28); text1(i * 3 + 2).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(text9(9 * (5 - 1) + i); next i print #1, print #1, “(2)熟料矿物成分“ print #1, tab(1); “c3s=“; cstr(txt15); tab(11); “c2s=“; cstr(txt16); tab(21); “c3a=“; cstr(txt17); tab(31); “c4af=“; cstr(txt18) print #1, 计算机在无机材料工厂中的应用程序设计说明书 18 print #1, “6.生料碳酸钙滴定值“ print #1, “tcaco3=“; cstr(txt19) close #1 end sub 计算机在无机材料工厂中的应用程序设计说明书 19 设计总结设计总结 时间过的真快，转眼结束了 vb 学习。本次学习，在紧张忙碌中，有了许多收 获。本次学习也是学业的一次转折，现在此次学习总结如下，以便完善提高。 一，以认真的态度学习 新时代要求学生要不断更新充实自己的学识,要有终身学习的观念,具备渊博的知 识和多方面的才能对每一位学生来说很重要。因为我们的产品会说话。所以我们要努 力学习，把我们的知识用到工作中去。 二，以满腔的热情学习 著名心理学家布鲁纳认为:“认知是一个过程,而不是一个结果。“所以我们在学习的 过程中把学习的重点放在了学与践的结合上，在过程中升华。 本次学习完成了我们知识的提升，使我们更有底气的面对未来。在此要感谢蔡老 师和各位同学对我的帮助，谢谢。 计算机在无机材料工厂中的应用程序设计说明书 20 参考文献 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. 计算机在无机材料工厂中的应用程序设计说明书 21 致致 谢谢 感谢蔡树元、俞平胜老师，感谢田超、黄金桥等。 计算机在无机材料工厂中的应用程序设计说明书 22 附录附录：程序代码 private sub cmdok_click() if cmblogin.text = “ then msgbox “请选择一个用户名。“, vbinformation, “系统提示“ cmblogin.setfocus txtlogin.text = “ exit sub elseif txtlogin.text = “ then msgbox “请输入您的密码。“, vbinformation, “系统提示“ txtlogin.setfocus exit sub end if static n as integer n = n + 1 if n = 1 or n = 2 then if cmblogin.text “567“ then msgbox “对不起，您输入的密码错误，请重新输入“ exit sub else frm2.show unload form1 end if elseif n = 3 then msgbox “对不起，您已经试过三次，退出本系统！“ end end if end sub private sub cmdcancel_click() cmb1.text = “ text1.text = “ end sub private sub cmdexit_click() end end sub private sub fom1_click() frm3.show unload me end sub private sub fom2_click() frm4.show unload me end sub private sub fom3_click() frm5.show unload me end sub private sub fom4_click() frm6.show unload me end sub private sub fom5_click() frm7.show unload me end sub private sub fom6_click() frm8.show unload me end sub private sub 退出_click() end 计算机在无机材料工厂中的应用程序设计说明书 23 end sub dim im0 as single, m as single dim i as integer, j as integer 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.原材料的化学成分“ 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 7 print #1, tab(1); cstr(label22(i - 1).caption); for j = 0 to 8 print #1, tab(7 * j + 6); cstr(text7(9 * (i - 1) + j); next j print #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).text); tab(15); “sm：“; cstr(txtsm(0).text); tab(25); “im：“; cstr(txtim(0).text) print #1, tab(1); “计算值“; tab(5); “kh：“; cstr(txtkh(1).text); tab(15); “sm：“; cstr(txtsm(1).text); tab(25); “im：“; cstr(txtim(1).text) print #1, tab(1); “误差值“; tab(5); “kh：“; cstr(txtkh(2).text); tab(15); “sm：“; cstr(txtsm(2).text); tab(25); “im：“; cstr(txtim(2).text) print #1, print #1, “4.配料计算结果“ print #1, tab(1); “原 料“; tab(8); “水 分“; tab(15); “干基配比“; tab(22); “湿基配比“ for i = 0 to 6 print #1, tab(1); label17(i).caption; tab(8); text3(i).text; tab(17); text5(i).text; tab(28); text6(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(text7(9 * (8 - 1) + i); next i print #1, print #1, “(2)熟料矿物成分“ print #1, tab(1); “c3s=“; cstr(text8(0); tab(11); “c2s=“; cstr(text8(1); tab(21); “c3a=“; cstr(text8(2); tab(31); “c4af=“; cstr(text8(3) print #1, print #1, “6.生料碳酸钙滴定值“ print #1, “tcaco3=“; cstr(text2) close #1 end sub private sub cmdjs_click() qnet = text1(0).text aad = text1(1).text s = text1(2).text q = text1(3).text kh = txtkh(0).text sm = txtsm(0).text im = txtim(0).text 计算机在无机材料工厂中的应用程序设计说明书 24 for i = 1 to 7 for j = 1 to 8 a(i, j) = val(text7(9 * (i - 1) + j - 1).text) a(i, 9) = a(i, 9) + a(i, j) next j text7(9 * (i - 1) + 8).text = format(a(i, 9), “#0.00“) next i for i = 1 to 7 w(i) = text3(i - 1).text next i gccl = val(text7(9 * (8 - 1) + 6) gccl 指 100kg 熟料中所需 so3 量，kgso3/100kg 熟料 gbcl = val(text7(9 * (8 - 1) + 7) gbcl 指 100kg 熟料中所需 caf2 量，kg caf2/100kg 熟料 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 ga = (q * aad * s) / (qnet * 100) 指 100kg 熟料中掺入的煤灰量，kg 煤灰/100kg 熟料 gc = (gccl - ga * b(5, 6) / 100) * 100 / b(6, 6) gc 指 100kg 熟料中掺入的石膏量，kg 石膏/100kg 熟料 b(5,6)、b(6,6)分别指 100kg 煤灰或石膏中所含 so3 量 gb = gbcl * 100 / b(7, 7) gb 指 100kg 熟料中掺入的萤石量，kg 萤石/100kg 熟料 b(7,7)分别指 100kg 萤石中所含 caf2 量 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) - 1.65 * b(5, 3) - 0.35 * b(5, 4) - 0.7 * b(5, 6) + gc * (b(6, 1) - 2.8 * kh * b(6, 2) - 1.65 * b(6, 3) - 0.35 * b(6, 4) - 0.7 * b(6, 6) + gb * (b