多线程替代时钟问题

leishenclub

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

.版本 2

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

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

线程_启动 (, , )


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

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

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

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


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

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

    .如果真结束

.计次循环尾 ()

.子程序 子程序_判断
.参数 参_时间, 整数型

.判断循环首 (真)
    程序_延时 (参_时间, )
    .如果真 (进程_是否存在 (“1.exe”, ) ＝ 假)
        _按钮2_被单击 ()
        程序_延时 (1000, )
        _按钮1_被单击 ()
    .如果真结束

    .如果真 (_启动窗口.可视 ＝ 假)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()

leishenclub

小奶瓶 发表于 2019-12-23 17:58
1.时钟周期事件里面 不需要加延时
2.多线程去操作窗口组件和程序集变量 有几率奔溃。
你的代码无用代码太 ...

感谢大佬，受教了

蹦跶蹦跶

开始的时候
启动工作线程
启动监控线程

结束按钮
销毁工作线程
销毁监控线程

监控线程写成死循环就好了
局_启动时间=取启动时间（）
判断循环首
如果真（取启动时间（）-局_启动时间>1000*20）
局_启动时间=取启动时间（）
执行监控程序

延迟100

’比如能接受100毫秒的延迟
‘‘想精确的话加个范围想1毫秒的话，就延迟1
判断循环尾

li1276845

启动按钮 被点击 运行启动的线程（a）， 停止按钮被点击 运行 停止启动的线程(a), 加一条检测线程 检测到异常 就 运行  停止启动的线程(a)，至于什么 运行检测线程 就看你的需求了