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

此文档收集于网络 如有侵权 请联系网站删除 精品文档 材料工程学院 程 序 设 计 说 明 书 计算机在无机材料工厂中的应用 专专 业业 学生姓名学生姓名 班班 级级 学学 号号 指导教师指导教师 完成日期完成日期 此文档收集于网络 如有侵权 请联系网站删除 精品文档 目目 录录 1 绪论绪论 1 1 11 1 设计目的与意义设计目的与意义 1 1 21 2 设计任务及目标设计任务及目标 1 2 程序程序设计设计思路思路 3 2 12 1 计算依据计算依据 3 2 22 2 计算步骤计算步骤 3 2 32 3 编程原理编程原理 4 3 程序程序设计设计框框图图 6 4 软软件运行界面件运行界面设计设计 7 4 14 1 概述概述 7 4 24 2 登录界面设计登录界面设计 7 4 4 3 3 主界面设计主界面设计 8 4 44 4 配料计算界面设计配料计算界面设计 9 5 主要程序代主要程序代码说码说明明 11 5 15 1 数据输入数据输入 11 5 25 2 数据处理数据处理 11 5 35 3 数据输出数据输出 13 5 45 4 数据保存数据保存 14 设计总结设计总结 16 参考文献参考文献 17 致致谢谢 18 附附录录 19 此文档收集于网络 如有侵权 请联系网站删除 精品文档 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 语言进行配料机算 可以有以下特点 一是界面友好 甚至连不懂计算机的人都可以根据屏幕上的提示输入数据 完成计算任务 二是模型 简单 只要稍具有一定的配料知识 都能看懂原理 编辑相应程序代码 实现所需功 能 三是计算快捷 简单 准确 高效 能够正确指导生产 1 21 2 设计任务及目标设计任务及目标 1 2 1 设计任务 四种原料 石灰石 粘土 铁粉 煤灰 加矿化剂 萤石 和校正原料的配料 此文档收集于网络 如有侵权 请联系网站删除 精品文档 1 2 2 设计目标 利用 VB 语言准确的计算出熟料的三率值 熟料的化学成分 熟料可能的矿物 成分 干原料的重量百分比 湿原料的重量百分比 生料的碳酸钙滴定值等数值 1 2 3 计算应得的结果 1 熟料的三率值 KH SM IM 2 熟料的化学成分 3 熟料可能的矿物成分 4 干原料的重量百分比 5 湿原料的重量百分比 6 生料的碳酸钙滴定值 此文档收集于网络 如有侵权 请联系网站删除 精品文档 2 程序程序设计设计思路思路 2 12 1 计算依据计算依据 2 1 1 熟料三率值计算 1 石灰饱和系数 IM 0 64 2 33232 2 8SiO 0 70SOO0 35FeO1065AlCaO 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 Al2O3 IM Fe2O3 SiO2 SM Al2O3 Fe2O3 CaO SiO2 Al2O3 Fe2O3 2 1 3 煤灰掺入量计算 4 adnet ad A 10 Q Sq A g 式中 gA 煤灰掺入量 kg 100kg 熟料 q 熟料热耗 kJ kg 熟料 Aad 燃料中灰分含量 S 煤灰沉落率 Qnet ad 燃料发热量 kJ kg 熟料 2 1 4 熟料可能的矿物成分计算 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 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 熟料的主要化学成分计算 6 配料后熟料三率值计算 2 2 3 计算结果输出 1 原料配比 2 熟料的矿物成分 3 生料的碳酸钙滴定值 2 32 3 编程原理编程原理 此处介绍的编程原理以四种原料 石灰石 粘土 铁粉 煤灰 加矿化剂 萤 石 和校正原料的配料为例 其他可根据原料种类情况进行增减 假定 以萤石为矿化剂 生料中 CaF2只由应试提供 生料中 SO3仅由煤提供 煅烧过程中的损失 CaF2 SO3忽略不计 2 3 1 煤的热值 Qnet 灰份 Aad 沉落率 S 熟料热耗 Q 以及熟料三率值 KH SM IM 等用文本框控件录入数据 方法 X 文本框名 Text 此处的 X 为 Qnet Aad S KH SM IM 等 干燥基原料 煤灰 矿化剂化学成分的录入 表 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 熟料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 6 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 文本框控件数组名 9 I 1 8 Text A I 9 Next I 式中 A I J 表示某一物料干燥基某种化学成分的值 I 表示原料 煤灰 矿 化剂种类 数值范围为 1 6 J 表示化学成分的种类 数值范围为 1 9 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 7 1 B 7 2 B 7 3 B 7 4 B 7 5 B 7 6 B 7 7 B 7 8 式中 B I J 表示某一物料灼烧基某种化学成分的值 I 表示原料 煤灰 矿化剂种类 数值范围为 1 7 J 表示化学成分的种类 数值范围为 1 8 2 3 3 煤灰及萤石掺入量计算 煤灰掺入量 GA Q Aad S Qnet 100 萤石掺入量 GB GBcl 100 B 6 7 式中 GA GB 指 100kg 熟料中掺入的煤灰量及萤石量 kg 煤灰 100kg 熟料 Q 表示熟料的热耗 Qnet表示煤的热值 S 表示煤灰沉落率 Aad表示煤的灰分 GBcl 表示熟料中 CaF2含量 B 6 7 指 100kg 萤石中所含 CaF2量 此文档收集于网络 如有侵权 请联系网站删除 精品文档 开始 输入原燃料化学成分 A I J 煤热值 灰分 等 计算煤灰 莹石掺入量 GA GB 计算方程系数 结 束 输入 KH SM IM 热 耗 四组分配料 用全主元高斯 约当 Gauss Jordan 消去法求解线性方程组 AX B 输出计算结果 3 程序程序设计设计框框图图 程序可分为三个部分 第一部分为数据输入 包括配料计算所需数据和物料平衡 计算所需数据 第二部分为计算部分 反复输入不同的 KH SM IM 值 直到计算 出满意的结果为止 第三部分为输出部分 输出所有配料计算数据和物料平衡表 程 序设计简单框图见下页 代数计算法 此文档收集于网络 如有侵权 请联系网站删除 精品文档 4 软软件运行界面件运行界面设计设计 4 14 1 概述概述 通过各种控件设置登录界面 系统主界面 配料计算界面 要求界面友好 可 操作性强 交互性好 具体如下 1 保持用户界面及窗体的简洁性 在用户界面及窗体设计的过程中 要尽可能简化 要注意不要为追求新奇 同时 在屏幕上显示许多图形 否则会带来混乱 降低应用程序的可操作性 另外只有在用 户需要时 才显示图形或表格 在设计用户界面及窗体时 还要考虑到用户的使用习惯 即一般从左到右 从上 到下扫描窗体 并且相对于黑白颜色和字符 人们的视觉注意力更容易被彩色和图形 所吸引 但同时要注意保证用户界面上的关键部分不能被不重要的部分干扰 2 保持用户界面的明确性 即可以使用户不阅读使用手册也可以使用应用程序 这就要求在设计用户界面及 窗体时的菜单或命令按钮等名称应能够见名知义 或者当鼠标指向命令按钮时 弹出 一个标签来显示命令功能提示说明 3 使用用户所熟悉的设计元素 在用户界面及窗体设计的过程中 要尽可能使用用户所熟悉的设计元素 如 Windows 应用程序中经常使用的 文件 菜单中的 打开 保存 退出 命令 编 辑 菜单中的 剪切 复制 粘贴 命令等 不要擅自修改或增加这些已经具备相对 固定功能的元素 否则会引起用户的不便 4 24 2 登录界面设计登录界面设计 登录界面的功能 输入正确的用户名 密码后即可进入系统 可试三次 每次输 入错误 均有提示 若用户名错误 按确定按钮则提示 该用户不存在 请重新输入 若密码错误 按确定按钮则提示 该密码错误 请重新输入 且最后一次输入不正 确 则提示 三次过后 将退出系统 从而推出本登录系统 按取消按钮则清除 Como1 和 Text1 中的字符 按退出按钮则退出登录界面 设计登录路界面时所涉及的控件有 标签 文本框 组合框 命令按钮等 控件目的名称属性 Caption 配料计算系统 ControlBox False BorderStyle 1 Fixed Single Form提供一个窗 体 Frm1 Picture 树叶 jpg 此文档收集于网络 如有侵权 请联系网站删除 精品文档 Caption 配料计算Label1 BackStyle 0 Transparent Caption 用户名Label2 BackStyle 0 Transparent Caption 密码Label3 BackStyle 0 Transparent Caption 设计者 朱杰 Label用于说明 Label4 BackStyle 0 Transparent Text ComoBox列表框和文 本框的组合 Como1 List zhujie Text用于文本输 入和显示 Text1 Text Command1Caption 确定 Command2Caption 取消 Command单击执行命 令 Command3Caption 退出 4 4 3 3 主界面设计主界面设计 主窗体界面的功能 登录界面后出现第二个窗体 这个窗体主要以图的形式介绍 水泥的生产工艺流程 通过下拉菜单 可调节各配料计算界面 可进行系统说明 用 户名 密码的修改 可设计帮助文件 设计主窗体界面时所涉及的控件有 可用普通窗体或多文本窗体以及图片框 下 拉菜单可用菜单编辑器进行 控件目的名称属性 此文档收集于网络 如有侵权 请联系网站删除 精品文档 Caption Form2 WindowState 2 Maximized Form提供一个窗体Frm2 Pictrue 水泥工艺流程图 jpg 4 44 4 配料计算界面设计配料计算界面设计 水泥配料计算界面的功能 1 输入原料及煤灰的干燥基化学成分 煤的工业分析 煤的热值 煤灰沉落 率及熟料热耗 设定熟料的三率值 2 计算原料配合比 3 输出原料干基干及配合比 湿基配合比 生料及熟料化学成分 熟料矿物 组成 碳酸钙滴定值 设计配料计算界面时所涉及的控件有 标签 文本框 框架 命令按钮等 控件目的名称属性 Caption 四种原料加复合矿化剂 萤石 石膏 和校正原料的配 料 Form提供一个窗体Frm36 WindowState 2 Maximized Label用于说明Label1Caption 水泥配料计算 Frame1Caption 燃料与热耗 Frame2Caption 熟料的三率值 Frame3Caption 配料计算结果 Frame4Caption 熟料矿物组成 Frame5Caption 生料碳酸钙滴定值 Frame用于组合控件 Frame6Caption 原料化学成分 此文档收集于网络 如有侵权 请联系网站删除 精品文档 TxtText Text用于文本输入 和显示TxtText Command1Caption 计算 Command2Caption 清除 Command3Caption 保存 command单击执行命令 Command4Caption 退出 此文档收集于网络 如有侵权 请联系网站删除 精品文档 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 Txt6 0 Text SM Txt6 3 Text IM Txt6 6 Text 5 1 3 录入干燥基原料 煤灰 矿化剂化学成分的录入 For I 1 to 6 For J 1 to 8 A I J Txt11 9 I 1 J 1 Text A I 9 A I 9 A I J Next J Txt11 9 I 1 8 Text A I 9 Next I 5 1 4 录入原料及煤的含水率 For I 1 to 7 W I Txt10 I 1 Text Next I 5 1 5 录入熟料中所需 SO3 CaF2的量 GCcl Txt11 9 7 1 6 GBcl Txt11 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 计算煤灰 石膏及萤石的掺入量 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 70 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 70 B 5 6 GB B 7 1 2 8 KH B 7 2 1 65 B 7 3 0 35 B 7 4 0 70 B 7 6 BC 2 GA B 5 2 SM B 5 3 B 5 4 GB B 7 2 SM B 7 3 B 7 4 BC 3 GA B 5 3 IM B 5 4 GB B 7 3 IM B 7 4 BC 4 100 GA GB 5 2 4 解方程的程序调用 Call SolvQua BB BC X 5 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 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 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 配料后熟料三率值计算 KH CaO 1 65Al2O3 0 35Fe2O3 0 70SO3 2 8SiO2 SM SiO2 Al2O3 Fe2O3 IM Al2O3 Fe2O3 5 35 3 数据输出数据输出 5 3 1 原料配比 A 干基原料配比 X0 1 X 1 100 100 A 1 1 X0 2 X 2 100 100 A 2 1 X0 3 X 3 100 100 A 3 1 X0 4 X 4 100 100 A 4 1 X0 5 GB X0 6 Q 100 Qnet B 湿基原料配比 XW 1 X0 1 100 100 W 1 XW 2 X0 2 100 100 W 2 XW 3 X0 3 100 100 W 3 XW 4 X0 4 100 100 W 4 XW 5 X0 5 100 100 W 5 XW 6 X0 6 100 100 W 6 5 3 2 熟料的三率值 2 33232 2 8SiO 0 70SOO0 35FeO1065AlCaO KH 3232 2 OFeOAl SiO SM 32 32 OFe OAl IM 5 3 3 熟料的化学成分 CaO SiO2 Al2O3 Fe2O3 Fe2O3 1 352 65SM1 1 IMSM 2 8KH Al2O3 IM Fe2O3 SiO2 SM Al2O3 Fe2O3 CaO SiO2 Al2O3 Fe2O3 5 3 4 熟料的矿物成分 C3S 3 8 3 KH 2 SiO2 此文档收集于网络 如有侵权 请联系网站删除 精品文档 C2S 8 61 1 KH SiO2 C3A 2 65 Al2O3 1 69 Fe2O3 C4AF 3 04 Fe2O3 5 3 6 生料的碳酸钙滴定值 TCaCO3 1 785 CaO 2 48 MgO 5 45 4 数据保存数据保存 Private Sub Cmd3 Click Dim i As Integer j As Integer CommonDialog1 Filter All Files Text txt txt CommonDialog1 FilterIndex 2 CommonDialog1 DefaultExt txt CommonDialog1 ShowSave Open CommonDialog1 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 LblRM i 1 Caption For j 0 To 8 Print 1 Tab 7 j 6 CStr Txt11 9 i 1 j Next j Print 1 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 0 Text Tab 15 SM CStr Txt6 3 Text Tab 25 IM CStr Txt6 6 Text Print 1 Tab 1 计算值 Tab 5 KH CStr Txt6 1 Text Tab 15 SM CStr Txt6 4 Text Tab 25 IM CStr Txt6 7 Text Print 1 Tab 1 误差值 Tab 5 KH CStr Txt6 2 Text Tab 15 SM CStr Txt26 5 Text Tab 25 IM CStr Txt6 8 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 LblRMl i Caption Tab 8 Txt10 3 i 1 Text Tab 17 Txt10 3 i 1 1 Text Tab 28 Txt10 3 i 1 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 6 i 1 1 CStr Txt11 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 TxtTc Close 1 End Sub 此文档收集于网络 如有侵权 请联系网站删除 精品文档 设计总结设计总结 通过此次课程设计 使我更加扎实的掌握了有关 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 此文档收集于网络 如有侵权 请联系网站删除 精品文档 致致谢谢 此次学习让我们很好地利用 Visual Basic 程序设计语言来解决无机非金属材料专 业方面实际问题 进一步提高我们的计算机应用的能力 同时我们也很好地掌握 Visual Basic 程序设计语言知识和上机调试 运行程序的技能 在此 我要感谢蔡树元老师和俞平胜老师对我们的指导 感谢黄佳琪唐婷婷潘汉 林等同学对我的帮助 感谢学校机房提供我们一个良好的学习地点 让我能安心的上 机 及时地完成此次学习任务 此文档收集于网络 如有侵权 请联系网站删除 精品文档 附附录录 程序代码 Option Explicit Option Base 1 Private Sub Cmd1 Click Dim i As Integer j As Integer m As Single Qnet As Single Aad As Single S As Single Q As Single Dim GCcl As Single GBcl As Single GA As Single GB As Single Dim CaO As Single Al2O3 As Single Fe2O3 As Single MgO As Single SO3 As Single CaF2 As Single SiO2 As Single Dim C3S As Single C2S As Single C3A As Single C4AF As Single TCaCO3 As Single Dim A 7 9 As Single W 6 As Single BB 4 4 As Single BC 4 As Single X 6 As Single X0 6 As Single XW 6 As Single B 6 8 As Single Dim KHM As Single SMM As Single IMM As Single KHJ As Single SMJ As Single IMJ As Single 1 录入煤热值 Qnet 灰份 AAd 沉落率 S 熟料热耗 Q Qnet Txt1 Text 指 1kg 煤的发热量 kJ kg 煤 Aad Txt2 Text 指 100kg 煤燃烧所剩的煤灰 kg 煤灰 100kg 煤 S Txt3 Text 指 100kg 煤灰中成为熟料的量 kg 煤灰 100kg 煤灰 Q Txt4 Text 指 1kg 熟料所需的热耗 kJ kg 熟料 2 熟料三率值 KH SM 和 IM KHM Txt6 0 Text 指熟料的 KH 值 SMM Txt6 3 Text 指熟料的 SM 值 IMM Txt6 6 Text 指熟料的 IM 值 3 录入干燥基原料 煤灰 矿化剂化学成分的录入 For i 1 To 6 For j 1 To 8 A i j Txt11 9 i 1 j 1 Text A i 9 A i 9 A i j Next j Txt11 9 i 1 8 Text Format A i 9 0 00 Next i 4 录入原料及煤的含水率 For i 1 To 6 W i Txt10 3 i 1 Text Next i 式中 W I 表示某一原料的含水率 即 100kg 原料中所含水分的质量 W 5 表示燃料 煤 的含水百分数 即 100kg 燃料中所含水分的质量 I 表示原料种类 数值范围为 1 4 5 表示为燃料 5 录入熟料中所需 SO3 CaF2 的量 GCcl Val Txt11 9 7 1 6 GCcl 指 100kg 熟料中所需 SO3 量 kgSO3 100kg 熟料 GBcl Val Txt11 9 7 1 7 GBcl 指 100kg 熟料中所需 CaF2 量 kg CaF2 100kg 熟料 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 式中 B I J 表示某一物料灼烧基某种化学成分的值 I 表示原料 煤灰 矿化剂种类 数值范围为 1 6 J 表 示化学成分的种类 数值范围为 1 8 2 计算煤灰 萤石的掺入量 GA Q Aad S Qnet 100 指 100kg 熟料中掺入的煤灰量 kg 煤灰 100kg 熟料 Txt5 Text Format GA 0 00 煤灰掺量 GB GBcl 100 B 6 7 GB 指 100kg 熟料中掺入的萤石量 kg 萤石 100kg 熟料 B 6 7 分别指 100kg 萤石中所含 CaF2 量 3 配料方程的系数计算 For i 1 To 4 BB 1 i 2 8 KHM B i 2 1 65 B i 3 0 35 B i 4 0 7 B i 6 B i 1 BB 2 i SMM B i 3 B i 4 B i 2 BB 3 i IMM B i 4 B i 3 BB 4 i 1 Next i BC 1 GA B 5 1 2 8 KHM B 5 2 1 65 B 5 3 0 35 B 5 4 0 7 B 5 6 GB B 6 1 2 8 KHM B 6 2 1 65 B 6 3 0 35 B 6 4 0 7 B 6 6 此文档收集于网络 如有侵权 请联系网站删除 精品文档 BC 2 GA B 5 2 SMM B 5 3 B 5 4 GB B 6 2 SMM B 6 3 B 6 4 BC 3 GA B 5 3 IMM B 5 4 GB B 6 3 IMM B 6 4 BC 4 100 GA GB 4 解方程的程序调用 Call solvqua BB BC X 5 熟料的主要化学成分计算 熟料的主要化学成分为 CaO SiO2 Al2O3 Fe2O3 MgO SO3 CaF2 X 1 X 2 X 3 和 X 4 表示生产 100kg 熟料所 需灼烧基原料 1 2 3 和 4 的用量 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 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 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 Txt11 55 Text Format CaO 0 00 Txt11 56 Text Format SiO2 0 00 Txt11 57 Text Format Al2O3 0 00 Txt11 58 Text Format Fe2O3 0 00 Txt11 59 Text Format MgO 0 00 For i 55 To 61 m m Txt11 i Text Next i Txt11 62 Text m 6 配料后熟料三率值计算 KHJ CaO 1 65 Al2O3 0 35 Fe2O3 0 7 SO3 2 8 SiO2 SMJ SiO2 Al2O3 Fe2O3 IMJ Al2O3 Fe2O3 Txt6 1 Text Format KHJ 0 00 Txt6 4 Text Format SMJ 0 00 Txt6 7 Text Format IMJ 0 00 For i 1 To 3 Txt6 3 i 1 2 Text Format Txt6 3 i 1 Text Txt6 3 i 1 1 Text 0 00 Next i 计算结果输出 1 干基原料及燃料配比 X0 1 X 1 100 100 A 1 1 原料 1 X0 2 X 2 100 100 A 2 1 原料 2 X0 3 X 3 100 100 A 3 1 原料 3 X0 4 X 4 100 100 A 4 1 原料 4 X0 5 GB 萤石 X0 6 Q 100 Qnet 燃料量煤 2 湿基原料配比 XW 1 X0 1 100 100 W 1 原料 1 XW 2 X0 2 100 100 W 2 原料 2 XW 3 X0 3 100 100 W 3 原料 3 XW 4 X0 4 100 100 W 4 原料 4 XW 5 X0 5 100 100 W 5 萤石 XW 6 X0 6 100 100 W 6 燃料量煤 For i 1 To 6 用文本框数组输出原燃料配比 Txt10 3 i 1 1 Text Format X0 i 0 00 Txt10 3 i 1 2 Text Format XW i 0 00 Next i 1 熟料的矿物成分 C3S 3 8 3 KHJ 2 SiO2 C2S 8 61 1 KHJ SiO2 C3A 2 65 Al2O3 1 69 Fe2O3 C4AF 3 04 Fe2O3 2 用文本框输出熟料的矿物成分 TxtC3S 0 Text Format C3S 0 00 TxtC2S 0 Text Format C2S 0 00 TxtC3A 0 Text Format C3A 0 00 TxtC4AF 0 Text Format C4AF 0 00 3 生料的碳酸钙滴定值 此文档收集于网络 如有侵权 请联系网站删除 精品文档 1 生料中的 CaO 与 MgO 的量 CaO A 1 2 X0 1 A 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 式中 CaO MgO 表示生料中 CaO MgO 的百分含量 3 用文本框输出生料的碳酸钙滴定值 TxtTc Text Format TCaCO3 0 00 End Sub Private Sub Cmd2 Click Dim i As Integer Txt1 Text Txt2 Text Txt3 Text Txt4 Text Txt5 Text For i 1 To 9 Txt6 i 1 Text Next i For i 1 To 18 Txt10 i 1 Text Next i For i 1 To 63 Txt11 i 1 Text Next i TxtC3S 0 Text TxtC2S 0 Text TxtC3A 0 Text TxtC4AF 0 Text TxtTc Text End Sub Public Sub solvqua QA As Single QB As Single XS As Single Dim i As Integer j As Integer k As Integer gs As Integer js As Integer Dim d As Single t As Single n As Integer n UBound QB 1 ReDim js n For k 1 To n d 0 For i k To n For j k To n If Abs QA i j d Then d Abs QA i j js k j gs i End If Next j Next i For j k To n t QA k j QA k j QA gs j QA gs j t Next j t QB k QB k QB gs QB gs t For i 1 To n t QA i k QA i k QA i js k QA i js k t Next i t QA k k For j k 1 To n If QA k j 0 Then QA k j QA k j t End If Next j QB k QB k t For j k 1 To n 此文档收集于网络 如有侵权 请联系网站删除 精品文档 If QA k j 0 Then