关于无线循环的问题

无声的雨 · 发表于 2011-9-2 00:37:57

千年发表于 2011-9-2 00:18
以前不知道，但刚刚经过我测试呢，
发现如果用逻辑性的程序集的变量来弄的话，两个不能同时运行
也就是说 ...

但是用了线程达不到无限了啊，我要点击按钮后就会一直发送，但是这个是限制了次数的，就想代码里面的第二个例子运行到100就停了

fsjoe · 发表于 2011-9-2 00:38:07

本帖最后由 fsjoe 于 2011-9-2 00:39 编辑

似乎是易的两个子程序中同时循环存在一定冲突.
解决方案有两个:
1.加个时钟,这样可以同时进行多项操作,还可以简化代码
2.将两个子程序转为多线程方式

只做了比较简单的第一个方法
版本 2
.支持库 spec
.程序集窗口程序集1
.程序集变量 dd, 整数型
.程序集变量 bb, 整数型
.子程序 _按钮11_被单击
bb ＝ 0
.子程序 _按钮8_被单击
bb ＝ -1

.子程序 _按钮7_被单击
dd ＝ 0
.子程序 _按钮9_被单击
dd ＝ -1

.子程序 _时钟1_周期事件
.如果真 (bb ＞ -1)
bb ＝ bb ＋ 1
.如果真 (bb ＝ 2)  ' 200毫秒
      调试输出 (“发数据1”)
      ' 客户1.发送数据 (还原字节集2 (编辑框1.内容))
      bb ＝ 0
.如果真结束
.如果真结束
.如果真 (dd ＞ -1)
dd ＝ dd ＋ 1
.如果真 (dd ＝ 5)  ' 500毫秒'
      调试输出 (“发数据2”)
      ' 客户1.发送数据 (还原字节集2 (编辑框1.内容))
      dd ＝ 0
.如果真结束
.如果真结束

.子程序 __启动窗口_创建完毕
bb ＝ -1
dd ＝ -1

无声的雨 · 发表于 2011-9-2 00:55:10

fsjoe 发表于 2011-9-2 00:38
似乎是易的两个子程序中同时循环存在一定冲突.
解决方案有两个:
1.加个时钟,这样可以同时进行多项操作,还 ...

还是不行

fsjoe · 发表于 2011-9-2 00:58:40

本帖最后由 fsjoe 于 2011-9-2 01:01 编辑

无声的雨发表于 2011-9-2 00:55
还是不行

我这里测试是通过的,不行就是其他原因了
不要只是一句不行
要自己分析原因
或者你上传你的代码

下面是我运行时的调试输出结果,可以看出时间是正确的
* “发数据1”
* “发数据1”
* “发数据2”
* “发数据1”
* “发数据1”
* “发数据1”
* “发数据2”
* “发数据1”
* “发数据1”
* “发数据2”
* “发数据1”
* “发数据1”
* “发数据1”
* “发数据2”
* “发数据1”
* “发数据1”

无声的雨 · 发表于 2011-9-2 01:03:45

fsjoe 发表于 2011-9-2 00:58
我这里测试是通过的,不行就是其他原因了
不要只是一句不行
要自己分析原因

我用你发的本地调试没反应

[e]
.版本 2
.支持库 spec
.程序集窗口程序集1
.程序集变量 bb, 整数型
.程序集变量 dd, 整数型
.子程序 _按钮11_被单击
bb ＝ 0
.子程序 _按钮8_被单击
bb ＝ -1
.子程序 _按钮7_被单击
dd ＝ 0
.子程序 _按钮9_被单击
dd ＝ -1
.子程序 _时钟1_周期事件
.如果真 (bb ＞ -1)
bb ＝ bb ＋ 1
.如果真 (bb ＝ 2)  ' 200毫秒
      调试输出 (“发数据1”)
      ' 客户1.发送数据 (还原字节集2 (编辑框1.内容))
      bb ＝ 0
.如果真结束
.如果真结束
.如果真 (dd ＞ -1)
dd ＝ dd ＋ 1
.如果真 (dd ＝ 5)  ' 500毫秒'
      调试输出 (“发数据2”)
      ' 客户1.发送数据 (还原字节集2 (编辑框1.内容))
      dd ＝ 0
.如果真结束
.如果真结束

.子程序 __启动窗口_创建完毕
bb ＝ -1
dd ＝ -1

[/e]

无声的雨 · 发表于 2011-9-2 01:10:57

点击按钮本地调试输出没反应

[e]版本 2
.支持库 spec
.程序集窗口程序集1
.程序集变量 dd, 整数型
.程序集变量 bb, 整数型
.子程序 _按钮11_被单击
bb ＝ 0
.子程序 _按钮8_被单击
bb ＝ -1

.子程序 _按钮7_被单击
dd ＝ 0
.子程序 _按钮9_被单击
dd ＝ -1

.子程序 _时钟1_周期事件
.如果真 (bb ＞ -1)
bb ＝ bb ＋ 1
.如果真 (bb ＝ 2)  ' 200毫秒
      调试输出 (“发数据1”)
      ' 客户1.发送数据 (还原字节集2 (编辑框1.内容))
      bb ＝ 0
.如果真结束
.如果真结束
.如果真 (dd ＞ -1)
dd ＝ dd ＋ 1
.如果真 (dd ＝ 5)  ' 500毫秒'
      调试输出 (“发数据2”)
      ' 客户1.发送数据 (还原字节集2 (编辑框1.内容))
      dd ＝ 0
.如果真结束
.如果真结束

.子程序 __启动窗口_创建完毕
bb ＝ -1
dd ＝ -1
[/e]

无声的雨 · 发表于 2011-9-2 01:12:42

或者把你源码打包发上来我试试看

虚心进步 · 发表于 2011-9-2 02:05:21

刚试了.确实.同一程序集里的子程序共用一组件会出冲突....

千年 · 发表于 2011-9-2 03:58:44

无声的雨发表于 2011-9-2 00:37
但是用了线程达不到无限了啊，我要点击按钮后就会一直发送，但是这个是限制了次数的，就想代码里面的第二 ...

o(╯□╰)o 囧啦，什么叫做使用了线程就达不到无限？？？？
没这个道理吧？
虽然后面这份代码里没去弄，可是前面已经给你说过怎么去无限循环了，是不？
咋不会代入一下，到后面这份代码里呢？

好吧，现在就给你重新弄一下去!!!!

千年 · 发表于 2011-9-2 04:14:56

线程 1.rar (17.44 KB, 下载次数: 4)

		自动登录	找回密码
密码			注册

[已解决] 关于无线循环的问题