假,结束了

清明,结束了,可惜没有去看外婆,他们说清明的日子不好。唉,这世上,规矩真是多。外婆,你在远方,过得好吗?妈妈说小的时候,您最疼我和妹妹,记忆里,都是您在笑,笑着给我们糖吃,笑着给我零用钱。。。。。。。可我对您的声音却没有太多的记忆,唉。。。。。。长大了,看您的机会少了,我,后悔了,您能感受得到吗?

妈妈回家了,上海,没有了家的温度,我哭了,我,想家了。

世上的妈妈都是一样的吧,盼着自己的孩子好,盼着自己的家好,却从不记得把自己的幸福,自己的要求放在第一位。

BLOG,对于我,已经不知道是好,还是坏

随心写点东西,却又不敢写得太过明显,神说“世上没有不透风的墙”,是我太敏感,还是。。。。。。

曾经想过换个地方,换个没有知道的地方,想说的,想做的,通通写下来,可惜却丢不下“被关注”的虚荣,真该死

他们说,年轻时要好好工作,可惜,我却没有这份野心。对于工作,不知道是对是错,也不知道该长该短。即使是丢了,也没有什么值得可惜的吧。人,无非是在这世上走一回,苦或甜,哭或笑,尝过一遍,就结束了。工作,若不是因为生活,对于我,真的只是浮云。

假如有一天,我不只是为别人工作,还可以为自己工作,我的生活,也算圆满了一半了

上海,是个充满诱惑的地方,却也是个让人失去感性的地方。这里有太多的“斗争”,为了生活,呵。。。。。。话,不能说得太多,能懂,总该能懂,不懂的,怎么也不懂。我们,也慢慢落入俗套,为了生活,为了所谓的“理想”,住在自己打造的窝里,慢慢吞没自己年少时的轻狂。。。。。。

不管别人怎么看,不在乎别人懂不懂,即使你们说,这些都是做作的话,那又如何?能改变什么?什么也不能,有的不过是饭后多了一个讨论的话题而已。

天,阴的,原谅我又写了一次不太阳光的BLOG。。。。。。。

