系统函数实例介绍
在Authorware中,系统函数是非常重要的,利用Authorware提供的系统函数,读者可以实现某些特定的功能,并可以将各种函数相组合来实现新的功能。在该部分内容中,我们将简单地学习部分系统函数的语法规则和使用方法。 在该部分内容中,共学习如下内容: 实现程序跳转的系统函数; 笔者在程序设计过程中最常用的一些系统函数及其应用实例。 在利用Authorware进行交互式多媒体程序设计过程中,各程序模块之间的跳转和调用是非常频繁的,Authorware作为一个交互式多媒体设计的平台,为编程人员提供了大量改变程序流程的函数来实现程序的跳转和模块之间的调用。下面首先让我们来学习改变程序流程的系统函数。
步骤1 改变程序流程的系统函数: (1) GoTo: 作用:将程序跳转到某设计按钮中,执行该设计按钮中的内容。 语法格式:GoTo(IconID@"IconTitle") (2) JumpFile : 作用:将程序从程序的一个模块文件跳转到另一个模块文件中去执行。 语法格式:JumpFile("filename", ["variable1, variable2, ?,"folder"]) (3) JumpFileReturn : 作用:将程序从一个模块文件跳转到另一个模块文件中,执行完后一个文件后返回到原文件处。 语法格式:JumpFileReturn("filename", ["variable1, variable2, ?,"folder"]) (4) JumpOut: 作用:退出Authorware环境,执行Program参数设置的程序。 语法格式:JumpOut("program", ["document"] [,"creator"])) (5) JumpOutReturn : 作用:执行Program参数设置的程序,执行完该程序后,回到Authorware环境中。语法格式:JumpOutReturn("program", ["document"] [,"creator"]) (6) JumpPrintReturn : 作用:启动参数Program指定的程序,并打印document 参数中指定的文件,在文件打印完毕后,直接返回Authorware环境。 语法格式:JumpPrintReturn(["program"], "document" [, "creator"]) (7) Quit 作用:结束当前运行的Authorware程序。 语法格式:Quit([option]) (8) QuitRestart : 作用:退出子程序,从主程序的起始位置恢复运行主程序。 语法格式:QuitRestart([option]) (9) Restart: 作用:将程序跳转到文件的起始位置,重新执行程序。 语法格式:Restart()
步骤2 常用系统函数及其应用实例; (1) DisplayIcon DisplayIcon函数用来显示一个设计按钮内容,该函数同流程线上的设计按钮一样显示一个设计按钮中的内容。语法格式为: DisplayIcon(IconID@"IconTitle") 如果读者正在用一个计算的结果来确定显示的对象时,该函数是非常有用的。在图6-42所示的【运算】设计按钮对话框中我们来实现这种控制。

图6-42 使用DisplayIcon函数显示流程线上已经存在的设计按钮
注意: 在我们的程序设计过程中,我们应该尽量使用DisplayIcon函数来显示流程线上已经存在的设计按钮,不要重复地使用设计按钮来显示相同的内容。 (2) EraseIcon: 同DisplayIcon的性质和使用方法相同,唯一的不同是该函数是用来擦除设计按钮的。 语法格式为EraseIcon(IconID@"IconTitle")
实例如图6-43所示。

