简单代码编程贪吃蛇（C语言课程设计，贪吃蛇应该怎么做）

：暂无数据 2026-06-03 08:00:07 ：0

大家好，关于简单代码编程贪吃蛇很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于C语言课程设计，贪吃蛇应该怎么做的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦，希望对各位有所帮助！

本文目录

C语言课程设计，贪吃蛇应该怎么做
如何用慧编程做贪吃蛇代码
scratch3.0怎么制作，简单版的贪吃蛇游戏呢
c语言贪吃蛇程序
scratch编程贪吃蛇教程
vb.net编写的贪吃蛇游戏，带代码的
怎样用vb编写贪吃蛇游戏

C语言课程设计，贪吃蛇应该怎么做

2.1程序功能介绍

贪吃蛇游戏是一个经典小游戏，一条蛇在封闭围墙里，围墙里随机出现一个食物，通过按键盘四个光标键控制蛇向上下左右四个方向移动，蛇头撞倒食物，则食物被吃掉，蛇身体长一节，同时记10分，接着又出现食物，等待蛇来吃，如果蛇在移动中撞到墙或身体交叉蛇头撞倒自己身体游戏结束。

2.2程序整体设计说明

一个游戏要有开始部分，运行部分，结束部分（实际上开始部分与运行部分是一体的）。

2.2.1设计思路

这个程序的关键是表示蛇的图形以及蛇的移动。用一个小矩形表示蛇的一节身体，身体每长一节，增加一个矩形块，蛇头用两节表示。移动时必须从蛇头开始，所以蛇不能向相反方向移动，也就是蛇尾不能改作蛇头。如果不按任何键，蛇自行在当前方向上前移，当游戏者按了有效的方向键后，蛇头朝着指定的方向移动，一步移动一节身体，所以当按了有效的方向键后，先确定蛇头的位置，然后蛇身体随着蛇头移动，图形的实现是从蛇头的新位置开始画出蛇，这时由于没有庆平的原因，原来蛇的位置和新蛇的位置差一个单位，所以看起来社会多一节身体，所以将蛇的最后一节用背景色覆盖。食物的出现和消失也是画矩形块和覆盖矩形块

2.2.2数据结构设计及用法说明

开始部分：

游戏是运行在图形模式下的，所以第一步一定是初始化图形模式，接着要有开始的界面，就像书有封面一样，我设置了一个游戏的标题画面，除了游戏标题画面我还设置了一个欢迎画面。标题画面以后，还要为游戏的运行部分作初始化，包括绘制游戏运行时的背景，对游戏某些重要变量的初始化。

运行部分：

作为游戏的核心部分，这里包括的函数比较多，也就是模块比较多，首先让我模拟一下贪吃蛇的游戏模式：某个世界上突然出现一条蛇，它很短，它的运动神经异常，它没法停止自己的多动症在它的世界里就只有食物，它很饿，也很贪吃；同样在不明原因的情况下，食物从天而降，可惜的是没有落到嘴边；饥饿的主人公，不管它有没有毒，也不问食物的来历，径直向食物爬去；它吃到食物啦，它超出想象的同化能力让食物很快的成为自己身体的一部分，它的身子变长啦。当它吃到第一颗食物时，上帝有给它第二颗，于是它吃了第二颗，于是又变长了，于是又有第三颗??它的身子是一直的加长，它不管自己过长身体的麻烦——转身不便，继续吃下去，现在它是直接把巴张大，好让食物有个绿色通道。但是在某天的下午，它咬到了自己，它才想起自己是一条毒蛇，于是晕死过去（不是毒死）；又或者它往食物冲锋的时候，它失去控制，撞到了墙上。

第一轮循环：第一步，出现食物；第二步，蛇不停运动；第三步，检查蛇是撞到自己或墙壁；由第四步起游戏有两条支线（A、B）：

A ：第四步，蛇没有碰到自己或墙壁，蛇继续前进，绘制蛇的动作；第五步，判断蛇是否吃到食物，如果蛇吃到食物，身子变长，原来的食物消失；第六步，让玩家输入控制指令，让蛇在下一轮循环的第二步改变运动方向；第七步，第二轮循环的第一步，重复第一轮的步骤；

B：第四步，蛇碰到自己或墙壁，终止游戏。

结束部分：

游戏结束时，显示“GAME OVER”，已经是约定俗成的规律了，我的游戏也不例外。除了游戏结束画面外，我还设置了一个游戏退出画面，“善始善终”嘛。

有了上述的大致划分，我把整个程序划分成（13+2）个模块（其实就是函数）

2.2.3程序结构（流程图）

图2.1流程图

