请问前辈，为什么我这个运行后在编辑框内不能显示内容

莫良

小白刚刚接触易语言，想写一个小程序用于工作中，软件如下，点击开始，利用通信测试ping左侧的IP，在右侧的编辑框分别累计ok和ng的次数，现在遇到几个问题，请前辈们帮忙看看，感谢！1，点击开始后右侧的编辑框内不会显示累计的结果，但是用调试输出发现实际是有内容的
2，点击开始后程序不能进行别的操作，比如关闭窗口，移动窗口等等，而且时间那一栏会停止工作，时间会停住不动
3，停止按钮是用来停止ping的动作，一直没想好应该怎么实现
我是用的死循环的方式来ping的，觉得问题可能出在这里，但是研究了好几天也没能有个头绪，还请前辈们指点，附代码在图下

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

XP风格 (2)
状态条1.加入栏目 (“程序启动成功”, 80, , , )
状态条1.背景颜色 ＝ 取颜色值 (0, 128, 0)
状态条2.加入栏目 (“程序运行时间：  ”, 80, , , )
状态条3.加入栏目 (“程序启动**********成功”, 300, , , )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

标签4.标题 ＝ 到文本 (取现行时间 ())

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

计次循环首 (8, a)
标记标签 ＝ 取标记组件 (a)
标记标签.内容 ＝ “”
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
b	整数型
ok	整数型
ng	整数型
ok_ng	整数型

b ＝ 1
ok ＝ 8
ng ＝ 7
' 分组框2.禁止 ＝ 真
循环判断首 ()
计次循环首 (8, a)
标记标签 ＝ 取标记组件 (a)
ok_ng ＝ 通信测试 (到文本 (标记标签.内容), 50)
如果 (ok_ng ＝ 0)
ok ＝ ok ＋ 2
ng ＝ ng ＋ 2
标记标签1 ＝ 取标记组件 (ok)
标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)
调试输出 (标记标签1.内容)
调试输出 (“0 :” ＋ 到文本 (ok))
调试输出 (“0 :” ＋ 到文本 (ng))
ok ＝ ok ＋ 2
ng ＝ ng ＋ 2
标记标签1 ＝ 取标记组件 (ng)
标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)
调试输出 (“-1 :” ＋ 到文本 (ok))
调试输出 (“-1 :” ＋ 到文本 (ng))
调试输出 (标记标签1.内容)

调试输出 (标记标签.内容)
调试输出 (通信测试 (到文本 (标记标签.内容), 50))
计次循环尾 ()
ok ＝ 8
ng ＝ 7
循环判断尾 (b ＝ 1)

i支持库列表	支持库注释
xplib	XP风格界面库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 xplib<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (2)<br /> 状态条1.加入栏目 (“程序启动成功”, 80, , , )<br /> 状态条1.背景颜色 ＝ 取颜色值 (0, 128, 0)<br /> 状态条2.加入栏目 (“程序运行时间：  ”, 80, , , )<br /> 状态条3.加入栏目 (“程序启动**********成功”, 300, , , )<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 标签4.标题 ＝ 到文本 (取现行时间 ())<br /> <br /> <br /> .子程序 _清空按钮_被单击<br /> <br /> .计次循环首 (8, a)<br />     标记标签 ＝ 取标记组件 (a)<br />     标记标签.内容 ＝ “”<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _开始_被单击<br /> .局部变量 b, 整数型<br /> .局部变量 ok, 整数型<br /> .局部变量 ng, 整数型<br /> .局部变量 ok_ng, 整数型<br /> <br /> b ＝ 1<br /> ok ＝ 8<br /> ng ＝ 7<br /> ' 分组框2.禁止 ＝ 真<br /> <br /> .循环判断首 ()<br />     .计次循环首 (8, a)<br />         标记标签 ＝ 取标记组件 (a)<br />         ok_ng ＝ 通信测试 (到文本 (标记标签.内容), 50)<br />         .如果 (ok_ng ＝ 0)<br />             ok ＝ ok ＋ 2<br />             ng ＝ ng ＋ 2<br />             标记标签1 ＝ 取标记组件 (ok)<br />             标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)<br />             调试输出 (标记标签1.内容)<br />             调试输出 (“0 :” ＋ 到文本 (ok))<br />             调试输出 (“0 :” ＋ 到文本 (ng))<br />         .否则<br />             ok ＝ ok ＋ 2<br />             ng ＝ ng ＋ 2<br />             标记标签1 ＝ 取标记组件 (ng)<br />             标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)<br /> <br />             调试输出 (“-1 :” ＋ 到文本 (ok))<br />             调试输出 (“-1 :” ＋ 到文本 (ng))<br />             调试输出 (标记标签1.内容)<br /> <br />         .如果结束<br /> <br />         调试输出 (标记标签.内容)<br /> <br />         调试输出 (通信测试 (到文本 (标记标签.内容), 50))<br /> <br />     .计次循环尾 ()<br />     ok ＝ 8<br />     ng ＝ 7<br /> <br /> .循环判断尾 (b ＝ 1)

补充内容 (2022-5-24 06:33):
下面是改用始终代替死循环的方式，但是点击开始后不能运行
.版本 2
.支持库 xplib
.支持库 iext
.支持库 spec

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

.子程序 __...

Ls60

用线程操作吧，循环判断里面适当加些延迟

  

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

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

XP风格 (2)
状态条1.加入栏目 (“程序启动成功”, 80, , , )
状态条1.背景颜色 ＝ 取颜色值 (0, 128, 0)
状态条2.加入栏目 (“程序运行时间：  ”, 80, , , )
状态条3.加入栏目 (“程序启动**********成功”, 300, , , )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

标签4.标题 ＝ 到文本 (取现行时间 ())

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

计次循环首 (8, a)
标记标签 ＝ 取标记组件 (a)
标记标签.内容 ＝ “”
计次循环尾 ()

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

启动线程 (&扫描, , 线程句柄)

子程序名	返回值类型	公开	备 注
_关闭_被单击

强制结束线程 (线程句柄)

子程序名	返回值类型	公开	备 注
扫描

变量名	类 型	静态	数组	备 注
b	整数型
ok	整数型
ng	整数型
ok_ng	整数型

b ＝ 1
ok ＝ 8
ng ＝ 7
' 分组框2.禁止 ＝ 真
循环判断首 ()
计次循环首 (8, a)
标记标签 ＝ 取标记组件 (a)
ok_ng ＝ 通信测试 (到文本 (标记标签.内容), 50)
如果 (ok_ng ＝ 0)
ok ＝ ok ＋ 2
ng ＝ ng ＋ 2
标记标签1 ＝ 取标记组件 (ok)
标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)
调试输出 (标记标签1.内容)
调试输出 (“0 :” ＋ 到文本 (ok))
调试输出 (“0 :” ＋ 到文本 (ng))
ok ＝ ok ＋ 2
ng ＝ ng ＋ 2
标记标签1 ＝ 取标记组件 (ng)
标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)
调试输出 (“-1 :” ＋ 到文本 (ok))
调试输出 (“-1 :” ＋ 到文本 (ng))
调试输出 (标记标签1.内容)

调试输出 (标记标签.内容)
调试输出 (通信测试 (到文本 (标记标签.内容), 50))
计次循环尾 ()
ok ＝ 8
ng ＝ 7
延迟 (1)
循环判断尾 (b ＝ 1)

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (2)<br /> 状态条1.加入栏目 (“程序启动成功”, 80, , , )<br /> 状态条1.背景颜色 ＝ 取颜色值 (0, 128, 0)<br /> 状态条2.加入栏目 (“程序运行时间：  ”, 80, , , )<br /> 状态条3.加入栏目 (“程序启动**********成功”, 300, , , )<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 标签4.标题 ＝ 到文本 (取现行时间 ())<br /> <br /> .子程序 _清空按钮_被单击<br /> <br /> .计次循环首 (8, a)<br />     标记标签 ＝ 取标记组件 (a)<br />     标记标签.内容 ＝ “”<br /> .计次循环尾 ()<br /> <br /> .子程序 _开始_被单击<br /> <br /> 启动线程 (&扫描, , 线程句柄)<br /> <br /> .子程序 _关闭_被单击<br /> <br /> 强制结束线程 (线程句柄)<br /> <br /> .子程序 扫描<br /> .局部变量 b, 整数型<br /> .局部变量 ok, 整数型<br /> .局部变量 ng, 整数型<br /> .局部变量 ok_ng, 整数型<br /> <br /> b ＝ 1<br /> ok ＝ 8<br /> ng ＝ 7<br /> ' 分组框2.禁止 ＝ 真<br /> .循环判断首 ()<br />     .计次循环首 (8, a)<br />         标记标签 ＝ 取标记组件 (a)<br />         ok_ng ＝ 通信测试 (到文本 (标记标签.内容), 50)<br />         .如果 (ok_ng ＝ 0)<br />             ok ＝ ok ＋ 2<br />             ng ＝ ng ＋ 2<br />             标记标签1 ＝ 取标记组件 (ok)<br />             标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)<br />             调试输出 (标记标签1.内容)<br />             调试输出 (“0 :” ＋ 到文本 (ok))<br />             调试输出 (“0 :” ＋ 到文本 (ng))<br />         .否则<br />             ok ＝ ok ＋ 2<br />             ng ＝ ng ＋ 2<br />             标记标签1 ＝ 取标记组件 (ng)<br />             标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)<br /> <br />             调试输出 (“-1 :” ＋ 到文本 (ok))<br />             调试输出 (“-1 :” ＋ 到文本 (ng))<br />             调试输出 (标记标签1.内容)<br /> <br />         .如果结束<br /> <br />         调试输出 (标记标签.内容)<br /> <br />         调试输出 (通信测试 (到文本 (标记标签.内容), 50))<br /> <br />     .计次循环尾 ()<br />     ok ＝ 8<br />     ng ＝ 7<br />     延迟 (1)<br /> .循环判断尾 (b ＝ 1)

