线程循环中加入了延时该怎么立刻结束

墨轩

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
是否运行	逻辑型

子程序名	返回值类型	公开	备 注
_按钮_线程开始_被单击

如果真 (按钮_线程开始.标题 ＝ “停止”)
是否运行 ＝ 假
线程_等待 (线程句柄, -1)
线程_销毁 (线程句柄)
线程句柄 ＝ 0
按钮_线程开始.标题 ＝ “开始”
返回 ()
是否运行 ＝ 真
线程句柄 ＝ 线程_启动 (&线程任务)
按钮_线程开始.标题 ＝ “停止”

子程序名	返回值类型	公开	备 注
线程任务

判断循环首 (是否运行)
如果真 (是否运行 ＝ 假)
跳出循环 ()
调试输出 (0)
程序_延时 (2000)
调试输出 (1)
程序_延时 (3000)
判断循环尾 ()
调试输出 (3)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 是否运行, 逻辑型<br /> <br /> .子程序 _按钮_线程开始_被单击<br /> <br /> .如果真 (按钮_线程开始.标题 ＝ “停止”)<br />     是否运行 ＝ 假<br />     线程_等待 (线程句柄, -1)<br />     线程_销毁 (线程句柄)<br />     线程句柄 ＝ 0<br />     按钮_线程开始.标题 ＝ “开始”<br />     返回 ()<br /> .如果真结束<br /> 是否运行 ＝ 真<br /> 线程句柄 ＝ 线程_启动 (&线程任务)<br /> 按钮_线程开始.标题 ＝ “停止”<br /> <br /> .子程序 线程任务<br /> <br /> .判断循环首 (是否运行)<br />     .如果真 (是否运行 ＝ 假)<br />         跳出循环 ()<br />     .如果真结束<br />     调试输出 (0)<br />     程序_延时 (2000)<br />     调试输出 (1)<br />     程序_延时 (3000)<br /> .判断循环尾 ()<br /> 调试输出 (3)

想实现的效果是点击停止了立刻结束线程并执行调试输出（3）

1173847128

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

线程_销毁 (线程句柄)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程_销毁 (线程句柄)

线程_销毁 (线程句柄）

chaochaochao

可以不通过传递参数来判断线程是否开关，直接用结束线程吧

1173847128

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
是否运行	逻辑型

子程序名	返回值类型	公开	备 注
_按钮_线程开始_被单击

如果 (是否运行 ＝ 假)
是否运行 ＝ 真
按钮_线程开始.标题 ＝ “停止”
线程句柄 ＝ 线程_启动 (&线程任务)

是否运行 ＝ 假
线程_销毁 (线程句柄)
按钮_线程开始.标题 ＝ “开始”
调试输出 (3)  ' ’放这不就好了-----------

子程序名	返回值类型	公开	备 注
线程任务

判断循环首 (是否运行)
' ’如果真 (是否运行 ＝ 假)
' ’跳出循环 ()
' 上面都循环判断，了还判断跳出个啥
调试输出 (0)
程序_延时 (2000)
调试输出 (1)
程序_延时 (3000)
判断循环尾 ()
' ’调试输出 (3)  ' 线程都被你强制关闭了还调试啥？？

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 是否运行, 逻辑型<br /> <br /> .子程序 _按钮_线程开始_被单击<br /> <br /> .如果 (是否运行 ＝ 假)<br />     是否运行 ＝ 真<br />     按钮_线程开始.标题 ＝ “停止”<br />     线程句柄 ＝ 线程_启动 (&线程任务)<br /> <br /> .否则<br />     是否运行 ＝ 假<br />     线程_销毁 (线程句柄)<br />     按钮_线程开始.标题 ＝ “开始”<br />     调试输出 (3)  ' ’放这不就好了-----------<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 线程任务<br /> <br /> .判断循环首 (是否运行)<br />     ' ’如果真 (是否运行 ＝ 假)<br />     ' ’跳出循环 ()<br /> <br />     ' 上面都循环判断，了还判断跳出个啥<br />     调试输出 (0)<br />     程序_延时 (2000)<br />     调试输出 (1)<br />     程序_延时 (3000)<br /> .判断循环尾 ()<br /> ' ’调试输出 (3)  ' 线程都被你强制关闭了还调试啥？？

1173847128

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
是否运行	逻辑型

子程序名	返回值类型	公开	备 注
_按钮_线程开始_被单击

如果 (是否运行 ＝ 假)
是否运行 ＝ 真
按钮_线程开始.标题 ＝ “停止”
线程句柄 ＝ 线程_启动 (&线程任务)

是否运行 ＝ 假
线程_销毁 (线程句柄)
按钮_线程开始.标题 ＝ “开始”
调试输出 (3)  ' ’放这不就好了-----------

子程序名	返回值类型	公开	备 注
线程任务

判断循环首 (是否运行)
' ’如果真 (是否运行 ＝ 假)
' ’跳出循环 ()
' 上面都循环判断，了还判断跳出个啥
调试输出 (0)
程序_延时 (2000)
调试输出 (1)
程序_延时 (3000)
判断循环尾 ()
' ’调试输出 (3)  ' 线程都被你强制关闭了还调试啥？？

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 是否运行, 逻辑型<br /> <br /> .子程序 _按钮_线程开始_被单击<br /> <br /> .如果 (是否运行 ＝ 假)<br />     是否运行 ＝ 真<br />     按钮_线程开始.标题 ＝ “停止”<br />     线程句柄 ＝ 线程_启动 (&线程任务)<br /> <br /> .否则<br />     是否运行 ＝ 假<br />     线程_销毁 (线程句柄)<br />     按钮_线程开始.标题 ＝ “开始”<br />     调试输出 (3)  ' ’放这不就好了-----------<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 线程任务<br /> <br /> .判断循环首 (是否运行)<br />     ' ’如果真 (是否运行 ＝ 假)<br />     ' ’跳出循环 ()<br /> <br />     ' 上面都循环判断，了还判断跳出个啥<br />     调试输出 (0)<br />     程序_延时 (2000)<br />     调试输出 (1)<br />     程序_延时 (3000)<br /> .判断循环尾 ()<br /> ' ’调试输出 (3)  ' 线程都被你强制关闭了还调试啥？？

1173847128

在审核，给你改良了一下

熬夜

为何不 弄个常量A  判断 a=0  a=1  去选择执行不执行 结果

love5618775

如果我来思考，我就写一个延迟100ms，循环，那么我要循环10次才算1ms，在这个循环体里面，我加入一个判断，如果变量=真，那么就跳出循环，继续执行，相当于100ms我判断值是否需要的值，不是我就不进行这个延迟的循环了。

1173847128

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
是否运行	逻辑型

子程序名	返回值类型	公开	备 注
_按钮_线程开始_被单击

如果 (是否运行 ＝ 假)
是否运行 ＝ 真
按钮_线程开始.标题 ＝ “停止”
线程句柄 ＝ 线程_启动 (&线程任务)

是否运行 ＝ 假
线程_销毁 (线程句柄)
按钮_线程开始.标题 ＝ “开始”
线程句柄 ＝ 0
调试输出 (3)  ' 这里调试不就好了

子程序名	返回值类型	公开	备 注
线程任务

判断循环首 (是否运行)
程序_延时 (2000)
' 延迟中是不会跳出循环的’
程序_延时 (3000)
判断循环尾 ()
' 调试输出 (3)  你都强制关闭线程了还怎么输出

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 是否运行, 逻辑型<br /> <br /> .子程序 _按钮_线程开始_被单击<br /> <br /> .如果 (是否运行 ＝ 假)<br /> <br />     是否运行 ＝ 真<br />     按钮_线程开始.标题 ＝ “停止”<br />     线程句柄 ＝ 线程_启动 (&线程任务)<br /> <br /> <br /> <br /> .否则<br />     是否运行 ＝ 假<br />     线程_销毁 (线程句柄)<br />     按钮_线程开始.标题 ＝ “开始”<br />     线程句柄 ＝ 0<br />     调试输出 (3)  ' 这里调试不就好了<br /> .如果结束<br /> <br /> <br /> .子程序 线程任务<br /> <br /> .判断循环首 (是否运行)<br />     程序_延时 (2000)<br />     ' 延迟中是不会跳出循环的’<br />     程序_延时 (3000)<br /> .判断循环尾 ()<br /> ' 调试输出 (3)  你都强制关闭线程了还怎么输出

1173847128

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 线程句柄, 整数型
.程序集变量 是否运行, 逻辑型

.子程序 _按钮_线程开始_被单击

.如果 (是否运行 ＝ 假)

    是否运行 ＝ 真
    按钮_线程开始.标题 ＝ “停止”
    线程句柄 ＝ 线程_启动 (&线程任务)



.否则
    是否运行 ＝ 假
    线程_销毁 (线程句柄)
    按钮_线程开始.标题 ＝ “开始”
    线程句柄 ＝ 0
    调试输出 (3)  ' 这里调试不就好了
.如果结束


.子程序 线程任务

.判断循环首 (是否运行)
    程序_延时 (2000)
    ' 延迟中是不会跳出循环的’
    程序_延时 (3000)
.判断循环尾 ()
' 调试输出 (3)  你都强制关闭线程了还怎么输出