依据所需要处理的任务要求，规划输入数据和输出结果，决定存放数据的数据结构。

C语言中数据结构集中体现在数据类型上，因此在进行C语言程序设计时，应统筹规划程序中所使用的变量，数组，指针等，以及它们的类型等。这点是很重要的，如果在此期间选择不合适的变量或者数组，将来修改就十分困难。

现在分析一下贪吃蛇游戏中的元素，继而得出与它们对应的在程序中的描述：

蛇：

基本描述：长度，颜色，位置。

对应数据与数据类型：长度—虽然可以用坐标表示，但是这样的话，运算量将很大，所以换算成较大的单位—节数，以固定长度的每节描述；坐标--整型；颜色--整型；位置--X，Y坐标。

增加的描述：蛇运动的方向，蛇的生命。

对应数据与数据类型：这些描述是为了与程序的按键的输入部分与判断游戏结束部分相联系而设的。方向只有四个方向：上下左右。可以设置与之对应的四个整型数：3、4、2、1。生命就只有两种情况：死或生，对应0或1。

食物：

基本描述：颜色，位置。

对应数据与数据类型：由于颜色设成固定的，所以不再讨论。位置—X、Y坐标。

增加的描述：食物的存在。

对应数据与数据类型：这是为了避免重复出现食物而设置的，与绘制食物的函数有联系。只有两个值：0或1（没有食物或有食物）

其他的元素：墙，由于它在显示上是作为背景而存在的，所以并没有什么说明实际的墙壁就是四条直线组成的边框，由坐标描述。

还需要的变量：键盘键入的键值（作为全局变量，整型）；经常要使用的循环变量；自定义的填充图案；说明文字的字符数组；游戏的记分；游戏的速度（蛇的速度）。

图2.2蛇的不停运动的关键算法的流程图

2.2.4各模块的功能及程序说明

主要模块的实现思路和算法的流程图说明：

关键所在——蛇不停移动的Snakemove()：

蛇的不停移动，就是蛇的下一节取代前一节的位置，在计算机中就是蛇下一节的位置坐标变成前一节的位置坐标。在上文中，已定义蛇的位置坐标为数组类型，一组坐标对应一节的位置，假设有i+1节，由0到i节，第i节的坐标取第i-1节的坐标，第i-1节的坐标取第i-2节的坐标??直到第1节取第0节的坐标。而第0节的坐标，即蛇头的坐标要往某个方向变化，变化量为蛇每节的长度。蛇的这种坐标轮换需要循环语句使其继续下去。

2.2.5程序结果

运行程序得到如下初始界面图：

图2.3程序结果图

用一个小矩形表示蛇的一节身体，身体每长一节，增加一个矩形块，蛇头用两节表示：

图2.4程序结果图

蛇没有碰到自己或墙壁，蛇继续前进：

图2.5程序结果图

游戏结束时，显示“GAME OVER”

图2.6程序结果图

2.3程序源代码及注释

#define N 200

#include 《graphics.h》

#include 《stdlib.h》

#include 《dos.h》

#define LEFT 0x4b00

#define RIGHT 0x4d00

#define DOWN 0x5000

#define UP 0x4800

#define ESC 0x011b

int i,key;

int score=0;/*得分*/

int gamespeed=50000;/*游戏速度自己调整*/

struct Food{

int x;/*食物的横坐标*/

int y;/*食物的纵坐标*/

int yes;/*判断是否要出现食物的变量*/

}food;/*食物的结构体*/

struct Snake{

int x;

int y;

int node;/*蛇的节数*/

int direction;/*蛇移动方向*/

int life;/* 蛇的生命,0活着,1死亡*/

}snake;

void Init(void);/*图形驱动*/

void Close(void);/*图形结束*/

void DrawK(void);/*开始画面*/

void GameOver(void);/*结束游戏*/

void GamePlay(void);/*玩游戏具体过程*/

void PrScore(void);/*输出成绩*/

/*主函数*/

void main(void){

Init();/*图形驱动*/

DrawK();/*开始画面*/

GamePlay();/*玩游戏具体过程*/

Close();/*图形结束*/}

/*图形驱动*/

void Init(void){

int gd=DETECT,gm;

registerbgidriver(EGAVGA_driver);

initgraph(&gd,&gm,"c:\\program files\\winyes\\tc20h\\bgi");

cleardevice();}

/*开始画面，左上角坐标为（50，40），右下角坐标为（610，460）的围墙*/

