各位大侠，看看thisform.timer1停不下来。错在哪儿呢？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 各位大侠，看看thisform.timer1停不下来。错在哪儿呢？

标题：各位大侠，看看thisform.timer1停不下来。错在哪儿呢？

只看楼主

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 11 楼

得分:0

去看看VFP帮助文件吧

坚守VFP最后的阵地

2013-08-04 16:38

jinanshui

等　级：论坛游民
帖　子：274
专家分：64
注　册：2009-10-6

第 12 楼

得分:0

我正在看

2013-08-04 17:01

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 13 楼

得分:0

最好把完整的程序传上来。

相互学习，互相交流，共同提高。

2013-08-04 17:14

jinanshui

等　级：论坛游民
帖　子：274
专家分：64
注　册：2009-10-6

第 14 楼

得分:0

以下是引用qjbzjp在2013-8-4 17:14:17的发言：

最好把完整的程序传上来。

好的，谢谢

[ 本帖最后由 jinanshui 于 2013-8-4 18:28 编辑 ]

2013-08-04 17:21

mzq

等　级：论坛游民
威　望：1
帖　子：28
专家分：95
注　册：2013-3-22

第 15 楼

得分:4

以下是引用jinanshui在2013-8-4 16:35:14的发言：

for s=1 to 1   我抑郁的是，这里原来是for s=1 to 5 ，为了验证该做for s=1 to 1看到显示，timer1不停下
    for j=1 to 5
        if ABS(ArrayName(s,j)-h(s,j))>0
            t=0
            exit
        endif
    ENDFOR
    IF t=0
        exit
        endif
    ENDFOR
ENDDO
  ?? ArrayName[6,1],'@',ArrayName[6,2],'@',ArrayName[6,3],'@',ArrayName[6,4],'@',ArrayName[6,5] FONT 'Courier',44，这里显示了，并且出了很多组，timer1不停下
  thisform.timer1.enabled= .f.继续运行，不停止。
谢谢，帮忙，我是个菜鸟。

t=0 总能满足，所以跳不出 DO WHILE .ENDDO 循环

2013-08-04 19:49

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 16 楼

得分:0

上传的文件在那？

坚守VFP最后的阵地

2013-08-04 20:17

jinanshui

等　级：论坛游民
帖　子：274
专家分：64
注　册：2009-10-6

第 17 楼

得分:0

以下是引用mzq在2013-8-4 19:49:04的发言：

t=0 总能满足，所以跳不出 DO WHILE .ENDDO 循环

做for s=1 to 1，有不满足的，看到显示，timer1不停下

[ 本帖最后由 jinanshui 于 2013-8-4 22:11 编辑 ]

2013-08-04 20:46

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 18 楼

得分:0

这段代码是做什么的，为什么非要在表单中运行？

[ 本帖最后由 sdta 于 2013-8-4 21:25 编辑 ]

坚守VFP最后的阵地

2013-08-04 21:22

jinanshui

等　级：论坛游民
帖　子：274
专家分：64
注　册：2009-10-6

第 19 楼

得分:0

玩大乐透彩票的，我将近五期期的大乐透号码（1-35中的五个）除以5，看余数是几，余数是0,1,2,3,4的分别有几个，
构成h（5，5）数组，例如h（1,5）分别为0,1,1,1,2
然后我随机抽取产生六组号码（每组内部不相同）构成数组ArrayName[6,5]，再把他们除以5看余数0,1,2,3,4的分别有几个构成数组pp[6,5]，将pp[5,5]与h[5,5]对比完全一一对应相同，则输出ArrayName[6,5]，有一个不同则返回重新随机抽取，直到完全一一对应相同为止，选取5组情况很多，不容易满足，但是一组对应相同pp[1,5]与h[1,5]应该比较容易满足，但是
一组是表单上出现ArrayName[6,5]，但停不下来，我怀疑我那里错了，特地请教大虾，望不吝赐教，谢谢。
见笑。

[ 本帖最后由 jinanshui 于 2013-8-4 21:48 编辑 ]

2013-08-04 21:46

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 20 楼

得分:0

看不太明白楼主想做什么

[ 本帖最后由 sdta 于 2013-8-4 21:52 编辑 ]

坚守VFP最后的阵地

2013-08-04 21:51

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-418555-1-1.html