VB实现贪吃蛇小游戏.pdf

VB实现贪吃蛇小游戏

以下为VB实现贪吃蛇小游戏的代码及其详细说明。

```

'主程序模块

OptionExplicit

PrivateWithEventsSnakeAsSnakeGame

PrivateFrameRateAsInteger

PrivateFoodColorAsLong

PrivateSnakeColorAsLong

PrivateGameOverAsBoolean

PrivateSubForm_Load

FrameRate=100

FoodColor=vbGreen

SnakeColor=vbBlue

GameOver=False

SetSnake=NewSnakeGame

Snake.CreateGameFrameRate,FoodColor,SnakeColor

Me.ScaleMode=vbPixels

Me.AutoRedraw=True

EndSub

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAs

Integer)

IfNotGameOverThen

SelectCaseKeyCode

CasevbKeyUp

Snake.ChangeDirectionSnakeDirection.Up

CasevbKeyDown

Snake.ChangeDirectionSnakeDirection.Down

CasevbKeyLeft

Snake.ChangeDirectionSnakeDirection.Left

CasevbKeyRight

Snake.ChangeDirectionSnakeDirection.Right

EndSelect

Else

UnloadMe

EndIf

EndSub

PrivateSubForm_Paint

Snake.DrawGameMe

IfGameOverThen

EndIf

EndSub

PrivateSubSnake_GameOver

GameOver=True

Me.Refresh

EndSub

PrivateSubSnake_Move

Me.Refresh

EndSub

```

```

'蛇游戏类模块

OptionExplicit

PublicEnumSnakeDirection

Up=0

Down=1

Left=2

Right=3

EndEnum

PrivateTypeSnakeSegment

XAsLong

YAsLong

EndType

PrivateTypeSnakeFood

XAsLong

YAsLong

EndType

Privatesnake(AsSnakeSegment

PrivatefoodAsSnakeFood

PublicEventMove

PublicEventGameOver

PublicSubCreateGame(frameRateAsInteger,foodColorAs

Long,snakeColorAsLong)

ReDimsnake(10)

snake(0).X=10

snake(0).Y=10

snake(1).X=10

snake(1).Y=11

snake(2).X=10

snake(2).Y=12

food.X=30

food.Y=20

Timer1.Interval=frameRate

Timer1.Enabled=True

Me.BackColor=vbBlack

Me.ForeColor=snakeColor

Me.ScaleMode=vbPixels

Me.AutoRedraw=False

DrawGameMe

EndSu