.版本 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)