VB程序设计项目(俄罗斯方块) 下载本文

内容发布更新时间 : 2024/3/29 19:32:13星期一 下面是文章的全部内容请认真阅读。

VB语言程序设计报告

系(院): 计算机科学与技术 专业班级: 计科1006

学号(序号): 04101191(26) 学生姓名: 杨娜 指导老师: 王博

完成日期: 2012

1

年5月26日

一. 要求分析

俄罗斯方块游戏是一款适合大众的游戏软件,它适合不同年龄的人玩。本软件要实现的功能如下:

(1)游戏区:玩家可以在游戏区中堆积方块,并能够在游戏过程中随时了解得分情况。 (2)游戏控制:玩家可以通过游戏控制功能来选择开始新的一局游戏,暂停或退出游戏。 (3) 级别设置:玩家可以根据自己的需要自行设定游戏的开始级别,级别越高,游戏

的速度越快,难度越大。

二. 概要设计

显示玩家操作 游戏区 显示操作结果 开始 俄罗斯方块游戏 暂停/继续 游戏控制 提高等级 降低等级 退出 三. 详细设计

1. 游戏区模块

创建游戏区 游戏区模块 处理玩家游戏操作 显示游戏结果

2

2. 控制区模块

开始游戏 暂停游戏 游戏控制模块 初始级别设置 退出游戏

3. 系统流程

开始 设置初始级别 随机选择方块类创建游戏区 是否到顶部 游戏开局 方块下落一行 否 是 游戏结束

是否到顶部 3

4. 系统操作界面

5.游戏界面

4

编码实现

Dim GameNum(3) As Integer Dim PreviewNum(3) As Integer Dim PreviewSituation As Integer Dim GameSituation As Integer Dim LineNum As Integer Dim t As Integer

'定义使方块不可见的过程

Private Sub HideFanku(HideNum As Integer) '按参数确定隐藏游戏区或预览区方块 Select Case HideNum

'HideNum=0时使游戏区方块不可见 Case 0

Command1(GameNum(0)).Visible = False Command1(GameNum(1)).Visible = False Command1(GameNum(2)).Visible = False Command1(GameNum(3)).Visible = False 'HideNum=1时使预览区方块不可见 Case 1

Command2(PreviewNum(0)).Visible = False Command2(PreviewNum(1)).Visible = False Command2(PreviewNum(2)).Visible = False Command2(PreviewNum(3)).Visible = False End Select End Sub

'定义使方块可见的过程

Private Sub ShowFanku(ShowNum As Integer) '按参数确定显示游戏区或预览区方块 Select Case ShowNum

'ShowNum=0时使游戏区方块可见 Case 0

Command1(GameNum(0)).Visible = True Command1(GameNum(1)).Visible = True Command1(GameNum(2)).Visible = True Command1(GameNum(3)).Visible = True 'ShowNum=1时使预览区方块可见 Case 1

5

四.