内容发布更新时间 : 2024/11/9 15:01:43星期一 下面是文章的全部内容请认真阅读。
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
四.