易语言倒计时源码

易语言倒计时源码，源码是易语言调用API函数的应用教程。

.版本 2

.子程序 _开始_被单击

' 本源码来自三叶资源网(www.sanye.cx)
子程序_清理内存 ()
.如果 (总时间.内容 ＝ “”)
    总时间.内容 ＝ “1”
.否则

.如果结束
.如果 (开始.标题 ＝ “B”)

    起始X ＝ 5
    起始y ＝ 5
    数字宽度 ＝ 到整数 (宽度编辑框.内容)
    数字高度 ＝ 到整数 (高度编辑框.内容)
    数字厚度 ＝ 到整数 (厚度编辑框.内容)
    线条间隙 ＝ 到整数 (间隙编辑框.内容)
    time ＝ 到整数 (分钟.内容) × 60 ＋ 到整数 (秒钟.内容)
    总时间.内容 ＝ 到文本 (time)
    isalarm ＝ 真
    isonce ＝ 真
    是否倒数 ＝ 真
    API_InitializeCriticalSection (多线程许可证)
    载入 (窗口1, , 假)
    绘图线程 ＝ 0
    时钟1 ＝ 1
    .判断循环首 (取反 (是否已创建 (窗口1)))
    .判断循环尾 ()
    子程序_绘图 (time)
    API_SetTimer (_启动窗口.取窗口句柄 (), 时钟1, 1000, &子程序_主时钟事件)

    开始.标题 ＝ “S”
.否则
    开始.标题 ＝ “B”
    暂停.标题 ＝ “P”
    API_KillTimer (_启动窗口.取窗口句柄 (), 时钟1)
    是否倒数 ＝ 假
    .如果真 (子程序_取线程状态 (绘图线程) ＝ 2)
        子程序_等待线程 (绘图线程, 1000)
    .如果真结束
    ' API_TerminateThread (绘图线程, 0)
    .如果真 (子程序_取线程状态 (绘图线程) ＝ 1)
        API_CloseHandle (绘图线程)
    .如果真结束

    API_DeleteCriticalSection (多线程许可证)
    窗口1.销毁 ()
.如果结束

@易语言源码分享站