流体流动现象的动画仿真（一）--基于activex的实现方法

流体流动现象的动画仿真（一）
——基于ＡｃｔｉｖｅＸ的实现方法
李士雨
（天津大学化工学院天津３０００７２）
１０—２７
在化工类多媒体软件开发中，如果采用动画形式演示管道内流体流动效果，会使课件形象直观，活泼生动．增加表现力。

根据开发要求，可采用不同方案解决上述同题。

本文提供一种基于ＡｃｔｉｖｅＸ的实现方法。

这种方法使用ＡｃｔｉｖｅＸ技术编程，其优点是所开发课件的使用方式与Ⅶ所提供的标准控件一样，使用时不需编程。

●ｔ１．动画原理
动画是由一系列静态图片在一定时间内迅速播放产生的视觉效果。

例如在一合适时间内连续依次播放下述图片（图１），将产生逼真的蝴蝶飞舞的视觉效果。

视◆。

＋一『＝’。

≯
图１
■■＝，■＝，●＝，■Ｅｊ—Ｅ＝■●＝，●Ｅ－Ｕ
·旨■＿皇＿＝－七日－畸捌■＿＿自；，‘ｌ
ｔ＝·＿＝，＿＝，＿ｃ＝＿‘＝＿·＝，＿＝，＿，
ｃ，—＝，—＝】■Ｅ，—Ｅ，■Ｅｊ■Ｅｊ■口了
Ｅ＿－；ｉ．＿．．．＊－ｌｈ＿，［＿－－，＿ｉ＿Ｉ＿．＿Ｔ－Ｉ＿一Ｉ４
ｑ＿Ｅｊ＿＿＝，＿口ｊ－‘＝＿·＝，－ｃ＝－－＝ｌ５
圈２
同理．设计合适的静态图象序列．可产生流体流动的动态效果。

采用不同的静恋图象所产生的
５。

第２步：通过缠程，两期性地在罔一位置调入线０，线Ｉ，…，线５。

ｉｔ｛
ｔ
ｒ
Ｈ、
２；。

＆ｔｉｖｅＸ控件的设计。

；
｛
流体流动现象的动两仿真是纯工ｊ够嫌体软件的典型问题，许多地方均要用到。

按传统的程
序设计思想，最好的黑决方案是将士述程序设计虞子程序。

若采用ＶｉｓｕａｌＢａｓｉｃ５．０（以下简称ｖＢ５．ｏ）编程．逑有吏好的解决方法；麓聂采角‘麟ｉ试技术。

ＡｃｔｉｖｅＸ是Ｍｉｃｒｏｓｏｆｔ为基于Ｃ。

ｍｌⅫ诺ｌＩｔ０ｔ咖ｃｔＭｏｄｅｌ（ＣＯＭ）韵技术赋予的名称．ＶｉｓｕａｌＢａｓｉｃ５．０允许创建ＡｃｔｉｖｅＸ控件、ＡｃｔｌｖｅＸ文挡、ＡｅｔｉｖｅＸ动态链接库等。

由此技术可创建流体流动通用控件。

所创建的控件的使用方法与ＶＢ５ｍ所羹供触标准控件一样。

下面给出“由左向右流动”嚣流体流动控件的刨鸯过程，其它控件（“由右向左”、“由上向下”、“由下向上”）的制作过程与之类似。

第１步：在ＶＢ５．０中新建一ＡｃｔｉｖｅＸ控件工程。

取名为“流体流动控件．ｖｂｐ”。

１０—２８
第２步：在“流体流动控件．ｖｂｐ”中加入Ｉｍａｇｅｌ（０）一ｌｍａｇｅｌ（５）控件，设置其图象分别为图２中０、１、２…３４５；添加一Ｐｉｃｔｕｒｅ控件（Ｐｉｃｔｕｒｅｌ）；再添加一时钟（ｔｉｍｅｒｌ）。

设置合适的Ｉｎｔｅｒｖａｌ属性值，并在时钟事件中添加如下程序：
ＰｒｉｖａｔｅＳｕｂＴｉｍｅｒｌ＿Ｔｉｍｅｒ（）一
ＳｔａｔｉｃｉＡｓＩｎｔｅｇｅｒ
ＤｉｍｊＡｓＩｎｔｅｇｅｒ
ＤｏＥｖｅｎｔｓ
ｉ＝（ｉ＋１）Ｍｏｄ５
ｊ＝ｉ
Ｐｉｃｔｕｒｅｌ．Ｐｉｃｔｕｒｅ。

Ｉｍａｇｅ３（ｊ）．Ｐｉｃｔｕｒｅ
ＥｎｄＳｕｂ
第３步：设囊流体流动控件的Ｔｏｏｌｂｏｘｂｉｔｍａｐ属性．以一合适图象表示工具栏上控件的图形。

