资源描述：
《制作电影播放器》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、第十三讲 电影播放器制作实例教学目标l设计打开文件对话框l使用电影播放控制函数l控制播放速度l使用运动图标显示播放进度1程序功能制作可以播放Director、MPEG、FLC/FLI等格式的电影播放器。2主要操作步骤·拖动一个框架图标到流程线上·拖动一个群组图标到框架图标右侧，名为“播放电影”·双击打开群组图标，在二级流程线上拖入一个数字电影图标，名为“电影”·双击数字电影图标，打开属性设置窗口，单击Import按钮引入一个数字电影文件，然后选择Positioning为OnScreen，Movable为On
2、Screen·双击框架图标，打开流程窗口，删除所有图标·在框架图标的流程窗口中拖入一个交互图标·拖动一个导航图标到交互图标右侧，选择Button类型双击响应类型符号，打开属性设置窗口，使Perpetual有效，设置Erase为Don’tErase，Branch为Return4·双击导航图标，打开属性设置窗口，从列表框中选择图标“播放电影”·拖动一个导航图标到交互图标最右侧，双击导航图标，打开属性设置窗口，从列表框中选择图标“播放电影”·拖动一个计算图标到交互图标最右侧，名为“暂停”·拖动一个计算图标到交互图标最
3、右侧，名为“退出”双击打开计算图标，在窗口中输入：Quit(0)·选择[Window]/[Functions]命令，打开对话框，从Category中选择当前文件，单击Load按钮，出现对话框，要求选择需装载的UCD函数，选择FILEDLGS.U32，单击“打开”按钮，出现用户自定义函数对话框，列出了FILEDLGS.U32文件中包含的自定义函数，选择函数OpenFileDlg，然后单击Load按钮·单击导航图标“打开”，选择[Modify]/[Icon]/[Calculation]命令，输入如下内容：Myfil
4、ename="Allavailblefiles
5、*.avi;*.mov;*.mpg;*.dir;*.dxr;*.fli;*.flc
6、"Myfilename=Myfilename^"VideoforWindows
7、*.avi
8、QuickTimeMovie
9、*.mov
10、" Myfilename=Myfilename^"MPEGFiles
11、*.mpg
12、Director
13、*.dir;*.dxr
14、" Myfilename=Myfilename^"FLC/FLI
15、*.flc;*.fli
16、"4 Myfilename=Open
17、FileDlg("打开文件","","","",Myfilename) ——OpenFileDlg(dlgtitle,defname,defpath,defext,filters)——dlgtitle是对话框的标题，defname为缺省的文件名——defpath为缺省的文件路径，defext为缺省的文件扩展名，filters为过滤条件ifMyfilename<>""then ImportMedia(IconID@"电影",Myfilename) ——ImportMedia函数用于将媒体文件引入指定的图标中
18、endif·双击计算图标“暂停”，在窗口中输入以下内容：MediaPause(IconID@"电影",pause)——当pause为真时，暂停播放指定图标内容，否则从断点处继续播放pause=~pause——实现暂停与播放交替进行·拖动一个显示图标到框架图标上方，名为“底图”双击打开显示图标，使用[File]/[Import]命令引入图片文件，并调整位置·拖动一个显示图标到“底图”下方，名为“速度滑块”，引入图片文件使用[Modify]/[Icon]/[Properties]命令，在属性窗口中选择Positio
19、ning和Movable为OnPath，并拖动滑块产生路径4·双击数字电影图标，在属性窗口中设置Rate为PathPosition@”速度滑块”·双击显示图标“底图”，在窗口中输入：{PathPosition@”速度滑块”}fps使用[Modify]/[Icon]/[Properties]命令，选中UpdateDisplayedVariables·双击显示图标“底图”，在窗口中将图形复制，并列在下方·拖动一个显示图标到“速度滑块”下方，名为“进度滑块”，引入图片文件·拖动一个运动图标到“电影”下方，名为“跟踪进
20、度”·在运动图标的属性窗口中，选择Type为PathtoPoint，Concurrency为Perpetual，设置Time为0，并拖动进度滑块产生路径，设置Destination为MediaPosition@”电影”，End为MediaLength@”电影”4