变量 音效1 为 整数型 变量 音效2 为 整数型 变量 播放位置 为 整数型 = -1 变量 当前播放模式 为 整数型 = 0 ' 0:无 1:音乐 2:视频 变量 控制条状态 为 逻辑型 = 真 ' 新增:控制条状态变量,初始为真(显示) 变量 音乐文件列表 为 文本型() ' 存储找到的音乐文件路径 变量 当前音乐索引 为 整数型 = 0 ' 当前播放的音乐索引 变量 当前音乐ID 为 整数型 = -1 ' 当前播放的音乐ID 事件 主窗口.创建完毕() ' 初始化界面 按钮_播放音乐.可用 = 真 按钮_播放视频.可用 = 真 按钮_停止音乐.可用 = 按钮_停止视频.可用 = 按钮_暂停.可用 = 按钮_继续.可用 = 按钮_上一首.可用 = 按钮_下一首.可用 = 按钮_控制条.标题 = "隐藏控制条" ' 初始状态 按钮_搜索音乐.标题 = "搜索音乐文件" 标签_状态.标题 = "请选择播放模式" 标签_当前音乐.标题 = "未选择音乐" ' 准备资源文件 写出资源文件("video.mp4", 取存储卡路径() & "/video.mp4") ' 设置初始控制条状态 视频播放器1.置控制条状态(控制条状态) ' 初始化列表框 列表框1.清空项目() 结束 事件 ' ========== 音乐搜索功能 ========== 事件 按钮_搜索音乐.被单击() 标签_状态.标题 = "正在搜索音乐文件..." 列表框1.清空项目() 清空数组(音乐文件列表) ' 清空列表 ' 搜索存储卡中的音乐文件 搜索音乐文件(取存储卡路径()) 如果 取数组长度(音乐文件列表) > 0 则 标签_状态.标题 = "找到 " & 取数组长度(音乐文件列表) & " 首音乐" 按钮_播放音乐.可用 = 真 按钮_上一首.可用 = 真 按钮_下一首.可用 = 真 当前音乐索引 = 0 标签_当前音乐.标题 = "准备播放: " & 取文件名(音乐文件列表[当前音乐索引]) 否则 标签_状态.标题 = "未找到音乐文件" 按钮_播放音乐.可用 = 按钮_上一首.可用 = 按钮_下一首.可用 = 结束 如果 结束 事件 ' 搜索音乐文件函数 函数 搜索音乐文件(目录路径 为 文本型) 变量 文件列表 为 文本型() 变量 文件信息 为 文件信息型 变量 i 为 整数型 文件列表 = 取文件列表(目录路径) 变量循环首 i = 0 至 取数组长度(文件列表) - 1 文件信息 = 取文件信息(目录路径 & "/" & 文件列表[i]) 如果 文件信息.是目录 = 真 则 ' 递归搜索子目录 搜索音乐文件(目录路径 & "/" & 文件列表[i]) 否则 ' 检查文件扩展名 变量 扩展名 = 取文件扩展名(文件列表[i]) 扩展名 = 到小写(扩展名) 如果 扩展名 = "mp3" 或 扩展名 = "ogg" 或 扩展名 = "wav" 或 扩展名 = "flac" 或 扩展名 = "m4a" 则 ' 添加到列表 加入数组成员_文本型(音乐文件列表, 目录路径 & "/" & 文件列表[i]) 列表框1.添加项目(文件列表[i]) 结束 如果 结束 如果 变量循环尾 结束 函数 ' 从完整路径中提取文件名 函数 取文件名(文件路径 为 文本型) 为 文本型 变量 位置 = 最后寻找(文件路径, "/") 如果 位置 >= 0 则 返回 取文本右边(文件路径, 取文本长度(文件路径) - 位置 - 1) 否则 返回 文件路径 结束 如果 结束 函数 ' ========== 音乐播放功能 ========== 事件 列表框1.项目被单击(项目索引 为 整数型) 当前音乐索引 = 项目索引 标签_当前音乐.标题 = "已选择: " & 列表框1.取项目内容(当前音乐索引) 如果 当前播放模式 = 1 且 当前音乐ID >= 0 则 ' 如果正在播放音乐,切换到选择的歌曲 音效播放器1.停止播放(当前音乐ID) 播放当前音乐() 结束 如果 结束 事件 事件 按钮_播放音乐.被单击() 如果 取数组长度(音乐文件列表) = 0 则 弹出提示("请先搜索音乐文件") 返回 结束 如果 当前播放模式 = 1 音效播放器1.初始化播放器(2) 标签_状态.标题 = "准备播放音乐..." 按钮_播放音乐.可用 = 按钮_停止音乐.可用 = 真 按钮_暂停.可用 = 真 按钮_上一首.可用 = 真 按钮_下一首.可用 = 真 播放当前音乐() 结束 事件 ' 播放当前选中的音乐 函数 播放当前音乐() 如果 当前音乐索引 < 0 或 当前音乐索引 >= 取数组长度(音乐文件列表) 则 当前音乐索引 = 0 结束 如果 变量 文件路径 = 音乐文件列表[当前音乐索引] 标签_当前音乐.标题 = "正在播放: " & 取文件名(文件路径) 标签_状态.标题 = "加载音乐中..." ' 载入并播放音乐 当前音乐ID = 音效播放器1.载入音效(文件路径) 结束 函数 事件 音效播放器1.载入完毕(音效ID 为 整数型) 如果 音效ID = 当前音乐ID 则 标签_状态.标题 = "开始播放音乐" 音效播放器1.播放音效(当前音乐ID, 0) ' 播放一次 结束 如果 结束 事件 事件 按钮_停止音乐.被单击() 如果 当前音乐ID >= 0 则 音效播放器1.停止播放(当前音乐ID) 结束 如果 标签_状态.标题 = "音乐已停止" 标签_当前音乐.标题 = "已停止播放" 按钮_播放音乐.可用 = 真 按钮_停止音乐.可用 = 按钮_暂停.可用 = 按钮_继续.可用 = 结束 事件 ' 上一首/下一首功能 事件 按钮_上一首.被单击() 如果 取数组长度(音乐文件列表) = 0 则 返回 结束 如果 当前音乐索引 = 当前音乐索引 - 1 如果 当前音乐索引 < 0 则 当前音乐索引 = 取数组长度(音乐文件列表) - 1 结束 如果 列表框1.置选中项目(当前音乐索引) 标签_当前音乐.标题 = "已选择: " & 列表框1.取项目内容(当前音乐索引) 如果 当前播放模式 = 1 且 当前音乐ID >= 0 则 音效播放器1.停止播放(当前音乐ID) 播放当前音乐() 结束 如果 结束 事件 事件 按钮_下一首.被单击() 如果 取数组长度(音乐文件列表) = 0 则 返回 结束 如果 当前音乐索引 = 当前音乐索引 + 1 如果 当前音乐索引 >= 取数组长度(音乐文件列表) 则 当前音乐索引 = 0 结束 如果 列表框1.置选中项目(当前音乐索引) 标签_当前音乐.标题 = "已选择: " & 列表框1.取项目内容(当前音乐索引) 如果 当前播放模式 = 1 且 当前音乐ID >= 0 则 音效播放器1.停止播放(当前音乐ID) 播放当前音乐() 结束 如果 结束 事件 ' ========== 视频播放功能 ========== 事件 按钮_播放视频.被单击() 当前播放模式 = 2 视频播放器1.播放视频(取存储卡路径() & "/video.mp4") 标签_状态.标题 = "正在播放视频..." 标签_当前音乐.标题 = "视频播放中" 按钮_播放视频.可用 = 按钮_停止视频.可用 = 真 按钮_暂停.可用 = 真 结束 事件 事件 按钮_停止视频.被单击() 视频播放器1.停止播放() 标签_状态.标题 = "视频已停止" 标签_当前音乐.标题 = "未选择音乐" 按钮_播放视频.可用 = 真 按钮_停止视频.可用 = 按钮_暂停.可用 = 按钮_继续.可用 = 结束 事件 ' ========== 通用控制功能 ========== 事件 按钮_暂停.被单击() 判断 当前播放模式 分支 1 ' 音乐模式 如果 当前音乐ID >= 0 则 音效播放器1.暂停播放(当前音乐ID) 标签_状态.标题 = "音乐已暂停" 标签_当前音乐.标题 = "已暂停: " & 列表框1.取项目内容(当前音乐索引) 结束 如果 分支 2 ' 视频模式 播放位置 = 视频播放器1.取播放位置() 视频播放器1.暂停播放() 标签_状态.标题 = "视频已暂停" 标签_当前音乐.标题 = "视频已暂停" 结束 判断 按钮_暂停.可用 = 按钮_继续.可用 = 真 结束 事件 事件 按钮_继续.被单击() 判断 当前播放模式 分支 1 ' 音乐模式 如果 当前音乐ID >= 0 则 音效播放器1.继续播放(当前音乐ID) 标签_状态.标题 = "音乐继续播放" 标签_当前音乐.标题 = "正在播放: " & 列表框1.取项目内容(当前音乐索引) 结束 如果 分支 2 ' 视频模式 如果 播放位置 > -1 则 视频播放器1.置播放位置(播放位置) 结束 如果 视频播放器1.继续播放() 标签_状态.标题 = "视频继续播放" 标签_当前音乐.标题 = "视频播放中" 结束 判断 按钮_继续.可用 = 按钮_暂停.可用 = 真 结束 事件 ' 控制条切换功能 事件 按钮_控制条.被单击() 如果 控制条状态 = 真 则 控制条状态 = 按钮_控制条.标题 = "显示控制条" 否则 控制条状态 = 真 按钮_控制条.标题 = "隐藏控制条" 结束 如果 视频播放器1.置控制条状态(控制条状态) 结束 事件 ' ========== 程序生命周期管理 ========== 事件 主窗口.程序被暂停() 如果 当前播放模式 = 2 且 视频播放器1.取播放状态() = 真 则 播放位置 = 视频播放器1.取播放位置() 视频播放器1.暂停播放() 否则 如果 当前播放模式 = 1 且 当前音乐ID >= 0 则 音效播放器1.暂停播放(当前音乐ID) 结束 如果 结束 事件 事件 主窗口.程序被重启() 如果 当前播放模式 = 2 且 播放位置 > -1 则 视频播放器1.置播放位置(播放位置) 视频播放器1.继续播放() 否则 如果 当前播放模式 = 1 且 当前音乐ID >= 0 则 音效播放器1.继续播放(当前音乐ID) 结束 如果 结束 事件 事件 按钮_退出.被单击() 结束程序() 结束 事件 检查下上述中的错误并修复
07-24
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值