怎样编一个逐渐变大的圆?
qbasic吧
全部回复
仅看楼主
level 1
2005年10月22日 13点10分 1
level 0
SCREEN 12CLSFOR i = 1 TO 220 CIRCLE (320, 240), iFOR t = 1 TO 2000: NEXT t CIRCLE (320, 240), i - 1, 0NEXT iENDhttp://www.henanclub.com
2005年11月06日 11点11分 2
level 0
没法变大啊
2006年08月08日 13点08分 3
level 1
应该这样:SCREEN 12 CLS FOR i = 1 TO 220 CIRCLE (320, 240), i FOR t = 1 TO 2000: NEXT t CIRCLE (320, 240), i - 1, 0 sleep 5NEXT i END
2006年10月28日 11点10分 4
level 1
这样会出现闪烁,把每张园用GET保存到个数组里 有PUT方法再放出来就不会
2006年12月23日 15点12分 5
level 1
呵呵如果是286的话作者: 221.15.240.* 就没问题现在的电脑速度快了,其实园是在变大但是只是一瞬间作者: 121420023 注意到了用了延时SLEEP 让速度慢了就可以了但效果不太好,我改一下,
2006年12月25日 02点12分 6
level 1
呵呵实验了下不闪烁,但是只是圆环,用黑色的消去上一次的不过如果以填充那种实心圆的话,就会闪烁了
2006年12月25日 03点12分 7
level 1
SCREEN 12 CLS FOR i = 1 TO 220 CIRCLE (320, 240), i FOR t = 1 TO 2000: NEXT t CIRCLE (320, 240), i - 1, 0 sleep 5 NEXT i END
2007年04月08日 16点04分 8
level 1
上边的第一句打错了,应改成SCREEN 2,0
2007年04月08日 16点04分 9
level 1
大家试试这段咋样,呼呼!SCREEN 12CLSFOR I=120 TO 150CIR (320,240), IFOR J=1 TO 10CIRCLE (320,240), I-J, JNEXTSLEEP 1NEXTEND在DOS窗口下形成一个彩色的圆环。
2007年05月03日 09点05分 10
level 1
啊,那个cir 打错了,应该是circle,改一下,我试过了,挺不错的。
2007年05月03日 09点05分 11
level 7
4楼的,你既然已经用sleep 5来拖延时间了,还用
for t=1 to 2000:next t干吗?
2010年11月06日 14点11分 13
1