vb.net实现简单的俄罗斯方块小游戏

最新推荐文章于 2021-06-23 21:15:26 发布
最新推荐文章于 2021-06-23 21:15:26 发布
阅读量2.4k 收藏 34
点赞数 3
分类专栏： vb.net
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Roy_F_M/article/details/106029614
版权

    博主大二，最近刚完成vb.net的期末大作业，做的是一个简单的俄罗斯方块小游戏，运行效果如下：

（本来是画了网格线的，但是闪的厉害，双缓冲也没用，最后干脆就删了）

以下是源代码：

Public Class Form1
    Dim curCube As FatherCube  '当前方块
    Dim nextCube As FatherCube '下一个方块
    Dim time As Integer = 1000    '时间间隔
    Dim map(11, 16) As Integer '网格
    Dim g As Graphics   'panel1画布
    Dim g2 As Graphics 'panel2画布
    Dim myPen As New Pen(Color.Black, 0.5F)
    Dim myBrush As New SolidBrush(Color.Yellow)
    Dim s As New Size(30, 30)
    Dim myScore As Integer = 0
    Dim myClear As Integer = 0
    Dim myLevel As Integer = 1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Left = 500
        Me.Top = 50
        Me.DoubleBuffered = True
        Me.KeyPreview = True
        Timer1.Enabled = True
        Call Init()
    End Sub
    Private Sub Init()
        Call RaiseCube()
        Call RaiseNextCube()
        g = Me.Panel1.CreateGraphics
        g2 = Me.Panel2.CreateGraphics
        TextBox1.Text = Str(myScore)
        TextBox2.Text = Str(myClear)
        TextBox3.Text = Str(myLevel)
    End Sub '初始化

    Private Sub RaiseCube()
        Dim Temps() As FatherCube = {New Cube_I, New Cube_J, New Cube_L, New Cube_O, New Cube_S, New Cube_T, New Cube_Z}
        Randomize()
        Dim n As Integer = Int(Rnd() * 7)
        curCube = Temps(n)
        curCube.Reset()
        curCube.Setmap(map)
    End Sub '随机创建一个方块

    Private Sub RaiseNextCube()
        Dim Temps() As FatherCube = {New Cube_I, New Cube_J, New Cube_L, New Cube_O, New Cube_S, New Cube_T, New Cube_Z}
        Randomize()
        Dim n As Integer = Int(Rnd() * 7)
        nextCube = Temps(n)
        nextCube.Reset()
    End Sub '创建下一个方块

    Private Sub PaintCube()
        For i = 0 To 3
            Dim x As Integer = curCube.小方块(i).左坐标
            Dim y As Integer = curCube.小方块(i).上坐标
            Dim pt As New Point(x * 30, y * 30)
            Dim rec As New Rectangle(pt, s)
            g.FillRectangle(myBrush, rec)
        Next
    End Sub  '将方块涂上颜色

    Private Sub PaintNextCube()
        For i = 0 To 3
            Dim x As Integer = nextCube.小方块(i).左坐标 - 3
            Dim y As Integer = nextCube.小方块(i).上坐标 + 1
            Dim pt As New Point(x * 30, y * 30)
            Dim rec As New Rectangle(pt, s)
            g2.FillRectangle(myBrush, rec)
        Next
    End Sub  '给下一个方块涂色

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        g.Clear(Color.Cyan)
        g2.Clear(Color.Cyan)
        Call PaintCube()
        Call PaintNextCube()
        'For i = 0 To 12
        '    g.DrawLine(myPen, i * 30, 0, i * 30, 18 * 30)
        'Next
        'For i = 0 To 16
        '    g.DrawLine(myPen, 0, i * 30, 12 * 30, i * 30)
        'Next '画网格线，不过闪烁比较厉害

        For i = 0 To 11
            For j = 0 To 16
                If map(i, j) = 1 Then
                    g.FillRectangle(myBrush, i * 30, j * 30, 30, 30)
                End If
            Next  '重绘前面落下固定的方块
        Next
    End Sub  '在此处实现所有涂色的代码

    Private Sub ClearCube()
        Dim curScore As Integer = 0 '本次得分
        Dim clearRow As Integer = 0 '本次消行
        Dim Occupy(16) As Integer
        For i = 0 To 16
            Occupy(i) = 0
        Next
        For j = 0 To 16
            For i = 0 To 11
                If map(i, j) = 1 Then
                    Occupy(j) = Occupy(j) + 1
                End If
            Next
        Next    '计算每行已有格子总数
        For i = 16 To 0 Step -1
            If Occupy(i) = 12 Then
                clearRow = clearRow + 1
                For j = i To 1 Step -1
                    For k = 0 To 11
                        map(k, j) = map(k, j - 1) '上面的放格下落
                    Next
                Next
                'i = i + 1   '再检查一遍当前行
            End If  '行满则消
        Next
        For i = 0 To 11
            map(i, 0) = 0
        Next
        curScore = clearRow * clearRow * 10
        myScore = myScore + curScore
        myClear = myClear + clearRow
        myLevel = Int(myScore / 1000) + 1
        TextBox1.Text = Str(myScore)
        TextBox2.Text = Str(myClear)
        TextBox3.Text = Str(myLevel)
        time = time * (11 - myLevel) / 10
    End Sub  '消除满行，更新数据

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = time
        If curCube.canMoveDown() Then
            curCube.moveDown()
            Call Form1_Paint(sender, New PaintEventArgs(g, New Rectangle))
        Else
            Dim flag As Boolean = 1
            For i = 0 To 3
                Dim n As Integer = curCube.小方块(i).上坐标
                If n <= 0 Then
                    flag = 0
                    Exit For
                End If
            Next
            If flag = True Then
                For i = 0 To 3
                    Dim m As Integer = curCube.小方块(i).左坐标
                    Dim n As Integer = curCube.小方块(i).上坐标
                    map(m, n) = 1
                Next
                Call ClearCube()
                Call Form1_Paint(sender, New PaintEventArgs(g, New Rectangle))
                curCube = nextCube
                curCube.Setmap(map)
                Call RaiseNextCube()
            Else
                Call GameOver()
            End If
        End If
    End Sub  '游戏运行

    Private Sub GameOver()
        Timer1.Enabled = False
        MsgBox("游戏结束！", 0, "提示")
        For i = 0 To 11
            For j = 0 To 16
                map(i, j) = 0
            Next
        Next
        curCube.Reset()
        Label9.Text = "开始(S)"
    End Sub


    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Left And curCube.canMoveLeft Then
            curCube.moveLeft()
        ElseIf e.KeyCode = Keys.Right And curCube.canMoveRight Then
            curCube.moveRight()
        ElseIf e.KeyCode = Keys.Down And curCube.canMoveDown Then
            curCube.moveDown()
        ElseIf e.KeyCode = Keys.Up And curCube.canTurn Then
            curCube.Turn()
        ElseIf e.KeyCode = Keys.P And Timer1.Enabled = True Then
            Timer1.Enabled = False
            Label9.Text = "开始(S)"
        ElseIf e.KeyCode = Keys.S And Timer1.Enabled = False Then
            Timer1.Enabled = True
            Label9.Text = "暂停(P)"
        ElseIf e.KeyCode = Keys.R Then
            myClear = 0
            myScore = 0
            myLevel = 1
            For i = 0 To 11
                For j = 0 To 16
                    map(i, j) = 0
                Next
            Next
            curCube.Reset()
        ElseIf e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub  '键盘操纵方块移动

    Private Sub Label9_MouseDown(sender As Object, e As MouseEventArgs) Handles Label9.MouseDown
        Label9.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub Label9_MouseUp(sender As Object, e As MouseEventArgs) Handles Label9.MouseUp
        If Timer1.Enabled = True Then
            Timer1.Enabled = False
            Label9.BorderStyle = BorderStyle.FixedSingle
            Label9.Text = "开始(S)"
        Else
            Timer1.Enabled = True
            Label9.BorderStyle = BorderStyle.FixedSingle
            Label9.Text = "暂停(P)"
        End If
    End Sub   '暂停与开始按钮
    Private Sub Label11_MouseDown(sender As Object, e As MouseEventArgs) Handles Label11.MouseDown
        Label11.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub Label11_MouseUp(sender As Object, e As MouseEventArgs) Handles Label11.MouseUp
        Label11.BorderStyle = BorderStyle.FixedSingle
        Me.Close()
    End Sub '退出游戏按钮

    Private Sub Label10_MouseDown(sender As Object, e As MouseEventArgs) Handles Label10.MouseDown
        Label10.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub Label10_MouseUp(sender As Object, e As MouseEventArgs) Handles Label10.MouseUp
        myClear = 0
        myScore = 0
        myLevel = 1
        TextBox1.Text = Str(myScore)
        TextBox2.Text = Str(myClear)
        TextBox3.Text = Str(myLevel)
        For i = 0 To 11
            For j = 0 To 16
                map(i, j) = 0
            Next
        Next
        curCube.Reset()
        Label10.BorderStyle = BorderStyle.FixedSingle
    End Sub  '重玩按钮
End Class

Class Cube
    Private x As Integer
    Private y As Integer
    Public Property 左坐标 As Integer
        Get
            Return x
        End Get
        Set(value As Integer)
            x = value
        End Set
    End Property
    Public Property 上坐标 As Integer
        Get
            Return y
        End Get
        Set(value As Integer)
            y = value
        End Set
    End Property
End Class '小方格类

Class FatherCube
    Private cube(4) As Cube
    Private state As Integer
    Private map As Integer(,)
    Public Property 小方块() As Cube()
        Get
            Return cube
        End Get
        Set(value As Cube())
            cube = value
        End Set
    End Property
    Public Property 状态() As Integer
        Get
            Return state
        End Get
        Set(value As Integer)
            state = value
        End Set
    End Property
    Public Property 地图 As Integer(,)
        Get
            Return map
        End Get
        Set(value As Integer(,))
            map = value
        End Set
    End Property
    Public Sub New()
        For i = 0 To 3
            cube(i) = New Cube
        Next
    End Sub '构造函数
    Public Sub Setmap(ByVal map As Integer(,))
        Me.map = map
    End Sub
    Public Overridable Sub Reset()

    End Sub
    Public Overridable Sub Turn()

    End Sub
    Public Overridable Function canTurn() As Boolean
        Return True
    End Function

    Public Function canMoveLeft() As Boolean
        For i = 0 To 3
            Dim m As Integer = Me.小方块(i).左坐标 - 1
            Dim n As Integer = Me.小方块(i).上坐标
            If (m < 0 Or m > 11 Or n < 0 Or n > 16) Then
                Return False
            ElseIf map(m, n) = 1 Then
                Return False
            End If
        Next
        Return True
    End Function
    Public Function canMoveRight() As Boolean
        For i = 0 To 3
            Dim m As Integer = Me.小方块(i).左坐标 + 1
            Dim n As Integer = Me.小方块(i).上坐标
            If (m < 0 Or m > 11 Or n < 0 Or n > 16) Then
                Return False
            ElseIf map(m, n) = 1 Then
                Return False
            End If
        Next
        Return True
    End Function
    Public Function canMoveDown() As Boolean
        For i = 0 To 3
            Dim m As Integer = Me.小方块(i).左坐标
            Dim n As Integer = Me.小方块(i).上坐标 + 1
            If (m < 0 Or m > 11 Or n < 0 Or n > 16) Then
                Return False
            ElseIf map(m, n) = 1 Then
                Return False
            End If
        Next
        Return True
    End Function
    Public Sub moveLeft()
        For i = 0 To 3
            Me.小方块(i).左坐标 = Me.小方块(i).左坐标 - 1
        Next
    End Sub
    Public Sub moveRight()
        For i = 0 To 3
            Me.小方块(i).左坐标 = Me.小方块(i).左坐标 + 1
        Next
    End Sub
    Public Sub moveDown()
        For i = 0 To 3
            Me.小方块(i).上坐标 = Me.小方块(i).上坐标 + 1
        Next
    End Sub

