定时音乐模块-初级程序-极语言教程

//窗体代码:

整数 窗体,小时,分钟,标签3,标签4,计时;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-350)>>1,上=(桌面.高-300)>>1;
窗体=创建窗口($200,程序.名称,"定时器",$10CF0064,左,上,350,300,0,0,0,0);
小时=创建窗口($200,"Edit","10",$50010000,70,65,45,25,窗体,1,4,0);
分钟=创建窗口($200,"Edit","30",$50010000,165,65,45,20,窗体,2,4,0);
标签3=创建窗口($0,"Static","时",$50000000,125,65,35,20,窗体,3,2,0);
标签4=创建窗口($0,"Static","分",$50000000,225,65,25,20,窗体,4,2,0);
计时=创建窗口($0,"Button","开始计时",$50000000,120,130,85,30,窗体,5,3,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 5 定时
}

 

//程序代码:

时间类 时间;整数 时,分;

程序段 窗体消息(窗口,消息,参数,数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{左键点击(参数)}
否则 处理窗口(窗口,消息,参数,数据)
结束;

程序段 窗体启动
音乐播放.添加("分飞.mp3")
当前时间(时间)
改控件数(窗体,1,时间.时,0)
改控件数(窗体,2,时间.分,0)
结束;

程序段 定时
{时=取控件数(窗体,1,0,0)
分=取控件数(窗体,2,0,0)
控制窗口(计时,假)
定时器(窗体,1,500)
结束;


小程序 定时器事件(窗口,消息,编号,毫秒)
当前时间(时间)
改控件数(窗体,4,时间.秒,0)
改控件数(窗体,2,时间.分,0)
如果(时间.时=时 而且 时间.分=分)
{控制窗口(计时,真)定时器(窗体,1,0)
音乐播放.开始(1)
信息框(0,"点击确定停止播放","定时时间到",信息图标)
音乐播放.暂停(1)
}
结束;