播放音乐代码程序

bugaosuni1314

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 a, 文本型, , "4"

.子程序 __启动窗口_创建完毕 播放音乐.e (3.77 KB, 下载次数: 2)

前天 15:09 上传

点击文件名下载附件
下载积分: 精币 -2 枚

a [1] ＝ “D:\Kugou\1.png”
a [2] ＝ “D:\Kugou\2.png”
a [3] ＝ “D:\Kugou\3.png”
a [4] ＝ “D:\Kugou\4.png”
' a [5] ＝ “D:\Kugou\5.png”


.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 次数, 整数型, 静态

次数 ＝ 次数 ＋ 1

图片框1.图片 ＝ 读入文件 (a [次数])

.如果真 (次数 ＝ 4)
    次数 ＝ 0
.如果真结束


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

播放MP3 (1, #mp3)



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

暂停播放MP3 ()


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

继续播放MP3 ()

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
a	文本型	4

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

a [1] ＝ “D:\Kugou\1.png”
a [2] ＝ “D:\Kugou\2.png”
a [3] ＝ “D:\Kugou\3.png”
a [4] ＝ “D:\Kugou\4.png”
' a [5] ＝ “D:\Kugou\5.png”

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
次数	整数型

次数 ＝ 次数 ＋ 1
图片框1.图片 ＝ 读入文件 (a [次数])
如果真 (次数 ＝ 4)
次数 ＝ 0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

播放MP3 (1, #mp3 )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

暂停播放MP3 ()

子程序名	返回值类型	公开	备 注
_按钮3_被单击

继续播放MP3 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 文本型, , "4"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> a [1] ＝ “D:\Kugou\1.png”<br /> a [2] ＝ “D:\Kugou\2.png”<br /> a [3] ＝ “D:\Kugou\3.png”<br /> a [4] ＝ “D:\Kugou\4.png”<br /> ' a [5] ＝ “D:\Kugou\5.png”<br /> <br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 次数, 整数型, 静态<br /> <br /> 次数 ＝ 次数 ＋ 1<br /> <br /> 图片框1.图片 ＝ 读入文件 (a [次数])<br /> <br /> .如果真 (次数 ＝ 4)<br />     次数 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 播放MP3 (1, #mp3)<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 暂停播放MP3 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 继续播放MP3 ()

pipicool

学习一下

qq977352880

来赚个积分，顺便学习一下。

胖子葛格

感谢大神分享~！

hjinpwhe1

  下个学习一下

查过

感谢您对论坛的支持！

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

wh1234567

学习一下

pipicool

学习一下

卿卿吖

学习一下，好东西，感谢大佬的分享！