| 出版日期：2001-10-17 总期号：440 本年期号：40 |
|
 |
用外部函数为课件增色
卢万珠 笔者经常用Authorware制作课件，近日潜心研究了在Authorware 5.0中使用外部函数的问题，自感收获不少，现将其写出，希望能和各位同行进行交流。 右键菜单DIY 相信Windows无处不在的右键菜单一定给您留下了深刻的印象，想在课件中DIY一个吗？跟我来吧。 1、到www.ccidnet.com/soft/cce下载tMsControls.u32并将其放在合适的文件夹里。 2、把包含在tMsControls.u32中的函数tMsCreatePopupList、tMsAddItem、tMsDisplayControl都载入Authorware中。 3、创建如图1所示的流程，其中result是自定义变量，初值为0，其他组图标的内容均为空。 
图1 4、在RightMouseDown计算图标中输入“popuphandle:=tMsCreatePopupList(WindowHandle)”。 说明：此语句的作用是使自定义变量popuphandle获得弹出式菜单的句柄。 5、紧接第4步，在计算图标中输入如下内容： tMsAddItem(popuphandle, 1, 0, "上页") tMsAddItem(popuphandle, 2, 0, "下页") tMsAddItem(popuphandle, 3, 0, "-") tMsAddItem(popuphandle, 4, 0, "音乐") tMsAddItem(popuphandle, 5, 0, "-") tMsAddItem(popuphandle, 6, 0, "退出") tMsAddItem(popuphandle, 4,1, "播放音乐") tMsAddItem(popuphandle, 4,2, "停止音乐") 6、紧接第5步，在计算图标中继续输入“result:=tMsDisplayControl(popuphandle,CursorX,CursorY)”。 说明：此处用CursorX，CursorY来代替形参X和Y，使弹出式菜单能够自动实现鼠标的光标跟随；自定义变量result的作用是获取操作者选择了弹出式菜单的哪一项：当result=1时，表示鼠标左键单击了“上页”，当result=2时，表示鼠标左键单击了“下页”，当result=“4：1”时，表示鼠标左键单击了“播放音乐”……以此类推，这样就可以根据result值的不同设置做相应的反馈（这些反馈就放在上述空的组图标里，不用我多说了吧）。 
图2 程序的运行结果如图2所示，怎么样，效果够专业吧？ 动态控制音量大小 在一些课件中，需要控制音量大小，许多老师都采取了调用Windows系统自带“调音台”的方法，如能用自己的程序实现音量大小动态控制，定能让课件增色不少，跟我来试试吧。 1、到www.ccidnet.com/soft/cce下载Budwav.u32并将其放在合适的文件夹里。 2、把包含在Budwav.u32中的函数WaveSetVolume载入Authorware。 3、建立如图3所示的程序结构。 
图3 4、在Test wave声音图标中引入一个WAV文件作为待测声音，在其左上角附着的计算图标中输入“WaveSetVolume（0 , 0 ,0）”。 5、在Pan显示图标中放置一幅滑板的图片；在Slide图标中放置一幅滑块的图片，调整好滑板和滑块的相互位置，如图4所示。 
图4 6、试运行程序，在滑板和滑块都出现在演示窗口后再单击[Pause]按钮，暂停程序。接着，在按住“Alt”键的同时双击滑块对象，打开 “Properties Display Icon”窗口，该窗口的“Layout”区的“Positioning”域和“Movable”域都选取“On Path”，在“Base”域的输入框中输入数字“0”，在“End”域中输入数字“100”，在“Initial”域中输入“Volume”作为变量，其初值取0；最后，沿着滑板的中心线槽笔直水平地拖动滑块直到线槽的右边为止（这部分的操作很重要哦），单击[OK]退出该窗口。 7、拖曳一交互作用图标到Slide图标的下面，拖曳一计算图标到交互作用图标的右侧并命名为“Dragging@"Slide"”， 在“Conditional”区的“Type”域中选择“Conditional”， 而在“Automatic” 域则选择“When True”，“Response”区的“Branch”域选择“Continue”。双击计算图标，输入“Volume:=WaveSetVolume( 0, PositionX@“Slide”，PositionX@“Slide” )”。 
图5 运行程序，试左右拖动滑块（如图5所示），听着声音大小被您随手调得服服帖帖，你一定乐坏了吧？ |
||||||||||||||||||
