我发一个易语言闹钟的源码,是从其他地方看到的搬运

admin2年前 (2024-06-25)易语言源码7524
源码名称:
易语言闹钟




源码截图:

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

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

_启动窗口.标题 = “闹钟 现行时间:” + 到文本 (取现行时间 ())


.子程序 _按钮启动_被单击

时钟2.时钟周期 = 100
标签4.标题 = “提示:已启动定时!”


.子程序 _按钮关闭_被单击

时钟2.时钟周期 = 0
标签4.标题 = “提示:定时已经关闭!!”
停止播放 ()



.子程序 _时钟2_周期事件
.局部变量 闹钟时间, 日期时间型

闹钟时间 = 指定时间 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()), 到整数 (编辑框时.内容), 到整数 (编辑框分.内容), 到整数 (编辑框秒.内容))
.如果真 (闹钟时间 = 取现行时间 ())
    标签4.标题 = “时间到了,moving!!!”
    播放MP3 (-1, “C:\Users\Administrator\Desktop\开场音乐.mp3”)
    时钟2.时钟周期 = 0
.如果真结束




源码下载(下面三个下载地址,请选择一个网盘下载):


蓝奏下载:

百度网盘:

微云下载: