首页 新闻 搜索 短信 分类 聊天 企业
上移动梦网
赢手机大奖

新浪首页 > 科技时代 > 网上学园 > 高级编程 > 正文
Authorware中音量控制程序的制作

http://www.sina.com.cn 2002/04/09 13:50 赛迪网--中国电脑教育报

  文/周建峰

  在使用Authorware制作多媒体程序的时候,声音文件可以说是必不可少的。那么如何在Authorware中动态控制音量的大小呢?笔者目前找到了一种方法,使用Authorware的一个外挂函数——Binapi.u32(可到www.ccidnet.com下载)可以很轻松地解决这个问题,现“奉献”出来跟各位Awthorware Fans共享。

  1、启动Authorware 6.0,新建一个名为“音量调节程序”的文件;选择“Window→F
unctions”,打开Functions窗口,单击选择窗口中Category下的“音量调节程序.a6p”,再单击窗口下方的“Load…”选择Binapi.u32弹出函数列表,按住Ctrl键选择BNA_GetVolume、BNA_SetVolume,单击Load导入本例所需要的函数。

  2、拖一个显示图标至流程线,取名为:音量面板;双击打开导入图片作为音量面板,选中该图标,单击鼠标右键,选择“Caculation…”,在出现的窗口中输入以下语句:

  Movable:=FALSE——设置该图标在运行后不可移动。

  m:=0

  a:=1

  关闭的时候连续单击OK即可。


图1滑块与音量面板

  3、再次拖一个显示图标至流程线,取名为:“音量滑块”;双击打开导入图片作为滑块,此时滑块与音量面板的位置如图1所示(注意两者在不同的图标中);选中滑块,按Ctrl+I键打开Properties对话框(如图2),单击Layout设置滑块的上下移动距离,其中滑块的Base位置为面板的下部分,End为面板的上部分,在Initial中输入yl。

  4、拖一个声音图标至流程线,双击打开导入所需要的声音文件;单击Timing选项,将Concurrency设为“Concurrent”,Play设为“Until True”、并在下面输入“a:=0”,最后单击OK即可。


图2设置Properties的各项参数

  5、拖一个交互图标至流程线,再在旁边放置一个群组图标,选择Hot Spot,并将响应区域与音量面板的静音部分重合,单击OK,将群组图标取名为“声音关”,双击上面的小虚线方框打开“Properties:Response”属性框,选中Hot Spot下“Highlight on Match”,再选中Response下的“Perpetual”,在Active If中输入“m=0”,Branch设为“Return”,单击OK,最后为该群组图标加上语句:m:=1(具体方法可参照第2步);在旁边再放置一个群组图标,取名为“声音开”,响应区域也与音量面板的静音部分重合,在Active If中输入:“m:=1”,其余与群组图标“声音开”的属性相同,为该群组图标加上语句:“m:=0”。

  6、双击打开“声音关”群组图标,放置一个计算图标,输入“a:=0”,在计算图标下面放置一个显示图标,在显示图标中画一个小勾图形,小勾的位置与音量面板的静音部分重合;双击打开“声音开”群组图标,放置一个计算图标,在其中输入:

  a:=1

  GoTo(IconID@"音量面板")

  7、在“声音开”群组图标旁边放置一个计算图标,双击上面的小虚线方框打开“Properties:Response”属性框,选择Type下的“Conditional”,单击Response,不选择Scope下“Perpetual”,Branch设为“Try Again”;单击Conditional,在Condition中输入:“Dragging@"音量滑块"”,Automatic设为“When True”,最后单击OK;双击打开计算图标,在其中输入如下语句:

  yl:= INT(PathPosition@"音量滑块")——获取滑块的位置数值

  BNA_SetVolume(1,yl)——将滑块的位置数值作为音量的数值,从而控制音量的大小。


图3本次所需流程图

  8、按Ctrl+R键运行程序,可以发现音乐开始播放,当滑块上下拖动时,音量的大小随着改变(本例流程图如图3);美中不足的是第一次运行会弹出函数的来源地网址,不过不会影响使用,而且接着重新运行就不会出现啦。


  


发表评论】【初学者园地】【科技聊天】【关闭窗口

新 闻 查 询

 相关链接
【学园专题】多媒体设计与制作
巧用Authorware函数实现定时关机(2002/04/08 14:55)
用Authorware制作精美功能菜单(2002/03/25 13:42)
在Authorware中实现自定义标题栏(2002/03/21 15:29)
利用Authorware函数制作旋转移动(2002/03/18 13:48)
跳动的文字 Director中的文字动画(2002/03/07 13:48)
使用Authorware制作课件的疑难问答(2002/03/05 15:16)
使用Authorware巧制课件“开关按钮”(2002/03/04 15:22)
让Authorware课件实现全屏播放(2002/02/19 14:00)


科技时代意见反馈留言板 电话:010-82612286 或 010-82628888-3488   欢迎批评指正

网站简介 | 用户注册 | 广告服务 | 招聘信息 | 中文阅读 | Richwin | 联系方式 | 帮助信息

Copyright © 1996 - 2002 SINA.com, Stone Rich Sight. All Rights Reserved

版权所有 四通利方 新浪网