跪求一个VB小游戏的代码，如俄罗斯方块，贪吃蛇等，本人初学者504977685@qq.com，
本人只懂得基础知识，希望有具体解说，比如~控件触发事件，一类的要详细~~谢谢哪位大侠了~~~T0T
追问：谢谢 这位大侠 这个我觉得~~有点难了 看不懂 ~~~谢谢 这位大侠 这个我觉得~~有点难了 看不懂 ~~~
当前位置：编程学习 > VB >>
答案：Dim Type_Now As Integer '目前方块的类型
Dim Type_Next As Integer '下个方块的类型
Dim intRotate As Integer '方块旋转的状态
Dim fen As Integer '定义分数
Dim ji As Integer '定义级别
Function Get_X_Value()
If GetValue(1, 2) Then 'Get X Value
If MaxX - MinX >= 2 Then
If MaxX - CurX <= 1 Then
Adjust_Left = MaxX - 2 - 1
Else
Adjust_Left = CurX - 1
End If
Get_X_Value = True
Exit Function
End If
End If
Get_X_Value = False
End Function
Function GetValue(nType As Integer, nWid As Integer)
GetCoor
On Error Resume Next
Dim OKCount, EmptyCount As Integer
MinX = Xs(1).cX
MaxX = Xs(1).cX
MinY = Xs(1).cY
MaxY = Xs(1).cY
For i = 2 To 4
If MinX > Xs(i).cX Then MinX = Xs(i).cX
If MaxX < Xs(i).cX Then MaxX = Xs(i).cX
If MinY > Xs(i).cY Then MinY = Xs(i).cY
If MaxY < Xs(i).cY Then MaxY = Xs(i).cY
Next
For i = MinX To MaxX
For j = MinY To MaxY
If Total(i, j) Then
GetValue = False
Exit Function
End If
Next
Next
If nType = 0 Then 'Get Y Value
EmptyCount = 0 'Get MinY
OKCount = 0
For i = MinY - 1 To MinY - (nWid - 1) Step -1
For j = MinX To MaxX
If Total(j, i) = False Then OKCount = OKCount + 1
Next
If OKCount >= picPictureNow.Width And OKCount >= picPictureNow.Height Then
EmptyCount = EmptyCount + 1
OKCount = 0
Else
Exit For
End If
Next
MinY = MinY - EmptyCount
If MinY < 1 Then MinY = 1
EmptyCount = 0 'GetMaxY
OKCount = 0
For i = MaxY + 1 To MaxY + nWid - 1
For j = MinX To MaxX
If Total(j, i) = False Then OKCount = OKCount + 1
Next
If OKCount >= picPictureNow.Width And OKCount >= picPictureNow.Height Then
EmptyCount = EmptyCount + 1
OKCount = 0
Else
Exit For
End If
Next
MaxY = MaxY + EmptyCount
If MaxY > 20 Then MaxY = 20
Else 'Get X Value
EmptyCount = 0 'Get MinX
OKCount = 0
For i = MinX - 1 To MinX - (nWid - 1) Step -1
For j = MinY To MaxY
If Total(i, j) = False Then OKCount = OKCount + 1
Next
If OKCount >= picPictureNow.Width And OKCount >= picPictureNow.Height Then
EmptyCount = EmptyCount + 1
OKCount = 0
Else
Exit For
End If
Next
MinX = MinX - EmptyCount
If MinX < 1 Then MinX = 1
EmptyCount = 0 'GetMaxX
OKCount = 0
For i = MaxX + 1 To MaxX + (nWid - 1)
For j = MinY To MaxY
If Total(i, j) = False Then OKCount = OKCount + 1
Next
If OKCount >= picPictureNow.Width And OKCount >= picPictureNow.Height Then
EmptyCount = EmptyCount + 1
OKCount = 0
Else
Exit For
End If
Next
MaxX = MaxX + EmptyCount
If MaxX > 10 Then MaxX = 10
End If
GetValue = True
End Function
Function Get_Y_Value()
If GetValue(0, 2) Then 'Get Y Value
If MaxY - MinY >= 2 Then
If MaxY - (picPictureNow.Top + 1) <= 1 Then
Adjust_Top = MinY - 1
Else
Adjust_Top = picPictureNow.Top
End If
Get_Y_Value = True
Exit Function
End If
End If
Get_Y_Value = False
End Function
Sub Global_Init()
'全局初始化
picBackGround.Cls
imgPictureNext.Picture = LoadPicture("")
picPictureNow.Visible = False
tmrDrop.Enabled = False
End Sub
Sub Init()
'每个方块的初始化过程
picPictureNow.Visible = False
tmrDrop.Enabled = False
Type_Now = Type_Next
picPictureNow.Picture = imgPictureNext.Picture
imgPictureNowBackup.Picture = picPictureNow.Picture
Sel_Next
intRotate = 0
picPictureNow.Left = 4
picPictureNow.Top = 0
picPictureNow.Visible = True
tmrDrop.Enabled = True
End Sub
Sub GetCoor()
'获取一个方块的 4 个点的坐标
For i = 1 To 4 'init
Xs(i).cX = 0
Xs(i).cY = 0
Xs(i).cZ = False
Next
CurX = picPictureNow.Left + 1
Select Case Type_Now
Case 1 '长条
If intRotate Mod 2 = 1 Then
Xs(1).cX = CurX
Xs(1).cY = picPictureNow.Top + 1
Xs(1).cZ = True
For i = 2 To 4
Xs(i).cX = CurX + i - 1
Xs(i).cY = picPictureNow.Top + 1
Xs(i).cZ = True
Next
Else
Xs(1).cX = CurX
Xs(1).cY = picPictureNow.Top + 4
Xs(1).cZ = True
For i = 2 To 4
Xs(i).cX = CurX
Xs(i).cY = picPictureNow.Top + i - 1
Xs(i).cZ = False
Next
End If
Case 2 '2字
If intRotate Mod 2 = 1 Then
Xs(1).cX = CurX
Xs(1).cY = picPictureNow.Top + 3
Xs(1).cZ = True
Xs(2).cX = CurX + 1
Xs(2).cY = picPictureNow.Top + 2
Xs(2).cZ = True
For i = 3 To 4
Xs(i).cX = CurX + i - 3
Xs(i).cY = picPictureNow.Top + 5 - i
Xs(i).cZ = False
Next
Else
Xs(1).cX = CurX
Xs(1).cY = picPictureNow.Top + 1
Xs(1).cZ = True
Xs(2).cX = CurX + 1
Xs(2).cY = picPictureNow.Top + 2
Xs(2).cZ = True
Xs(3).cX = CurX + 2
Xs(3).cY = picPictureNow.Top + 2
Xs(3).cZ = True
Xs(4).cX = CurX + 1
Xs(4).cY = picPictureNow.Top + 1
Xs(4).cZ = False
End If
Case 3 '7字
Select Case intRotate Mod 4
Case 0
Xs(1).cX = CurX
Xs(1).cY = picPictureNow.Top + 1
Xs(1).cZ = True
Xs(2).cX = CurX + 1
Xs(2).cY = picPictureNow.Top + 3
Xs(2).cZ = True
For i = 3 To 4
Xs(i).cX = CurX + 1
Xs(i).cY = picPictureNow.Top + i - 2
Xs(i).cZ = False
Next
Case 1
其他：先学一点基本的吧！不然你也看不懂代码啊！ 426536536 上一个：做完以下题目得再加50！（关于vb)要快
下一个：vb 制作简易计算器
- 更多VB疑问解答：
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
- 和难缠客户的那些事儿
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能