游戏开发基础实验三.docVIP

游戏开发基础实验三 俄罗斯方块（1） 一、 打开实验2完成的工程 二、 添加 GameField 类 完成代码或根据参考代码修改 三、 运行游戏 四、 实验报告 1、 画出GameField类结构图 2、 写出GameField实现原理 3、 学号与2 Z余为0的同学，学号+姓名，于5刀30 LI前统一打包发QQ邮箱 五、 参考代码 Namespace GameEngine Class MainGame 定义游戏引擎及类対彖 Public Overloads Shared Sub Main(ByVal args() As String) Dim LtistTick As Integer 二 0 Dim DesiredFrameRate As Integer = 10 帧速 Dim GamesOver As Boolean = False Dim myform As New Forml my for m. Show () While myform .Created If System. Environment?TickCount 一 LastTick = 1000 / DesiredErameRate Then 清屏 Draw游戏背景场景 Draw游戏物体 my form ? Draw () my form ? Update 1 () I.astTick = System.Environmont. TickCount End If 处理游戏输入 处理各对象状态 Applicat ion. DoEvents () End While End Sub End Class End Namespace Public Enum BlockTypc Undefined 二 0 Square = 1 Line - 2 J = 3 L = 4 Z 二 6 S = 7 End Enum Public Class Square Public Location As Point Public [Size] As Size Public Hide As Boolean 二 False Public ys As System?Drawing. Brush Public Sub Show(ByVai winhandle As System. IntPtr) Dim myGr As Graphics myGr = Graphics ? Fromlhv nd(\v inhan die) Dim rcctSq As Rectangle = New Rectangle(Location.X + 1, Location. Y + 1, [Size]. Width - 1, [Size]. Height - 1) ys 二 Brushes? Blue myGr? l；illRectangle (ys, rectSq) End Sub Public Sub New(ByVal p As Point, ByVai s As Size) Location = p [Size]二 s End Sub End Class Public Class Block PublicfklAsSquarePublicfk2AsSquarePublicfk3AsSquarePublicfkdSqutirePublicSquarcSizc As Size Public fkl As Square Public fk2 As Square Public fk3 As Square Public fkd Squtire Public SquarcSizc As Size Public mwz As Point Private sjs As Random = New Random(System.Environment?TickCount) Public mylx As BlockType Private zt As Integer Public Sub Ncw(ByVal wz As Point, ByVai lx As BlockType) If lx = BlockType. Undefinod Then lx = CType(sjs. Next(7), BlockType) + 1 End Tf my 1x = lx mwz = wz SquareSize = New Size (12, 12) Select Case lx Case BlockType.Square fkl = New Square(mwz, SquareSize) fk2 = New Square(New Point(mwz?X + SquareSize.Width, mwz?Y), SquareSize) fk3 二