多线程替代时钟问题

﹏Ｂ°o╮

leishenclub 发表于 2019-12-22 18:15
线程的话，假如用另起的线程去控制原线程的话，就会出现崩溃

.版本 2

线程_启动 ()
线程_挂起 ()
线程_销毁 ()
精易模块的这些命令不好用？

﹏Ｂ°o╮

﹏Ｂ°o╮ 发表于 2019-12-22 18:18
.版本 2

线程_启动 ()

你用一个程序集的整数型变量控制线程，怎么控制都不会报错。

leishenclub

﹏Ｂ°o╮ 发表于 2019-12-22 18:18
.版本 2

线程_启动 ()

是这样的，我写的程序跑起来了，然后我点击开始按钮，这应该是主进程的主线程启动，然后新线程启动开始检测，新线程检测到了问题，需要点停止，再点开始，这时候就崩溃了

leishenclub

﹏Ｂ°o╮ 发表于 2019-12-22 18:20
你用一个程序集的整数型变量控制线程，怎么控制都不会报错。

我感觉是不是新线程操作原线程造成的冲突崩溃

﹏Ｂ°o╮

leishenclub 发表于 2019-12-22 18:30
我感觉是不是新线程操作原线程造成的冲突崩溃

把你的源码发上来吧。真不知道你要干啥了。

﹏Ｂ°o╮

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

线程句柄 ＝ 线程_启动 (&线程1)

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

线程_销毁 (线程句柄)

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

变量名	类 型	静态	数组	备 注
a	逻辑型

判断循环首 (取反 (a))
调试输出 (1)
程序_延时 (1, 1)
判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程句柄 ＝ 线程_启动 (&线程1)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 线程_销毁 (线程句柄)<br /> <br /> .子程序 线程1<br /> .局部变量 a, 逻辑型<br /> <br /> .判断循环首 (取反 (a))<br />     调试输出 (1)<br />     程序_延时 (1, 1)<br /> .判断循环尾 ()

﹏Ｂ°o╮

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
退出线程	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

退出线程 ＝ 0
启动线程 (&线程1, , 线程句柄)

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

退出线程 ＝ 1  ' 强制结束线程 (线程句柄)

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

判断循环首 (退出线程 ＝ 0)
调试输出 (1)
延时 (1000)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 退出线程, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 退出线程 ＝ 0<br /> 启动线程 (&线程1, , 线程句柄)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 退出线程 ＝ 1  ' 强制结束线程 (线程句柄)<br /> <br /> .子程序 线程1<br /> <br /> .判断循环首 (退出线程 ＝ 0)<br />     调试输出 (1)<br />     延时 (1000)<br /> .判断循环尾 ()

leishenclub

﹏Ｂ°o╮ 发表于 2019-12-22 18:31
把你的源码发上来吧。真不知道你要干啥了。

.版本 2

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

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

时钟1.时钟周期 ＝ 20000

.子程序 _按钮1_被单击

按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 假

.子程序 _按钮2_被单击

.如果真 (按钮1.禁止 ＝ 真)
    按钮1.禁止 ＝ 假
    _按钮1_被单击 ()
    程序_延时 (1000, )
.如果真结束


.子程序 子程序_计算
.参数 参_A, 整数型
.参数 参_B, 整数型
.局部变量 局_C, 整数型

.计次循环首 (10, )
    局_C ＝ 参_A ＋ 参_B
    .如果真 (局_C ＝ 2)
        运行 (“1.exe”, 假, )

    .如果真结束

.计次循环尾 ()

.子程序 a



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

.如果真 (进程_是否存在 (“1.exe”, ) ＝ 假)
    _按钮2_被单击 ()
    程序_延时 (1000, )
    _按钮1_被单击 ()

leishenclub

﹏Ｂ°o╮ 发表于 2019-12-22 18:31
把你的源码发上来吧。真不知道你要干啥了。

这个是目前的方案，我想用多线程判断

leishenclub

﹏Ｂ°o╮ 发表于 2019-12-22 18:31
把你的源码发上来吧。真不知道你要干啥了。

.版本 2

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

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

时钟1.时钟周期 ＝ 20000

.子程序 _按钮1_被单击

按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 假
子程序_计算 (1, 1)

.子程序 _按钮2_被单击

.如果真 (按钮1.禁止 ＝ 真)
    按钮1.禁止 ＝ 假
    _按钮1_被单击 ()
    程序_延时 (1000, )
.如果真结束


.子程序 子程序_计算
.参数 参_A, 整数型
.参数 参_B, 整数型
.局部变量 局_C, 整数型

.计次循环首 (10, )
    局_C ＝ 参_A ＋ 参_B
    .如果真 (局_C ＝ 2)
        运行 (“1.exe”, 假, )

    .如果真结束

.计次循环尾 ()

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

.如果真 (进程_是否存在 (“1.exe”, ) ＝ 假)
    _按钮2_被单击 ()
    程序_延时 (1000, )
    _按钮1_被单击 ()

.如果真结束