铁矿石还原性能测定仪的设计与制作毕业论文.doc

1 错误 未找到引用源 错误 未找到引用源 111设计题目 铁矿石还原性能测定仪的设设计题目 铁矿石还原性能测定仪的设 计与制作计与制作 摘 要 炼铁技术可以看出一个国家的工业发展水平 我们国处于工业高速发展的 国家 尤其在冶金行业尤为迅速 但由于在冶金行业起步相对较晚 目前我国 的炼铁大部分还是采用高炉炼铁 而高炉炼铁中 还原反应是最重要的反应之 一 它影响着炼铁技术的经济指标 因而钢铁厂十分重视这一性能 铁矿石还 原性能测定实验能准确测检出铁矿石还原度 由于实验装置已使用多年 不能 满足现状这种高度自动化的社会需求 为此 我们对设备进行了创新设计 以 此来适应现代化生产 我们的设计是实现了使用微机实时绘图 与原设备相比 绘图更加精确 方便 数据保存和记录查阅也显得很简单易行 此外 实验可以自动进行 参 数调整 循环实验和无人看守 结束可提醒保存数据 关键字 VB 铁矿石还原度 数据采集 A D 转换 Abstract II Abstract Ironmaking technology can see a country s level of industrial development our country is in the rapid development of industry especially in the metallurgical industry is rapid but because in the metallurgical industry started relatively late at present our country mostly using blast furnace ironmaking And blast furnace ironmaking reduction reaction is one of the most important reactions it affects the ironmaking technology economic indicator and thus the steel factory attaches great importance to the performance The iron ore reduction performance test can accurately measure detectable reduction of iron ore because of the experimental device has been in use for many years can not satisfy the current situation this highly automated social demand for this we undertook to equipment innovation design in order to adapt to modern production Our design is realized by using microcomputer real time drawing compared with the original equipment drawing more accurate convenient data storage and data record access is also very simple In addition the experiment can be done automatically parameter adjustment cycle experiment and unguarded end can remind the save data Keywords VB iron ore reduction of data acquisition for A D conversion 目录 III 目录 摘 要 I ABSTRACT II 序 言 1 第 1 章 铁矿石及还原度常用检测方法 2 1 1 铁矿石还原性能测定仪设计目的及意义 2 1 2 铁矿石及其铁矿石还原性检测方法介绍 2 1 2 2 铁矿石还原性能检测方法 5 1 2 3 铁矿石还原性能检验方法 7 第 2 章 AREM 81 型还原度电测自动装置介绍 13 2 1 AREM 81 装置的工作原理 13 第 3 章 铁矿石还原性能测定仪的设计 16 3 1 测定过程中的定义和基本定理 16 3 1 1 定义 16 第 4 章 基于 VB 的上位机的设计 32 4 1 MSCOMM控件的属性 32 4 1 1MSCOMM控件的处理方式 32 4 1 3 MSCOMM控件的事件 38 4 2 VB 编程部分 40 4 2 1 FORM1 内容 40 4 2 2 FORM2 内容 48 4 2 3 FORM3 内容 49 4 2 4 FORM4 内容 53 4 2 5 FORM5 内容 56 4 2 6 MODULEL 内容 59 结论 60 谢 辞 62 参考文献 63 附录 一 65 附录 二 66 序 言 1 序序 言言 炼铁工艺是将含铁矿石还原成铁的过程 铁矿石在还原过程中各 项性能的 表现对炼铁工艺过程的技术经济指标会产生重要影响 ISO 组 织专门就铁矿石 还原过程的还原性能检测方法和装置制定了标准 铁矿石相对还原性能检测 ISO7215 该标准的检测方法的要点 取 18 20mm 粒度的铁矿试样500g 在 900 的加热炉中通还原气 30 CO 70 N2 加热还原180分钟 检测结束后冷 却称量 根据失重重 量计算出还原度指标 上述检测方法中的参数条件均固定不变 主要针对高炉法炼铁工艺 检测 装置仅就铁矿石在高炉还原条件下还原度指标进行检测分析 如欲评价铁矿石 还原过程其它方面的指标如铁矿试样的收缩率 铁矿试样料层的透气性等 需 要配备其它多种检测装置和专门的检测技术人员 上述检测方法对试验装置的 要求比较简单 单一 对其它特定工艺的模拟性不强 如当工艺提出要求在不 同加载载荷及还原气成分条件下的冶金性能检测时就无法满足其需求 河北联合大学电气工程学院 2 第 1 章 铁矿石及还原度常用检测方法 1 1 铁矿石还原性能测定仪设计目的及意义 炼铁分为高炉炼铁和非高炉炼铁 工艺不同其所用原料和反应过程不同 高炉炼铁中 还原反应是最重要的反应之一 还原反应又分为间接还原和直接 还原 本测定仪的设计是针对高炉炼铁间接还原的实验仪器 铁矿石是高炉炼铁的重要原料 但是由于经济价值和技术条件的限制 例 如 要求品位高 热稳定性好 国内铁矿石能直接入炉冶炼的很少 所以不得 不降低品位 首先将铁矿石进行选矿处理 然后人工制造成烧结矿 球团矿来 提高品位 改善热稳定性 烧结矿和球团矿是高炉炼铁更重要的原料 本仪器 不仅针对铁矿石 而且也适用于烧结矿和球团矿 铁矿石 包括烧结矿 球团矿 还原性能测定 其方法国家已制定了标准 我国也有相应的标准 标准号 GB T13241 91 该标准经过国内多个单位联合试 验 验证试验和专题研究 在 1990 年 10 月完成了起草 1991 年通过了国家标 准局的审批 1992 年 3 月颁布实施 本测定仪依据国家标准进行 随着对炼铁原料重要性的深入认识 现代高炉炼铁对铁矿石质量的要求越 来越高 1 含铁品位高 2 机械强度好 入炉粉末少 3 有良好的还原性 4 低 温还原粉化率低 5 化学成分稳定及粒度均匀 6 有较好的软化及熔滴性能 7 有害杂质少 所以不仅要求有满意的化学成分和在冷态有良好的物理性能 而且要求有良好的热态性能 即冶金性能 铁矿石的还原性能是铁矿石的冶金性能之一 炼铁厂非常重视这一性能 它明显影响炼铁技术经济指标 作为测定仪的设计学生 必须对铁矿石的还原 性能深刻认识 加深印象 通过本测定仪的设计达到 了解测定设备仪器 了 解实验方法和原理 观察还原失氧过程 加深对铁矿石的还原反应和还原性能 的认识 1 2 铁矿石及其铁矿石还原性检测方法介绍 1 2 1 铁矿石的分类和介绍 在地壳中含铁矿物种类很少 凡能在现代技术条件下较为经济的提出含铁 第 1 章 铁矿石及还原度常用检测方法 3 矿物的岩石称之为铁矿石 根据铁矿石的主要含铁矿物可以把铁矿石分为磁铁 矿 河北联合大学电气工程学院 4 石 赤铁矿石 褐铁矿石和菱铁矿石等四种类型 1 磁铁矿石 磁铁矿石主要的化学成分为 Fe O 理论含铁量为 72 4 磁铁矿也可看作 3 4 FeO Fe O 磁铁矿的晶体多为八面体 它的组成结构比较致密坚硬 一般成 2 3 块状或粒状 它的外表颜色为钢灰色和黑灰色 条痕色为黑色 磁铁矿的密度为 4 9 5 2 克 厘米 硬度为 5 5 6 5 它具有金属光泽但较 3 暗 并有磁性 因此比其它类型铁矿石易于分选 磁铁矿的脉石主要为石英 各种硅酸盐 如绿泥石 与碳酸盐 有时还含 有少量粘土 此外由于矿石中含有黄铁矿及磷灰石 有时有闪锌矿饥荒铜矿 所以一般磁铁矿含硫 磷均高 并且含有锌与铜 含钛和钒较多的磁铁矿叫钛磁铁矿和钒钛磁铁矿 地表层的磁铁矿由于氧化作用部分被氧化成赤铁矿 但仍保持磁铁矿的结 晶形态 这种矿石叫假象赤铁矿或半假象赤铁矿 根据磁铁矿和假象赤铁矿在 铁矿石中的含量不同 一般用 Fe FeO 的比值 即磁性率 来分类 全 Fe FeO 2 33 为纯磁铁矿矿石 全 Fe FeO 3 5 为磁铁矿矿石 全 Fe FeO 3 5 7 位半假象赤铁矿矿石 全 Fe FeO 7 为假象赤铁矿矿石 氧化程度很大 故已失去磁性 全 式中 Fe 矿石中全铁含量 全 FeO 矿石中氧化铁含量 硅酸铁矿及碳酸铁矿中含有 FeO 但这部分铁不具有磁性 所以磷铁矿 磁 性率为 1 4 黄铁矿 磁黄铁矿 磁性率 3 5 褐铁矿及镜铁矿都不能用磁 性率来衡量 磁铁矿结晶结构很致密 所以它的还原性比其它铁矿差 我国磁铁矿的贮量异常丰富 但大部分都系贫矿 含铁 20 40 入高炉 冶炼前要进行精选及造块 2 赤铁矿石 主要的含铁矿物为赤铁矿 化学式为 Fe O 含铁 70 含氧 30 它的 2 3 结晶外形为片状和板状集合体 片状表面有金属光泽 明亮如镜的叫镜铁矿 细小片状的叫云母片状赤铁矿 红土状赤铁矿 铁赭石 系红色粉末 没有光 泽 此外还有胶体沉积形式的鲕状 豆状和肾状等集合体 结晶的赤铁矿外表 颜色为钢灰色和铁黑色 其它为暗红色 但条痕色均为暗红色 第 1 章 铁矿石及还原度常用检测方法 5 赤铁矿的物理组织结构相差很悬殊 又非常致密的结晶到很松散的粉末 结晶的赤铁矿硬度达到 5 5 6 土状及粉状则硬度很低 赤铁矿的比重为 4 8 5 3 在赤铁矿始中往往含有 1 8 的残余磁铁矿以及部分风化而生成的褐铁矿 脉石常常为石英质 一般含硫 磷低 因此可用来冶炼低磷贝氏铁 赤铁矿还 原性好 天然的赤铁矿本身不带磁性 贫赤铁矿一般采用重选 磁化焙烧 磁选 浮选或者采用混合流程来处理 3 褐铁矿石 主要含铁矿物为含水的 Fe O 他的化学组成可用 mFe O nH O 来表示 2 3 2 3 2 根据所含结晶水的不同 褐铁矿可分为以下五种类型 水赤铁矿 2Fe O H O 含 5 32 结晶水 66 1 铁 2 3 2 针铁矿 Fe O H O 含 10 11 结晶水 62 9 铁 2 3 2 褐铁矿 2Fe O 3H O 含 14 39 结晶水 60 0 铁 2 3 2 黄针铁矿 Fe O 2H O 含 18 37 结晶水 57 2 铁 2 3 2 黄赭矿 Fe O 3H O 含 25 23 结晶水 52 2 铁 2 3 2 自然界的褐铁矿绝大部分以 2Fe O 3H O 形态存在 根据 X 光衍射的研 2 3 2 究 各种褐铁矿实际上只有一种结晶体 即针铁矿 Fe O H O 2FeO OH 2 3 2 的结晶体 褐铁矿的密度为 3 0 4 2 克 厘米 硬度 1 4 由于褐铁矿是其它铁矿风 3 化后生成的 所以质地松软 密度小 含水大 因此不宜直接入高炉 必须经 过焙烧或造块 为了提高褐铁矿的品位 往往采用重选和焙烧 磁选法 前者利用矿石和 粘土杂质密度不同而进行分离 后者通过磁化焙烧使 Fe O 变为 Fe O 并去结 2 33 4 晶水 然后通过磁选将矿石与脉石分离 4 菱铁矿石 主要含铁矿物为菱铁矿 其化学式为 FeCO 菱铁矿含 Fe48 2 FeO 3 62 1 CO 37 9 自然界中常见的一种是坚硬的菱铁矿 其外表颜色为带黄褐 2 色和灰色 风化后变为深褐色 条痕色为灰色或带黄色 玻璃光泽 密度 3 9 硬度 3 5 4 菱铁矿露出地表部分很容易风化成褐铁矿 在自然界分布较广的为粘土质 河北联合大学电气工程学院 6 菱铁矿 他是沉积于泥沙中的矿床 夹杂不少泥土与泥沙 有时还和泥碳状的 物质共生而呈黑色 被称为碳质铁矿 菱铁矿常夹杂有镁 锰 钙等碳酸盐 这些碳酸盐的结晶体都是同一类型 的菱面体 菱铁矿是一般含 Fe30 40 经过焙烧后 其含铁量显著增加 矿石也变得多孔 易破碎 其还原性也好 1 2 2 铁矿石还原性能检测方法 1 还原性 为了降低焦比 应尽可能以间接还原的方式从矿石中夺取氧 这要求入炉 矿石有良好的还原性 影响矿石还原性的主要因素是它本身的气孔率及矿物组成 铁矿石的还原 首先是还原气体能进入矿物的表面 颗粒小及开口微气孔高的矿石有助于还原 气体进入其内部并将其反应产物扩散出来 有较好的还原性 闭气孔使还原速 度下降并造成孔壁破裂的可能性 球团矿的气孔率比烧结矿高得多 因此还原 速率高而有较低的孔壁破裂 矿石的矿物组成及显微结构对其还原性有很大的影响 褐铁矿比赤铁矿还 原性高 而赤铁矿又比磁铁矿的还原性高 烧结过程形成铁酸钙 其还原性很 高 但铁橄榄石几乎是不还原的 矿石的显微结构对其还原性也有很大的影响 铁氧化物氧化过程由固相扩散及化学反应所形成的晶粒长大与晶桥联接结构 一般开口微气孔较多 对还原气体有较大的暴露面 这种结构都发生在高铁品 位的球团矿中 所以还原性较好 另一种矿石是液相结构 它是由低熔点的液 相粘结而成 其含铁矿物嵌入渣相的基体中 一般有较大闭气孔率 这种结构 妨碍还原气体进入铁矿物表面 因而还原性较低 目前所研究的 以发展易还 原硅铝铁酸钙 SFCA 粘结相为主的低温烧结新工艺以及多孔球团矿 其目的 是获得还原性良好的人造富矿 矿石还原性的表示方法是以矿石试样还原到一定时间内的失氧率来表示 也有用还原到 Fe O 时的还原速率来表示 即 或称还原指数 烧 xdt dR 40 结矿的还原性对于高炉冶炼的影响比较明显 图 1 1 表示烧结矿还原性的改善 第 1 章 铁矿石及还原度常用检测方法 7 图 1 1 1 烧结矿还原性改善对高炉操作线的影响 图 1 1 2 表示炉料还原指数的变化对高炉焦比的影响 2 对高炉冶炼的影响 铁矿石作为高炉炼铁的主要原料 其还原性的好坏直接影响炼铁的经济指 标 高炉冶炼时 易还原的铁矿石中含氧量大部分在高炉中上部被高炉煤气所 还原 称为间接还原 此时焦炭消耗较低 难还原的铁矿石中相当多的含氧量 要到高炉下部依靠碳的直接还原来完成 此时焦炭消耗高 为了降低焦比 应 尽可能以间接还原的方式夺取含铁原料中的氧 因此要求入炉铁矿石有良好的 还原性 图 1 示出烧结矿的还原指数变化对高炉焦比的影响 图 1 1 2 烧结矿还原指数的变化对高炉焦比的影响 河北联合大学电气工程学院 8 1 2 3 铁矿石还原性能检验方法 矿石还原性的检验方法有国际标准化组织法 ISO 日本工业标准协会法 JIS 及我国冶金部的试行标准 1 林德法 1958 年 R 林德 Linder 提出模拟高炉还原过程测定矿石还原性及还原是 强度的方法 该试验采用 500 克经过干燥的试样 粒度为 12 5 25 厘米 与 200 克焦炭 粒度为 30 40 毫米 放入试验炉内 见图 1 2 1 图 1 2 1 林德法矿石还原性测定装置 1 热电偶 2 气封 3 进气口 4 电炉 5 传动链 6 冷却管 7 气封 8 去除尘器 9 流量计 还原反应管是一个钢制转鼓 内径130 长度 200 毫米 以每分钟 30 转 速旋转 试验时间为 5 小时 它模拟原料自高炉上部进入 1000 C 高温区的条件 规定升温及气体成分变化条件 温度变化 0 2 时 自室温升至 700 C 2 5 时 自 700 C 升至 1000 C 气体成分变化 0 2 时 30 CO 10 CO CO CO 3 22 2 4 时 31 5 CO 5 CO CO CO 6 3 22 4 5 时 32 5 CO 2 CO CO CO 16 25 22 其它均为 N 气 试验用的流量为每分 15 标升 还原后用 N 冷却 试验完 22 第 1 章 铁矿石及还原度常用检测方法 9 毕取出试样 将焦炭分处 然后筛分矿石 记录筛分后0 5 毫米 及 0 5 毫米占总产品的百分数 其还原度 R 可由还原后试样中的 MTFe Fe Fe的化验结果以下式计算 R 100 1 3 Fe Fe Fe MFe 林德认为 该试验所得的还原度与高炉内所得的间接还原度 r是相同的 co 试验结果表明 磁铁矿不易还原 赤铁矿还原范围大 球团矿还原性好 烧结 矿随着碱度的不同有较大的还原度范围 2 国际标准化组织 ISO4695 1984 试验方法 本方法采用双层不锈钢反应管 其内径为 75 毫米 还原气体先通过双壁间 隙预热 见图 1 2 2 图 1 2 2 ISO4695 双臂还原反应管 多孔板孔数 241 个 开孔面积 1180mm2 板厚 4mm 试样粒度为 10 12 5 毫米 在 105 C 下烘干至恒重 取 500 克放置在反应 管里 反应管吊挂在秤上 还原气体流量为每分钟 50 标升 还原气体成分为 CO400 5 N600 5 CO 0 2 O0 1 试样在 N 中加热到 2 22 2 950 C 然后还原到还原度 60 为止 每个一个短时间记录失重数量 本试验的 还原性指标是以还原度为 40 的还原速率 即每分钟的还原度 来表示 可用 下式计算 河北联合大学电气工程学院 10 306040 6 33 ttdt dR 式中 t 达到还原度 60 的时间 分 60 t 达到还原度 30 的时间 分 30 国际标准化组织方法是在西德钢铁协会 V D E 及瑞典采矿协会所推荐 的方法经过多次讨论修改而形成的 3 3 日本工业标准协会 JIS M8713 77 试验方法 日本工业标准协会的试验方法规定 本法采用单壁耐热钢制成的还原反应 管 烧结矿及球团矿试样质量为 500 克 烧结矿粒度为 201 毫米 球团矿为 121 毫米 在 1055 C 下干燥 120 分钟以上出去附着水 然后放在干燥器内 试验时烧结矿试样通过 19 毫米及 21 毫米的筛子 球团矿试样通过 11 13 毫米 的筛子 直至筛净 保证粒度均一 还原反应管吊挂在炉中 管内还原温度控 制在 90010 C 恒温带高度在 200 毫米以上 还原反应管内径为 75 毫米 内 有装载试样的孔盘 孔盘一下充填 100 毫米高的粒状耐火材料 供预热还原气 之用 见图 1 2 3 图 1 2 3 日本 JIS 矿石还原性测定装置 1 煤气入口 2 秤 3 煤气出口 4 反应管 5 热电偶 6 电炉 7 试样 8 氧化铝球 9 变压器 10 自动温度调节器 使用的还原气体是 CO301 0 其余为 N 含不纯物 H 1 使用的惰 22 第 1 章 铁矿石及还原度常用检测方法 11 性气体 Ar 或充分干燥脱氧的 N 2 将试样放入反应管中 在通 N情况下升温至 900 C 1 小时左右 恒温 2 30 分钟 测量试样的质量为 W 然后更换 N送入还原气体 流量为每分钟 0 2 150 5 标升 在 900 C10 C 温度下 还原 180 分钟 还原开始后 60 分钟内 每 10 分钟测定一次质量 以后每 15 分钟测定一次质量 W 如作还原抗压试 t 验 则还原 180 分钟后换成惰性气体 并在此气体中冷却至恒温 还原率 R 按下式计算 t R t 10 112 0 430 0 4 1 0 FeOTFeW WW F 式中 W 试样在试验前 900 C 时的质量 克 0 R 最终还原度 t W 从干燥器中取出试样的 500 克 其实际称重 W 克 11 W 还原开始 t 分钟后试样质量 克 t W 180 分钟后试样的质量 克 F TFe 试样中全铁量 克 FeO 试样中 FeO 含量 W 0 430TFe 0 112FeO 为试样中的全氧量 O 1 2 O O O 2 O Fe 32 FeO TFe FeO FeO 72 56 112 48 72 16 TFe 0 430 FeO 0 112 试验重复两次 两次测定结果的差 如果烧结矿其差值超过 5 球团矿超 过 3 则应在进行两次试验 其结果若在允许误差内便可采用 如两组试验结 果均不在允许误差内 可采用前后四次的测定值 日本天辰 正义等用红外线气体分析法和热天平称重法进行还原性的测定 在粒度 温度及烧结矿装入量与还原气体流量之比一定的情况下 得到还原曲 线完全相同 由于气体分析技术的改进 分析速度及准确度进一步提高 所以 气体分析法可与减重法相比拟 本方法经过一些修改后已成为国际标准检验方法 ISO7215 1985 其中 河北联合大学电气工程学院 12 烧结矿试样粒度改为 19 22 4 毫米 并可根据双方协商同意也可用 10 12 5 毫米 还原气体允许杂质含量为 H 0 2 CO 0 2 O 0 1 H O0 2 2222 4 我国铁矿石还原性检验方法 我国冶金部目前所试行的铁矿石还原性能检验方法 其主要试验装置反应 管的结构是采用日本工业标准协会的试验方法 JISM8713 77 还原气经过清 洗后达到 CO301 N 70 1 H 1 CO 0 And cmbCOM ListIndex 164 Then If Y 12 Then Text11 Left X 36 Text12 Left X 36 Text11 Top Y 9 Text12 Top Y 4 Else Text11 Left X 36 Text12 Left X 36 Text11 Top Y 3 Text12 Top Y 8 End If Else If Y Shich Then 当实验完成时自动结束并提示保存 Call cmdstart Click a MsgBox 实验已经完成 保存该次实验数据吗 vbOKCancel 提示 If a 1 Then Call save Click End If End If 绘图块 If nowx 0 Then 实际检测时用 Pic1 Cls 清屏 Form1 Pic1 DrawWidth 2 设置线宽 For j 1 To 4 画坐标系横轴 Form1 Pic1 Line 0 j 20 200 j 20 RGB 100 230 200 Next j For k 1 To 3 画坐标系纵轴 Form1 Pic1 Line k 60 0 k 60 100 RGB 100 150 200 Next k 河北联合大学电气工程学院 48 Pic1 PSet 0 Xian 设置起点 End If If start True Then Count Count 1 表盘的编译 If start True And Count Mod 2 Then 采样周期设置 Zhong Zhong Xian 滤波暂求和 End If If start True And Count Mod 4 0 Then Min Min 1 Count 0 软件滤波块 Xian Val Zhong 2 求平均值 Zhong 0 清零 保存记录时用 Nn Min ReDim Preserve Huitu Nn Huitu Nn 1 Str Xian 给数组的第 min 个值赋值 Pic1 Line nowx Xian RGB 255 0 0 实时绘图 nowx nowx 1 mt Val Xian 给 mt 赋值 还原度的计算 If start True Then Rt 0 11 W1 0 43 W2 m1 mt m0 0 43 W2 100 Text6 Text Str Rt End If End If Text9 Text Min Count t Min End Sub Private Sub Timer2 Timer Dim Buf Pos1 MSComm1 Output 02 And Chr 13 组合完整的命令字符串 Text10 Text 联机 Buf 中 第 4 章 基于 VB 的上位机的设计 49 Buf MSComm1 Input If Buf Then Text10 Text 取值失败 Exit Sub End If 先找到 符号所在的位置 Pos1 InStr 1 Buf If Pos1 0 Then Text10 Text 返回值不正确 Exit Sub End If ValueStr Val Mid Buf Pos1 1 7 分离出正号以后的数值 Xian ValueStr xian valuestr Vf 150 Z 实际检测后再定义 xian 的表达式 Text5 Text Str Format Xian 0 000 显示在窗体上 End Sub 单击 开始检测 按钮后激活此事件 将定时器激活或关闭 并显示对应的文字在按钮上 以指示用户操作 还原度指数计算 Private Sub TimerRI Timer 取 RI 的值 If t 180 Then Text7 Text Str Rt TimerRI Enabled False End If End Sub Private Sub TimerT30 Timer 取 Rt 30 时的 t 值 If Rt 30 Then T30 t TimerT30 Enabled False End If End Sub 还原速率指数的计算 河北联合大学电气工程学院 50 Private Sub TimerT60 Timer If Rt 60 Then 取 Rt 60 时的 t 值 T60 t Text8 Text Str 33 6 T60 T30 TimerT60 Enabled False End If End Sub 4 2 2 Form2 内容 Private Sub Form Load Form2 Left Screen Width Form2 Width 2 Form2 Top Screen Height Form2 Height 2 End Sub Private Sub Timer1 Timer MsgBox 保存成功 vbInformation 提示 Timer1 Enabled False Unload Form2 End Sub 第 4 章 基于 VB 的上位机的设计 51 4 2 3 Form3 内容 Private Sub Command1 Click 打开文件记录 Call List1 DblClick End Sub Private Sub Command2 Click 关闭该窗体 Unload Form3 End Sub Private Sub Command3 Click If List1 ListCount 0 Then MsgBox 文件中已经不存在记录 vbOKCancel 提示 Exit Sub End If Dim I As Integer Dim Tempno As Integer Tempno Rec no 当前记录号 Open Filename For Random As 1 Len Rec long Open Filename temp For Random As 3 Len Rec long 删除选定的记录 For I 1 To Rec total If I Tempno Then Get 1 I Recd 河北联合大学电气工程学院 52 Put 3 Recd End If Next I Close Kill Filename Name Filename temp As Filename 重新格式化 filename Open Filename For Random As 1 Len Rec long Rec long Len Recd Rec total LOF 1 Rec long Close 删除记录列表中选定的列表项 Tempno Rec no 当前记录号 Open Filename jilu For Random As 2 Len 10 Open Filename jilu temp For Random As 4 Len 10 删除选定的记录 For I 1 To Rec total If I Tempno Then Get 2 I Lists Put 4 Lists End If Next I Close Kill Filename jilu Name Filename jilu temp As Filename jilu Open Filename jilu For Random As 2 Len 10 刷新记录列表 List1 RemoveItem Rec no 1 Label1 Caption 共找到 List1 ListCount 组数据 Close 删除选定的记录数组 Open Filename shuzu For Random As 5 Len 1000 Open Filename shuzu temp For Random As 6 Len 1000 删除选定的记录 For I 1 To Rec total 第 4 章 基于 VB 的上位机的设计 53 If I Tempno Then Get 5 I Huitu Put 6 Huitu End If Next I Close Kill Filename shuzu Name Filename shuzu temp As Filename shuzu 重新格式化 shuzu Open Filename shuzu For Random As 5 Len 1000 Close End Sub Private Sub Form Load Dim I Filename App Path records dat 给定随机文件名 Rec long Len Recd Open Filename For Random As 1 Len Rec long Rec long Len Recd Rec total LOF 1 Rec long 初始打开的为全部记录 Close 1 Open Filename jilu For Random As 2 Len 10 For I 1 To Rec total Get 2 I Lists List1 AddItem Trim Lists 打开记录时用 Rec no I Next I Close 2 Label1 Caption 共找到 List1 ListCount 组数据 Form3 Left Screen Width Form3 Width 2 Form3 Top Screen Height Form3 Height 2 End Sub Private Sub List1 Click Rec no List1 ListIndex 1 删除选定记录时用到此变量值 河北联合大学电气工程学院 54 End Sub 打开数据记录文件 RECORDS Private Sub List1 DblClick Filename App Path records dat Rec long Len Recd Open Filename For Random As 1 Len Rec long Rec total LOF 1 Rec long Rec long Len Recd Open Filename shuzu For Random As 5 Len 1000 画坐标轴 Form1 Pic1 Cls Dim j k As Integer Form1 Pic1 DrawWidth 2 For j 1 To 4 画坐标系横轴 Form1 Pic1 Line 0 j 20 200 j 20 RGB 100 230 200 Next j For k 1 To 3 Form1 Pic1 Line k 60 0 k 60 100 RGB 100 150 200 Next k 打开文本框记录 Call Display Close 关闭 records Unload Form3 End Sub 第 4 章 基于 VB 的上位机的设计 55 4 2 4 Form4 内容 Private Sub Command1 Click Dim Lengg As Integer Msgbox 返回值时使用 Dim I V Dim X If Text1 Text Then 文件名不能为空 MsgBox 文件名不能为空 1 vbOKCancel 提示 Exit Sub Else 保存文件 Filename App Path records dat 给定随机文件名 Rec long Len Recd Open Filename For Random As 1 Len Rec long Rec long Len Recd 给定随机文件记录长度 Rec total LOF 1 Rec long 初始打开的为全部记录 以下未给记录赋值 保存已存在文件 For j 1 To Rec total Get 1 j Recd If Trim Recd Id Trim Form4 Text1 Text Then 河北联合大学电气工程学院 56 Lengg MsgBox 库中已有该记录 要覆盖该记录吗 vbYesNo If Lengg vbYes Then Rec no j Recd Id Text1 Text Recd Rem0 Form1 Text1 Text Recd Rem1 Form1 Text2 Text Recd ReW1 Form1 Text3 Text Recd ReW2 Form1 Text4 Text Recd Remt Form1 Text5 Text Recd ReRt Form1 Text6 Text Recd ReRI Form1 Text7 Text Recd ReRVI Form1 Text8 Text Recd Rennj Str Nn Rec long Len Recd Put 1 Rec no Recd Close 1 保存数据记录列表文件 Open Filename jilu For Random As 2 Len 10 Lists Text1 Text Put 2 Rec no Lists Close 2 保存数据数组文件 Open Filename shuzu For Random As 5 Len 1000 Put 5 Rec no Huitu Close 5 Load Form2 打开 form2 Form2 Show Form2 Timer1 Interval 500 激活 timer1 Form2 Timer1 Enabled True Unload Form4 关闭 form4 Exit Sub Else Exit Sub 第 4 章 基于 VB 的上位机的设计 57 End If End If Next j 保存新文件 Recd Id Text1 Text Recd Rem0 Form1 Text1 Text Recd Rem1 Form1 Text2 Text Recd ReW1 Form1 Text3 Text Recd ReW2 Form1 Text4 Text Recd Remt Form1 Text5 Text Recd ReRt Form1 Text6 Text Recd ReRI Form1 Text7 Text Recd ReRVI Form1 Text8 Text Recd Rennj Str Nn Rec total Rec total 1 Rec no Rec total Put 1 Rec no Huitu Close 1 保存数据记录列表文件 Open Filename jilu For Random As 2 Len 10 Lists Text1 Text Put 2 Rec no Lists Close 2 保存数据数组文件 Open Filename shuzu For Random As 5 Len 1000 Put 5 Rec no Huitu Close 5 Load Form2 打开 form2 Form2 Show Form2 Timer1 Interval 500 激活 timer1 Form2 Timer1 Enabled True Unload Form4 关闭 form4 保存结束 河北联合大学电气工程学院 58 End If End Sub Private Sub Command2 Click Unload Form4 End Sub Private Sub Form Load Form4 Left Screen Width Form4 Width 2 Form4 Top Screen Height Form4 Height 2 End Sub 4 2 5 Form5 内容 Private Sub Command1 Click Shich Val Trim Text1 Text If Shich 200 Then MsgBox 时间长度不可大于 200 请重新设置 vbOKOnly 提示 Load Form5 End If Unload Form5 End Sub 第 4 章 基于 VB 的上位机的设计 59 4 2 6 Modulel 内容 Public T30 T60 定义计算还原速率时的系数 Public Nn 保存数组用 Public Huitu As String 7 数据保存数组 Public ValueStr As Single 取值变量 Public Xian As Single 实时绘图变量 Public Zhong As Single 软件滤波变量 Public Shich As Integer 定义自动实验的时间长度 Public Filist As String Declare Function GetTickCount Lib Kernel32 As Long 延时 Type record 定义记录类型 Id As String 10 Rem0 As String 6 Rem1 As String 6 ReW1 As String 6 ReW2 As String 6 Remt As String 6 ReRt As String 5 ReRI As String 5 ReRVI As String 6 Rennj As String 5 End Type Public Recd As record 定义 record 类型的变量存放当前记录 Public Filename 定义变量存放记录信息 Public Rec no As Integer 定义变量存放当前记录号 Public Rec total As Integer 定义变量存放总记录长度 Public Rec long As Integer 定义变量存放记录长度 Public Lists As String 定义变量保存记录列表框列表 Sub TimeDelay t As Long 时间延迟子程序 单位是毫秒 ms Dim TT 河北联合大学电气工程学院 60 TT GetTickCount Do DoEvents Loop Until GetTickCount TT t End Sub 定义刷新子过程 reclear Public Sub reclear Form1 Text1 Text Form1 Text2 Text Form1 Text3 Text Form1 Text4 Text Form1 Text5 Text Form1 Text6 Text Form1 Text7 Text Form1 Text8 Text Form1 Pic1 Cls End Sub 定义 display 子过程 Public Sub Display Dim I As Integer V Nx Get 1 Rec no Recd With Recd Form1 Text1 Text Rem0 Form1 Text2 Text Rem1 Form1 Text3 Text ReW1 Form1 Text4 Text ReW2 Form1 Text5 Text Rem1 Form1 Text6 Text ReRt Form1 Text7 Text ReRI Form1 Text8 Text ReRVI Nn Rennj End With Get 5 Rec no Huitu 第 4 章 基于 VB 的上位机的设计 61 Nx 0 Form1 Pic1 PSet 0 Val Huitu 0 For Nx 1 To Nn 1 Form1 Pic1 Line Nx Val Huitu V RGB 255 0 0 Next Nx End Sub 河北联合大学电气工程学院 62 结论 铁矿石还原性能测定仪的设计方案证明是可行的 并且这样的改进方案在 某些地方的优化比上一代仪器有不少优点 而且比较适合现代化 自动化生产 测定仪的整体设计较为灵活 告别粗大笨的仪器形象 通过计算机数据采集来 实现大屏幕显示 数据直观易读 数据易于保存查看 这些都大大方便了读者 理解和操作 本测定仪是基于 VB 编程控制 操作简单 需要时可以通过修改参数来调 整试验方案 利用计算机技术轻松获取数据 对于在工厂的高炉炼铁提供了可 靠的数据知道 并可以在工厂优化生产过程 达到提高经济效益的目的 对于本仪器的不足 由于炼铁工艺的复杂性 很多未知的参数没有考虑周 全或考虑不到 导致试验数据和实际工厂数据的偏差不可避免 并且采用计算 机实时才具数据 对于一些未知干扰没有有效避免 电路稳定性也有待提升 通过测定仪的试验 证明铁矿石还原度的测定可以达到预定要求 并在性 能方面也有明显提升 结束语 63 结束语 本设计在李奇平老师的悉心指导和严格要求下业已完成 从课题选择 方 案论证到具体设计和调试 无不凝聚着李老师的心血和汗水 在四年的本科学 习和生活期间 也始终感受着导师的精心指导和无私的关怀 我受益匪浅 在 此向李奇平老师和导师刘正东表示深深的感谢和崇高的敬意 不积跬步何以至千里 本设计能够顺利的完成 也归功于各位任课 老师的认真负责 使我能够很好的掌握和运用专业知识 并在设计中得以体现 正是有了他