类_多线程许可证和类_多线程式时钟

类_多线程许可证和类_多线程式时钟

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 A, 类_多线程式时钟

.子程序 __启动窗口_创建完毕

A.线程时钟_初始化 (到整数 (&时钟事件), 1, 1)

.子程序 时钟事件
.参数 PP
.局部变量 KK, , 静态, , ' 本源码来自三叶资源网(www.sanye.cx)

KK ＝ KK ＋ 1
_启动窗口.标题 ＝ “呵呵仙” ＋ 到文本 (PP) ＋ “:” ＋ 到文本 (KK)

.子程序 _按钮线程时钟_启动_被单击
.局部变量 线程id, 整数型
.局部变量 线程句柄, 整数型

A.线程时钟_启动 (, 线程句柄, 线程id)
调试输出 (线程id, 线程句柄)

.子程序 _按钮线程时钟_暂停_被单击

A.线程时钟_暂停 ()
' 调试输出 (A.线程时钟_暂停 ())

.子程序 _按钮线程时钟_销毁_被单击

A.线程时钟_销毁 ()
' 调试输出 (A.线程时钟_销毁 ())

.子程序 _按钮线程时钟_置周期_被单击

A.线程时钟_置周期 (500)

@呵呵仙