实验四视频音频信息的应用.docVIP

实验四 视频、音频信息的应用 一、实验目的 1、学会使用“数字影片”图标和“声音”图标。 2、掌握“数字影片”图标和“声音”图标的属性设置方法。 二、实验环境 Windows2000/XP操作系统、Authorware7.0中文版及以上。 三、试验内容 1、数字电影的播放控制 要求：设计的程序能方便地对数字化电影进行播放、停止、暂停、快进、快退加以控制在流程线上放置一个图标，输入ResizeWindow(640,480)，调整运行时窗口的大小； 2) 在流程线上放置一个图标，命名为初值，输入: stopStatus:=False movieRate:=10 对程序中的变量进行初始化在流程线上一图标，导入的是文件，以外部文件格式，所以选项不可选，单击标签，在中选择选项，在中输入变量movieate，用来控制播放速度单位帧秒在流程线上放置一个交互图标，命名为控制，依次拖放7个群组图标到交互图标的右下侧，分别命名为放映、暂停、继续、快进、后退、退出，响应类型为按钮响应，并依次调整好各按钮的位置；为了设置数字化电影在播放时，快进、继续、前进、后退按钮为不可选，可以双击图标上方的按钮响应标志，在弹出的对话框的后面的正文框中输入变量stopStatus”； 6）为各群组图标定义编辑内容选择放映图标，按下Ctrl+=键，或选择，在弹出的编辑窗口中输入：movieRate:=10 stopStatus:=False GoTo(IconID@Movie) 同样方法，在快进编辑窗口中输入：movieRate:=movieRate+5 stopStatus:=False GoTo(IconID@Movie) 在暂停编辑窗口中输入： mediaPause(IconID@Movie,True) stopStatus:=True 在继续编辑窗口中输入：mediaPause(IconID@movie,False) stopStatus:=False 在前进编辑窗口中输入：mediaSeek(IconID@movie,Mediaposition@movie+2) 在后退编辑窗口中输入：mediaSeek(IconID@movie,Mediaposition@movie-2) 在退出编辑窗口中输入：Quit() 另外在退出交互按钮的中选择，以退出交互选项。程序效果如下图：ResizeWindow(640,170) SetWindowText( WindowHandle , MP3播放器) tMsMP3CreatePlayer(WindowHandle, mp3Status) mp3Status:=-1 mp3StatusValue[1] := 已打开 -- mp3Status=0 mp3StatusValue[2] := 已准备好 -- mp3Status=1 mp3StatusValue[3] := 停止 -- mp3Status=2 mp3StatusValue[4] := 正在播放 -- mp3Status=3 mp3StatusValue[5] := 现在暂停 -- mp3Status=4 在“打开MP3文件”计算图标的代码窗口中输入以下程序： mp3FileName := mp3FileName := tMsOpenImageFile(WindowHandle, Select MP3 File, FileLocation, , *.mp3, MP3 Files|*.mp3;*.mpa;*.mp2;*.mp3) if mp3FileName then tMsMP3LoadFile(mp3FileName) if mp3FileName then PressKey(p) 在“从头播放”计算图标的代码窗口中输入以下程序： tMsMP3Stop() tMsMP3Play(0,0) 在“播放”计算图标的代码窗口中输入以下程序： tMsMP3Play(0, 0) 在“暂停”计算图标的代码窗口中输入以下程序： tMsMP3Pause() 在“停止”计算图标的代码窗口中输入以下程序： tMsMP3Stop() 在“退出”计算图标的代码窗口中输入以下程序： tMsMP3Stop() Quit() 3） 双击“MOD(Sec,2)=0”显示图标打开演示窗口，用文本输入工具输入以下文本： MP3 双击“MOD(Sec,2)=1”显示图标打开演示窗口，用文本输入工具输入以下文本： 播放器 双击“按钮交互”交互图标打开演示窗口，用文本输入工具输入以下文本： 文件名：{SubStr(mp3FileName,RFind(\