亲，您未登录哦！ 登录 | 注册
首页  |  社区  |  工具箱  |  代码库  |  博客  |  招聘  |  文章  |  新闻  |  下载  |  读书
回 帖 发 新 帖 刷新版面

主题：请编程打印一个瀑布!

游戏之王 [专家分：540] 发布于 2007-08-17 10:55:00

请编程打印一个瀑布!
本帖地址：  http://bbs.pfan.cn/post/246943.html

回复列表 （共6个回复）

沙发

网虫一号 [专家分：1230] 发布于 2007-08-17 11:01:00

DECLARE FUNCTION getdot% (x%, y%)
DECLARE SUB dot (x%, y%, icolor%)
DECLARE SUB InitDrop (x AS INTEGER, y AS INTEGER)
DECLARE SUB MoveDrop ()
CONST ParticleNum = 950
TYPE PARTICLE  
    cx AS SINGLE
    cy AS SINGLE
    vx AS SINGLE
    vy AS SINGLE
    vyacc AS SINGLE
    life AS SINGLE
    decay AS SINGLE
END TYPE
DIM SHARED gDrop(ParticleNum) AS PARTICLE
DIM scr(32001) AS INTEGER
scr(0) = 320 * 8
scr(1) = 200
DEF SEG = VARSEG(scr(2))
DIM SHARED offs&
offs& = VARPTR(scr(2))
DIM i AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM icolor AS INTEGER
SCREEN 13
FOR i = 0 TO 128  
  PALETTE i, 256 * CINT(i / 8) + 65536 * (CINT(i / 2) AND 63)
NEXT
DO
k$ = INKEY$
IF k$ <> "" THEN
DO
IF k$ = CHR$(27) THEN EXIT DO
k$ = INKEY$
LOOP UNTIL k$ <> ""
IF k$ = CHR$(27) THEN EXIT DO
END IF
InitDrop 130, 25
MoveDrop
FOR i = 0 TO ParticleNum - 1 ' STEP  i++
dot CINT(gDrop(i).cx), CINT(gDrop(i).cy), 127
NEXT
FOR y = 25 TO 200 - 1    
FOR x = 130 TO 215 - 1      
icolor = (getdot%(x, y - 1) + getdot%(x + 1, y) + getdot%(x, y + 1) +getdot%(x - 1, y)) / 4
IF icolor > 2 THEN
dot x, y, icolor - 2
ELSE
dot x, y, 0
END IF
NEXT
NEXT
PUT (0, 0), scr, PSET
'ERASE scr' REDIM scr(32001) AS INTEGER '清屏
'scr(0) = 2560: scr(1) = 200            '
LOOP

SUB dot (x%, y%, icolor%) '写点
  POKE offs& + CLNG(x%) + CLNG(y%) * 320, icolor%
END SUB

FUNCTION getdot% (x%, y%) '获取一个点的颜色
  if x%<0 or x%>319 or y%<0 or y%>199 then
    getdot% = -1
  else
    getdot% = PEEK(offs& + CLNG(x%) + CLNG(y%) * 320)
  endif
END FUNCTION

SUB InitDrop (x AS INTEGER, y AS INTEGER)

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  ' STEP  i++
  
  IF gDrop(i).life <= 0 THEN
    
    gDrop(i).cx = CSNG(x)
    gDrop(i).cy = CSNG(y)
    gDrop(i).vx = CSNG(.0007 * (RND * 500 + 500))
    gDrop(i).vy = CSNG(.1 * RND * 10)
    gDrop(i).vyacc = .05
    gDrop(i).life = 1!
    gDrop(i).decay = CSNG(.0005 * (RND * 250))
    
END IF
NEXT
END SUB
SUB MoveDrop
DIM i    AS INTEGER
FOR i = 0 TO ParticleNum - 1  'STEP  i++
  IF gDrop(i).life > 0 THEN
    gDrop(i).cx = gDrop(i).cx + gDrop(i).vx
    gDrop(i).cy = gDrop(i).cy + gDrop(i).vy
    gDrop(i).vy = gDrop(i).vy + gDrop(i).vyacc
    gDrop(i).life = gDrop(i).life - gDrop(i).decay
    IF gDrop(i).cx >= 310 THEN
      gDrop(i).vx = gDrop(i).vx * (-1)
    END IF
    IF (gDrop(i).cy <= 10) OR (gDrop(i).cy >= 190) THEN
      gDrop(i).vy = gDrop(i).vy * (-1)
      gDrop(i).decay = gDrop(i).decay + .1
      gDrop(i).vy = gDrop(i).vy + .1
    END IF
  END IF
