VB小游戏：五彩连珠源代码，模仿天语手机里的五彩连珠游戏，自动寻路径功能参考 E 语言版推箱子修改而成。

VB 打靶游戏源代码，点击开始游戏后，靶子就会出现在窗口中，不过靶子出现的时间可是很短的哦，在这个很短的时间内你需要打中目标（随机出现的红点），好像很考验人的反应速度哦，需要快速反应才能打中哦。游戏界面如测试截图所示。

Delphi国外一款卡片游戏代码，用到了超多的图片资源，界面中的卡片是调用的图片实现的，没搞懂是怎么玩的，有兴趣的下载源码研究下。

VC++场景游戏，人物移动，学VC、编游戏中的示例，它的实现，靠的是以下知识和技术： 　　1．建立DirectX环境和创建工作页面的方法。 　　2．各种页面内容的拷贝方法。 　　3．GDI与DirectX图形处理方法的简单比较。 　　游戏测试操作方法： 　　A、在场景内点任意点，指挥主角移动。 　　B、将鼠标移到场景外，可以移动地图。 　　C、在微缩地图上点一下，可以快速定位。 　　D、ESC键，退出游戏。 　　你可以指挥主角去打猎了。但打不死的，因为这里我们还没有加对象的生命值。 　　 　　部分代码： 　　#define MAXINT 8192 //定义一个最大整数, 地图上任意两点距离不会超过它8192 　　#define STACKSIZE 38536 //保存搜索节点的堆栈大小65536 　　#define tile_num(x,y) ((y)*map_w+(x)) //将 x,y 坐标转换为地图上块的编号 　　#define tile_x(n) ((n)%map_w) //由块编号得出 x,y 坐标 　　char map[WIDTH*SCRP/GX+2][HEIGHT*SCRP/GY+2];//地图障碍格数据 　　 int map_w,map_h;//地图障碍格宽和高 　　 int start_x,start_y,end_x,end_y; //起点坐标,终点坐标 　　 PATHN pathn[500];//重组路径 　　 int findpath();//路径寻找主函数 　　 int stackmax;//最大值 　　 private://私有,类内部使用 　　 LINK queue;//保存没有处理的行走方法的节点 　　 TREE stack[STACKSIZE]; //保存已经处理过的节点(搜索完后释放) 　　 int dis_map[WIDTH*SCRP/GX+2][HEIGHT*SCRP/GY+2];//保存搜索路径时,中间目标地最优解 　　 void init_queue();// 初始化队列 　　 void enter_queue(TREE node,int f);//待处理节点入队列,依靠对目的地估价距离插入排序 　　 TREE get_from_queue(); //将离目的地估计最近的方案出队列 　　 void freetree();//释放申请过的所有节点 　　 int judge(int x,int y);//估价函数,估价x,y到目的地的距离,估计值必须保证比实际值小 　　 int trytile(int x,int y,TREE father);//尝试下一步移动到x,y可行否 　　 int zlpath(); //重组路径

计算机软件-编程源码-游戏编程指南.zip

VB版数字排序拼图小游戏，和图片拼图的原理基本是一样的，图片拼图是将一幅图片打散并最终合并起来，数字排序拼图的意思是把一些顺序打乱的数字按照正常的顺序拼起来，在图中有一个空闲的小方格，是拖动时的公共方格，如何将顺序调整正确，这就要发挥你的聪明才智了…………

一款VB掷骰子游戏，押大校 　　程序从这里开始(加载窗体) 　　Private Sub Form_Load() 　　‘ 各变量赋初值 　　Betting = False ‘ 骰子还没滚动 　　Money = 1000 ‘ 现金等，各变量的意义见上 　　Bet = 0 　　Label2.Caption = Money ‘ 显示现金及押注 　　Label4.Caption = Bet 　　‘ 接下来： 　　‘ 当按“押注”按钮时，系统自动调用 Command1_Click() 函数 　　‘ 骰子没滚动时，若按“开始”按钮，则调用 Command2_Click() 　　‘ 骰子滚动时，“开始”按钮已变成“停1按钮(参见 Command2_Click()) 　　‘ 若按“停1按钮，则调用 Command2_Click() 　　‘ 当按“金盆洗手”按钮时，调用 Command3_Click() 　　‘ 每隔 0.05 秒时，系统调用 Timer1_Timer() 　　‘ 请分别参考下面的函数实现

VB Dos游戏 Space Invaders源码分享，一款带背景音乐的单机DOS游戏，学习编写VB游戏的参考范例，编译运行后如图所示。

Delphi华容道游戏源码，人物取材于三国传，在DELPHI7下编译通过，Position:array[0..9,0..1] of integer; //用于保存或设置每个Images组件的Left和Top属性 　　 WidthHeight:array[0..9,0..1] of integer; //用于保存每个Images组件的宽度和高度 　　 Images:array[0..9] of TImage;//TImage数组 　　 PrepareMove:Boolean; //用于显示是否准备移动 　　 Moveward:TDragWord; //移动方向 　　 BeginPosition:TPoint; //用户拖动Images组件时的起始位置 　　 Procedure ImagesMouseDown(Sender: TObject; Button: TMouseButton; 　　 Shift: TShiftState; X, Y: Integer); 　　 Procedure ImagesMouseUp(Sender: TObject; Button: TMouseButton; 　　 Shift: TShiftState; X, Y: Integer); 　　 Function InvalidMove(X:integer;Y:Integer;ButtonNumber:integer):Boolean;//判断是否允许用户的拖动

这个VB斗地主 很牛比了 附完整源码，支持网络的斗地主游戏，编写时引入有ocx控件，程序包括Client客户端和Server服务端。界面看上去像聊天室一样，具备游戏大厅功能，右侧显示进入房间的客人名称，左侧游戏显示正在游戏的情况。