标题:FOR循环的步长,怎么精确些?
取消只看楼主
不懂才问
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:大草原
等 级:贵宾
威 望:29
帖 子:1501
专家分:6573
注 册:2010-7-5
结帖率:91.53%
已结贴  问题点数:20 回复次数:4 
FOR循环的步长,怎么精确些?
            FOR tempFontSize=8 TO 72 STEP 0.1
                this.InfoLabel1.fontSize=tempFontSize
                IF (this.infoLabel1.height>this.infoLabel2.height).or.(this.infoLabel1.width>this.infoLabel2.width)
                    this.infoLabel1.fontSize=tempFontSize-0.5
                    EXIT
                ENDIF
            ENDFOR


像上面的   怎么可以让步长是0.1呢?   我测到的结果   是1啊
2015-12-23 09:54
不懂才问
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:大草原
等 级:贵宾
威 望:29
帖 子:1501
专家分:6573
注 册:2010-7-5
得分:0 
我是想达到这个目的   但现在   达不到   。。。


报告老师,我低头不是因为我在装低调,是你问的问题,我真的不会答,,,
2015-12-23 10:30
不懂才问
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:大草原
等 级:贵宾
威 望:29
帖 子:1501
专家分:6573
注 册:2010-7-5
得分:0 
写了个嵌套循环    还没套明白


            FOR tempFontSize=8 TO 72
                &&FOR tempFontSizeDec=0 TO 9 STEP 1
                this.InfoLabel1.fontSize=tempFontSize&&Int+tempFontSizeDec/10
                &&tempFontSize=tempFontSizeInt+tempFontSizeDec/10
                &&thisform.infoLabel2.caption=STR(tempFontSize,4,1)
                IF (this.infoLabel1.height>this.infoLabel2.height).or.(this.infoLabel1.width>this.infoLabel2.width)
                    this.infoLabel1.fontSize=tempFontSize-0.1
                    EXIT
                ENDIF
                &&ENDFOR  
            ENDFOR

报告老师,我低头不是因为我在装低调,是你问的问题,我真的不会答,,,
2015-12-23 10:31
不懂才问
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:大草原
等 级:贵宾
威 望:29
帖 子:1501
专家分:6573
注 册:2010-7-5
得分:0 
回复 5楼 TonyDeng
拖动缩放窗体的时候,要弹出好多的BOX啊 。。。

我想把结果放在标签上,却出现错误提示 

报告老师,我低头不是因为我在装低调,是你问的问题,我真的不会答,,,
2015-12-23 12:55
不懂才问
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:大草原
等 级:贵宾
威 望:29
帖 子:1501
专家分:6573
注 册:2010-7-5
得分:0 
在外面就可以有小数  在涉及字号的循环里  就看不到小数   。。。

看来就不能玩的太精确   。。。。

报告老师,我低头不是因为我在装低调,是你问的问题,我真的不会答,,,
2015-12-23 14:06



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




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.778091 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved