会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
巴不得飞的程序
积累,积累,再积累。
博客园
首页
新随笔
联系
订阅
管理
2008年10月8日
编写“线围棋”程序-3-可提子
摘要: 只能接收落子和显示棋局状态还不能支持对局。 要支持对局就要能自动判断死子,然后自动体走死的子。 在Game类中增加一个AutoPick方法和相关的调用子方法,就简便地实现了自动提子的功能。 这部分程序如下: Function TGame.AutoPick(APos : Integer) : Integer; //测试自动提子或自杀提子 begin Result := 0; //返...
阅读全文
posted @ 2008-10-08 15:50 巴不得飞
阅读(244)
评论(0)
推荐(0)
编辑
2008年10月6日
编写“线围棋”程序-2-可开局
摘要: 棋盘有了,怎么支持在上面落子呢? 只要解决下面3个问题就可以了: 1.响应鼠标点击事件,获得“下棋子”的动作源。 2.修改和记录棋局状态。 3.在棋盘上显示棋局的状态。 为此,直接增加一个“棋局类“,也就是对“一盘棋“对象的实现。 先把已经编好的棋盘类移到一个新的单元里,不再放到窗体单元中,我喜欢这样把成熟的程序逐渐移到新单元内存放。 棋盘单元如下: unit UnitBoardView;...
阅读全文
posted @ 2008-10-06 16:18 巴不得飞
阅读(210)
评论(0)
推荐(0)
编辑
2008年9月28日
编写“线围棋”程序-1-画棋盘
摘要: 围棋,大家都知道是一个在平面上玩的游戏。有朋友别出心裁,提出在一条线上下围棋的想法,并取名叫做StringGo。 觉得很有意思,编个程序玩玩。 首先,要画线围棋的棋盘。顾名思义,线棋盘就是一根直线上均匀画上交叉点,就是取真正围棋盘上的一根线. 线画个看看,程序就是这样的拉 : procedure TForm1.FormPaint(Sender: TObject); var i: Intege...
阅读全文
posted @ 2008-09-28 15:24 巴不得飞
阅读(588)
评论(0)
推荐(0)
编辑
2008年9月27日
如何把一些数据转换成MIDI音乐播放出来?
摘要: 曾经听说过有个日本人把基因组密码的数据转换成电脑音乐,播放出来居然有奇特效果。没有听到过,为何不自己试下? 基因组密码数据我是搞不懂,MIDI也没有接触过,delphi还没有丢生,一切从头开始开始吧。 首先想到的是如何让电脑按自己给的数据发出声音。 网上一搜,找到一个叫MIDIGen的开源程序,正好可以学习。 显然,点1,2部分会发出声音,看它是怎么做的: 1.播放音符: //note ...
阅读全文
posted @ 2008-09-27 15:35 巴不得飞
阅读(520)
评论(0)
推荐(0)
编辑