第４步：生成“流体流动控件．ｏｃ】【”。

以上给出“由左向右流动”的流体流动控件的创建过程。

在此基础上，可通过添加其它属性设置选项，增强控件使用的灵活性。

３应用示例
现利甩本文所刨鸯酶流体流动控件演示合成氨厂半水堞气制造过程中煤气发生炉聊］切换及物流走向问题。

一“３’锤：。

．：。

·半水煤气斟造过程是周期性进行的，每一循环周期内均茸＿吹风、吹风回收、上吹倒气、下吹制气、二次上吹、空气吹净等几个阶段接顺序排刿构成。

在不同阶段的物流走向可由阀门切换予以说明【１１。

现使用作者创建的流体流动控件实现上述阀门切换及物流走向问题的动画演示。

第１步：新建工程，命名为“造气循环仿真．ｖｂｐ”。

第２步：在工具箱中通过添加部件，
添入本文所刨建的“流体流动控件．
０ｃｘ”ｏ
第３步：在窗体ｆｏｒｍｌ上建立图３
所示人机界面：最下面为状态条，用于显
示文字提示；状态条上方为吹风阶段、上
吹制气、下吹制气、二次上吹、空气吹净
５个标签。

当鼠标移到某一标签时，则动
画显示相应过程的阀门切换及物流走
向；再向上为图片区，重叠放置５个不同
图片，图片中分别加入本文开发的流体
流动控件。

调整其方向以对应５个不同
状态下的物流走向，当鼠标移到某一标
签时。

对应的图片移入表面。

第３步：添加下述程序代码，实现设
计功能。

图３
１０—２９
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｐｉｃｔｕｒｅｌ（５）．ＺＯｒｄｅｒ
ＳｔａｔｕｓＢａｒｌ．Ｐａｎｅｌｓ（１）．Ｔｅｘｔ＝谳态：遣气循环仿真。

”
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＬａｈｅＩＩ＿Ｍｏｕ§ｅＭｏｖｅ（ＩｎｄｅｘＡｓＩｎｔｅｇｅｒ，ＢｕｔｔｏｎＡ５Ｉｎｔｅｇｅｒ，ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）
ＤｉｍｉＡｓＩｎｔｅｇｅｒ
ＳｅｌｅｃｔｃａｓｅＩｎｄｅｘ
Ｃａｓｅ５
ＳｔａｔｕｓＢａｒｌ．Ｐａｎｅｌｓ（１）．Ｔｅｘｔ＝ｌ状态：空气与炉内碳进行燃烧反应。

产生热量和吹风气。

Ｐｉｅｔｕｒｅｌ（０）．ＺＯｒｄｅｒ
Ｃａｓｅ６
ＳｔａｍｓＢａｒｌ．Ｐａｎｅｌｓ（ｔ）．Ｔｅｘｔ＝’状态：蒸汽与空气的混合气，与士ｑ热的碳层反应；生成煤气。

’Ｐｉｃｔｕｒｅｌ（１）．ＺＯｒｄｅｒ
Ｃａｓｅ７
ＳｔａｍｓＢａｒｌｊＰａｎｅ！￥（１）。

Ｔｅｘｔ＝’状态ｆ燕汽从炉璜吹入，与碳屋反应生成水煤气；’
Ｐｉｅｔｕｍｌ（２）．ＺＯｒｄｅｒ·．‘
Ｃａｓｅ８
ＳｔａｔｕｓＢａｒｌ．Ｐａｎｅｌｓ（Ｉ）．Ｔｅｘｔ气’状态．｝屉蒸汽吹净煤气炉底部煤气，以防空气吹入时发生爆炸。

”
Ｐｉｃｔｕｒｅｌ（３），ＺＯｒｄｅｒ
Ｃａｓｅ９
ＳｔａｔｕｓＢａｒｌ·Ｐａｎｅｌｓ（１）·Ｔｅｘｔ２’状态：将嚣内孕管道中残茸舶謦气吹入气柜，同时调节氡氮比。

”
Ｐｉｃｔｕｒｅｌ（４）．ＺＯｒｄｅｒ
ＥｎｄＳｅｌｅｃｔ
Ｆｏｒｉ＝５Ｔｏ９
Ｉｆｉ＝ＩｎｄｅｘＴｈｅｎ
Ｌａｂｅｌｌ（ｉ）．ＢａｃｋＣｏｌｏｒ＝＆ＨＦＦＦＦ＆
Ｅｌｓｅ
Ｉ．ａｂｅｌｌ（ｉ）．ＢａｃｋＣｏｌｏｒ＝＆ＨＦＦＦＦ００
ＥｎｄＩｆ
Ｎｅｘｔｉ’‘’‘
ＥｎｄＳｕｂ～
参考文献
１赵忠祥主编．氮肥生产概论（生产实习用）．北京：化学工业出版社．１９９５：１７。