下载 >  开发技术 >  VB > 俄罗斯方块 vb.net
4

俄罗斯方块 vb.net

俄罗斯方块 用vb.net编写的,是源程序。很简陋
2009-06-12 上传大小:82KB
分享
收藏 举报

评论 共1条

zachary091 还好吧。。代码有点问题。
2012-11-02
回复
vb.net做的俄罗斯方块

Vb写的俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向的小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向的小正方形数目,初始化为30 Public Const Height As Integer = 30 '游戏界面的背景色 Public Shared BackColor As Color '小正方形的大小 Public Shared SquareSize As Size = New Size(10, 10) Public Shared g As Graphics '声明一个Graphics变量,用于绘制下一个方块 Public Shared gNext As Graphics '声明一个数组,用于表示游戏界面上的所有小正方形 Private Shared ArrGameField(Width - 1, Height - 1) As CSquare '函数功能:判断ArrGameField(x, y)是否有正方形,有则返回False,无则返回True Public Shared Function IsEmpty(ByVal x As Integer, ByVal y As Integer) As Boolean If x >= 0 And x < Width And y >= 0 And y < Height Then Return ArrGameField(x, y) Is Nothing End If End Function '函数功能:检查游戏区域中,有哪些行是满的,返回满足条件的行数 Public Shared Function CheckLines() As Integer '定义整数变量result表示满行的数目 Dim result As Integer '定义整数变量Y,表示第Y行,初始化为Height-1 Dim Y As Integer = Height - 1 '编写循环语句,循环条件Y>=0 '在循环体中,先判断第y行是否是满的,是的话result增1,并把第y行上的所有小正方形下降一行.最后y递减1 '如果实现把第y行的所有小正方形下降一行:从第y行扫描至第0行,每扫描一行,把上一行的每个小正方形赋值给该行,并修改每一个小正方形的Location属性的值 While Y >= 0 If IsLineFull(Y) Then result += 1 For i As Integer = Y To 0 Step -1 If i > 0 Then For x As Integer = 0 To Width - 1 ArrGameField(x, i) = ArrGameField(x, i - 1) If Not ArrGameField(x, i) Is Nothing Then ArrGameField(x, i).Location = New Point(ArrGameField(x, i).Location.X, ArrGameField(x, i).Location.Y + SquareSize.Height) End If Next Else For x As Integer = 0 To Width - 1 ArrGameField(x, i) = Nothing Next End If Next Else Y = Y - 1 End If End While Return result End Function '函数功能:判断第y行是否是满的,是则返回True,否则返回Flase Private Shared Function IsLineFull(ByVal y As Integer) As Boolean '定义变量i,通过循环语句让i从0逐步增长到Width-1 '在循环体中,检查ArrGameField(i, y)是否是空值,如果有一个是空值,说明这行还没满,返回False '如果没有一个是空值,则说明是满的,返回True For i As Integer = 0 To Width - 1 If ArrGameField(i, y) Is Nothing Then Return False End If Next Return True End Function '函数功能:当方块下降时,如果目标位置非空,则要停止下降.通过该函数可以在数组ArrGameField记录4个小正方形在位置 Public Shared Function StopSquare(ByVal square As CSquare, ByVal x As Integer, ByVal y As Integer) ArrGameField(x, y) = square End Function '函数功能:重新绘制整个游戏中的所有小正方形 Public Shared Sub Redraw() '通过嵌套循环,检查ArrGameField(x,y)是否为空,非空则需要重新显示 Dim y As Integer For y = Height - 1 To 0 Step -1 For x As Integer = Width - 1 To 0 Step -1 If Not ArrGameField(x, y) Is Nothing Then ArrGameField(x, y).Show(g) End If Next Next End Sub '函数功能: 清除游戏画面 Public Shared Sub Reset() '通过嵌套循环,设置数组ArrGameField(x,y)的每个元素都是空的 Dim y As Integer For y = Height - 1 To 0 Step -1 For x As Integer = Width - 1 To 0 Step -1 If Not ArrGameField(x, y) Is Nothing Then ArrGameField(x, y) = Nothing End If Next Next End Sub End Class

立即下载
VB.NET俄罗斯方块游戏单机版

VB.NET俄罗斯方块游戏单机版 VB.NET俄罗斯方块游戏单机版 VB.NET俄罗斯方块游戏单机版

立即下载
vb.net俄罗斯方块

