| 出版日期：2003-12-29 总期号：550 本年期号：50 |
|
 |
用Authorwere
实现仿真测量 《中国电脑教育报》杨通辉 有时为了教学，需要对课件中的一些图形进行测量，这时如果选用现实中的测量工具显然不合适。那么如何对这些图形进行测量呢？我们用Authorwere在课件中制作一个仿真测量尺，实现了这个目的。 下面就以对一条直线的测量为例，谈谈测量尺的制作。 1. 新建一个Authorwere文件，拖动一个显示图标在流程线上，并命名为“被测物”，打开此图标，用直线工具任意画一条直线。 2. 拖动一个显示图标在流程线上，并命名为“chi_start”，打开此图标，用直线工具画一条短竖线，作为尺的起始刻度。单击菜单“Modify/Icon/Properties”，在“Display”下的“Layer”中输入“1”，在“Layout”下的“Positioning”中选择“On Screen”，在“Movable”中选择“On Screen”，完成后单击[OK]。 3. 又拖动一个显示图标在流程线上，并命名为“chi_end”，打开此图标，导入一个卷尺图片，调整好卷尺的大小。再单击菜单“Modify/Icon/Properties”，在“Display”下的“Layer”中输入“2”，其他设置与上一步相同。 4. 拖动一个计算图标在流程线上，并命名为“条件”，打开图标，输入“ce=1”。 5. 拖动一个交互图标在流程线上，再拖动一个组图标在交互图标下面，在出现的“Response Type”对话框中选择“Conditional”，再打开“Conditional”交互的设置对话框。在“Conditional”下的“Condition”中输入“ce=1”，在“Automatic”中选择“When Ture”；在“Response”下的“Erase”中选择“ Don’t Erase”。 6. 打开组图标，拖动一个计算图标在组图标里，并命名为“赋值”，打开计算图标，在里面输入： x1:=INT(DisplayX@"chi_start"/10) x2:=INT(DisplayX@"chi_end"/10) y1:=INT(DisplayY@"chi_start"/10) y2:=INT(DisplayY@"chi_end"/10) r:=SQRT((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) 7. 拖动一个显示图标在“赋值”图标下，并命名为“刻度”，打开图标，输入“{r}”，并将其模式设为“Transparent”（透明）。单击菜单“Modify/Icon/Properties”，在“Display”下的“Layer”中输入“3”，将“Options”中的“Update Displayed Variables”选中，在“Layout”下的“Positioning”和“Movable”中都选择“On Screen”，在“Initia”中的X和Y下分别输入“DisplayX@"chi_end"”和“DisplayY@"chi_end"”，完成后单击[OK]。 8. 拖动一个计算图标在流程线上，并命名为“尺”，打开输入： SetFrame(1,RGB(185,192,233)) Line(7,DisplayX@"chi_start",DisplayY@"chi_start",DisplayX@"chi_end",DisplayY@"chi_end") SetFrame(1,RGB(100,0,0)) 此图标的作用是画“起始刻度”到“卷尺图片”之间的“尺”。 9. 拖动一个擦除图标在流程线上，并命名为“擦尺”。点击工具栏中的[运行]按钮，出现“擦尺”图标的设置对话框，点击屏幕上用Line语句画的“尺”，然后点击[OK]。 运行程序，怎么？发现“尺”总是一闪一闪的是不是？不要紧，只要将“擦尺”图标拖到“尺”图标的上面去就行了。 至此，程序设计完成。如果我们要测量那条直线，只要将尺的起始刻度拖到被测直线的一端，将卷尺图片拖到直径的另一端，该直线的长度就在卷尺上显示出来了。 |
||||||||||||||||||
