带歌词播放器易语言源码

带歌词播放器

.版本 2 .支持库 wmp9 .程序集 窗口程序集1 .程序集变量 j, 播放器控制 .程序集变量 h, Value, , "0" .程序集变量 ht, 文本型, , "0" .程序集变量 y, 文本型, , "0" .程序集变量 i .程序集变量 tmp, 文本型 .程序集变量 tmp2, 文本型 .子程序 __启动窗口_创建完毕 tmp = 取临时文件名 () tmp2 = 取临时文件名 () ' 本源码来自三叶资源网(www.sanye.cx) 写到文件 (tmp2, 到字节集 (“5,此文件没有歌词”)) j = 播放器1.取控制 () .子程序 _时钟1_周期事件 .局部变量 tt, 双精度小数型 tt = 四舍五入 (j.当前位置, 1) SetStr (tt) .子程序 SetStr .参数 Time, 双精度小数型 .局部变量 i2, 整数型 .计次循环首 (取数组下标 (h, ), i2) .如果真 (h [i2].Time = Time) 标签1.标题 = h [i2].String 跳出循环 () .如果真结束 .计次循环尾 () .子程序 _播放器1_播放状态被改变 .参数 新的状态, 整数型 .判断开始 (新的状态 = 8 或 新的状态 = 2 或 新的状态 = 1) 时钟1.时钟周期 = 0 .判断 (新的状态 = 3) 时钟1.时钟周期 = 50 .默认 .判断结束 .子程序 _按钮1_被单击 .如果真 (通用对话框1.打开 ()) 播放器1.地址 = 通用对话框1.文件名 ht = 分割文本 (到文本 (读入文件 (GetLRCLocation (通用对话框1.文件名))), #换行符, ) 重定义数组 (h, 假, 取数组下标 (ht, )) .计次循环首 (取数组下标 (ht, ), i) y = 分割文本 (ht [i], “,”, 2) 重定义数组 (y, 真, 2) h [i].Time = 到数值 (y [1]) h [i].String = y [2] .计次循环尾 () .如果真结束 .子程序 GetLRCLocation, 文本型 .参数 File, 文本型 .局部变量 reh, 文本型 reh = 取文本左边 (File, 倒找文本 (File, “.”, , 假) - 1) .如果真 (文件是否存在 (reh + “.olr”)) 返回 (reh + “.olr”) .如果真结束 .如果真 (文件是否存在 (reh + “.lrc”)) ConvertLRCToOLR (reh + “.lrc”, tmp, 0) 返回 (tmp) .如果真结束 返回 (tmp2) .子程序 __启动窗口_将被销毁 删除文件 (tmp) 删除文件 (tmp2)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

带歌词播放器易语言源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注