简单代码编程贪吃蛇(编程贪吃蛇怎么做)
如何用慧编程做贪吃蛇代码
用慧编程做贪吃蛇代码过程如下：
1、我们需要建立四个头文件，然后分别设置蛇的状态，上下左右，这是蛇能够有方向可走的前提，然后我们再设置蛇身的节点，定义一个简单的函数，这样蛇的全身以及他的行走方向就弄完了。
2、贪吃蛇不能穿墙代码。
3、第二步，一个函数这个函数的目的是贪吃蛇不能穿墙，很简单的代码分别设置长宽的最大位移，在内部范围内设置为一即可通过，否则不能穿墙。贪吃蛇随机生成一个食物。
4、设置一个随机函数。这样贪吃蛇代码就做好了。
慧编程是一款面向STEAM教育领域的积木式和代码编程软件，基于图形化编程开发。
c语言 贪吃蛇 程序
基本思路：
蛇每吃一个食物蛇身子就增加一格，用UP, DOWN, LEFT, RIGHT控制蛇头的运动，而蛇身子跟着蛇头走，每后一格蛇身子下一步走到上一格蛇身子的位置，以此类推。
#include stdio.h
#include conio.h
#include windows.h
#define BEG_X 2
#define BEG_Y 1
#define WID 20
#define HEI 20
HANDLE hout;
typedef enum {UP, DOWN, LEFT, RIGHT} DIR;
typedef struct Snake_body
{
COORD pos;//蛇身的位置
struct Snake_body *next;//下一个蛇身
struct Snake_body *prev;//前一个蛇身
}SNAKE, *PSNAKE;
PSNAKE head = NULL;//蛇头
PSNAKE tail = NULL;//蛇尾
//画游戏边框的函数
void DrawBorder()
{
int i, j;
COORD pos = {BEG_X, BEG_Y};
for(i = 0; i HEI; ++i)
{
SetConsoleCursorPosition(hout, pos);
for(j = 0; j WID; ++j)
{
if(i == 0)//第一行
{
if(j == 0)
printf("┏");
else if(j == WID - 1)
printf("┓");
else
printf("━");
}
else if(i == HEI - 1)//最后一行
{
if(j == 0)
printf("┗");
else if(j == WID - 1)
printf("┛");
else
printf("━");
}
else if(j == 0 || j == WID - 1)//第一列或最后一列
printf("┃");
else
printf(" ?");
}
++pos.Y;
}
}
//添加蛇身的函数
void AddBody(COORD pos)
{
PSNAKE pnew = (PSNAKE)calloc(1, sizeof(SNAKE));
pnew-pos = pos;
if(!head)
{
head = tail = pnew;
}
else
{
pnew-next = head;//新创建蛇身的next指向原先的蛇头
head-prev = pnew;//原先的蛇头的prev指向新创建的蛇身
head = pnew;//把新创建的蛇身作为新的蛇头
}
SetConsoleCursorPosition(hout, head-pos);
printf("◎");
}
//蛇身移动的函数
void MoveBody(DIR dir)
{
PSNAKE ptmp;
COORD pos = head-pos;
switch(dir)
{
case UP:
if(head-pos.Y BEG_Y + 1)
--pos.Y;
else
return;
break;
case DOWN:
if(head-pos.Y BEG_Y + HEI - 2)
++pos.Y;
else
return;
break;
case LEFT:
if(head-pos.X BEG_X + 2)
pos.X -= 2;
else
return;
break;
case RIGHT:
if(head-pos.X BEG_X + (WID - 2) * 2)
pos.X += 2;
else
return;
break;
}
AddBody(pos);//添加了一个新的蛇头
ptmp = tail;//保存当前的蛇尾
tail = tail-prev;
if(tail)
tail-next = NULL;
SetConsoleCursorPosition(hout, ptmp-pos);
printf(" ?");
free(ptmp);
}
int main()
{
int ctrl;
DIR dir = RIGHT;//初始蛇的方向是向右的
COORD pos = {BEG_X + 2, BEG_Y + HEI / 2};
system("color 0E");
system("mode con cols=90 lines=30");
hout = GetStdHandle(STD_OUTPUT_HANDLE);
printf(" ? ?------------贪吃蛇的移动------------");
DrawBorder();
//自定义几个蛇的身体
AddBody(pos);
pos.X += 2;
AddBody(pos);
pos.X += 2;
AddBody(pos);
pos.X += 2;
AddBody(pos);
pos.X += 2;
AddBody(pos);
pos.X += 2;
AddBody(pos);
pos.X += 2;
AddBody(pos);
//控制蛇的移动
while(ctrl = getch())
{
switch(ctrl)
{
case 'w':
if(dir == DOWN)
continue;
dir = UP;
break;
case 's':
if(dir == UP)
continue;
dir = DOWN;
break;
case 'a':
if(dir == RIGHT)
continue;
dir = LEFT;
break;
case 'd':
if(dir == LEFT)
continue;
dir = RIGHT;
break;
case 'q':
return 0;
}
MoveBody(dir);
}
return 0;
}
扩展资料：
实现逻辑
1，可以设置光标，就能实现制定位置打印制定符号。
2，涉及一个结构体，包含两个元素坐标元素和一个结构体指针。
3，结构体串联形成链表，遍历获取成员坐标，打印符号得到蛇身。
4，不断的加头，去尾，重新遍历坐标，再打印形成蛇的移动。
5，食物产生的位置判定，不能越界，也不能与蛇身体重合。
6，蛇的转向判定，一条规则，不允许倒退。
7，转向的实现，跟行进方向决定新的关节坐标（当前头的上下左右）
8，死亡检测，是否头节点坐标是否与墙壁重合，是否与身体其他关节重合。
9，加速减速，设置刷新休眠时间实现。
参考资料来源：百度百科-C语言
利用解释型语言编写的贪吃蛇程序什么意思
用C语言来实现也是一个好玩的事情。这个游戏我写完后放在知乎，竟然点赞的人数超级多。我觉得大家喜欢，一个方面是因为写得简单，大家都能看得懂，一个可扩展性还是非常强的。
我试了说一下这个代码 核心的三个函数
menu();
setup();
draw();
menu用来设置菜单，也就是我们一运行看到的那个。setup用来设置参数，我们需要设置高度和宽度，还有分数，食物的位置。draw也就是画，也就是画整个画面。
还有一个枚举类型 这个结构体用来设置蛇的几个状态，我觉得这个也是面向对象编程的一个思想，把蛇的状态都封装成一个枚举类型。
typedef enum
{
STOP = 0,
LEFT,
RIGHT,
UP,
DOWN
}Direction;
还有
/*判断贪吃蛇的长度*/
void logic()
这个函数，这个函数应该是整个贪吃蛇的精髓了，要理解代码怎么把蛇给连接起来。用了点巧妙的东西。
来看这里面的关键代码
/*把上一个位置记下*/
int lastX = tailX[0];
int lastY = tailY[0];
int last2X, last2Y;
/*重新获取当前的位置*/
tailX[0]=x;
tailY[0]=y;
int i=0;
/*遍历整条蛇的长度 把 0 的位置空出来，其余蛇的位置往后面的空间移动*/
for(i=1; i ntail;i++)
{
last2X = tailX[i];
last2Y = tailY[i];
tailX[i]=lastX;
tailY[i]=lastY;
lastX = last2X;
lastY = last2Y;
}
lastX lastY 用来存上一次的蛇头的位置。后面的 for 循环，通过tail 蛇的长度，把蛇上个状态给保存到数组tailX tailY里面。
完整代码
#include stdio.h
#include stdlib.h
#include stdbool.h
#include Windows.h
#include time.h
#include conio.h /*键盘输入获取*/
bool gameOver;
bool stop = false;
bool hit = false;
/*游戏的边框大小*/
const int width = 50;
const int height = 20;
/*蛇的坐标，食物的坐标还有分数*/
int x,y,fruitX,fruitY,score;
/*蛇每个点的坐标*/
int tailX[200],tailY[200];
/*蛇的默认长度*/
int ntail=3;
typedef enum
{
STOP = 0,
LEFT,
RIGHT,
UP,
DOWN
}Direction;
Direction Dir;
/*开始菜单*/
void menu()
{
int a;
printf( ------------------------------------------------------------------\n
printf( | 贪吃蛇游戏 |\n
printf( | 1) 新游戏 |\n
printf( | 2) 开始边界 |\n
printf( | 3) 退出游戏 |\n
printf( ------------------------------------------------------------------\n
printf( ---- 请输入你的选择:
scanf( %d ,
}
/*初始化状态*/
void setup()
{
gameOver = false;
/*根据当前时间设置“随机数种子”*/
srand(time(NULL));
Dir = STOP;
/*贪吃蛇的位置,固定在中间*/
x= width/2;
y= height/2;
/*食物的位置，位置是随机的*/
fruitX = rand()%width;
fruitY = rand()%height;
score = 0;
}
/*绘制界面*/
void draw()
{
if(stop == true)
{
return;
}
system( cls /*清除屏幕*/
printf( 分数:%d ,score);
printf( \n
/*第一行*/
int i;
for(i= 0 ;i width+1;i++)
{
printf( -
}
printf( \n
/*画中间的画面*/
int p;
for(p= 0 ;p height;p++)/*高度*/
{
int q;
for(q= 0 ;q width;q++)/*宽度*/
{
/*第一行最后已给字符*/
if(q==0 || q==width-1)
{
printf( |
}
if(p == fruitY q == fruitX)/*食物的随机坐标*/
{
printf( O
}
else
{
int k=0;
bool print = false;
/*贪吃蛇的长度 默认长度是 3*/
for(k=0;k ntail;k++)
{
if(tailX[k]==q tailY[k]==p)
{
printf( *
print = true;
}
}
/*如果这个位置打印了 * 就不要打印空格了*/
if(!print)
{
printf(
}
}
}
printf( \n
}
/*最后一行*/
int j;
for(j= 0 ;j width+1;j++)
{
printf( -
}
}
/*按键输入控制*/
void input()
{
if(_kbhit())
{
/*获取键盘的输入字符*/
switch(_getch())
{
case 4 :
case 75:/*左键*/
Dir = LEFT;
hit= true;
break;
case 8 :
case 72:/*上键*/
Dir = UP;
hit= true;
break;
case 6 :
case 77:/*右键*/
Dir = RIGHT;
hit= true;
break;
case 2 :
case 80:/*向下键盘键 */
Dir = DOWN;
hit= true;
break;
case x :
case 27:/*ESE*/
gameOver = true;
break;
case 32:/*空格 暂停键*/
stop = !stop;
break;
}
}
else if(!hit stop == false)/*如果没有改变方向*/
{
x++;
}
}
/*判断贪吃蛇的长度*/
void logic()
{
if(stop == true)
{
return;
}
/*把上一个位置记下*/
int lastX = tailX[0];
int lastY = tailY[0];
int last2X, last2Y;
/*重新获取当前的位置*/
tailX[0]=x;
tailY[0]=y;
int i=0;
/*遍历整条蛇的长度 把 0 的位置空出来，其余蛇的位置往后面的空间移动*/
for(i=1; i ntail;i++)
{
last2X = tailX[i];
last2Y = tailY[i];
tailX[i]=lastX;
tailY[i]=lastY;
lastX = last2X;
lastY = last2Y;
}
/*根据方向来改变x y 的值*/
switch(Dir)
{
case UP:
y--;
break;
case DOWN:
y++;
break;
case LEFT:
x--;
break;
case RIGHT:
x++;
break;
}
if(x 0 || width x || y 0 || height y)
{
gameOver = true;
/*清除屏幕*/
system( cls
printf( ------------------------------------------------------------------\n
printf( | |\n
printf( | |\n
printf( | 游戏结束 |\n
printf( | |\n
printf( | |\n
printf( ------------------------------------------------------------------\n
}
if(x==fruitX y==fruitY)
{
/*吃了一个食物，蛇的长度增加1*/
ntail++;
score+=10;
/*更新下一个食物的位置*/
fruitX = rand()%width;
fruitY = rand()%height;
}
}
int main()
{
#if 0
while(1)
{
printf( %d\n ,_getch());
}
#endif
menu();
setup();
draw();
/*循环画贪吃蛇的界面*/
while(!gameOver)
{
draw();
input();
logic();
Sleep(70);
}
return 0;
}
上面这段代码直接在Dev C++上面应该是可以运行的，很多人在知乎上私信问我，为什么我的贪吃蛇执行不了呢，可能就是平台不同，少了这个头文件，少了那个头文件，但是你为什么不能跟我一样，用Dev C++呢，轻量级，简单。代码的精髓是什么？我认为精髓一定是思想，不是你写了多少行代码，用了什么高端的IDE。
我自认为我的注释已经写得不错了，所以就没有什么好说明的了吧，有不明白的把代码过一下，至于屏幕刷新这个东西，如果只是用时间刷新就会闪屏，所以出现了一个双缓存，把要显示的东西送到一个buff里面去，另一个buff用来显示，这样就可以保证不会出现闪屏。除了写贪吃蛇，可以用这个方法写其他小程序，挺有意思的。
在知乎上，发起了一个C语言 100 行代码之内实现贪吃蛇的问题。我觉得很不错，里面很多同学的回复都非常赞，特别是叶大神的回复。
0142235ea7197f4e1d7ClTovj.png
学习C/C++编程知识，想要成为一个更加优秀的程序员，或者你学习C/C++的时候有难度，可以来UP主页的C++编程学习圈，里面不仅有学习视频和文件资料，还有更多志同道合的朋友，欢迎初学者和想转行的朋友，和大家一起交流成长会比自己琢磨更快哦！ UP也上传了一些C/C++学习的视频教程和C语言基础教程，有兴趣的小伙伴可以看看~ 谢谢阅读！
文章知识点与官方知识档案匹配
C技能树首页概览
115488 人正在系统学习中
点击阅读全文
打开CSDN APP，看更多技术内容
C语言之出圈游戏（详解）
PTA7-5 出圈游戏 用指针实现以下功能：有n个人围成一个圈，顺序排号。从第1个人开始报数（从1到3报数），凡报到3的人退出圈子，问最后留下的是原来的第几号。 （1）编程提示 每三个人离开，置为0；当数到最后一个人时，将指针重新指向第一个人；m表示离开的人数，当m=n-1时，说明只剩下一个人，循环结束。 输入样例： 10 输出样例： 4 上面是题目的要求。 本小白的思路是让n个人形成一个一维数组，每次判断该人是不是要离开， 如果离开，这就不添加到这个一维数组里，并记录下来离开的人数，否则，就在数组里加上这
继续访问
9718 整数因子分解（优先做）
9718 整数因子分解（优先做）Description输入格式输出格式输入样例输出样例 时间限制:1000MS 代码长度限制:10KB 提交次数:0 通过次数:0 题型: 编程题 语言: G++;GCC;VC Description 大于1的正整数 n 都可以分解为 n = x1 * x2 * … * xm， 每个xi为大于1的因子，即1xi=n 。 例如：当n=12时，共有8种不同的分解式： 12 = 12 12 = 62 12 = 43 12 = 34 12 = 322 12 =
继续访问
【C语言】链表——圈中游戏问题（数到3退出）
问题描述： 有n个人围成一圈，从第1个人开始报数1、2、3，每报到3的人退出圈子。使用链表找出最后留下的人。
继续访问
套圈游戏c语言程序设计教程课后答案,概率统计习题带答案
概率论与数理统计习题及题解沈志军 盛子宁第一章 概率论的基本概念1．设事件B A ,及B A 的概率分别为q p ,及r ，试求)(),(),(B A P B A P AB P 及)(AB P2．若C B A ,,相互独立，试证明：C B A ,,亦必相互独立。3．试验E 为掷2颗骰子观察出现的点数。每种结果以),(21x x 记之，其中21,x x 分别表示第一颗、第二颗骰子的点数。设事件}10...
继续访问
c语言贪吃蛇设计意义,C语言贪吃蛇设计理念.pdf
基于C语言的 “贪吃蛇”游戏的设计与实现摘3.功能描述 本游戏主要实现以下几种功能：“贪吃蛇”游戏贪 游 游吃 戏 戏蛇 显 分的 ...
继续访问
热门推荐 一个好玩的小游戏(纯C语言编写)
最近在看知乎是发现了一个这一个专栏 从中获取的许多知识，本文中的游戏也是从里面学到的，不过本人又自己加了一些功能。 这是一个类似于飞机大战的游戏，不过目前代码量比较小，所以看起来非常简陋游戏界面如下 更新日志，本人将原来的原来的代码有进一步的优化了一下，之前是只有一个非常小的战机现在更新后可以产生一个非常大的战机（看起来也更
继续访问
如何用C语言实现圈叉游戏（-）
今天情人节，还是在学习C语言 自己写了一遍发现自己写的没有书上的代码更简练 就把书上的代码稍微修改了一下 下面看游戏界面 和昨天的米字棋差不多，有时间会结合米字旗的代码做些修改
继续访问
C语言：围圈报数游戏
游戏规则：有N个人围成一圈，顺序排号，从第一个人开始1到D报数，，凡报到D的人退出圈子（下场），问最后留下来的是原来的第几号？ 逻辑思想：用布尔数组记下每个人的上场状态，1为上场，0为下场，开始游戏后每D个状态为1的人将状态改为0（即下场），重复下场动作N-1次后可知剩下一人，遍历数组找出剩下的状态为1的人即可。 代码如下： #includestdio.h #define N 1000 //参与的总人数 #define D 3 //每D个人报数下场 int main() { /
继续访问
数圈圈
26个大写字母里面，有一部分字母是带有圈的，比如A有1个圈，B有2个圈，C没有圈， 给你一个带有n个大写字母组成的字符串，请问一共有多少个圈圈。 你可以将字母中完全封闭的一个区域当作一个圈 输入描述： 第一行输入一个整数t，代表有t组测试数据， 对于每组测试数据， 第一行输入一个整数n代表字符串的长度， 第二行输入一个长度为n的字符串S，保证只由大写字母组成。 1=t=10 1=n=1*10^5 输出描述： 对于每组测试数据，输出一个整数代表这个字符串共有多少个圈圈。 并且对
继续访问
C语言围圈游戏
玩游戏，一共 N（ 1≤N≤1000 ）个人围成一圈，从某个人起顺时针顺序编号为 1 ~ N 号。 游戏只能有一个人赢，船长让大家数数，从编号为 1 的人开始顺时针报数，每轮从 1 报到 M 号（ 1≤ M ），凡报到 M 的人视为出局，接着又从紧邻的下一个人开始同样的报数（紧邻的下一个人又报 1 ）。 依次输入人数 N ，和报数规则的末数 M ，中间隔一个空格。输出能赢的相应编号R。 #includestdio.h int main() {...
继续访问
圈中游戏
有n个人围成一圈，从第1个人开始报数1、2、3，每报到3的人退出圈子。编程使用链表找出最后留下的人。 bug版本 #include stdio.h #include stdlib.h struct player { long num; struct player *next; }; typedef struct player NODE; NODE *create(int n) { NODE *head, *tail, *p; int i =
继续访问
c语言圈中的游戏,C语言实现扫雷游戏
本文将介绍如何用C语言多文件编程实现扫雷该示例扫雷程序可实现以下几个功能:自定义雷数踩雷后会将所有雷显示出来地图大小易修改Mine_clearance.h#pragma once#define _CRT_SECURE_NO_WARNINGS#include#include#include#define ROW 11#define COL 11#define 踩雷 0#define 玩家胜利 1in...
继续访问
c语言程序设计求各位数之和,C语言for回圈设计输入一个正整数，求它的各位数字之和及位数 例如234的各位数之和为9 位数是3...
C语言for回圈设计输入一个正整数，求它的各位数字之和及位数 例如234的各位数之和为9 位数是3以下文字资料是由(历史新知网)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！C语言for回圈设计输入一个正整数，求它的各位数字之和及位数 例如234的各位数之和为9 位数是3同意二楼，但得改一下#includeint main(int argc, ch...
继续访问
c语言draw函数使用实例,使用函数实现两个数的交换（C语言）
题目：使用函数实现两个数的代码常规思路：定义函数，调用函数，完成交换。你的代码是否和下面一样呢？#include #include void Swap(int a,int b) { int tmp = a; a =b; b = tmp; } int main() { int x = 10; int y = 20; Swap(x,y); printf("%d %d\n...
继续访问
圈中的游戏 c语言,圈叉棋小游戏的简单实现代码
该楼层疑似违规已被系统折叠隐藏此楼查看此楼#include int game[3][3]={0};void Show(int turn,int x,int y){int i=0,j=0;if(x0 y0){if(turn%2){game[x-1][y-1]=1;}else{game[x-1][y-1]=-1;}}for(i=0;i3;++i){for...
继续访问
c语言圈中的游戏,圈叉棋小游戏的简单实现代码
该楼层疑似违规已被系统折叠隐藏此楼查看此楼#include int game[3][3]={0};void Show(int turn,int x,int y){int i=0,j=0;if(x0 y0){if(turn%2){game[x-1][y-1]=1;}else{game[x-1][y-1]=-1;}}for(i=0;i3;++i){for...
c#编程贪吃蛇
using?System;using?System.Collections.Generic;using?System.ComponentModel;using?System.Data;using?System.Drawing;using?System.Linq;using?System.Text;using?System.Windows.Forms;
namespace?SnakeGame
{
????public?partial?class?frmSnake?:?Form
????{
????????public?Point?FoodLct?=?new?Point();//缓存食物的坐标??
????????public?int?snakeLen?=?6;
????????public?const?int?SnakeMaxLength?=?500;
????????public?Point[]?snakeArr?=?new?Point[SnakeMaxLength];
????????public?int?snakeDrt?=?2;
????????public?bool?panDuan?=?true;
????????public?frmSnake()
????????{
????????????InitializeComponent();
????????????int?temp?=?0;
????????????for?(int?i?=?snakeLen?-?1;?i?=?0;?i--)
????????????{
????????????????snakeArr[i].X?=?temp;?snakeArr[i].Y?=?0;?
????????????????temp?+=?15;
????????????}
????????}
????????/*
????????前言??
????????说到贪吃蛇，大家可能小时候都玩过，小菜最近在整理Winfrom的学习系列，那我觉得有兴趣才会有学习，就从这个小游戏讲起吧。??
????????其实我刚开始学习编程的时候，感觉写个贪吃蛇的程序会很难，因为涉及到画图什么的，其实现在来看，实现很简单。??
????????实现贪吃蛇首先有几个元素：??
????????蛇??
????????食物??
????????然后有几个行为：??
????????吃食物和吃不到食物??
????????撞墙和撞自己??
????????说到这有点oo的意思啊，这篇就不啰嗦，只是简单实现，下篇会优化下。??
????????其实整个贪吃蛇的难点就在于画图，可能用其他语言实现有点复杂，但是强大的.net提供了GDI+绘图机制，实现起来就很方便了，其次就是细节的处理，比如坐标的定位，蛇的行走路线等。??
????????我们简单一点来看，食物可以看成一个小方格，蛇是有N个小方格组成，那我们就可以用GDI+这样实现：
????????///?summary??
????????///?画一个小方块??
????????///?/summary??
????????public?void?DrawShape(int?x,?int?y)
????????{
????????????Graphics?g?=?this.CreateGraphics();
????????????Pen?pen?=?new?Pen(Color.Blue,?2);
????????????g.DrawRectangle(pen,?x,?y,?15,?15);
????????????g.FillRectangle(Brushes.Green,?x,?y,?15,?15);
????????}
????????///?summary??
????????///?画一个食物??
????????///?/summary??
????????public?void?DrawFood(int?x,?int?y)
????????{
????????????Graphics?g?=?this.CreateGraphics();
????????????Pen?pen?=?new?Pen(Color.Red,?2);
????????????SolidBrush?brush?=?new?SolidBrush(Color.Green);
????????????g.DrawRectangle(pen,?x,?y,?15,?15);
????????????g.FillRectangle(brush,?x,?y,?15,?15);
????????}
????????Graphics这个类我就不多说，大家可以看看MSDN上介绍的用法，上面是画蛇的最小单元-方格，和一个食物方格，蛇的方格大小是15*15，边框颜色是Blue，填充色是Green；食物方格的大小是15*15，边框颜色是Red，填充色是Green。??
????????画好了基本元素，那下面就是用基本元素来表现蛇了，可以用Point数组来存储蛇的坐标，也就是每个方格的坐标，我们先看下代码：?
????????///?summary??
????????///?设置Point数组坐标??
????????///?/summary??
????????public?void?Forward(int?drt)
????????{
????????????Point?temp?=?snakeArr[0];
????????????for?(int?i?=?snakeLen?-?1;?i??0;?i--)
????????????{
????????????????snakeArr[i].X?=?snakeArr[i?-?1].X;
????????????????snakeArr[i].Y?=?snakeArr[i?-?1].Y;
????????????}
????????????switch?(drt)
????????????{
????????????????case?1:
????????????????????snakeArr[0].X?=?temp.X;
????????????????????snakeArr[0].Y?=?temp.Y?-?15;
????????????????????break;?//上???
????????????????case?2:
????????????????????snakeArr[0].X?=?temp.X?+?15;
????????????????????snakeArr[0].Y?=?temp.Y;
????????????????????break;?//右???
????????????????case?3:
????????????????????snakeArr[0].X?=?temp.X;
????????????????????snakeArr[0].Y?=?temp.Y?+?15;
????????????????????break;?//下???
????????????????case?4:
????????????????????snakeArr[0].X?=?temp.X?-?15;
????????????????????snakeArr[0].Y?=?temp.Y;
????????????????????break;?//左???
????????????}
????????}
????????drt参数是键盘上上下左右键对应的数字，snakeLen是数组的长度也就是方格的个数，上面那个for循环主要的作用是把前一个数组的坐标赋值给下一个，就像是毛毛虫爬行一样，后一节会按照前一节的路线来爬，下面那个switch的作用是，设置蛇头的行进路线。??
????????再下面就是判断蛇是否吃到食物、是否撞到墙和撞到自己，因为蛇和食物都是用坐标存储的，所以只要判断蛇头坐标是否等于食物坐标就可以了：??
????????///?summary??
????????///?判断是否吃到食物???????????
????????///?/summary??
????????public?bool?EatedFoot(Point?FoodLct)
????????{
????????????if?(snakeArr[0].X?==?FoodLct.X??snakeArr[0].Y?==?FoodLct.Y)
????????????{
????????????????if?(snakeLen??SnakeMaxLength)
????????????????{
????????????????????snakeLen++;
????????????????????snakeArr[snakeLen].X?=?snakeArr[snakeLen?-?1].X;
????????????????????snakeArr[snakeLen].Y?=?snakeArr[snakeLen?-?1].Y;
????????????????}
????????????????return?true;
????????????}
????????????else
????????????????return?false;
????????}
????????///?summary??
????????///?判断是否撞到自己?????????
????????///?/summary??
????????public?bool?CheckSnakeHeadInSnakeBody()
????????{
????????????return?this.CheckInSnakeBody(this.snakeArr[0].X,?this.snakeArr[0].Y,?1);
????????}
????????///?summary??
????????///?检查输入的坐标是否在蛇的身上
????????///?/summary??
????????public?bool?CheckInSnakeBody(int?x,?int?y,?int?snkHead)
????????{
????????????for?(int?i?=?snkHead;?i??snakeLen;?i++)
????????????{
????????????????if?(x?==?this.snakeArr[i].X??y?==?this.snakeArr[i].Y)
????????????????{
????????????????????return?true;
????????????????}
????????????}?return?false;
????????}
????????///?summary??
????????///?判断是否撞墙
????????///?/summary??
????????///?returns/returns??
????????public?bool?CheckSnakeBodyInFrm()
????????{
????????????if?(this.snakeArr[0].X?=?594?||?this.snakeArr[0].Y?=?399?-?32?||?this.snakeArr[0].X??0?||?this.snakeArr[0].Y??0)
????????????????return?true;
????????????else
????????????????return?false;
????????}*/
????????/*实现上面的几个步骤，简单版的贪吃蛇基本上就完成了，再加上一个timer控件，这样蛇就会“动”起来了，就这么简单。??
????????完整代码：*/
????????///?summary??
????????///?画一个小方块???????????
????????///?/summary??
????????public?void?DrawShape(int?x,?int?y)
????????{
????????????Graphics?g?=?this.CreateGraphics();
????????????Pen?pen?=?new?Pen(Color.Blue,?2);
????????????g.DrawRectangle(pen,?x,?y,?15,?15);
????????????g.FillRectangle(Brushes.Green,?x,?y,?15,?15);
????????}
????????///?summary??
????????///?画一个食物???????????
????????///?/summary??
????????public?void?DrawFood(int?x,?int?y)
????????{
????????????Graphics?g?=?this.CreateGraphics();
????????????Pen?pen?=?new?Pen(Color.Red,?2);
????????????SolidBrush?brush?=?new?SolidBrush(Color.Green);
????????????g.DrawRectangle(pen,?x,?y,?15,?15);
????????????g.FillRectangle(brush,?x,?y,?15,?15);
????????}
????????///?summary??
????????///?设置Point数组坐标???????????
????????///?/summary??
????????public?void?Forward(int?drt)
????????{
????????????Point?temp?=?snakeArr[0];
????????????for?(int?i?=?snakeLen?-?1;?i??0;?i--)
????????????{
????????????????snakeArr[i].X?=?snakeArr[i?-?1].X;
????????????????snakeArr[i].Y?=?snakeArr[i?-?1].Y;
????????????}
????????????switch?(drt)
????????????{
????????????????case?1:?snakeArr[0].X?=?temp.X;?snakeArr[0].Y?=?temp.Y?-?15;?break;?//上???
????????????????case?2:?snakeArr[0].X?=?temp.X?+?15;?snakeArr[0].Y?=?temp.Y;?break;?//右???
????????????????case?3:?snakeArr[0].X?=?temp.X;?snakeArr[0].Y?=?temp.Y?+?15;?break;?//下???
????????????????case?4:?snakeArr[0].X?=?temp.X?-?15;?snakeArr[0].Y?=?temp.Y;?break;?//左???
????????????}
????????}
????????///?summary??
????????///?时间事件???????????///?/summary??
????????private?void?timer1_Tick(object?sender,?EventArgs?e)
????????{
????????????Graphics?g?=?this.CreateGraphics();
????????????g.Clear(Color.DarkKhaki);//清除整个画面??
????????????Forward(snakeDrt);
????????????for?(int?i?=?0;?i??snakeLen;?i++)
????????????{
????????????????DrawShape(snakeArr[i].X,?snakeArr[i].Y);
????????????}
????????????if?(panDuan)
????????????{
????????????????ShowFood();//DrawFood(FoodLct.X,?FoodLct.Y);??
????????????????panDuan?=?false;
????????????}
????????????if?(EatedFoot(FoodLct))
????????????{
????????????????ShowFood();
????????????????DrawFood(FoodLct.X,?FoodLct.Y);
????????????}
????????????else
????????????{
????????????????DrawFood(FoodLct.X,?FoodLct.Y);
????????????}
????????????if?(CheckSnakeHeadInSnakeBody()?||?CheckSnakeBodyInFrm())
????????????{
????????????????this.timer1.Enabled?=?false;
????????????????MessageBox.Show("游戏结束！");
????????????}
????????}
????????///?summary??
????????///?按下方向键
????????///?/summary??
????????private?void?frmSnake_KeyDown(object?sender,?KeyEventArgs?e)
????????{
????????????if?(e.KeyCode?==?Keys.Up)?snakeDrt?=?1;
????????????else?if?(e.KeyCode?==?Keys.Down)
????????????????snakeDrt?=?3;
????????????else?if?(e.KeyCode?==?Keys.Right)
????????????????snakeDrt?=?2;
????????????else?if?(e.KeyCode?==?Keys.Left)
????????????????snakeDrt?=?4;
????????}
????????///?summary??
????????///?判断是否撞到自己
????????///?/summary??
????????public?bool?CheckSnakeHeadInSnakeBody()
????????{
????????????return?this.CheckInSnakeBody(this.snakeArr[0].X,?this.snakeArr[0].Y,?1);
????????}
????????///?summary??
????????///?检查输入的坐标是否在蛇的身上
????????///?/summary??
????????public?bool?CheckInSnakeBody(int?x,?int?y,?int?snkHead)
????????{
????????????for?(int?i?=?snkHead;?i??snakeLen;?i++)
????????????{
????????????????if?(x?==?this.snakeArr[i].X??y?==?this.snakeArr[i].Y)
????????????????{
????????????????????return?true;
????????????????}
????????????}
????????????return?false;
????????}
????????///?summary??
????????///?判断是否撞墙
????????///?/summary??
????????///?returns/returns??
????????public?bool?CheckSnakeBodyInFrm()
????????{
????????????if?(this.snakeArr[0].X?=?594?||?this.snakeArr[0].Y?=?399?-?32?||?this.snakeArr[0].X??0?||?this.snakeArr[0].Y??0)
????????????????return?true;
????????????else
????????????????return?false;
????????}
????????///?summary??
????????///?随机显示食物
????????///?/summary??
????????public?void?ShowFood()
????????{
????????????Random?rmd?=?new?Random();
????????????int?x,?y;?x?=?rmd.Next(0,?this.Width?/?15)?*?15;
????????????y?=?rmd.Next(0,?this.Height?/?15)?*?15;
????????????//while?(this.CheckInSnakeBody(x,?y,?1))???
????????????//{????????????
????????????//????x?=?rmd.Next(0,?32)?*?15;????
????????????//????y?=?32?+?rmd.Next(0,?30)?*?15;???????????
????????????//}??
????????????FoodLct.X?=?x;
????????????FoodLct.Y?=?y;
????????}
????????///?summary??
????????///?判断是否吃到食物
????????///?/summary??
????????public?bool?EatedFoot(Point?FoodLct)
????????{
????????????if?(snakeArr[0].X?==?FoodLct.X??snakeArr[0].Y?==?FoodLct.Y)
????????????{
????????????????if?(snakeLen??SnakeMaxLength)
????????????????{
????????????????????snakeLen++;
????????????????????snakeArr[snakeLen].X?=?snakeArr[snakeLen?-?1].X;?
????????????????????snakeArr[snakeLen].Y?=?snakeArr[snakeLen?-?1].Y;
????????????????}?return?true;
????????????}
????????????else
????????????????return?false;
????????}
????}
}
vb.net编写的贪吃蛇游戏，带代码的
需用VB实现，代码如下
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100
'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " App.Major "." App.Minor "." App.Revision ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) \ 2
Me.Top = (Screen.Height - Height) \ 2
End If
End Sub
'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(P)"
End If
End Sub
'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" Chr(13) _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" Chr(13) _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" Chr(13) _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" Chr(13) _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub
'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" "(V-" App.Major "." App.Minor "版本)" Chr(13) Chr(13) _
"" Chr(13) Chr(13) _
"由PigheadPrince设计制作" Chr(13) _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub
'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)
Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button 1 Then Exit Sub
Select Case Index
Case 0 '锁定窗体
If Me.chkWindowButton(0).Value = 1 Then
Me.imgWindowTop.BorderStyle = 0
Me.imgWindowTop.Enabled = False
Else
Me.imgWindowTop.BorderStyle = 1
Me.imgWindowTop.Enabled = True
End If
Case 1 '最小化
Me.WindowState = 1
Me.chkWindowButton(1).Value = 0
Me.Caption = "BS贪食蛇 — (V-" App.Major "." App.Minor "版本)"
Case 2 '退出
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Select
End Sub
'该过程用于设置蛇运动速度的快慢
Private Sub hsbGameSpeed_Change()
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
End Sub
'该过程用于通过键盘的方向键改变蛇的运动方向
Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case g_intDirection
Case D_UP
If KeyCode = D_DOWN Then Exit Sub
Case D_DOWN
If KeyCode = D_UP Then Exit Sub
Case D_LEFT
If KeyCode = D_RIGHT Then Exit Sub
Case D_RIGHT
If KeyCode = D_LEFT Then Exit Sub
End Select
g_intDirection = KeyCode
End Sub
'该计时循环过程用于计算游戏耗费的秒数并显示
Private Sub tmrGameTime_Timer()
g_lngGameTime = g_lngGameTime + 1
Me.lblGameTime.Caption = g_lngGameTime "秒"
End Sub
'该计时循环过程用于控制蛇的行动轨迹
Private Sub tmrSnakeMove_Timer()
Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
Randomize
Me.picMoveArea.SetFocus
Me.picMoveArea.Cls
'确认蛇头的运动方向并获取新的位置
Select Case g_intDirection
Case D_UP '向上运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTH
Case D_DOWN '向下运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTH
Case D_LEFT '向左运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
Case D_RIGHT '向右运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
End Select
'根据新的位置绘制蛇头
lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurX
lngSnakeY = g_udtSnake(SNAKEONE).Snake_CurY
lngSnakeColor = g_udtSnake(SNAKEONE).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
'移动蛇身体其他部分的位置
For i = 2 To g_intSnakeLength
g_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldX
g_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldY
lngSnakeX = g_udtSnake(i).Snake_CurX
lngSnakeY = g_udtSnake(i).Snake_CurY
lngSnakeColor = g_udtSnake(i).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
Next i
'更新蛇旧的坐标位置
For j = 1 To g_intSnakeLength
g_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurX
g_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurY
Next j
'判断蛇在移动中是否到了禁区而导致游戏失败
If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇移动到了禁区，游戏失败！", 0 + 16, "BS贪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判断蛇在移动中是否碰到了自己的身体而导致游戏失败
If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇在移动中碰到了自己的身体，游戏失败！", 0 + 16, "BS贪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判断蛇是否吃到了果子
If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
'累加玩家的得分并刷新得分显示
g_intPlayerScore = g_intPlayerScore + 1
Me.lblYourScore.Caption = g_intPlayerScore "分"
Call m_subAddSnake '加长蛇的身体
Call m_subGetPoint '获取下一个果子的位置和颜色
Else
'绘制果子
lngPointX = g_udtPoint.Point_X
lngPointY = g_udtPoint.Point_Y
lngPointColor = g_udtPoint.Point_Color
Me.picMoveArea.PSet (lngPointX, lngPointY), lngPointColor
End If
End Sub
'该私有子过程用于初始化游戏
Private Sub m_subGameInitialize()
Erase g_udtSnake '清空蛇的结构数组
g_intPlayerScore = 0 '清空玩家的得分
g_lngGameTime = 0 '清空游戏耗费的秒数
g_intDirection = D_DOWN '设定蛇的初始运动方向为下
g_intSnakeLength = 4 '设定蛇的初始长度
ReDim g_udtSnake(1 To g_intSnakeLength) '重新定义蛇的长度
'定义蛇头部的数据
With g_udtSnake(SNAKEONE)
.Snake_OldX = 530
.Snake_OldY = 530
.Snake_Color = vbBlack
End With
'定义蛇身第2节的数据
With g_udtSnake(SNAKETWO)
.Snake_OldX = 530
.Snake_OldY = 430
.Snake_Color = vbGreen
End With
'定义蛇身第3节的数据
With g_udtSnake(SNAKETHREE)
.Snake_OldX = 530
.Snake_OldY = 330
.Snake_Color = vbYellow
End With
'定义蛇身第4节的数据
With g_udtSnake(SNAKEFOUR)
.Snake_OldX = 530
.Snake_OldY = 230
.Snake_Color = vbRed
End With
Me.picMoveArea.Visible = True
Me.lblYourScore.Caption = g_intPlayerScore "分"
Me.lblGameTime.Caption = g_lngGameTime "秒"
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Call m_subGetPoint '获取第一个果子的位置和颜色
End Sub