--authorware常用函数 一、播放器 CDPlay(track,FALSE) 声音播放 CDPlay() 声音停止 if Checked then CDPause() else CDResume() end if 声音暂停 if track>1 then track:=track-1 else track:=CDTracks() end if CDPlay(track,FALSE) 上一曲 if track track:=track+1 else track:=1 end if CDPlay(track,FALSE) 下一曲 CDStop() CDEject() Quit() 退出声音播放 二、音乐播放和暂停 if x=l then mediapause(IconID@"音乐",TRUE) x:=0 else mediaplay(IconID@"音乐") x:=1 end if 三、显示日期和时间 今天是{FullDate} 现在的时间是{FullTime} 四、计算机图标返回到哪里 GoTo(IconID@"鸟叫") 五、调用其它应用程序 关闭源程序打开新窗口 JumpOut("down\\\\msjavx86.exe") 或调用IE JumpOutReturn( "C:\\\\Program Files\\\\Internet Explorer\\\\IEXPLORE") 其它程序 JumpFile(FileLocation^"看守所.exe") 六、AUTHORWARE中调用网页文件的几种方法 1 使用控件。 2 使用WebXtra插件。 3 使用Budapi中的函数baOpenURL( URL , State ),要求你的Authorware文件夹中有Budapi.u32。使用时先导入函数baOpenURL().如: baOpenURL( "hpage\\\\bus.htm", 1 ) 4 使用OpenURL.x32。确保你的Xtas文件夹(或其子文件夹)中包含OpenURL.x32,不用导入函数,可以直接使用gsOpenURL( "http://www.cctv.com"; )来打开网页。 如:gsOpenURL( "hpage\\\\index.htm" ) [hpage为文件夹目录,若在当前页直接输入,hpage\\\\不要了]q 我是这样的gsOpenURL( "index.htm" ) [OpenURL.x32文件存放在主站] 5 使用用JumpOutReturn(“程序名”,“文件的路径与文件名”)函数实现。 如:JumpOutReturn("",FileLocation^"hpage\\\\bus.htm") JumpOutReturn("","www.cctv.com") 推荐使用方法4、5。openURL.x32是免费软件,可以自由使用;JumpOutReturn为系统函数。 七、在Authorware课件里调用网页 我们在做Authorware多媒体课件时,有时需要调用网页文件。笔者学校的一位老师在上《数字与编码》一课时,要在Authorware多媒体课件里调用学校网站的留言板。有几种方法可以实现:一种是使用插件,二是调用函数,还有就是ActiveX/Microsoft Web浏览器。笔者认为,调用函数的方法要易于实现。下面将介绍调用函数的实现方法。 (一)、 认识JumpOutReturn函数 在Authorware中,可通过JumpOutReturn函数调用Programe中指定的应用程序,Authorware仍在后台运行。 JumpOutReturn函数的格式: JumpOutReturn("program" , "document" , "creator type") 参数说明: "program"参数:来指定要执行的exe文件名。 "document"参数:指定要由"program"打开的文档名。 "creator type"参数:仅用于Macintosh系统中。 (二、) 用JumpOutReturn函数调用网页 1、 拖一个交互图标到流程线上,命名为“调用网页”。 2、 接着拖一个计算图标到交互图标里,交互类型选择“按钮”,再按“确定”按钮,将该图标命名为“留言板”。 3、 打开计算图标,输入如下内容: JumpOutReturn("","http://www.yqxx.net/mybbs/ly.asp","creator type") 4、 保存文件,即可测试。 还可以通过打开函数面板,把JumpOutReturn函数粘贴过来,删除"program"参数里的内容;在"document"参数里输入你要链接的网页文件地址(调用自己做的网页时要注意网页路径不要写错); "creator type"参数不改变,同样可以实现. 八、aw中调用powerpoint的方法 1、OLE法,这是初学者最常用的一种方法。但如果要在PPT中运行链接,在插入PPR时要勾选“链接” 2、系统函数法 如JumpOutReturn("",FileLocation^"问题.ppt" 在未安装PPT机器时可含播放器打包,用下面方法调用 JumpOutReturn(FileLocation^"PPTVIEW.EXE" , FileLocation^"问题.ppt" ) 3、外部函数法 如使用WINAPI中的WINEXEC(FileLocation^"PPTVIEW.EXE 问题.ppt",1) 还有一些U32的有函数有同样功能。 4、用WebXtra直接插入法 运行时直接进入播放状态,点击右键选择“全屏”进入全屏状态,按取消键则可返回窗口状态。 我认为,在系统安装PPT的情况下,这是一种很好的方法。 5、WBE浏览器控件法 CallSprite(@"浏览器", #navigate ,FileLocation^"问题.ppt" 这个道理上述方法是一样的 以上两种方法似乎为本人首次使用。 6、将PPT转换为SWF或EXE,再行插入或调用。比较好的转换软件有:FlashPaper和PowerCONVERTERXP 缺点不能运行链接或视频 7、发布为网页插入。或用Microsoft Producer编辑加工发布后再行插入。 8、转换为视频再插入。网上有将PPT转换为视频的技术文章,但这样做好象很少。 9、在authorware中7.0,选择转换工具,powerpoint转换到authorware xml,按提示操作 九、aw中插入网页的方法 1、使用WBE浏览器控件,这是最常用的一种方法 2、使用WebXtra插入 3、使用系统函数 如JumpOutReturn("",FileLocation^"111.htm" JumpOutReturn("","www.sohu.com" 4、使用外部函数插入 如MJSAPI.U32中的M_OpenURL("www.sohu.com"或Budapi.u32中的baOpenURL("www.sohu.com", 1 ) 另外,可下载OpenURL.x32后,用gsOpenURL("http://www.sohu.com"插入 5、在FLSAH用getURL链接好后插入,这是一有用的方法。 6、外部文件链接法 在外部文件做好链接,如EXCEL、WORD、RTF、PPT等等。 如果需要的话,这样做也是可以的。 7、嵌入外部程序法 嫌控件设置麻烦,可直接将IE窗口嵌入AW中 十、调用网页文件插件 在前面放入一个webxtra插件,在下面放入一个计算图标,并写入: CallSprite(@"WebXtra2", #Navigate, FileLocation^"ftyx_0603\\\\2006030301\\\\Tourviewer_2006030301.html") 请问怎样设置DirectMedia Xtra相对路径的呢(必须用新插件覆盖原DirectMedia Xtra进行注册) 路径写法:.\\movie(文件夹) 十一、mid音乐加载 MidiLoop.u32加载路径 LoopMidi(FileLocation^"audio\\\\lgh02.mid") 十二、全屏加载方法 用AW制作课件时,有一个问题:那就是不能保证自己制作的课件能在不同分辨率的计算机上运行,有人有说可以用COVER函数啊,可以,但是如果计算机分辨率过大,那么在显示器的四周就会出现一圈白边或黑边,站长通过专研系统函数,找到了一个完美的解决方法,就是调用Altools.u32函数中的子函数"alChangeRes",示例如下: 课件开头,利用计算图标加载以下内容:--假设我们制作的课件分辨率是800*600,在加载时出示提示不理它点确定, if ScreenWidth<>800|ScreenHeight<>600 then --如果屏幕的宽不等于800,高不等于600 sw:=ScreenWidth --变量赋值 sh:=ScreenHeight --变量赋值 alChangeRes(800,600,16,85) --改成800*600分辨率,16真彩色,刷新率85 end if 课件结束,利用计算图标加载以下内容: if sw>0 then alChangeRes(sw,sh,16,85) --如果sw大于零,就改回到最先状态 这样我们制作的课件就可以在任何支持800*600以上分辨率的机子上运行了,当然你也可以将文中的800*600改成640*480,让课件在更多的机子上正常运行,注意哟,这一切都是计算机自动进行,而不用你亲自动手更改分辨率,不错吧. |
联系客服