莫良

.版本 2
.支持库 xplib
.支持库 iext
.支持库 spec

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

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

XP风格 (2)
状态条1.加入栏目 (“程序启动成功”, 80, , , )
状态条1.背景颜色 ＝ 取颜色值 (0, 128, 0)
状态条2.加入栏目 (“程序运行时间：  ”, 80, , , )
状态条3.加入栏目 (“程序启动**********成功”, 300, , , )

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

标签4.标题 ＝ 到文本 (取现行时间 ())


.子程序 _清空按钮_被单击

.计次循环首 (8, a)
    标记标签 ＝ 取标记组件 (a)
    标记标签.内容 ＝ “”
.计次循环尾 ()



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



.子程序 _时钟2_周期事件
.局部变量 b, 整数型
.局部变量 name, 文本型
.局部变量 ok, 整数型
.局部变量 ng, 整数型
.局部变量 ok_ng, 整数型

b ＝ 1
ok ＝ 8
ng ＝ 7
时钟2.时钟周期 ＝ 50

.计次循环首 (8, a)
    标记标签 ＝ 取标记组件 (a)
    ok_ng ＝ 通信测试 (到文本 (标记标签.内容), 50)
    .如果 (ok_ng ＝ 0)
        ok ＝ ok ＋ 2
        ng ＝ ng ＋ 2
        标记标签1 ＝ 取标记组件 (ok)
        标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)
        调试输出 (标记标签1.内容)
        调试输出 (“0 :” ＋ 到文本 (ok))
        调试输出 (“0 :” ＋ 到文本 (ng))
    .否则
        ok ＝ ok ＋ 2
        ng ＝ ng ＋ 2
        标记标签1 ＝ 取标记组件 (ng)
        标记标签1.内容 ＝ 到文本 (到数值 (标记标签1.内容) ＋ 1)

        调试输出 (“-1 :” ＋ 到文本 (ok))
        调试输出 (“-1 :” ＋ 到文本 (ng))
        调试输出 (标记标签1.内容)

    .如果结束

    调试输出 (标记标签.内容)

    调试输出 (通信测试 (到文本 (标记标签.内容), 50))

.计次循环尾 ()
ok ＝ 8
ng ＝ 7




.子程序 _关闭按钮_被单击

时钟2.时钟周期 ＝ 0

yuan71058

用 逻辑型 变量 控制 循环
停止按钮 控制变量为假

补充内容 (2022-5-24 06:55):
你得把源码文件发上来

Ls60

用线程去操作呗，dm在审核

鹏书

在死循环里面加一个
延迟（1）
处理事件（）

360云盘

看不懂啊

Siempre

所有的循环里面都加 程序_延时

莫良

Ls60 发表于 2022-5-24 07:24
用线程操作吧，循环判断里面适当加些延迟
[e=0].版本 2
.支持库 EThread

参照代码修改了一下，在点击开始后，点击关闭按钮，会让整个程序退出

莫良

Siempre 发表于 2022-5-24 11:18
所有的循环里面都加 程序_延时

感谢指点