USEIEEE.STD_LOGIC_1164.ALL
USEIEEE.STD_LOGIC_ARITH.ALL
USEIEEE.STD_LOGIC_UNSIGNED.ALL
ENTITYtanchishe IS
PORT(
CLK:IN STD_LOGIC
RESET:IN STD_LOGIC
MUSIC:OUT STD_LOGIC
ROW:OUT STD_LOGIC_VECTOR(7 DOWNTO 0)
COL:OUT STD_LOGIC_VECTOR(7 DOWNTO 0)
LIGHT:OUT STD_LOGIC_VECTOR(6 DOWNTO 0)
LIGHT_EN:OUT STD_LOGIC_VECTOR(5 DOWNTO 0)
DIRECTION:IN STD_LOGIC_VECTOR(3 DOWNTO 0)
)
ENDtanchishe
ARCHITECTUREMLD OF tanchishe IS
SIGNALCLK1,CLK_6K,CLK_1M,CLK_10:STD_LOGIC--1hz,6khz,1mhz,10hz时钟信号
SIGNAL RESTART:STD_LOGIC--控制蛇死亡状态变数
SIGNAL MUSIC_EN:STD_LOGIC --音乐使能端
SIGNAL PAT,PAT1,PAT2,load:STD_LOGIC
SIGNAL NUM:INTEGER RANGE 0 TO 12 --显示分频参数
SIGNAL T_HIGH:INTEGER RANGE 0 TO 5 --倒计时高位
SIGNAL T_LOW:INTEGER RANGE 0 TO 9 --倒计时低位
SIGNAL T_MOUTH:INTEGER RANGE 0 TO 15 --鼠放置倒计时
SIGNAL SCORE,STATE:INTEGER RANGE 0 TO3 --比分
SIGNAL TURN:INTEGER RANGE 0 TO 3 --方孙虚乱向控制
SIGNAL COUNT:INTEGER RANGE 0 TO50000000 --1hz分频参数
SIGNAL COUNT1:INTEGER RANGE 0 TO 8333 --6khz分频参则档数
SIGNAL COUNT_1M:INTEGER RANGE 0 TO 50 --1mhz分频参数
SIGNAL COUNT_10:INTEGER RANGE 0 TO5000000 --10hz分频参数
SIGNAL COUNTMU: INTEGER RANGE 0 TO1300 --代表不同音调的频率计数值
SIGNAL p_1:INTEGER RANGE 0 TO 1300
SIGNAL COUNTER:INTEGER RANGE 0 TO 52--播放的音符
TYPE DIAN IS ARRAY(INTEGER RANGE <>)OF INTEGER RANGE 0 TO 7
SIGNAL SX,SY:DIAN(6 DOWNTO 0) --蛇座标
CONSTANT WX:DIAN(3 DOWNTO0):=(5,5,5,5) --墙誉兆的横坐标
CONSTANT WY:DIAN(3 DOWNTO0):=(5,4,3,2) --墙的纵坐标
TYPE FIGURE IS ARRAY(INTEGER RANGE <>)OF INTEGER RANGE 0 TO 9
SIGNAL SHOW:FIGURE(9 DOWNTO 0)
SIGNAL TX,TY,TXT,TYT:INTEGER RANGE 0 TO7 --鼠座标
CONSTANT MID_1:INTEGER:=954CONSTANTMID_2:INTEGER:=850 --分别代表中音各个音符
CONSTANT MID_3:INTEGER:=757CONSTANTMID_6:INTEGER:=568
CONSTANT MID_5:INTEGER:=638CONSTANTMID_4:INTEGER:=715
CONSTANT STOP: INTEGER:=0--节拍
BEGIN
p1:PROCESS(CLK) --分频部分
BEGIN
IF CLK'EVENT AND CLK='1' THEN
COUNT<=COUNT+1
COUNT1<=COUNT1+1
COUNT_1M<=COUNT_1M+1
COUNT_10<=COUNT_10+1
IF COUNT<=24999999 THEN --1HZ分频
CLK1<='1'
ELSIF COUNT>24999999 ANDCOUNT<=49999999 THEN
CLK1<='0'
ELSIF COUNT=50000000 THEN
COUNT<=0
END IF
IF COUNT1<=4166 THEN --6KHZ分频
CLK_6K<='1'
ELSIF COUNT1>4166 ANDCOUNT1<=8332 THEN
CLK_6K<='0'
ELSIF COUNT1=5000 THEN
COUNT1<=0
END IF
IF COUNT_1M<=24 THEN --1MHZ分频
CLK_1M<='1'
ELSIF COUNT_1M>24 ANDCOUNT_1M<=49 THEN
CLK_1M<='0'
ELSIF COUNT_1M=50 THEN
COUNT_1M<=0
END IF
IF COUNT_10<=2499999 THEN --10HZ分频
CLK_10<='1'
ELSIF COUNT_10>2499999 ANDCOUNT_10<=4999999 THEN
CLK_10<='0'
ELSIF COUNT_10=5000000 THEN
COUNT_10<=0
END IF
END IF
ENDPROCESS
p2:PROCESS(CLK,RESET)--控制部分
BEGIN
IF RESET='1' THEN --复位後，蛇转到死亡状态，初始化鼠座标，音乐使能为0
RESTART<='1'
TX<=4TY<=0
MUSIC_EN<='0'
ELSIF CLK'EVENT AND CLK='1' THEN
IF SCORE>=3 THEN --当比分为3时，音乐使能为1
MUSIC_EN<='1'
ELSIF T_LOW=9 AND T_HIGH=5THEN --当倒计时为59秒时，蛇转到运行状态
RESTART<='0'
ELSIF T_HIGH=0 AND T_LOW=0 THEN --倒计时时间到，蛇转到死亡状态
RESTART<='1'
ELSIF SX(0)=WX(0) AND (SY(0)=WY(0)OR SY(0)=WY(1) OR SY(0)=WY(2) OR SY(0)=WY(3))THEN
RESTART<='1'
--蛇撞墙後，转到死亡状态
END IF
IF RESTART='1' OR T_MOUTH=0 OR(SX(0)=TX AND SY(0)=TY) THEN --随机鼠的设置
TXT<=TXTYT<=TY
IF TY=5 OR TY=6 OR TY=7 THEN
TY<=TY-2
ELSE TY<=TY+2
END IF--鼠不与墙重叠
IF (TX=4 OR TX=7) THEN
TX<=0
ELSE
TX<=TX+1
END IF
END IF
END IF
ENDPROCESS
p3:PROCESS(CLK1,RESTART) --控制蛇运行及倒计时部分
BEGIN
IF RESTART='1' THEN--当蛇转为死亡状态，游戏重新开始，鼠放置时间为15S，
T_MOUTH<=15 --比分为0分，倒计时为59S，蛇位置初始化
SCORE<=0
T_HIGH<=5T_LOW<=9
SX<=(0,1,2,3,3,3,3)SY<=(0,0,0,0,0,0,0)
ELSIF CLK1'EVENT AND CLK1='1' THEN
IF (T_MOUTH=0) THEN--鼠放置时间倒计时，15秒後重置
T_MOUTH<=15
ELSE
T_MOUTH<=T_MOUTH-1
END IF
IF T_LOW=0 AND T_HIGH/=0 THEN --总时间倒计时
T_LOW<=9
T_HIGH<=T_HIGH-1
ELSE
T_LOW<=T_LOW-1
END IF
IF (SX(0)=TXT AND SY(0)=TYT)THEN --当蛇吃鼠後，比分加一，鼠重置
SCORE<=SCORE+1
T_MOUTH<=15
END IF
IF (DIRECTION="1000" ANDTURN/=2)THEN
TURN<=0 --C当输入方向上且上状态不为下时，输入向上信号生效
ELSIF (DIRECTION="0100"AND TURN/=3) THEN
TURN<=1 --C当输入方向右且上状态不为左时，输入向右信号生效
ELSIF (DIRECTION="0010"AND TURN/=0) THEN
TURN<=2 --C当输入方向下且上状态不为上时，输入向下信号生效
ELSIF (DIRECTION="0001"AND TURN/=1) THEN
TURN<=3 --C当输入方向左且上状态不为右时，输入向左信号生效
END IF
CASE TURN IS
WHEN 0 =>
IF (SY(0)=7) THENT_HIGH<=0T_LOW<=0--当蛇向下运动时向上不可用
ELSE SY(0)<=SY(0)+1
END IF
WHEN 1 => --当蛇向右运动时向左不可用
IF (SX(0)=7) THEN T_HIGH<=0T_LOW<=0
ELSE SX(0)<=SX(0)+1
END IF
WHEN 2 =>--当蛇向下运动时向上不可用
IF (SY(0)=0) THEN T_HIGH<=0T_LOW<=0
ELSE SY(0)<=SY(0)-1
END IF
WHEN 3 => --当蛇向左运动时向右不能用
IF (SX(0)=0) THEN T_HIGH<=0T_LOW<=0
ELSE SX(0)<=SX(0)-1
END IF
WHEN OTHERS=>TURN<=TURN
END CASE
CASE SCORE IS
WHEN 0 => --当比分为0时，蛇长为4点
SX(4)<=SX(2)SY(4)<=SY(2)
SX(5)<=SX(2)SY(5)<=SY(2)
SX(6)<=SX(2)SY(6)<=SY(2)
WHEN 1 => --当比分为1时，蛇长为5点
SX(4)<=SX(3)SY(4)<=SY(3)
SX(5)<=SX(3)SY(5)<=SY(3)
SX(6)<=SX(3)SY(6)<=SY(3)
WHEN 2 => --当比分为2时，蛇长为6点
SX(4)<=SX(3)SY(4)<=SY(3)
SX(5)<=SX(4)SY(5)<=SY(4)
SX(6)<=SX(4)SY(6)<=SY(4)
WHEN 3 =>--当比分为3时，蛇长为7点
SX(4)<=SX(3)SY(4)<=SY(3)
SX(5)<=SX(4)SY(5)<=SY(4)
SX(6)<=SX(5)SY(6)<=SY(5)
WHEN OTHERS =>SCORE<=SCORE
END CASE
SX(3)<=SX(2)SY(3)<=SY(2)
SX(2)<=SX(1)SY(2)<=SY(1)
SX(1)<=SX(0)SY(1)<=SY(0)
END IF
ENDPROCESS
p4:PROCESS(CLK) --显示部分
BEGIN
IF(CLK_6K'EVENT AND CLK_6K='1')THEN
COL<="11111111"
ROW<="00000000"
IF(NUM=12)THEN --分频显示参数
NUM<=0
ELSE NUM<=NUM+1
END IF
CASE NUM IS
WHEN 0|1|2|3|4|5|6|7=> --扫描蛇座标
COL(SX(NUM))<='0'ROW(SY(NUM))<='1'
WHEN 8|9|10|11=>--扫描墙座标
COL(WX(NUM-8))<='0'ROW(WY(NUM-8))<='1'
WHEN 12=> --扫描鼠座标
COL(TX)<='0'ROW(TY)<='1'
WHEN OTHERS=>COL<="11111111"ROW<="00000000"
END CASE
END IF
ENDPROCESS
P5:PROCESS(CLK_6K)--数码管显示模组
BEGIN
IF CLK_6K'EVENT AND CLK_6K='1' THEN
IF(STATE=2)THEN --分频显示参数
STATE<=0
ELSE STATE<=STATE+1
END IF
CASE STATE IS--数码管分次扫描
WHEN2=>LIGHT_EN<="011111"
WHEN1=>LIGHT_EN<="110111"
WHEN0=>LIGHT_EN<="111011"
WHENOTHERS=>LIGHT_EN<="111111"
END CASE
SHOW(0)<=T_LOWSHOW(1)<=T_HIGHSHOW(2)<=SCORE
CASE SHOW(STATE) IS --数码管数字显示设置
WHEN9=>LIGHT<="1110011"
WHEN8=>LIGHT<="1111111"
WHEN7=>LIGHT<="1110000"
WHEN6=>LIGHT<="0011111"
WHEN5=>LIGHT<="1011011"
WHEN4=>LIGHT<="0110011"
WHEN3=>LIGHT<="1111001"
WHEN2=>LIGHT<="1101101"
WHEN1=>LIGHT<="0110000"
WHEN0=>LIGHT<="1111110"
WHENOTHERS=>LIGHT<="0000000"
END CASE
END IF
END PROCESS
不知道有没有帮到你呢
朋友给段代码给你，这个代码不要任岩哗何控件，你只需要把以下代码复制到你的窗体代码中就行了,代码很简单，相信你能看懂！仅仅用了一个结构（ShenTi）一个数组（ZhuangTai(23, 23) As Long） 一个变量（GFangXiang）代码中自动生成了Timer1，Label1控件。以及几个函数（Randomize，Circle，Line，Erase...） 相信这些对于你来说很简单，只是没想到用这些方渗腔法来实现而已，现在你开始看看效果吧！
代码如下：
'贪吃蛇代码(无丛枣衫控件、全代码）
Private WithEvents Timer1 As Timer
Private WithEvents Label1 As Label
Dim GFangXiang As Boolean
Dim HWB As Single
Dim She() As ShenTi
Dim X As Long, Y As Long
Dim ZhuangTai(23, 23) As Long
Private Type ShenTi
F As Long
X As Long
Y As Long
End Type
'按键反应 ←↑↓→
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim C As Long
If KeyCode = 27 Then End 'ESC退出
If KeyCode = 32 Then
If Timer1.Enabled = True Then '空格暂停
Timer1.Enabled = False
Label1.Visible = True
Else '空格开始
Timer1.Enabled = True
Label1.Visible = False
End If
End If
C = UBound(She)
If GFangXiang = True Then Exit Sub
Select Case KeyCode
Case 37 '←
If She(C).F = 2 Then Exit Sub
She(C).F = 0
GFangXiang = True
Case 38 '↑
If She(C).F = 3 Then Exit Sub
She(C).F = 1
GFangXiang = True
Case 39 '↑
If She(C).F = 0 Then Exit Sub
She(C).F = 2
GFangXiang = True
Case 40 '→
If She(C).F = 1 Then Exit Sub
She(C).F = 3
GFangXiang = True
End Select
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = &HC000&
Me.FillColor = 255
Me.FillStyle = 0
Me.WindowState = 2
Set Timer1 = Controls.Add("VB.Timer", "Timer1")
Set Label1 = Controls.Add("VB.Label", "Label1")
Label1.AutoSize = True
Label1.BackStyle = 0
Label1 = "暂停"
Label1.ForeColor = RGB(255, 255, 0)
Label1.FontSize = 50
ChuShiHua '初始化
End Sub
Private Sub Form_Resize()
On Error GoTo 1:
With Me
If .WindowState <>1 Then
.Cls
.ScaleMode = 3
HWB = .ScaleHeight / .ScaleWidth
.ScaleWidth = 24
.ScaleHeight = 24
Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2
HuaTu
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End If
End With
1:
End Sub
Private Sub Timer1_Timer()
Dim C As Long, I As Long
On Error GoTo 2:
QingChu '清图
C = UBound(She)
Select Case She(C).F
Case 0
If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X - 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 1
If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y - 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then
GoTo 2:
End If
Case 2
If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X + 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 3
If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y + 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then
GoTo 2:
End If
End Select
ZhuangTai(She(0).X, She(0).Y) = 0
For I = 0 To C
Select Case She(I).F
Case 0
She(I).X = She(I).X - 1
Case 1
She(I).Y = She(I).Y - 1
Case 2
She(I).X = She(I).X + 1
Case 3
She(I).Y = She(I).Y + 1
End Select
Next
TiaoZheng
1:
GFangXiang = False
ZhuangTai(She(C).X, She(C).Y) = 1
HuaTu
Exit Sub
2: '游戏结束
If MsgBox("得分：" &UBound(She) - 2 &"分 " &vbCrLf &"游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes Then
ChuShiHua
Else
End
End If
End Sub
'初始化
Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 50
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9, 11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10, 11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11, 11) = 1
HuaTu '画图
ChanShengShiWu
End Sub
'清图
Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF
Next
End Sub
'画图 蛇
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub
Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
She(I).F = She(I + 1).F
Next
End Sub
'随机产生食物
Private Sub ChanShengShiWu()
Randomize Timer
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
If ZhuangTai(X, Y) >0 Then GoTo 1:
ZhuangTai(X, Y) = 2
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End Sub
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[N]
int y[N]
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=50i<=600i+=10)/*画围墙*/ {
rectangle(i,40,i+10,49)/*上边*/
rectangle(i,451,i+10,460)/*下边*/ }
for(i=40i<=450i+=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[0]=100snake.y[0]=100/*蛇头*/
snake.x[1]=110snake.y[1]=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-1i>0i--)/*蛇的每个环节往前移动,也就是贪吃蛇的关键算法*/ {
snake.x[i]=snake.x[i-1]
snake.y[i]=snake.y[i-1] }
/*1,2,3,4表示右,左,上,下四个方向,通过这个判断来移动蛇头*/
switch(snake.direction) {
case 1:snake.x[0]+=10break
case 2: snake.x[0]-=10break
case 3: snake.y[0]-=10break
case 4: snake.y[0]+=10break }
for(i=3i<snake.nodei++)/*从蛇的第四节开始判断是否撞到自己了，因为蛇头为两节，第三节不可能拐过来*/ {
if(snake.x[i]==snake.x[0]&&snake.y[i]==snake.y[0]) {
GameOver()/*显示失败*/
snake.life=1
break } }
if(snake.x[0]<55||snake.x[0]>595||snake.y[0]<55||
snake.y[0]>455)/*蛇是否撞到墙壁*/ {
GameOver()/*本次游戏结束*/
snake.life=1/*蛇死*/ }
if(snake.life==1)/*以上两种判断以后,如果蛇死就跳出内循环，重新开始*/
break
if(snake.x[0]==food.x&&snake.y[0]==food.y)/*吃到食物以后*/ {
setcolor(0)/*把画面上的食物东西去掉*/
rectangle(food.x,food.y,food.x+10,food.y-10)
snake.x[snake.node]=-20snake.y[snake.node]=-20
/*新的一节先放在看不见的位置,下次循环就取前一节的位置*/
snake.node++/*蛇的身体长一节*/
food.yes=1/*画面上需要出现新的食物*/
score+=10
PrScore()/*输出新得分*/ }
setcolor(4)/*画出蛇*/
for(i=0i<snake.nodei++)
rectangle(snake.x[i],snake.y[i],snake.x[i]+10,
snake.y[i]-10)
delay(gamespeed)
setcolor(0)/*用黑色去除蛇的的最后一节*/
rectangle(snake.x[snake.node-1],snake.y[snake.node-1],
snake.x[snake.node-1]+10,snake.y[snake.node-1]-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[10]
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()
}
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）