NEXT
END SUB

板凳

Matodied [专家分：7560] 发布于 2007-08-17 14:20:00

[url=http://www.programfan.com/club/post-209752.html]这里[/url]有相关内容。

3 楼

wzc1996 [专家分：1680] 发布于 2007-08-17 17:56:00


DECLARE FUNCTION getdot% (x%, y%)
DECLARE SUB dot (x%, y%, icolor%)
DECLARE SUB InitDrop (x AS INTEGER, y AS INTEGER)
DECLARE SUB MoveDrop ()
CONST ParticleNum = 950
TYPE PARTICLE
  
    cx AS SINGLE
    cy AS SINGLE
    vx AS SINGLE
    vy AS SINGLE
    vyacc AS SINGLE
    life AS SINGLE
    decay AS SINGLE
  
END TYPE

DIM SHARED gDrop(ParticleNum) AS PARTICLE

 
DIM scr(32001) AS INTEGER    
scr(0) = 320 * 8                   
scr(1) = 200                       
DEF SEG = VARSEG(scr(2))          
DIM SHARED offs&
offs& = VARPTR(scr(2))            

DIM i    AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM icolor AS INTEGER
SCREEN 13
FOR i = 0 TO 128 ' STEP  i++
  
  'set_color(i, 0, i>>3, i>>1)

  PALETTE i, 256 * CINT(i / 8) + 65536 * (CINT(i / 2) AND 63)
NEXT

DO
  
  
  k$ = INKEY$
  IF k$ <> "" THEN
    DO
      IF k$ = CHR$(27) THEN EXIT DO
      k$ = INKEY$
    LOOP UNTIL k$ <> ""
    IF k$ = CHR$(27) THEN EXIT DO
  END IF
  
  InitDrop 130, 25
  MoveDrop
  
  FOR i = 0 TO ParticleNum - 1 ' STEP  i++
    dot CINT(gDrop(i).cx), CINT(gDrop(i).cy), 127
    'PSET (gDrop(i).cx, gDrop(i).cy), 127

  NEXT
  
  FOR y = 25 TO 200 - 1  'STEP  y++
    
    FOR x = 130 TO 215 - 1  'STEP  x++
      
      'icolor = (POINT(x, y - 1)) + POINT(x + 1, y) + POINT(x, y + 1) + POINT(x - 1, y)) / 4
      icolor = (getdot%(x, y - 1) + getdot%(x + 1, y) + getdot%(x, y + 1) + getdot%(x - 1, y)) / 4
      
      IF icolor > 2 THEN
        
        'PSET (x, y), icolor - 2
        dot x, y, icolor - 2
      ELSE
        'PSET (x, y), 0
        dot x, y, 0
      END IF
      
    NEXT
  NEXT
 
PUT (0, 0), scr, PSET             
'ERASE scr' REDIM scr(32001) AS INTEGER  
'scr(0) = 2560: scr(1) = 200            
LOOP

SUB dot (x%, y%, icolor%)  
  POKE offs& + CLNG(x%) + CLNG(y%) * 320, icolor%
END SUB

FUNCTION getdot% (x%, y% )  
  IF x% < 0 OR x% > 319 OR y% < 0 OR y% > 199 THEN
    getdot% = -1
  ELSE
    getdot% = PEEK(offs& + CLNG(x%) + CLNG(y%) * 320)
  END IF
END FUNCTION

SUB InitDrop (x AS INTEGER, y AS INTEGER)

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  ' STEP  i++
  
  IF gDrop(i).life <= 0 THEN
    
    gDrop(i).cx = CSNG(x)
    gDrop(i).cy = CSNG(y)
    gDrop(i).vx = CSNG(.0007 * (RND * 500 + 500))
    gDrop(i).vy = CSNG(.1 * RND * 10)
    gDrop(i).vyacc = .05
    gDrop(i).life = 1!
    gDrop(i).decay = CSNG(.0005 * (RND * 250))
    
  END IF
  
NEXT

END SUB

SUB MoveDrop

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  'STEP  i++
  
  IF gDrop(i).life > 0 THEN
    
    gDrop(i).cx = gDrop(i).cx + gDrop(i).vx
    gDrop(i).cy = gDrop(i).cy + gDrop(i).vy
    gDrop(i).vy = gDrop(i).vy + gDrop(i).vyacc
    gDrop(i).life = gDrop(i).life - gDrop(i).decay
    IF gDrop(i).cx >= 310 THEN
      
      gDrop(i).vx = gDrop(i).vx * (-1)
    END IF
    
    IF (gDrop(i).cy <= 10) OR (gDrop(i).cy >= 190) THEN
      
      gDrop(i).vy = gDrop(i).vy * (-1)
      gDrop(i).decay = gDrop(i).decay + .1
      gDrop(i).vy = gDrop(i).vy + .1
      
    END IF
    
  END IF
  
NEXT

END SUB

4 楼

天尝地酒 [专家分：870] 发布于 2007-08-18 08:11:00

'*** QBasic趣味程序——瀑布 ***
DECLARE FUNCTION getdot% (x%, y%)
DECLARE SUB dot (x%, y%, icolor%)
DECLARE SUB InitDrop (x AS INTEGER, y AS INTEGER)
DECLARE SUB MoveDrop ()
'
'   这个程序演示了通过NEO的基本绘图函数实现的粒子系统——瀑布
'   效果。
'


CONST ParticleNum = 950

TYPE PARTICLE    ' 粒子系统
  
    cx AS SINGLE    ' X座标
    cy AS SINGLE    ' Y座标
    vx AS SINGLE    ' X轴速度
    vy AS SINGLE    ' Y轴速度
    vyacc AS SINGLE ' 加速度
    life AS SINGLE  ' 生命期
    decay AS SINGLE ' 衰减量
  
END TYPE

DIM SHARED gDrop(ParticleNum) AS PARTICLE

'定义屏幕缓冲
DIM scr(32001) AS INTEGER   '
scr(0) = 320 * 8                   '
scr(1) = 200                       '屏幕缓冲
DEF SEG = VARSEG(scr(2))         '
DIM SHARED offs&
offs& = VARPTR(scr(2))           '

DIM i    AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM icolor AS INTEGER
SCREEN 13
FOR i = 0 TO 128 ' STEP  i++
  
  'set_color(i, 0, i>>3, i>>1)

  PALETTE i, 256 * CINT(i / 8) + 65536 * (CINT(i / 2) AND 63)
NEXT

DO
  
  '暂定或结束
  k$ = INKEY$
  IF k$ <> "" THEN
    DO
      IF k$ = CHR$(27) THEN EXIT DO
      k$ = INKEY$
    LOOP UNTIL k$ <> ""
    IF k$ = CHR$(27) THEN EXIT DO
  END IF
  
  InitDrop 130, 25
  MoveDrop
  
  FOR i = 0 TO ParticleNum - 1 ' STEP  i++
    dot CINT(gDrop(i).cx), CINT(gDrop(i).cy), 127
    'PSET (gDrop(i).cx, gDrop(i).cy), 127

  NEXT
  
  FOR y = 25 TO 200 - 1  'STEP  y++
    
    FOR x = 130 TO 215 - 1  'STEP  x++
      
      'icolor = (POINT(x, y - 1)) + POINT(x + 1, y) + POINT(x, y + 1) + POINT(x - 1, y)) / 4
      icolor = (getdot%(x, y - 1) + getdot%(x + 1, y) + getdot%(x, y + 1) + getdot%(x - 1, y)) / 4
      
      IF icolor > 2 THEN
        
        'PSET (x, y), icolor - 2
        dot x, y, icolor - 2
      ELSE
        'PSET (x, y), 0
        dot x, y, 0
      END IF
      
    NEXT
  NEXT
'更多QBasic趣味在http://www.hrcgw.com/bbs/
PUT (0, 0), scr, PSET            '输出到屏幕

'ERASE scr' REDIM scr(32001) AS INTEGER '清屏
'scr(0) = 2560: scr(1) = 200            '
LOOP

SUB dot (x%, y%, icolor%) '写点
  POKE offs& + CLNG(x%) + CLNG(y%) * 320, icolor%
END SUB

FUNCTION getdot% (x%, y%) '获取一个点的颜色
  if x%<0 or x%>319 or y%<0 or y%>199 then
    getdot% = -1
  else
    getdot% = PEEK(offs& + CLNG(x%) + CLNG(y%) * 320)
  endif
END FUNCTION

SUB InitDrop (x AS INTEGER, y AS INTEGER)

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  ' STEP  i++
  
  IF gDrop(i).life <= 0 THEN
    
    gDrop(i).cx = CSNG(x)
    gDrop(i).cy = CSNG(y)
    gDrop(i).vx = CSNG(.0007 * (RND * 500 + 500))
    gDrop(i).vy = CSNG(.1 * RND * 10)
    gDrop(i).vyacc = .05
    gDrop(i).life = 1!
    gDrop(i).decay = CSNG(.0005 * (RND * 250))
    
  END IF
  
NEXT

END SUB

SUB MoveDrop

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  'STEP  i++
  
  IF gDrop(i).life > 0 THEN
    
    gDrop(i).cx = gDrop(i).cx + gDrop(i).vx
    gDrop(i).cy = gDrop(i).cy + gDrop(i).vy
    gDrop(i).vy = gDrop(i).vy + gDrop(i).vyacc
    gDrop(i).life = gDrop(i).life - gDrop(i).decay
    IF gDrop(i).cx >= 310 THEN
      
      gDrop(i).vx = gDrop(i).vx * (-1)
    END IF
    
    IF (gDrop(i).cy <= 10) OR (gDrop(i).cy >= 190) THEN
      
      gDrop(i).vy = gDrop(i).vy * (-1)
      gDrop(i).decay = gDrop(i).decay + .1
      gDrop(i).vy = gDrop(i).vy + .1
      
    END IF
   
  END IF
NEXT
END SUB

5 楼

QB小猪 [专家分：1200] 发布于 2007-08-18 08:12:00

DECLARE FUNCTION getdot% (x%, y%)
DECLARE SUB dot (x%, y%, icolor%)
DECLARE SUB InitDrop (x AS INTEGER, y AS INTEGER)
DECLARE SUB MoveDrop ()
'
'   这个程序演示了通过NEO的基本绘图函数实现的粒子系统——瀑布
'   效果。
'


CONST ParticleNum = 950

TYPE PARTICLE    ' 粒子系统
  
    cx AS SINGLE    ' X座标
    cy AS SINGLE    ' Y座标
    vx AS SINGLE    ' X轴速度
    vy AS SINGLE    ' Y轴速度
    vyacc AS SINGLE ' 加速度
    life AS SINGLE  ' 生命期
    decay AS SINGLE ' 衰减量
  
END TYPE

DIM SHARED gDrop(ParticleNum) AS PARTICLE

'定义屏幕缓冲
DIM scr(32001) AS INTEGER   '
scr(0) = 320 * 8                   '
scr(1) = 200                       '屏幕缓冲
DEF SEG = VARSEG(scr(2))         '
DIM SHARED offs&
offs& = VARPTR(scr(2))           '

DIM i    AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM icolor AS INTEGER
SCREEN 13
FOR i = 0 TO 128 ' STEP  i++
  
  'set_color(i, 0, i>>3, i>>1)

  PALETTE i, 256 * CINT(i / 8) + 65536 * (CINT(i / 2) AND 63)
NEXT

DO
  
  '暂定或结束
  k$ = INKEY$
  IF k$ <> "" THEN
    DO
      IF k$ = CHR$(27) THEN EXIT DO
      k$ = INKEY$
    LOOP UNTIL k$ <> ""
    IF k$ = CHR$(27) THEN EXIT DO
  END IF
  
  InitDrop 130, 25
  MoveDrop
  
  FOR i = 0 TO ParticleNum - 1 ' STEP  i++
    dot CINT(gDrop(i).cx), CINT(gDrop(i).cy), 127
    'PSET (gDrop(i).cx, gDrop(i).cy), 127

  NEXT
  
  FOR y = 25 TO 200 - 1  'STEP  y++
    
    FOR x = 130 TO 215 - 1  'STEP  x++
      
      'icolor = (POINT(x, y - 1)) + POINT(x + 1, y) + POINT(x, y + 1) + POINT(x - 1, y)) / 4
      icolor = (getdot%(x, y - 1) + getdot%(x + 1, y) + getdot%(x, y + 1) + getdot%(x - 1, y)) / 4
      
      IF icolor > 2 THEN
        
        'PSET (x, y), icolor - 2
        dot x, y, icolor - 2
      ELSE
        'PSET (x, y), 0
        dot x, y, 0
      END IF
      
    NEXT
  NEXT

PUT (0, 0), scr, PSET            '输出到屏幕

'ERASE scr' REDIM scr(32001) AS INTEGER '清屏
'scr(0) = 2560: scr(1) = 200            '
LOOP

SUB dot (x%, y%, icolor%) '写点
  POKE offs& + CLNG(x%) + CLNG(y%) * 320, icolor%
END SUB

FUNCTION getdot% (x%, y%) '获取一个点的颜色
  if x%<0 or x%>319 or y%<0 or y%>199 then
    getdot% = -1
  else
    getdot% = PEEK(offs& + CLNG(x%) + CLNG(y%) * 320)
  endif
END FUNCTION

SUB InitDrop (x AS INTEGER, y AS INTEGER)

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  ' STEP  i++
  
  IF gDrop(i).life <= 0 THEN
    
    gDrop(i).cx = CSNG(x)
    gDrop(i).cy = CSNG(y)
    gDrop(i).vx = CSNG(.0007 * (RND * 500 + 500))
    gDrop(i).vy = CSNG(.1 * RND * 10)
    gDrop(i).vyacc = .05
    gDrop(i).life = 1!
    gDrop(i).decay = CSNG(.0005 * (RND * 250))
    
  END IF
  
NEXT

END SUB

SUB MoveDrop

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  'STEP  i++
  
  IF gDrop(i).life > 0 THEN
    
    gDrop(i).cx = gDrop(i).cx + gDrop(i).vx
    gDrop(i).cy = gDrop(i).cy + gDrop(i).vy
    gDrop(i).vy = gDrop(i).vy + gDrop(i).vyacc
    gDrop(i).life = gDrop(i).life - gDrop(i).decay
    IF gDrop(i).cx >= 310 THEN
      
      gDrop(i).vx = gDrop(i).vx * (-1)
    END IF
    
    IF (gDrop(i).cy <= 10) OR (gDrop(i).cy >= 190) THEN
      
      gDrop(i).vy = gDrop(i).vy * (-1)
      gDrop(i).decay = gDrop(i).decay + .1
      gDrop(i).vy = gDrop(i).vy + .1
      
    END IF
    
  END IF
  
NEXT

END SUB
'更多QBasic趣味在http://www.hrcgw.com/bbs/哦!!!

6 楼

小精灵1号 [专家分：1040] 发布于 2007-08-18 08:13:00

DECLARE FUNCTION getdot% (x%, y%)
DECLARE SUB dot (x%, y%, icolor%)
DECLARE SUB InitDrop (x AS INTEGER, y AS INTEGER)
DECLARE SUB MoveDrop ()
CONST ParticleNum = 950
TYPE PARTICLE  
    cx AS SINGLE
    cy AS SINGLE
    vx AS SINGLE
    vy AS SINGLE
    vyacc AS SINGLE
    life AS SINGLE
    decay AS SINGLE
END TYPE
DIM SHARED gDrop(ParticleNum) AS PARTICLE
DIM scr(32001) AS INTEGER
scr(0) = 320 * 8
scr(1) = 200
DEF SEG = VARSEG(scr(2))
DIM SHARED offs&
offs& = VARPTR(scr(2))
DIM i AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM icolor AS INTEGER
SCREEN 13
FOR i = 0 TO 128  
  PALETTE i, 256 * CINT(i / 8) + 65536 * (CINT(i / 2) AND 63)
NEXT
DO
k$ = INKEY$
IF k$ <> "" THEN
DO
IF k$ = CHR$(27) THEN EXIT DO
k$ = INKEY$
LOOP UNTIL k$ <> ""
IF k$ = CHR$(27) THEN EXIT DO
END IF
InitDrop 130, 25
MoveDrop
FOR i = 0 TO ParticleNum - 1 ' STEP  i++
dot CINT(gDrop(i).cx), CINT(gDrop(i).cy), 127
NEXT
FOR y = 25 TO 200 - 1    
FOR x = 130 TO 215 - 1      
icolor = (getdot%(x, y - 1) + getdot%(x + 1, y) + getdot%(x, y + 1) +getdot%(x - 1, y)) / 4
IF icolor > 2 THEN
dot x, y, icolor - 2
ELSE
dot x, y, 0
END IF
NEXT
NEXT
PUT (0, 0), scr, PSET
'ERASE scr' REDIM scr(32001) AS INTEGER '清屏
'scr(0) = 2560: scr(1) = 200            '
LOOP

SUB dot (x%, y%, icolor%) '写点
  POKE offs& + CLNG(x%) + CLNG(y%) * 320, icolor%
END SUB

FUNCTION getdot% (x%, y%) '获取一个点的颜色
  if x%<0 or x%>319 or y%<0 or y%>199 then
    getdot% = -1
  else
    getdot% = PEEK(offs& + CLNG(x%) + CLNG(y%) * 320)
  endif
END FUNCTION

SUB InitDrop (x AS INTEGER, y AS INTEGER)

DIM i    AS INTEGER

FOR i = 0 TO ParticleNum - 1  ' STEP  i++
  
  IF gDrop(i).life <= 0 THEN
    
    gDrop(i).cx = CSNG(x)
    gDrop(i).cy = CSNG(y)
    gDrop(i).vx = CSNG(.0007 * (RND * 500 + 500))
    gDrop(i).vy = CSNG(.1 * RND * 10)
    gDrop(i).vyacc = .05
    gDrop(i).life = 1!
    gDrop(i).decay = CSNG(.0005 * (RND * 250))
    
END IF
NEXT
END SUB
SUB MoveDrop
DIM i    AS INTEGER
FOR i = 0 TO ParticleNum - 1  'STEP  i++
  IF gDrop(i).life > 0 THEN
    gDrop(i).cx = gDrop(i).cx + gDrop(i).vx
    gDrop(i).cy = gDrop(i).cy + gDrop(i).vy
    gDrop(i).vy = gDrop(i).vy + gDrop(i).vyacc
    gDrop(i).life = gDrop(i).life - gDrop(i).decay
    IF gDrop(i).cx >= 310 THEN
      gDrop(i).vx = gDrop(i).vx * (-1)
    END IF
    IF (gDrop(i).cy <= 10) OR (gDrop(i).cy >= 190) THEN
      gDrop(i).vy = gDrop(i).vy * (-1)
      gDrop(i).decay = gDrop(i).decay + .1
      gDrop(i).vy = gDrop(i).vy + .1
    END IF
  END IF
NEXT
END SUB

我来回复

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

程序员工具箱 new

  • 更多工具

    • 代码片段

  • 模拟键盘（不可按）
  • 碰撞的唐三
  • 精彩奥运热点赛事的实时采集
  • 获取天气动态信息
  • 文件查找
  • python大数据抓取京东电脑销量数据
  • 爬虫技术不仅仅支持数据采集
  • 抓取脉脉APP上的职业信息
  • 爬虫中多线程的运用
  • 四则运算以及一元二次方程
  • 欢迎来共享你的NB代码

    • 本版新帖

  • 不要汉字系统显示汉字的源程序
  • 读取硬盘主引导区,保存恢复CMOS的源程序
  • 运用递归法一例源程序(转贴)
  • 鼠标、按纽、汉字的源程序,启动时用 QB/L
  • 中断调用,读写内存、端口应用讲解(2005-3-8)
  • 用图教你用QB把bas源程序编译成为EXE可执行文件!(2005.1.2更新）
  • QBASIC被取消
  • 要发帖、先看此贴
  • 显示火焰跳动的源程序（转贴）
  • 文本方式下显示汉字的源程序
  • qbasic简易教程、学qb的好处介绍、软件下载、网站连接
  • 圣诞节到了,发个小程序,大家娱乐娱乐一下
  • PC系列机的发音方法[转贴]
  • DOS系统调用总汇[转贴]
  • 中文输入法的实现过程（转贴）