广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4190 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
yakin999
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x4 鲜花 x15
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[范例] [dBASE] 移方块游戏
NOTE 井字移数字游戏的【程序档】(#SUB.PRG)
PROCEDURE PRINTNUM
* J=方格位置 N=数字 ◎在第J格印出N
* ┌──┬──┬──┐ ex: J=5,N=1 ┌─┬─┬─┐
* │J=1 │J=2 │J=3 │ │ │ │ │
* ├──┼──┼──┤ ├─┼─┼─┤
* │J=4 │J=5 │J=6 │ │ │Ⅰ│ │
* ├──┼──┼──┤ ├─┼─┼─┤
* │J=7 │J=8 │J=9 │ │ │ │ │
* └──┴──┴──┘ └─┴─┴─┘
IF N=0
BOX1=' '
BOX2=' '
BOX3=' '
ELSE
BOX1='╔═╗'
BOX2='║ ║'
BOX3='╚═╝'
ENDIF
DO CASE
CASE J<=3
@ 3,6*J SAY BOX1
@ 4,6*J SAY BOX2
@ 5,6*J SAY BOX3
@ 4,6*J+2 SAY SUBSTR(BC,N*2+1,2)
CASE J<=6
@ 6,6*(J-3) SAY BOX1
@ 7,6*(J-3) SAY BOX2
@ 8,6*(J-3) SAY BOX3
@ 7,6*(J-3)+2 SAY SUBSTR(BC,N*2+1,2)
CASE J<=9
@ 9,6*(J-6) SAY BOX1 ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容




献花 x0 回到顶端 [楼 主] From:台湾新世纪资通 | Posted:2010-01-20 20:54 |
k7138
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x5
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

看起来好像不是很好玩不过还是谢谢


献花 x0 回到顶端 [1 楼] From:台湾中华电信股份有限公司 | Posted:2011-03-25 06:48 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.078877 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言