数据库03编写一个多媒体播放器.docx
- 文档编号:27764952
- 上传时间:2023-07-04
- 格式:DOCX
- 页数:16
- 大小:1.17MB
数据库03编写一个多媒体播放器.docx
《数据库03编写一个多媒体播放器.docx》由会员分享,可在线阅读,更多相关《数据库03编写一个多媒体播放器.docx(16页珍藏版)》请在冰豆网上搜索。
数据库03编写一个多媒体播放器
编写一个多媒体播放器—进一步熟悉项目管理器的操作和使用
引言:
我们的计算机中往往存放有有许多的多媒体文件:
歌曲,图片,视频等,要播放这些多媒体文件,需要多媒体的播放器。
市场上播放器的种类非常多,功能也各有千秋。
例如:
QQ音乐\QQ影音、暴风影音、XX音乐、酷我音乐、酷狗音乐……
今天我来制作一个属于自己的多媒体播放器,这个播放器支持的视频、音频类型与你计算机中安装的解码器有关,如果解码器完整,可以播放非常多的文件。
首先在E盘建立一个文件夹“播放器”,用来存放我们新的项目所用到的所有文件
然后从老师的计算机中下载文件“Picture.rar”这是本项目用到的图标和图片资源,并把这个文件复制到“播放器”文件夹,然后把这个文件解压到“E:
\播放器\Picture”文件夹中
一、启动VFP,新建一个项目
项目保存在“e:
\播放器”文件夹中,项目名称为“多媒体播放器”
二、在项目中新建一个“表单”
设置表单属性
Autocenter:
.T.–真打开程序时让程序窗口自动放在屏幕中间
Hight:
480启动程序时设置程序窗口的长宽为
Width:
640640*480像素大小
Caption:
多媒体播放器程序的标题栏标题显示为“多媒体播放器”
ShowWindow:
2-作为顶层表单&&使用程序窗口独立于VFP主窗口
ICON属性:
main.ico
BoderStyle:
2固定对话框
Showtips:
.T.
Maxbuuton:
.F.
三、在表单中添加控件
1、添加一个控件“WindowsMediaPlayer”
修改控件的Name属性(给控件起一个名字)为:
wmp1
修改控件的宽度属性(width=640),高度属性(height=440)
Top:
0left:
0
修改控件的UiMode属性为:
none(这个属性的值可为Full,Mini,None中的一个,自己试试分别是什么效果)
修改控件的“EnableContextMenu”属性为“F-假”(不显示右键菜单,T-真是显示右键菜单)
以上完成后是下面的样子
2、下面增加几个按钮:
在下图中,单击表单控件图标,选择“常用”
单击下图的“命令按钮”
在屏幕合适位置,拖动,绘制五个按钮
修改五个按钮的
“ToolTipText”属性:
分别为“打开”“播放”“暂停”“停止”“静音/恢复”
Width:
35
Height:
35
Caption:
空
并用“格式”菜单把五个按钮调整对齐,和间距
设置按钮的Picture属性分别为:
Command1.Picture=Open.jpg
Command2.Picture=play.jpg
Command3.Picture=pause.jpg
Command4.Picture=stop.jpg
3、在按钮的右边一个合适位置绘制一个“微调控件”(Spinner1)
属性:
SpinnerHighValue=100SpinnerLowValue=0
keybordHighValue=100keybordLowValue=0
Value=0
Width:
48height:
25
4、在右边一个合适位置绘制一个“标签”(label1)
修改caption属性为空
Caption=“”
5、在任何一个位置绘制一个计时器(timer1)
设置其属性
Interval:
1000(1000毫秒=1秒计时器工作一次)
Enabled:
.F.-假(刚打开程序时计时器不工作)
四、书写代码(事件-动作)
1、“打开文件”按钮单击事件代码(单击事件,即Clock事件)
cFile=getfile("MP3|WMA|MID|ASF|WMV|AVI|MPEG|JPG|GIF|PNG")
Ifnotempty(cfile)
Thisform.wmp1.url=cFile
Thisform.wmp1.controls.play()
Thisform.timer1.enabled=.t.
Thisform.wmp1.width=640
Thisform.wmp1.height=440
Endif
2、“播放按钮”按钮单击事件代码(单击事件,即Clock事件)
Thisform.wmp1.controls.play()
Thisform.wmp1.width=640
Thisform.wmp1.height=440
3、“暂停播放”按钮单击事件按钮代码(单击事件,即Clock事件)
Thisform.wmp1.controls.pause()
Thisform.wmp1.width=640
Thisform.wmp1.height=440
4、“停止播放”按钮单击事件(单击事件,即Clock事件)
Thisform.wmp1.controls.stop()
Thisform.wmp1.width=640
Thisform.wmp1.height=440
5、Wmp1控件的“PlayStateChange”事件代码(播放器状态发生变化时发生的动作)
Thisform.wmp1.width=640
Thisform.wmp1.height=440
6、计时器的代码
thisform.label1.caption=thisform.wmp1.controls.currentPositionString;
+"/"+thisform.wmp1.currentMedia.durationString
7、command5静音按钮的"Init"事件代码
this.picture="Picture\Mute.jpg"
(打开程序显示这个按钮之前,设置这个按钮的picture=”Picture\Mute.jpg”)
8、command5静音按钮的"Click"事件代码(单击事件,就是在鼠标单击这个按钮时的动作)
IfRight(this.picture,8)="mute.jpg"
thisform.Wmp1.settings.volume=0
this.picture="volum.jpg"
Else
thisform.Wmp1.settings.volume=50
this.picture="mute.jpg"
Endif
如果这个按钮的图片是”Mute.jpg”,就把音量大小设置为0,然后把按钮图片换成“Picture\volum.jpg”
如果按钮的图片不是”Mute.jpg”,就把音量大小设置为50,然后把按钮图片换成“Picture\Mute.jpg”
其中:
Right()是VFP的函数,它的作用是把从一个字符串的右边取出若干个符号
例如:
在命令窗口中输入?
Right(“ThisisAComputer”,8)
将会在显示区域输出Computer
?
Right("ThisisAComputer",10)输出AComputer
对应的还有Left():
从字符串左边取出若干个符号
?
Left(“ThisisAComputer”,8)输出“Thisis”(注意后边有一个空格,空格也是一个符号)
?
Left(“ThisisAComputer”,11)输出“ThisisaC”
以上代码可以实现动态更改按钮上的图片,如果静音图片,按下按钮,声音被关闭,同时换成另外一张图片;如果不是静音图片,声音设置为50,并把图片改为静音
9、微调控件(音量)按钮代码
双击控件,在代码窗口的“过程”中,选中“InteractiveChange”事件
(在使用键盘或鼠标更改控件的值时,此事件发生)
代码如下
Thisform.wmp1.settings.volume=this.value
10、设置单击“关闭”按钮事件(单击窗口右上角的关闭按钮,退出程序)
在表单空白处双击,打开代码窗口,在“对象”中选择“Form1”(就是表单)
在“过程”中选中“QueryUnload”(卸载表单之前),在代码区域输入下面一行代码
ask=messagebox("你确定要退出吗?
",4+32,"询问")
Ifask=6
Quit
Else
Nodefault
Endif
五、编写并设置主程序
1在项目管理器中单击“代码-程序”,单击新建按钮新建一个程序文件,内容如下,然后保存到项目所在文件夹中,文件名为“播放器”,然后在项目管理器中把这个文件“设置为主文件”
Onshutdownquit
Doform<你的播放器表单文件名>
Readevents
2编写一个配置文件config.fpw
在项目管理器的的“其他-文件文件”中,新建一个文件,文件内容如下
screen=OFF
RESOURCE=OFF
保存的文件名为config.fpw(切记!
)
3、设置项目图标
六、连编程序
作用:
搜集程序用到的各种文件到项目管理器中
检查程序中的代码错误
把有关文件打包并生成二进制的应用程序(EXE或APP或DLL)
在程序中添加软件相关信息
1、重新连编项目:
收集程序用到的图片、图标、视频、音频等文件并检查错误
2、连编后如果发现某些用到的文件没在项目管理器中,应该手工添加
3、连编可执行文件
添加软件版本信息:
版本号如1.0.0
产品名称:
多媒体播放器
文件说明:
是基于WindowsMediaPlay控件的播放器,可支持多媒体类型
与安装的解码器有关
公司名称:
就用你的名字吧
七、制作软件发布安装包
把编译好的软件以及软件运行时用到的文件复制到一个新的文件夹“X”中,同时新建一个文件夹“Y”
在VFP中打开“工具-向导-安装”,单击“定位目录”选择文件夹“Y”作为发布目录存放安装包
在上面的图中,单击发布目录右边的按钮,找到你软件存放的文件夹“X”
指定组件:
我的这个小软件只选中第一项“VisualFoxPro运行时刻组件”就可以了
创建磁盘映像:
映像目录仍然选择刚才第一步选择的“Y”目录,磁盘映像选择“Web安装”
在“开始”菜单中创建快捷方式
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 03 编写 一个 多媒体 播放