void DrawK(void){

/*setbkcolor(LIGHTGREEN);*/

setcolor(11);

setlinestyle(SOLID_LINE,0,THICK_WIDTH);/*设置线型*/

for(i=50;i《=600;i+=10)/*画围墙*/ {

rectangle(i,40,i+10,49); /*上边*/

rectangle(i,451,i+10,460);/*下边*/ }

for(i=40;i《=450;i+=10) {

rectangle(50,i,59,i+10); /*左边*/

rectangle(601,i,610,i+10);/*右边*/ }}

/*玩游戏具体过程*/

void GamePlay(void){

randomize();/*随机数发生器*/

food.yes=1;/*1表示需要出现新食物,0表示已经存在食物*/

snake.life=0;/*活着*/

snake.direction=1;/*方向往右*/

snake.x=100;/*蛇头*/

snake.x=100;

snake.node=2;/*节数*/

PrScore();/*输出得分*/

while(1)/*可以重复玩游戏,压ESC键结束*/ {

while(!kbhit())/*在没有按键的情况下,蛇自己移动身体*/ {

if(food.yes==1)/*需要出现新食物*/ {

food.x=rand()%400+60;

food.y=rand()%350+60;

while(food.x%10!=0)/*食物随机出现后必须让食物能够在整格内,这样才可以让蛇吃到*/

food.x++;

while(food.y%10!=0)

food.y++;

food.yes=0;/*画面上有食物了*/ }

if(food.yes==0)/*画面上有食物了就要显示*/ {

setcolor(GREEN);

rectangle(food.x,food.y,food.x+10,food.y-10); }

for(i=snake.node-1;i》0;i--)/*蛇的每个环节往前移动,也就是贪吃蛇的关键算法*/ {

snake.x;

snake.y; }

/*1,2,3,4表示右,左,上,下四个方向,通过这个判断来移动蛇头*/

switch(snake.direction) {

case 1:snake.x+=10;break;

case 2: snake.x-=10;break;

case 3: snake.y-=10;break;

case 4: snake.y+=10;break; }

for(i=3;i《snake.node;i++)/*从蛇的第四节开始判断是否撞到自己了，因为蛇头为两节，第三节不可能拐过来*/ {

if(snake.x) {

GameOver();/*显示失败*/

snake.life=1;

break; } }

if(snake.x《55||

snake.y》455)/*蛇是否撞到墙壁*/ {

GameOver();/*本次游戏结束*/

snake.life=1; /*蛇死*/ }

if(snake.life==1)/*以上两种判断以后,如果蛇死就跳出内循环，重新开始*/

break;

if(snake.x==food.y)/*吃到食物以后*/ {

setcolor(0);/*把画面上的食物东西去掉*/

rectangle(food.x,food.y,food.x+10,food.y-10);

snake.x=-20;

/*新的一节先放在看不见的位置,下次循环就取前一节的位置*/

snake.node++;/*蛇的身体长一节*/

food.yes=1;/*画面上需要出现新的食物*/

score+=10;

PrScore();/*输出新得分*/ }

setcolor(4);/*画出蛇*/

for(i=0;i《snake.node;i++)

rectangle(snake.x+10,

snake.y-10);

delay(gamespeed);

setcolor(0);/*用黑色去除蛇的的最后一节*/

rectangle(snake.x,

snake.x-10); } /*endwhile（！kbhit）*/

if(snake.life==1)/*如果蛇死就跳出循环*/

break;

key=bioskey(0);/*接收按键*/

if(key==ESC)/*按ESC键退出*/

break;

else

if(key==UP&&snake.direction!=4)

/*判断是否往相反的方向移动*/

snake.direction=3;

else

if(key==RIGHT&&snake.direction!=2)

snake.direction=1;

else

if(key==LEFT&&snake.direction!=1)

snake.direction=2;

else

if(key==DOWN&&snake.direction!=3)

snake.direction=4;

}/*endwhile(1)*/}

/*游戏结束*/

void GameOver(void){

cleardevice();

PrScore();

setcolor(RED);

settextstyle(0,0,4);

outtextxy(200,200,"GAME OVER");

getch();}

/*输出成绩*/

void PrScore(void){

char str;

setfillstyle(SOLID_FILL,YELLOW);

bar(50,15,220,35);

setcolor(6);

settextstyle(0,0,2);

sprintf(str,"score:%d",score);

outtextxy(55,20,str);}

/*图形结束*/

void Close(void){

getch();

closegraph();

}

如何用慧编程做贪吃蛇代码

