主题：圣诞节到了,发个小程序,大家娱乐娱乐一下
冷石_jasv
[专家分：1570] 发布于 2003-12-24 10:53:00
RANDOMIZE TIMER
SCREEN 12
COLOR 3
pi = 3.1415926#
k = .55
DO
q = INT(3 + RND * 20)
CLS
FOR d = 12 TO 36
ys = d / 3
FOR c = 12 TO 36
LOCATE 30, 72: PRINT TIME$;
xs = c / 3
FOR i = 0 TO 300
temp = (xs + k * SIN(ys)) * COS(2 * pi / q) + ys * SIN(2 * pi / q)
ys = -(xs + k * SIN(ys)) * SIN(2 * pi / q) + ys * COS(2 * pi / q)
xs = temp
x = INT(xs * 8)
y = INT(ys * 8)
IF (i > 10) THEN PSET (x + 320, 240 - y), c / 3
NEXT
IF INKEY$ = CHR$(27) THEN END
NEXT
NEXT
LOOP WHILE INKEY$ <> CHR$(27) '按ESC退出程序
回复列表 （共31个回复）
11 楼
yxtk2005 [专家分：50] 发布于 2005-04-17 23:27:00
[em41]我喜欢这个程序[em45]
12 楼
yxtk2005 [专家分：50] 发布于 2005-04-17 23:33:00
请楼主[em40]
[em41]我非常喜欢你[em41]
13 楼
罗继勇 [专家分：10] 发布于 2005-04-18 23:29:00
这是什么意思啊！我是一个初学者，希望你多指教
14 楼
cleverboy [专家分：80] 发布于 2005-05-22 09:50:00
DECLARE SUB sj1 (i AS INTEGER, x AS SINGLE, y AS SINGLE)
REM digui example
DIM index AS INTEGER
DIM number AS INTEGER
SCREEN 12
CALL sj1(0, 320, 160)
SYSTEM
SUB sj1 (i AS INTEGER, x AS SINGLE, y AS SINGLE)
DIM index AS INTEGER
DIM x1 AS SINGLE
DIM y1 AS SINGLE
PSET (x, y), i
FOR index = 0 TO 2
LINE (x + 300 * (.5 ^ i) * COS(index * (6.28 / 3) + 3.1415 / 2), y + 300 * (.5 ^ i) * SIN(index * (6.28 / 3) + 3.1415 / 2))-(x + 300 * (.5 ^ i) * COS((index + 1) * (6.28 / 3) + 3.1415 / 2), y + 300 * (.5 ^ i) * SIN((index + 1) * (6.28 / 3) + 3.1415 _
/ 2)), 4
IF i <= 5 THEN
x1 = x + 150 * (.5 ^ i) * COS(index * (6.28 / 3) + 3.1415 / 2)
y1 = y + 150 * (.5 ^ i) * SIN(index * (6.28 / 3) + 3.1415 / 2)
CALL sj1(i + 1, x1, y1)
END IF
NEXT index
END SUB
15 楼
moz [专家分：37620] 发布于 2005-05-22 12:47:00
老天，怎么是前年的东西？
另请各位高手在程序后面记得加一句screen 0
不然的话很容易让我死给你看的。
16 楼
2630023 [专家分：100] 发布于 2006-05-29 08:38:00
我最喜欢动态的拉！[em12]
17 楼
2630023 [专家分：100] 发布于 2006-05-29 08:40:00
我最喜欢动态的拉！
但是4楼的也不错！要是让程序沿时不知道会是什么样的！
我自己到我的机器上试试去！
18 楼
kogbbccmm [专家分：0] 发布于 2007-12-17 22:15:00
dsfsdfdfdsfdsfdsfdsfdsfdsf
19 楼
强强 [专家分：4740] 发布于 2007-12-18 12:12:00
03年12月，07年12月，四年弹指一挥间，看到这个帖子感觉好亲切呀。秋水，冷石，你们都还好吗……
前几天看了存档旧帖，里面好多高手，看到那些高手的名子感觉就象是回到了从前，现在他们在哪呢……
20 楼
冷石_jasv [专家分：1570] 发布于 2007-12-26 20:23:00
<<把根留住>>
曲:童安格词:童安格 黄庆元
多少脸孔
茫然随波逐流
他们在追寻什么
为了生活
人们四处奔波
却在命运中交错
多少岁月
凝聚成这一刻
期待着旧梦重圆
万涓成水
终究汇流成河
像一首澎湃的歌
一年过了一年
碍一生只为这一天
让血脉再相连
擦干心中的血和泪痕
留住我们的根
俺老婆说了,不让俺写程序了.....
我来回复
您所在位置：