回 帖 发 新 帖 刷新版面

主题:圣诞节到了,发个小程序,大家娱乐娱乐一下

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个回复)

31 楼

咱也工作7、8年了。有时候玩游戏玩腻了。心血来潮也会写写程序;用来解闷。(一般都是写了一半;很少完成的)

我来回复

您尚未登录,请登录后再回复。点此登录或注册