这个闪烁你能解决吗？

谷虫 · 发表于 2005-8-5 12:47:00

中间插个FOR...

wesley · 发表于 2005-8-5 12:48:00

具体一下……

谷虫 · 发表于 2005-8-5 12:50:00

再130 GOTO 10前加个 FOR I=1 TO 200:NEXT I

wesley · 发表于 2005-8-5 12:56:00

FOR I=1 TO 200:NEXT I 还在闪烁
FOR I=1 TO 2000:NEXT I 轻微闪烁
FOR I=1 TO 20000:NEXT I 不闪了，大约5秒一个循环
貌似不成功

wesley · 发表于 2005-8-5 13:10:00

以下是引用wesley在2005-8-5 12:56:03的发言：[BR]
FOR I=1 TO 20000:NEXT I 不闪了，大约5秒一个循环

也许我没说清楚
大约5秒一个循环，举个例子
13:00:00
下一次显示
13:00:05
也就是说显示有中断~~

George · 发表于 2005-8-5 14:04:00

真的会闪，我在n天前也编过类似的，根本不闪
我是在3k下编的

wesley · 发表于 2005-8-5 14:22:00

不会吧~~~~
此时此刻（限10~130）
它就在我面前闪
你把原代码运行一下试试~~
[em06]

qyfcool · 发表于 2005-8-9 13:44:00

可以用多几个变量，判断时分秒是不是与上次的值一样，不一样再PRINT

oldfather · 发表于 2005-10-23 01:54:00

把所有要print的内容变成一个字符串，一起打印出来

具体一点：if shi<10 then shi$="0"+str$(shi) else shi$=str$(shi)

if fen<10 then fen$="0"+str$(fen) else fen$=str$(fen)

if miao<10 then miao$="0"+str$(miao) else miao$=str$(miao)

s$=shi$+":"+fen$+":"+miao$:locate 1,1:print s$

goto ...

wesley · 发表于 2005-10-30 10:55:00

以下是引用oldfather在2005-10-23 1:54:00的发言：[BR]把所有要print的内容变成一个字符串，一起打印出来

具体一点：if shi<10 then shi$="0"+str$(shi) else shi$=str$(shi)

if fen<10 then fen$="0"+str$(fen) else fen$=str$(fen)

if miao<10 then miao$="0"+str$(miao) else miao$=str$(miao)

s$=shi$+":"+fen$+":"+miao$:locate 1,1:print s$

goto ...

问一个笨笨的问题：怎么赋予“str$( )” 数值

Zeneth · 发表于 2005-11-30 13:20:00

用if判断,只有秒数改变的时候才刷新^

FoxAllan1020 · 发表于 2005-12-2 13:07:00

oldfather的写法不是很妥帖。运行时间长了会"out of memory"，或者有一些莫名其妙的错误

Ausfron · 发表于 2006-4-23 15:46:00

在PRINT 后再加一个PRINT ;试试

wesley · 发表于 2005-8-5 12:44:05

在TC1000 下运行（看时间的）
10 MIAO =PEEK(1018) /2
20 FEN =PEEK(1017)
30 SHI =PEEK(1016)
40 IF SHI <10  THEN LOCATE 3,7: PRINT "0";SHI;":";:70
50 LOCATE 3,7
60 PRINT SHI;":";
70 IF FEN <10  THEN LOCATE 3,10: PRINT "0";FEN;":";:100
80 LOCATE 3,10
90 PRINT FEN;":";
100 IF MIAO <10  THEN LOCATE 3,13: PRINT "0";MIAO;:10
110 LOCATE 3,13
120 PRINT MIAO;
130 GOTO 10
然后我发现有很严重的闪烁
于是我想到一个办法
0 GRAPH
10~130同上
虽然问题解决了，但我觉得不是很好
请问大家有没有更好的办法从根本上解决问题？（不要笑我~~[em04]）

		自动登录	找回密码
密码			加入易码