定时器-初级程序-极语言教程

//窗体代码:

整数 窗体,小时,分钟,标签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 定时
}

 

//程序代码:

导入 音乐播放 别名 mciSendStringA 支持库 "WINMM.dll",4
程序段 窗体消息(窗口,消息,参数,数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{左键点击(参数)}
否则 处理窗口(窗口,消息,参数,数据)
结束;时间类 时间;整数 时,分,开关;
程序段 窗体启动
音乐播放("open 分飞.mp3 alias 分飞" , 0, 0, 0);
当前时间(时间)
改控件数(窗体,1,时间.时,0)
改控件数(窗体,2,时间.分,0)
结束;
程序段 定时
{时=取控件数(窗体,1,0,0)
分=取控件数(窗体,2,0,0)
控制窗口(计时,假)
循环
{当前时间(时间)
改控件数(窗体,4,时间.秒,0)
改控件数(窗体,2,时间.分,0)延时(1000)}
(时间.时=时 而且 时间.分=分)
控制窗口(计时,真)
音乐播放("play 分飞", 0, 0, 0)}