End Class '方块父类

Class Cube_I
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 2)
        If Me.状态 = 0 Then
            For i = 0 To 3
                Me.小方块(i).左坐标 = 4 + i
                Me.小方块(i).上坐标 = 0
            Next
        Else
            For i = 0 To 3
                Me.小方块(i).左坐标 = 5
                Me.小方块(i).上坐标 = i
            Next
        End If
    End Sub

    Public Overrides Sub Turn()
        If Me.状态() = 0 Then
            Dim m As Integer = Me.小方块(0).左坐标 + 1
            Dim n As Integer = Me.小方块(0).上坐标 - 1
            For i = 0 To 3
                Me.小方块(i).左坐标 = m
                Me.小方块(i).上坐标 = n + i
            Next
            Me.状态() = 1
        Else
            Dim m As Integer = Me.小方块(0).左坐标 - 1
            Dim n As Integer = Me.小方块(0).上坐标 + 1
            For i = 0 To 3
                Me.小方块(i).左坐标 = m + i
                Me.小方块(i).上坐标 = n
            Next
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 3
            For j = n To n + 3
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
            Return True
    End Function


End Class 'I型

Class Cube_O
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = 0
        Me.小方块(0).左坐标 = 4
        Me.小方块(0).上坐标 = 0
        Me.小方块(1).左坐标 = 5
        Me.小方块(1).上坐标 = 0
        Me.小方块(2).左坐标 = 4
        Me.小方块(2).上坐标 = 1
        Me.小方块(3).左坐标 = 5
        Me.小方块(3).上坐标 = 1
    End Sub
    Public Overrides Function canTurn() As Boolean
        Return False
    End Function


End Class 'O型

Class Cube_S
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 2)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 6
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 1
        Else
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 1
        End If
    End Sub

    Public Overrides Sub Turn()
        If Me.状态() = 0 Then
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m
            Me.小方块(1).上坐标 = n - 1
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 1
        Else
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m + 1
            Me.小方块(1).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(0).左坐标 - 1
        Dim n As Integer = Me.小方块(0).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 3
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'S型

Class Cube_Z
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 2)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 4
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 1
        Else
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 6
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 1
        End If
    End Sub

    Public Overrides Sub Turn()
        If Me.状态() = 0 Then
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m
            Me.小方块(1).上坐标 = n - 1
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 1
        Else
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m - 1
            Me.小方块(1).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 3
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'Z型

Class Cube_L
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 4)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = 4
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 2
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 0
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 2
        End If
    End Sub

    Public Overrides Sub Turn()
        Dim m As Integer = Me.小方块(1).左坐标
        Dim n As Integer = Me.小方块(1).上坐标
        If Me.状态() = 0 Then
            Me.小方块(0).左坐标 = m - 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 1
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n + 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n - 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = m + 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 3
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n - 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 2
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'L型

Class Cube_J
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 4)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = 4
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 2
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 0
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 0
        End If
    End Sub

    Public Overrides Sub Turn()
        Dim m As Integer = Me.小方块(1).左坐标
        Dim n As Integer = Me.小方块(1).上坐标
        If Me.状态() = 0 Then
            Me.小方块(0).左坐标 = m - 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 1
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n + 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n - 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = m + 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 3
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n - 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 2
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'J型

Class Cube_T
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 4)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 4
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 2
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 0
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 1
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 1
        End If
    End Sub

    Public Overrides Sub Turn()
        Dim m As Integer = Me.小方块(1).左坐标
        Dim n As Integer = Me.小方块(1).上坐标
        If Me.状态() = 0 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n + 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n - 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 1
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = m + 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n - 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 3
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = m - 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 2
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'T型

 

小范小范
关注
  • 3
    点赞
  • 踩
  • 34
    收藏
    觉得还不错? 一键收藏
  • 7
    评论
