Question

易语言音乐播放器

怎么玩啊

Answer 1

.版本 2

.支持库 eMMedia

.支持库 edroptarget

.程序集 窗口程序集_启动窗口

.程序集变量 最大音量, 整数型

.程序集变量 左音量, 整数型

.程序集变量 右音量, 整数型

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

通用对话框1.过滤器 ＝ “MP3文件（*.mp3)|*.mp3”

.如果真 (通用对话框1.打开 () ＝ 真)

    编辑框1.内容 ＝ 通用对话框1.文件名

    媒体播放1.打开 (通用对话框1.文件名)

.如果真结束

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

媒体播放1.播放 (-1, )

滑块条1.最大位置 ＝ 媒体播放1.取总时间 ()

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

媒体播放1.暂停 ()

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

媒体播放1.停止 ()

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

拖放对象1.注册拖放控件 (取窗口句柄 ())

.如果真 (系统音量1.打开 (#音量类型.主音量) ＝ 0)

    信息框 (“主控音量打开失败”, 0, , )

.如果真结束

最大音量 ＝ 系统音量1.取最大音量 ()

系统音量1.取音量 (左音量, 右音量)

滑块条2.位置 ＝ 到整数 ((左音量 ＋ 右音量) ÷ 2 × 100 ÷ 最大音量 ＋ 1)

.子程序 _拖放对象1_得到文件

.参数 接收到的文件路径, 文本型

编辑框1.内容 ＝ 到文本 (接收到的文件路径)

通用对话框1.文件名 ＝ 编辑框1.内容

媒体播放1.打开 (通用对话框1.文件名)

.子程序 _时钟1_周期事件

.局部变量 a, 整数型

a ＝ 媒体播放1.取状态 ()

.如果 (a ＝ 0)

    编辑框2.内容 ＝ “未知！”

.否则

    .如果 (a ＝ 1)

        编辑框2.内容 ＝ “播放”

    .否则

        .如果 (a ＝ 2)

            编辑框2.内容 ＝ “停止”

        .否则

            .如果 (a ＝ 3)

                编辑框2.内容 ＝ “暂停”

            .否则

            .如果结束

        .如果结束

    .如果结束

.如果结束

滑块条1.位置 ＝ 媒体播放1.取位置 () ÷ 1000

.子程序 _滑块条1_位置被改变

媒体播放1.播放 (滑块条1.位置 × 1000, )

.子程序 _滑块条2_位置被改变

系统音量1.置音量 (最大音量 × 滑块条2.位置 ÷ 100, 最大音量 × 滑块条2.位置 ÷ 100)

Answer 2

播放MP3啊