打字驱动的音乐播放器

软件世界

汪来

这可能是一款非常累人的音乐播放器，因为它只有你不停地打字、敲击键盘，才能让音乐始终不断地播放下去。这挺有意思的，因为在工作打字的同时，每分每秒你都能得到优美音乐的回报。
具体编程步骤如下：
1.新建一个Authorware文件，在函数窗口中引入a5wmme.u32中的Wavepause、Waveplay、Waveplaying、WaveResume四个函数。
在程序流程线上拖入一个计算图标，命名为“打开播放文件”，双击计算图标，在语句窗口中写入：
f:=NewObject("fileio")
w:=CallObject(f,"displayopen")
WavePlay(w)
前两语句是启动打开文件对话框，最后一句是播放选定的音乐文件。
2.在计算图标的下方，拖入一个交互图标，命名为“暂停音乐”，选中此交互图标，同时按下Ctrl和+号，在此时弹出的计算语句窗口中写入：
k:=Key
WavePause()
3.在这个交互图标的右边拖入一个组图标，交互类型设定为“条件交互”，条件设定为：
k<>Key
双击这个组图标，在组流程线上拖入一个计算图标，双击后写入以下语句：
WaveResume()
然后，在其下方拖入一个等待图标，设定等待时间为1秒或2秒，它的作用是设定每次敲击键盘后，音乐持续播放的时间，
4.在交互图标的右方再拖入一个计算图标，交互设定为条件交互，条件设定为：
WavePlaying()=0
双击此计算图标，写入以下语句：
GoTo(IconID@“打开播放文件”)
作用是，当音乐文件播放完毕时，自动启动“打开文件对话框”，让您选择新的音乐文件来播放。
这样运行程序，你就能得到每分每秒的成就感和优美音乐的回报，不想来试试吗？