vb.net俄罗斯方块

立即下载
俄罗斯方块 (VB.NET 2005)

俄罗斯方块 (VB.NET 2005),经典的语言代码。

立即下载
多库俄罗斯方块VB.net版本

多库俄罗斯方块VB.net版本, 有注释

立即下载
VB.NET编的俄罗斯方块

基于vb.net开发的一个上手俄罗斯方块,新手练习,可以借鉴

立即下载
VB.net DataGridView 俄罗斯方块

自己用VB.net的DataGridView控件写的俄罗斯方块,见笑了

立即下载
俄罗斯方块(带源码)

经典的俄罗斯方块游戏,采用VB.NET开发,附源代码。

立即下载
java写的俄罗斯方块程序含源程序

俄罗斯方块源程序 vb.net中成功运行,喜欢的朋友支持下

立即下载
vb.net大作业(俄罗斯方块

完成打包,可安装的vb.net 俄罗斯方块程序 包括软件设计说明书

立即下载
C++俄罗斯方块源码完整功能版

C++俄罗斯方块源码完整功能版是C++俄罗斯方块源码 ,控制台程序 ,c++入门上手经典实战上手项目。俄罗斯方块源码,理解透彻,稍作修改即可。

立即下载
俄罗斯方块2.0版 支持局域网联机对战 附带源码

以前上传过俄罗斯方块1.0版,只支持单机,现在的2.0版在1.0版的基础上加了自己的socket类,实现了局域网联机对战功能,并附有源码(服务器端与客户端对战,没有同时开始功能,速度也可以不一样,下落方块的种类也不是按同样的次序,没有道具功能,只是将自己的战况实时传输给对方)。 说明:由于我的socket类支持多个客户端连接,但是联机时只有两个视窗,一个自己的,一个对家的,所以当多个客户端接入服务器端时具体表现为:服务器端的战况都会广播给所有客户端,相当于大家观看服务器端演示,但是服务器端不显示任何一个客户端的战况;而当只有一个客户端连接服务器端时,才显示这个客户端的战况。 注意:加入游戏,断开连接这两个功能在执行时,是另开线程的,我故意让关闭按钮和拖曳客户端区域移动窗口功能失效,看上去像是程序当住了,其实没当住,因为此时拖曳标题栏还是能移动窗口,右键菜单也可以弹出,这个“当住”过程会在3秒钟左右,当客户端比较多时,服务器端的这个时间会相对长一点。 有问题联系:hastings1986@163.com

立即下载
俄罗斯方块完整程序+背景素材

俄罗斯方块源程序,已经调试好可用,适合C#初学者使用,参考学习。

立即下载
PSP俄罗斯方块V2·0

PSP俄罗斯方块V2·0psp程序,俄罗斯方块

立即下载
俄罗斯方块游戏新玩法(拖动方块)C#源码GDI绘图源码

自己编写的俄罗斯方块新玩法(拖动方块),提供19种形状,和传统俄罗斯方块不同,使用拖动放到目标区的方法玩。行、列均可消除。提供三种玩法(三个形状成组出现,三个用完了才能出现下一组;三个形状可以任意放置,每个使用后会生成一个新的;以及每次只能使用第一个形状,用完后两个顺序左移)。提供放置后黑白OR彩色显示的设置。能够判断GAME OVER。

立即下载
俄罗斯方块Flash版

地球人都知道的经典益智游戏,一般情况下无需单独安装Flash播放器。

立即下载
俄罗斯方块PYTHON完整源码

国外网站上看到的俄罗斯方块PYTHON+pyqt实现 http://zetcode.com/tutorials/pyqt4/thetetrisgame/

立即下载
用最简单的C++实现的简易俄罗斯方块

这是我自己初学C++时写的一个简易C++俄罗斯方块,很多注释都不详尽,但是基本可以实现俄罗斯方块功能,甚至连面向对象也都没有用到,有少许BUG,没有修改,但是不影响初学者的参考作用,仅仅上传供初学者试用,。

立即下载
Scratch 俄罗斯方块

Scratch 俄罗斯方块 游戏有bug,学习之用并无他用

立即下载
C语言开发的俄罗斯方块源代码及注释

用vs2012及以上工具,可直接打开sln工程文件,这个程序是基于EGE开发的,可给想学习API图形处理的童鞋学习交流。

立即下载
关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

俄罗斯方块 vb.net

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: