易语言在线播放器源码php,易语言写出自绘播放器列表

本文介绍了如何使用易语言编写一个自绘的在线播放器,包括播放列表的创建、播放控制和随机、重复播放模式的实现。通过示例代码详细展示了播放器的基本操作流程。
摘要由CSDN通过智能技术生成

播放器基本的写法顺序

.程序集 窗口程序集1

.程序集变量 文件号, 整数型

.程序集变量 mp3, 文本型, , "0"

.程序集变量 选项, 文本型

.子程序 __启动窗口_创建完毕

.局部变量 文件名, 文本型

组合框1.加入项目 (“请选歌曲”, )

按钮2.标题 = “播放”

选项 = “重复”

文件名 = 寻找文件 (取运行目录 () + “\*.mp3”, )

.循环判断首 ()

文件名 = 寻找文件 (, )

.如果真 (文件名 = “”)

跳出循环 ()

.如果真结束

组合框1.加入项目 (文件名, )

加入成员 (mp3, 文件名)

.循环判断尾 (文件名 ≠ “”)

置随机数种子 ()

组合框1.现行选中项 = 0

_按钮1_被单击 ()

.子程序 _按钮1_被单击

.如果真 (按钮2.标题 = “继续”)

按钮2.标题 = “播放”

按钮1.标题 = 选项

停止播放 ()

组合框1.现行选中项 = 0

.如果真结束

.如果真 (选项 = “重复”)

按钮1.标题 = “重复”

选项 = “随机”

返回 ()

.如果真结束

.如果 (选项 = “随机”)

按钮1.标题 = “随机”

选项 =

.版本 2 .支持库 wmp9 .支持库 shellEx .支持库 xplib .支持库 iext .支持库 iext3 .支持库 iext2 .支持库 iext6 .支持库 shell .程序集 启动窗口 .程序集变量 日期, 文本型 .程序集变量 时间, 文本型 .程序集变量 客户数, 整数型 .程序集变量 点播播放状态, 逻辑型, , , 点播变量 .程序集变量 目录信息, 文本型, , , 点播变量 .程序集变量 目录名, 文本型, , , 点播变量 .程序集变量 文件名, 文本型, , , 点播变量 .程序集变量 命令, 文本型, , , 点播变量 .程序集变量 点播计次, 整数型, , , 点播变量 .程序集变量 客户地址, 文本型, , , 点播变量 .程序集变量 歌曲名称, 文本型, , , 点播变量 .程序集变量 点播机号, 文本型, , , 点播变量 .程序集变量 控制, 播放器控制, , , 播放器 .程序集变量 媒体, 播放器媒体, , , 播放器 .程序集变量 网络, 播放器网络, , , 播放器 .程序集变量 设定, 播放器设定, , , 播放器 .程序集变量 光驱, 播放器光驱, , , 播放器 .程序集变量 光驱集, 播放器光驱集, , , 播放器 .程序集变量 热键标志, 整数型 .程序集变量 g, 整数型 .子程序 __启动窗口_创建完毕, , , 启动窗口 .局部变量 计次, 整数型 .局部变量 编号, 文本型 ' --======== 易语言资源网 (www.5A5X.com) ======-- ' 努力创建完善、持续更新的易语言学习例程源码资源站 ' --================ www.5A5X.com ===========-- ' --================== 易语言资源网注意事项 ================-- ' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站; ' 本易语言资源网( www.5A5X.com)所有软件和资料均为软件作者提 ' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所 ' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研 ' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权 ' 纠纷本站概不负责! ' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用 ' 页面,请注明来自易语言资源网,谢谢合作! ' --===================== www.5A5X.com ================-- 热键标志 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F7键) 标签1.底图 = #gqj ' bq1.dt= #gqj _时钟4_周期事件 () XP风格 (1) ' 载入 (系统设置, _启动窗口, 假) 置托盘图标 (#托盘图标, “大厅音乐点播系统 V1.0”) ' 设置客户列表框的行数 .' 如果真 (客户列表框.取项数 () = 0) .' 计次循环首 (到整数 (系统设置.N台.内容), 计次) ' ' 机器编号位数不足自动补0 .' 如果真 (取文本长度 (到文本 (计次)) = 1) ' 编号 = “00” + 到文本 (计次) .如果真结束 .' 如果真 (取文本长度 (到文本 (计次)) = 2) ' 编号 = “0” + 到文本 (计次) .如果真结束 .' 如果真 (取文本长度 (到文本 (计次)) = 3) ' 编号 = 到文本 (计次) .如果真结束 ' 客户列表框.置标题 (客户列表框.插入项 (, , , , , ), 1, 编号 + “号”) .' 计次循环尾 () .如果真结束 点播播放状态 = 假 控制 = 播放器.取控制 () 设定 = 播放器.取设定 () 设定.自动播放 = 假 播放器.地址 = 读配置项 (取运行目录 () + “\MusicServer.ini”, “System”, “播放地址”, ) 控制.当前位置 = 到整数 (读配置项 (取运行目录 () + “\MusicServer.ini”, “System”, “播放位置”, )) g = 到整数 (读配置项 (取运行目录 () + “\MusicServer.ini”, “System”, “播放序列”, )) ' 本源码来自易语言资源网(www.5A5X
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值