专栏目录
VB俄罗斯方块游戏课程设计(源代码+论文)
2301_76992670的博客
07-05 203
相信朋友们都玩过俄罗斯方块，对这个游戏的玩法和方块形状都比较熟悉。我们这个游戏只选择了最基本的7中造型，包括长条型，正方型，正S型，反S型，正7型，反7型，T型。方块的造型在旋转的时候存在一个公式，当然首先要判断是否满足旋转的要求，以上是一个长条型由横着变成竖立状态的旋转，我们以它的造型中的第三个小方块n(3)为中心旋转，这样，在开始运动的时候，长条形要发生旋转最少要运动到第三行，才能由横着变成竖立状态，游戏区图形框中第三行的第一个方块的编号为20，所以长条造型的第一个小方块的编号n(0)必须要大于20。
-俄罗斯方块——VB源码
10-07
VB代码编写的俄罗斯方块，有全部的俄罗斯方块功能，有空可以研究下
短小精悍的俄罗斯方块VB.NET源代码
xjnzhidao的博客
08-12 1575
短小精悍的俄罗斯方块VB.NET源代码，共128行
一个俄罗斯方块游戏的VB代码
12-20
推荐一个很不错的俄罗斯方块游戏的VB代码
计算机vb小游戏,我想用VB6.0做一个小游戏(俄罗斯方块即可）补充:要快 爱问知识人...
weixin_42299169的博客
06-23 319
Private n(3), m(3) As Integer 'n(3)记录游戏区的四个活动方块的编号 'm(3)记录预览区的四个活动方块的编号 Private situation, situation2, linenum, t As Integer 'situation记录游戏区的方块样式 'situation2记录预览区的方块样式 'linenum记录一次消除的行数 ?Private Sub h...
VB俄罗斯方块游戏课程设计(源代码+论文).zip
05-28
VB俄罗斯方块游戏课程设计(源代码+论文).zip
VB.NET编的俄罗斯方块
05-02
【VB.NET 俄罗斯方块】是一款使用微软的Visual Basic .NET编程语言开发的经典游戏，适合初学者进行编程实践。在VB.NET中实现俄罗斯方块，需要掌握基础的编程概念、对象编程以及图形用户界面（GUI）的设计。以下是这...
VB.net窗体小游戏 俄罗斯方块 贪吃蛇 2048 扫雷 点灯游戏 抢滩登陆
06-02
VB.net窗体小游戏合集 俄罗斯方块 贪吃蛇 2048 扫雷 点灯游戏 抢滩登陆。大部分都有音效，可以直接运行，界面还算美观。
vb.net俄罗斯方块
08-07
【VB.NET俄罗斯方块游戏开发详解】 VB.NET（Visual Basic .NET）是微软公司推出的面向对象的编程语言，它是.NET框架的一部分，具有易学、高效的特点。本项目以VB.NET为工具，旨在介绍如何利用该语言开发经典游戏...
VB.NET编写的俄罗斯方块游戏程序
10-17
【VB.NET编写的俄罗斯方块游戏程序】是一个适合初学者的编程教程，它详细介绍了如何使用VB.NET语言构建一个功能齐全的俄罗斯方块游戏。在这个项目中，开发者不仅能够学习到基本的游戏编程概念，还能了解到如何通过...
VB俄罗斯方块游戏课程设计(源代码+lw).zip
最新发布
09-06
首先，我们的VB项目源码提供了丰富的功能和模块，可以满足各种类型的应用需求。无论是办公自动化、数据管理、报表生成还是业务应用，我们的项目源码都提供了相应的功能和界面设计，使得开发人员可以快速构建符合需求的应用程序。 其次，我们的VB项目源码具有良好的可扩展性和可定制性。我们将项目源码设计为模块化的结构，开发人员可以根据自己的需求选择和定制所需的功能模块。同时，我们还提供了丰富的文档和示例代码，以帮助开发人员理解和使用项目源码。 我们的VB项目源码还采用了一些常用的技术和工具，以提高开发效率和代码质量。例如，我们使用了Visual Studio作为开发工具，它提供了一系列的功能和工具，如代码编辑器、调试器和界面设计器，使得开发人员可以快速开发和测试应用程序。我们还使用了VB作为主要的编程语言，它是一种易于学习和使用的语言，具有丰富的库和框架，使得开发人员可以轻松实现各种功能和特性。 此外，我们的VB项目源码还注重用户体验和界面设计。我们提供了一系列的界面模板和样式库，使得开发人员可以轻松创建漂亮而用户友好的应用界面。我们还提供了一些常用的界面组件和交互效果，以增加应用程序的交互性和吸引力。 总之，我们的VB项目源码旨在帮助开发人员快速构建各种类型的应用程序。无论是办公自动化、数据管理、报表生成还是业务应用，我们相信我们的项目源码将能够提供强大的支持和帮助。感谢您对我们项目的关注和支持！
VBA 俄罗斯方块
01-04
VBA 俄罗斯方块 excel 小游戏
vb.net做的俄罗斯方块
06-14
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 = 0 And 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
vb做的俄罗斯方块（经典啊）（源码）
08-11
经典游戏啊，是不是又回到小时候了呢，一边玩，一边看代码，让你知道俄罗斯方块不为人知的运作原理。
VB.net DataGridView 俄罗斯方块
02-20
在VB.NET中，利用`DataGridView`实现俄罗斯方块，首先需要理解控件的基础操作，如动态添加和删除单元格，以及如何控制单元格的背景色以表示不同的方块。以下是一些关键的技术要点： 1. **初始化游戏板**：设置`...
用脚本语言写的俄罗斯方块
link4tek的博客
01-31 717
脚本之家服务器常用软件 手机版 投稿中心 关注微信 快捷导航 网站首页 网页制作 网络编程 脚本专栏 脚本下载 数据库 CMS教程 电子书籍 平面设计 媒体动画 其它 vbs DOS/BAT hta htc python perl 游戏相关 VB
俄罗斯方块的VB实现，部分代码！
10-02 1588
Option ExplicitDim i As IntegerDim time_hour, time_minute, time_second As IntegerPrivate Sub Form_KeyPress(KeyAscii As Integer)    Select Case KeyAscii        Case 105            Call turn(next_bloc
单机俄罗斯方块单机版-vb.NET源码.rar
07-10
《VB.NET实现的单机俄罗斯方块游戏源码解析》 在编程领域，游戏开发是一项极具挑战性的任务，它不仅需要扎实的编程基础，还需要良好的逻辑思维和创新设计。本篇将详细介绍一个基于VB.NET语言实现的单机版俄罗斯方块...
评论 7
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值