第13章函数的应用 13.1通用类-光标形状随意变 13.1.1 介绍 13.1.2 操作步骤 [实例13.1】光标形状随意变 1。瓶动图标到流程线上，构造如图13.1结构。其中，交互图标命名为“改变光标”， 交互图标内有一个按钮交互，使用的是计算图标，命名为“光标”。 四改支光标a7p 回x Level 1 改变光标 光标 图13.1 程序流程 2.双击计算图标“光标”，打开计算图标编辑窗口。点击工具栏中园按钮，打开函数 选择面板 *1
·1· 第 13 章函数的应用 13.1 通用类 – 光标形状随意变 13.1.1 介绍 13.1.2 操作步骤 [实例 13.1] 光标形状随意变 1． 拖动图标到流程线上，构造如图 13.1 结构。其中，交互图标命名为“改变光标”， 交互图标内有一个按钮交互，使用的是计算图标，命名为“光标”。 图 13.1 程序流程 2． 双击计算图标“光标”，打开计算图标编辑窗口。点击工具栏中 按钮，打开函数 选择面板
Functions Caterory Ganer al MoveC四sr Refer eneed By Moverindow 光标 SenObject Fresskey PrintSereen Quit QuitRestart BesireYindov Restart SaveRecords Sn正ventRe SetCursor Show Tcon Description SetCurser (type) SatCursor sets the cursor to the type you specify. 0 arrev nn他 Unload Paste Done 图13.2 函数选挥面板 3.在函数选择面板中，在General分类中，有一个名为SetCursor的系统函数，这个函 数的作用就是动态政变鼠标光标的形状 函数格式：SetCursor(ype,其中ype为一个数字，0-6表示系统给定了7种光标形状， 见表。 表13.1 系统光标形状 SyKCursom01 Amw Sud1 SeCunon2山 s SeCuro3L SCuo41 hrk ns hounglass Seursol 4。点击函数选择面板中的Pase按钮，将SetCursor函数粘贴到计算图标当中：这时， 在计算图标当中的语句为SetCursor(typc),ype值并没有指定，将ype改成I。 2
·2· 图 13.2 函数选择面板 3． 在函数选择面板中，在 General 分类中，有一个名为 SetCursor 的系统函数，这个函 数的作用就是动态改变鼠标光标的形状。 函数格式：SetCursor(type)，其中 type 为一个数字，0-6 表示系统给定了 7 种光标形状， 见表。 表 13.1 系统光标形状 SetCursor(0) Arrow SetCursor(1) I-beam SetCursor(2) cross SetCursor(3) plus SetCursor(4) blank SetCursor(5) hourglass SetCursor(6) hand 4． 点击函数选择面板中的 Paste 按钮，将 SetCursor 函数粘贴到计算图标当中。这时， 在计算图标当中的语句为 SetCursor(type)，type 值并没有指定，将 type 改成 1
回光标 ▣x :国圆日月目)0A固] Setcursor(1] 1:13 Insert Code:000 Lang 图13.3 脚本程序 5。点击工其栏中的按钮，运行作品。点击演示窗口中的按钮“光标”，可以看到鼠 标形状变成了1字形。 如同步骤4，更改ype的值，观察一下佩标光标变化的情况。 光标☐ 图134 运行程序结果 6.透择Window菜单中的Cursors菜单项，打开假标光标设置窗口. *3
·3· 图 13.3 脚本程序 5． 点击工具栏中的 按钮，运行作品。点击演示窗口中的按钮“光标”，可以看到鼠 标形状变成了 I 字形。 如同步骤 4，更改 type 的值，观察一下鼠标光标变化的情况。 图 13.4 运行程序结果 6． 选择 Window 菜单中的 Cursors…菜单项，打开鼠标光标设置窗口
Cursors Previw Deser I Standard Cursor SetCursor(1) + Standard Cursor SetCursor(2】 中 Standard Cursor SetCursor(3) Standard Cursor SetCursor(4) Standard Cursor SetCursor(5) Add... Delete K Cancel 图135 鼠标光标设置窗口 7.在鼠标光标设置窗口中选择按钮“Add”添加一个新的光标。 Load Cursor 3X 查找范圈)： 白光标 包心国 COPY4WAY.CLR HELP.CUR 我量近的文待 MAGNIFY.CUR G 转PALETTE,CR PENCIL.CUR 卓面 SELECT.CUR 我的文档 我的电脑 网上居 文件名： 打开) 文件类飞①)： Cursors 取消 图136 选邦光标文件 。4
·4· 图 13.5 鼠标光标设置窗口 7． 在鼠标光标设置窗口中选择按钮“Add”添加一个新的光标。 图 13.6 选择光标文件
8。选择了一个光标文件并且打开后，在光标设置窗口内会增加一个自定义光标，说明 文字中“SetCursor(5I)”中的“51”就是该自定义光标的序号， Cursors Praviw Deser 母 Standard Cursor SetCursor (3) Standard Cursor SetCursor (4) Standard Cursor SetCursor(5) Standard Cursor SetCursor (6) 标光标类 3 Custon Cursqr 型序号 SetCursor (51)0 Uses OK Cancel 图13.7 增加的鼠标光标 9。将计算图标“光标”中的代码作如下改动： 口光标 回 图☒色目铜公固 SetCursor(51) 1:12 Insert Modfied Code:049 Lano.么 阁13.8 改动后的代码 10。冉次运行程序，在演示窗口可以看到这个自定义以标光标。 5
·5· 8． 选择了一个光标文件并且打开后，在光标设置窗口内会增加一个自定义光标，说明 文字中“SetCursor(51)”中的“51”就是该自定义光标的序号。 图 13.7 增加的鼠标光标 9． 将计算图标“光标”中的代码作如下改动： 图 13.8 改动后的代码 10．再次运行程序，在演示窗口可以看到这个自定义鼠标光标
光标☐ 图13.9 运行结果 13.2文件类-制作文件目录 13.2.1 介绍 Functions Category File AppendExtFile Referenced By Catalog Cg◆儿4Fo1de DolotoFile FileType ReadExtFile RenanePile AriteExtPile Show Icon Deseription Cat1 oc("folder[P"p门) Catalog loegtes il files md folders you specify and returns a character string with each file or folder on a Unlond Faste Done *6·
·6· 图 13.9 运行结果 13.2 文件类 – 制作文件目录 13.2.1 介绍
图13.10Fe类函数 Authorware中提供了功能强大文件类(File)函数来解决这个问题。文件类(File)函数 共有8个函数，包括对文件操作函数和对日录操作的函数. 表13.2 文件类函数 函数名 功餐 AppudExtEik 在指定文杆后逐如出整 Cadog 道回指定文件日录的文件名或者子日录列表 CreareFolder 建立目圣 DddeFile 隆文件 FlTyne 遮回指定文件的文件类型 KedexFile 对指定文件的文料出客进行速吃 RenareFile 对指定文件承自名 WnteEstFile 对指定文针的文料出名注行写入 13.2.2 探作步骤 [实例13.1]制作文件目录 1.拖动一个显示图标到流程线上，并命名为“文件列表”。 [Untitled] 回x Level 1 文件列表 图13.11显示图标“文件列表” 2.使用文字工只在图标“文件列表”编辑窗口中添加一个文字对象，选择菜单Tt一 Scrolling,使文字对象拥有滚动条。 7·
·7· 图 13.10 File 类函数 Authorware 中提供了功能强大文件类（File）函数来解决这个问题。文件类（File）函数 共有 8 个函数，包括对文件操作函数和对目录操作的函数。 表 13.2 文件类函数 函数名 功能 AppendExtFile 在指定文件后添加内容 Catalog 返回指定文件目录的文件名或者子目录列表 CreateFolder 建立目录 DeleteFile 删除文件 FileType 返回指定文件的文件类型 ReadExtFile 对指定文件的文件内容进行读取 RenameFile 对指定文件重命名 WriteExtFile 对指定文件的文件内容进行写入 13.2.2 操作步骤 [实例 13.1] 制作文件目录 1． 拖动一个显示图标到流程线上，并命名为“文件列表”。 图 13.11 显示图标“文件列表” 2． 使用文字工具在图标“文件列表”编辑窗口中添加一个文字对象，选择菜单 Text→ Scrolling，使文字对象拥有滚动条
5Pa求anW 图13.12带滚动条的文字对象 3。选择函数Cutalog,井单击按组“Puste”将函数格式Cuog(folder"L"F|"D门)粘贴 到文字对象中， 可 图13.13粘贴函数Caralog 4.修改刚才粘贴的函数格式Catalog"older'[,'F|"D) *8-
·8· 图 13.12 带滚动条的文字对象 3． 选择函数 Catalog，并单击按钮“Paste”将函数格式 Catalog("folder" [,"F" | "D"])粘贴 到文字对象中。 图 13.13 粘贴函数 Catalog 4． 修改刚才粘贴的函数格式 Catalog("folder" [,"F" | "D"])
因Pn6 a11cW】 图13.14修政函题 5.运行铕果，可以看到本地硬盘中C盘中的所有文件和日录。 5 Prearnatien W指d 心 KRECYCLE ISDOC.SYS ISTIE IKASPI yanFens NTIBTECT.CON ntltr OCTAPU20.21d 4据sf行18，对 PPENSB Progras Fllea 时G,tx日 E0月 SHData 60 1l3T031 Sajx Systen Yolue Infuranticn systen eav tdoebiK 图13.15运行结果 *9
·9· 图 13.14 修改函数 5． 运行结果，可以看到本地硬盘中 C 盘中的所有文件和目录。 图 13.15 运行结果
13.3 媒体类-迷你的MIDI音乐 13.3.1 介绍 13.3.2 探作步骤 [实例13.3]迷人的MID1音乐 1.选择Category下拉菜单中的“迷人的MDI音乐”项，这时Functions面板中的Load 按钮变成可用 Functions Catezer A11 T乙t Referenced By Tine Video Xtras (A1l) Itra Activex Xtra Eileio Itra lui Itra PYInt Itra Quickti Xtra Securit Itra Speech Itra XnlPars 姓人的1台" Shon工cm 图13.16外部函数 2.单击按钮“Lad”,打开Load function文件选择对话框，选择一个第三方UCD外部 函数midiloop.u32。 ·10
·10· 13.3 媒体类 – 迷你的 MIDI 音乐 13.3.1 介绍 13.3.2 操作步骤 [实例 13.3] 迷人的 MIDI 音乐 1． 选择 Category 下拉菜单中的“迷人的 MIDI 音乐”项，这时 Functions 面板中的 Load 按钮变成可用。 图 13.16 外部函数 2． 单击按钮“Load”，打开 Load function 文件选择对话框，选择一个第三方 UCD 外部 函数 midiloop.u32