图6-43 使用EraseIcon函数擦除一个显示在展示窗口中的设计按钮
(3) Find: 该函数的功能是在某一特定字符串内寻找符合某种模式的字符。如果在字符串中查找到该模式字符后,函数返回一个在特定字符串中查找到的第一个与所设定模式相匹配的字符的位置。语法格式为:number := Find("pattern", "string") 实例1: ApplePosition := Find("apple","banana, orange, apple") ApplePosition的返回值是17,因为与apple相匹配的字符串中的第一个字符的位置是字符串中的第17个字符(包括字符之间的空格)。 实例2: Lyric := "The rain in Spain falls mainly on the plain" Start := Find("?ain",Lyric) 因为“?ain”同“rain”相匹配,所以Start的值是5。
提示: 对于Find函数的返回值,当没有寻找到与设定模式相匹配的字符时,该函数的返回值为0。 (4) GetLine: 读者可以将字符串作为一个小型数据库来使用。利用GetLine函数,读者可以从字符串中连续获取信息。 语法格式:resultString := GetLine("string", n [, m, delim]) 下面请读者以实例来学习该函数的使用方法: 文本文件PHONE.TXT中的内容如下所示: John<tab>Smith<tab>555-1234<return>Jane<tab>Doe<tab>5555678<return> Sam<tab>Spade<tab>555-9012<return> 为了取得该文件中的某一人的电话号码,我们需要三个操作: ①读取文件的内容。 ②读取行的内容。 ③读取行中某一区域的内容,该内容就是所需要的电话号码。 下面让我们来逐步实现上述操作: FileContents := ReadExtFile("PHONE.TXT") 读取文件的内容,存储在变量FileContents中; FileLine := GetLine(FileContents, 2) 读取文件内容的第二行,存储在变量FileLine中。 Phone := GetLine(FileLine, 3, 3, TAB) 读取第二行内容中的第3个区域的全部内容。以TAB键来分隔区域。 变量FileLine 的值是Jane<tab>Doe<tab>555-5678。 存储电话号码的变量Phone 的值是555-5678。 (5) if then 条件判断语句 条件判断并执行。该函数可以根据不同的条件,来判断执行不同的内容。通过使用该函数,可以为用户的应用程序提供一种对变化的信息的观察和判断能力,从而实现灵活的程序的交互性。 该函数的语法格式有如下多种: ①if 条件1 then 任务1 end if ②if 条件1 then 任务1 任务2 ….. end if
③if 条件1 then 任务1 else 任务2 ④if 条件 then 任务1… else 任务n… end if ⑤if 条件1 then 任务1… else if 条件2 then 任务n… else 任务m… end if 下面让我们来看一个实例: if(明天旅游) then (要准备食品) (要准备现金) else (在家学习) end if 源程序如图6-44所示:

图6-44 if-then 语句用于对条件做出决定
(6) InsertLine: 我们用GetLine()来从字符串获取信息,用InsertLine来设置信息,InsertLine函数将一行插入到字符串中指定的位置。 语法格式为:Result := InsertLine("string", n, "newstring", [delim]) 实例为: 我们有两个字符串,即字符串String1和String2。 String1:= "Monday"^Return^"Wednesday"^Return String2:= "Tuesday" 使用InsertLine函数将String2中的字符串添加到String1字符串中的第二行: String3:= InsertLine(String1, 2, String2) 在【运算】设计对话框中的设置如图6-45所示: 字符串String3的值为:"Monday ^Return^ Tuesday ^Return^ Wednesday" (7) Quit(): 在交互式多媒体作品中,我们关闭了用户的菜单栏,使用了图形界面。但是,当我们这样做的时候,也取消了用户使用Authorware自带的文件菜单来退出的能力。 为了让用户能够顺利的退出Authorware程序,而不需要重新启动计算机。我们在程序流程线上的【运算】设计按钮中使用了Quit函数。 语法格式为:Quit([option]) 在使用Quit()函数时,不同Quit()函数的参数可以达到不同的退出效果: 下面,请读者学习该函数各参数的含义: 0:退出程序模块,显示程序管理器(Windows 3.1)和桌面(Windows 95或NT)。如果该程序模块是由其它程序所调用的,则Authorware返回调用它的程序中,继续执行。 1:退出程序模块,显示Windows 3.1程序管理器和Windows 95桌面。 2:重新启动计算机(Windows 95 或NT)或返回DOS(Windows 3.1)。 3:关闭计算机(Windows 95 或NT)或退出Authorware程序,显示Windows 3.1程序管理器。
提示: 该参数是一个可选项,我们可以使用Quit( ),不要任何参数,此时,Authorware默认的参数是0。
注意: 请读者注意,因为Authorware遇到Quit( )函数时,就立即退出应用程序,在Quit( )函数后的源程序将被忽略。 (8) Repeat While循环控制函数: Repeat While函数类似于if-then函数,该函数可以使Authorware在读者所设定的条件下运行某些功能。 Repeat While(天下雨) (带雨伞) end repeat 在此实例中,循环将继续重复,直到天不下雨。 (9) WriteExtFile: 使用该函数来写外部文件。该函数的语法格式为: WriteExtFile("filename", "string")
提示: 读者可以使用Authorware变量FileLocation和RecordsLocation来辅助设置或定位要读写的文件。
注意: 如果读者以一个已经存在的文件名写文件,那么该已经存在的文件将被覆盖。 (10) Random(): 该函数用于生成一个随机数。语法格式为:

图6-46设置声音播放的随机次数
&nbs [1] [2] 下一页 《系统函数实例介绍》一文由3edu教育网www.3edu.net摘录,版权归作者所有,转载请注明出处! |