仙乐飘飘——打造自己的音乐播放器

【 tulaoshi.com - 设计软件 】

实现功能：

    1、自动取得指定目录下的音乐文件；

    2、按顺序循环播放或乱序播放；

    3、支持mp3和swa文件格式的音乐文件，实时显示正在播放的音乐文件名。

    由于这儿用到了列表函数，因此为了看懂源程序，大家最好先查一查列表函数的用法，在这儿就不再详细叙述了，很多的Authorware论坛上都有介绍。

实现过程：

    在动手做之前，我们先来看看这个程序完成后的总流程图（见图1），这样可以使我们有一个初步的总体印象。

    1、打开Authorware新建一个“音乐播放器”文件，然后按总流程图所示将图标依次拖放到流程线上，分别给图标命名（提示：这个习惯很重要，它可以让我们能更快的读懂源程序，便于以后修改。），其中条件交互设置条件为：MediaPlaying@"bMP3"=FALSE,表示当bMP3声音图标不在播放、暂停或播放完毕后响应该条件交互，执行该交互下的分支。交互属性设为：永久响应，分支为“返回”。

    2、打开“信息”显示图标，在适当位置输入：{rFilename[j_a]},图老师注意，大括号必须在英文状态下输入，并将显示图标属性设置为：更新变量显示。

    3、打开“获取文件名”计算图标，在其中输入以下内容：

    --取得文件列表，假设所有的音乐文件放在music文件夹中

    FileString:=Catalog(FileLocation^"music","F")

--取得文件个数

FileNumber:=LineCount(FileString,Return)

--取得文件后缀名并筛选出mp3、swa文件名存到一维列表rFileName中。

repeat with i:=1 to FileNumber

FileNames:=GetLine(FileString,i)

FileFix:=SubStr(FileNames,RFind(".",FileNames)+1,CharCount(FileNames))

if FileFix="mp3" then

j_a:=j_a+1

rFileName[j_a]:=FileNames

else if FileFix="swa"then

j_a:=j_a+1

rFileName[j_a]:=FileNames

end if

end repeat

j_a:=1

path:=FileLocation^"music"^tFileName[j_a] --该变量用于存放要播放的音乐文件的路径，在声音图标中用到。

注：rFileName和后面的tFileName的初始变量值为[]，否则不能播放音乐，其他默认即可。

4、对声音图标作如下设置：文件路径设为“=path”（注意：在变量path前一定要加一个等号，否则变量不起作用。这一技巧还可以在其它的图标中灵活运用。），执行方式为“同时”，播放次数为1次，设置好后确定退出。

5、打开条件交互分支下的计算图标，在其中输入以下内容：

j_a:=j_a+1

if j_aListCount(rFileName) then