用慧编程做贪吃蛇代码过程如下：
1、我们需要建立四个头文件，然后分别设置蛇的状态，上下左右，这是蛇能够有方向可走的前提，然后我们再设置蛇身的节点，定义一个简单的函数，这样蛇的全身以及他的行走方向就弄完了。
2、贪吃蛇不能穿墙代码。
3、第二步，一个函数这个函数的目的是贪吃蛇不能穿墙，很简单的代码分别设置长宽的最大位移，在内部范围内设置为一即可通过，否则不能穿墙。贪吃蛇随机生成一个食物。
4、设置一个随机函数。这样贪吃蛇代码就做好了。
慧编程是一款面向STEAM教育领域的积木式和代码编程软件，基于图形化编程开发。

scratch3.0怎么制作，简单版的贪吃蛇游戏呢

1、游戏工作过程。键盘主要控制贪吃蛇的头部移动，尾巴是沿着轨迹移动就行。贪吃蛇的身体，是用程序画笔模块画出来的。如果头部吃到食物，就给游戏分数加分。

2、创建角色：新建3个角色分别为“头部”、“尾巴”、“食物”（贪吃蛇角色的形状可以自己动手画画，但是要注意造型的中心点位置，否则身体和头尾会不一致）。

3、创建分数变量：新建一个变量，名称为“游戏分数”。用来记录吃到的食物数量，以及游戏成绩。

4、创建轨迹列表：新建3个列表，名称分别为“头部＿坐标X”“头部＿坐标Y”“头部＿方向”。

用来记录贪吃蛇的移动轨迹，方便尾巴追随轨迹移动（将在舞台上的列表隐藏，以免影响舞台观看）。

5、编写程序

头部程序：键盘控制头部移动，画笔画下轨迹，并且列表记录头部的轨迹。

尾巴程序：按照轨迹列表移动，画笔画下背景色，保持贪吃蛇身体长度。

食物程序：碰到头部角色，代表食物被吃，改变自身位置，游戏加分。

6、最终游戏效果：点击“绿色旗子”开始游戏，按下键盘的方向键，控制贪吃蛇移动。

吃到食物时，变量“游戏分数”就会加1分。

1、游戏工作过程：键盘主要控制贪吃蛇的头部移动，尾巴是沿着轨迹移动就行。贪吃蛇的身体，是用程序画笔模块画出来的。如果头部吃到食物，就给游戏分数加分。

3、创建分数变量：新建一个变量，名称为“游戏分数”。用来记录吃到的食物数量，以及游戏成绩。

4、创建轨迹列表：新建3个列表，名称分别为“头部_坐标X”“头部_坐标Y”“头部_方向”。

用来记录贪吃蛇的移动轨迹，方便尾巴追随轨迹移动（将在舞台上的列表隐藏，以免影响舞台观看）。

5、编写程序

头部程序：键盘控制头部移动，画笔画下轨迹，并且列表记录头部的轨迹。

尾巴程序：按照轨迹列表移动，画笔画下背景色，保持贪吃蛇身体长度。

食物程序：碰到头部角色，代表食物被吃，改变自身位置，游戏加分。

6、最终游戏效果：点击“绿色旗子”开始游戏，按下键盘的方向键，控制贪吃蛇移动。

吃到食物时，变量“游戏分数”就会加1分。

现在，我们来看看是怎么编的吧
首先，选一个深色背景，导入蛇和苹果后，新建好变量：
蛇代码：

这样，蛇头就能动了，那么蛇身体怎么办呢？
用克隆就行了：

蛇吃的苹果越多，身体就越长，现在，我们来编苹果的代码
我们要保证屏幕上面只能出现一个苹果，就要用到变量了：

如果食物数量等于零时，就克隆一个出来，把数量增加一，被吃了后，加一分，长度增加0.1，这样蛇就会变长，就可以玩了！

c语言贪吃蛇程序

基本思路：

蛇每吃一个食物蛇身子就增加一格，用UP, DOWN, LEFT, RIGHT控制蛇头的运动，而蛇身子跟着蛇头走，每后一格蛇身子下一步走到上一格蛇身子的位置，以此类推。

#include 《stdio.h》

#include 《conio.h》

#include 《windows.h》

#define BEG_X2

#define BEG_Y1

#define WID20

#define HEI20

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，加速减速，设置刷新休眠时间实现。

scratch编程贪吃蛇教程

scratch编程贪吃蛇教程：

1、首先，我们新建一个项目文件。

2、我们点击添加精灵按钮。

3、在弹出的对话框中，我们选绘制角色。

4、打开画图后，我们用方块工具绘制一个蓝色的方块，并导入舞台，命名为蛇。

5、用同样的方法，添加食物和橡皮擦。

6、我们选中蛇，在代码区写入以下代码。

7、选中食物，在代码区写入以下代码。

8、选中橡皮擦，代码区写入以下代码。

贪食蛇是一款经典的休闲游戏。有PC和手机等多平台版本，既简单又耐玩。

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