主题:小问题一个
newonesky
[专家分:0] 发布于 2005-06-27 10:41:00
我想问一下如果想“*”从屏幕左边飞到右边怎么编
回复列表 (共15个回复)
沙发
moz [专家分:37620] 发布于 2005-06-27 10:54:00
关键词:
1.从左到右(什么位置? 同一行, 列位置从1到80)
2.新位置打印新"*"号,旧位置打印空格,(顺序可互换,可比较效果后选择)
板凳
飞鸟12 [专家分:2830] 发布于 2005-06-27 11:17:00
CLS
FOR i = 1 TO 79
LOCATE 12, i: PRINT " *"
FOR j = 1 TO 10000: NEXT j
NEXT i
3 楼
newonesky [专家分:0] 发布于 2005-06-27 13:40:00
FOR j = 1 TO 10000: NEXT j
这一句有什么作用
4 楼
飞鸟12 [专家分:2830] 发布于 2005-06-27 17:52:00
延时啊
程序在全屏状态下,运行效果好些
(窗口与全屏的切换键为ALT+ENTER)
5 楼
prairiewolf [专家分:290] 发布于 2005-06-27 22:05:00
screen 0
FOR I=1 TO 79
LOCATE I,I:PRINT"*"
LOCATE I,I:PRINT" "
FOR j=1 TO 10000
NEXT
NEXT
END
这个是从左上角到右下角飞的,
6 楼
moz [专家分:37620] 发布于 2005-06-28 07:51:00
楼上的你试过了吗?
7 楼
飞鸟12 [专家分:2830] 发布于 2005-06-28 14:14:00
5楼的 程序都没调试就发(LOCATE调用出错,FOR 出错)
再者刚输出一个* 就把它擦掉了,估计看不到效果
8 楼
prairiewolf [专家分:290] 发布于 2005-07-01 19:47:00
screen 12
FOR I=1 TO 79
LOCATE I,I:PRINT"*"
FOR j=1 TO 10000
NEXT
CLS
NEXT
END
9 楼
prairiewolf [专家分:290] 发布于 2005-07-01 19:48:00
screen 12
FOR I=1 TO 79
LOCATE I,I:PRINT"*"
FOR j=1 TO 10000
NEXT
CLS
NEXT
END
这回行了吧
10 楼
moz [专家分:37620] 发布于 2005-07-02 00:17:00
请你先在你的电脑上的QB运行通过再说.
我来回复