vb.net使用GDI+實現掃雷小遊戲
先說一下掃雷的規則：左鍵點開，右鍵用旗子標記（取消標記），一個方塊上的數字代表周圍九個格里有幾顆雷！ 比如，1，周圍九個格里只有一顆雷，2 周圍九個格里就有兩顆雷，以此類推。通過單擊即可挖開方塊。 如果挖開的是地雷，則您輸掉遊戲。 如果方塊上出現數字，則表示在其周圍的八個方塊中共有多少顆地雷。
程式碼質量不是很好，懶得修改了，下面是程式碼
'Option Strict Off '關閉嚴格檢查變數轉換
Imports System.Media
Public Class 掃雷
'基於座標系統
Dim MySpaceNumbers As Integer '空的位置
Dim one As Integer
Dim cubes(0, 0) As cube '定義二維陣列
Dim FirstClick As Boolean = True
Dim tick As Long
Public Sub CubeOnMouseUp(sender As Object, e As MouseEventArgs) '如果點選的是
If e IsNot Nothing AndAlso e.Button = MouseButtons.Right Then '如果是第一次點選方塊而且是用右擊
If CType(sender, cube).state = cube.CubeStates.flag Then '如果說
Play_Music(New SoundPlayer(My.Resources.拔旗))
CType(sender, cube).state = cube.CubeStates.unClicked
ElseIf CType(sender, cube).state = cube.CubeStates.unClicked Then
CType(sender, cube).state = cube.CubeStates.flag
Play_Music(New SoundPlayer(My.Resources.插旗))
End If
ElseIf CType(sender, cube).state <> cube.CubeStates.flag And CType(sender, cube).state <> cube.CubeStates.space Then '如果沒有旗子插上的話就會
If e IsNot Nothing Then '這個e是使用者點選的時候e是不是nothing
'如果僅作遞迴用,就是nothing傳值
If FirstClick OrElse My.Computer.Clock.TickCount - tick < 5000 Then
kill = kill + 1
Select Case kill '顯示連殺的聲音
Case 1
If FirstClick = True Then
Play_Music(New SoundPlayer(My.Resources.第一滴血))
tick = My.Computer.Clock.TickCount
End If
Case 2
Play_Music(New SoundPlayer(My.Resources.雙殺))
Case 3
Play_Music(New SoundPlayer(My.Resources.三殺))
Case 4
Play_Music(New SoundPlayer(My.Resources.四殺))
Case 5
Play_Music(New SoundPlayer(My.Resources.五殺))
Case 6
Play_Music(New SoundPlayer(My.Resources.六殺))
Case 7
Play_Music(New SoundPlayer(My.Resources.接近神了))
Case 8
Play_Music(New SoundPlayer(My.Resources.超神1))
Case 9
Play_Music(New SoundPlayer(My.Resources.無人可擋))
Case 10
Play_Music(New SoundPlayer(My.Resources.大殺特殺))
End Select
Else
If kill > 1 Then '如果空格的掃除小於5秒就會shut down
Play_Music(New SoundPlayer(My.Resources.終結))
End If
kill = 0
tick = My.Computer.Clock.TickCount
End If
tick = My.Computer.Clock.TickCount
End If
'Play_Music("排雷成功")
Dim i As Integer = CType(sender, cube).x
Dim j As Integer = CType(sender, cube).y 'ij是代表點選了哪個方塊
If CType(sender, cube).state = cube.CubeStates.space Then '如果當前方塊是空的
showCubeNumber(sender) '就顯示它的周圍雷的個數
End If
If CType(sender, cube).LandMine = True Then '
If e IsNot Nothing Then ''說明是人點到了地雷
CType(sender, cube).state = cube.CubeStates.bomp
CType(sender, cube).ForeColor = Color.Red
Play_Music(New SoundPlayer(My.Resources.你已被擊殺))
ShowAllBompAndAllCubeDisabeled()
MessageBox.Show("BOMP! " & vbCrLf & "GAME OVER!")
End If 'GAME OVER!
Else '如果觸發到了沒有地雷的方塊
CType(sender, cube).state = cube.CubeStates.space '狀態從未點到無雷.出現空白白色
If FindBompNumber(FindNearby(sender)) <> 0 Then
showCubeNumber(cubes(i, j)) '如果這個方塊的周圍有雷'就顯示數字'就不參與遞迴了
GoTo 100
End If
For k As Integer = 1 To FindNearby(sender).GetUpperBound(0) '遍歷3*3周圍的方塊,
If cubes(FindNearby(sender)(k).X, FindNearby(sender)(k).Y).checked = False And cubes(FindNearby(sender)(k).X, FindNearby(sender)(k).Y).LandMine = False Then
cubes(FindNearby(sender)(k).X, FindNearby(sender)(k).Y).checked = True
CubeOnMouseUp(cubes(FindNearby(sender)(k).X, FindNearby(sender)(k).Y), CType(Nothing, MouseEventArgs))
Continue For
End If
Next
End If
End If
100:
'當遞迴結束後執行下面的'判斷結果
' Play_Music("蹦")
If e IsNot Nothing Then
MySpaceNumbers = 0
For Each item As cube In cubes
If item IsNot Nothing AndAlso item.state = cube.CubeStates.space Then
MySpaceNumbers += 1
End If
Next
If MySpaceNumbers = one * one - cube.BompCount Then
ShowAllBompAndAllCubeDisabeled()
Play_Music(New SoundPlayer(My.Resources.團滅))
MessageBox.Show("VICTORY!")
End If
End If
FirstClick = False
End Sub
''' <summary>
''' '把圖片顯示到響應的方塊中,引數是要顯示的是哪個方塊
''' </summary>
''' <param name="sender"></param>
Sub showCubeNumber(sender As Object)
Dim sum As Integer = FindBompNumber(FindNearby(sender))
Dim image() As Image = {My.Resources._1, My.Resources.two, My.Resources.three, My.Resources.four, My.Resources.five, My.Resources.six, My.Resources.seven, My.Resources.eight}
If sum > 0 Then
CType(sender, cube).Image = image(sum - 1)
End If
End Sub
''' <summary>
''' '找到一個方塊周圍的地雷總數,引數是座標
''' </summary>
''' <param name="xys"></param>
''' <returns></returns>
Function FindBompNumber(xys() As Point) As Integer '找到一個方塊周圍的地雷總數,引數是座標
Dim i As Integer
Dim sum As Integer = 0
For i = 1 To UBound(xys)
If cubes(xys(i).X, xys(i).Y).LandMine = True Then
sum += 1
End If
Next
Return sum
End Function
''' <summary>
''' 顯示所有的炸彈並點選不可用
''' </summary>
Sub ShowAllBompAndAllCubeDisabeled()
For Each item As cube In cubes
If item IsNot Nothing Then
item.Enabled = False
item.BackColor = Color.AntiqueWhite
If item.LandMine = True Then
item.state = cube.CubeStates.bomp
End If
End If
Next
End Sub
''' <summary>
''' '找十字周圍的方塊位置
''' </summary>
''' <param name="sender"></param>
''' <returns></returns>
Function FindNearby(sender As Object) As Point() '找十字周圍的方塊位置'用來對遊戲進行遞迴
Dim i As Integer = CType(sender, cube).x
Dim j As Integer = CType(sender, cube).y
Dim tempArr(0) As Point
Dim xs() As Integer = {i - 1, i, i + 1, i - 1, i + 1, i - 1, i, i + 1}
Dim ys() As Integer = {j - 1, j - 1, j - 1, j, j, j + 1, j + 1, j + 1}
For k As Integer = 0 To 7
If in17(xs(k)) And in17(ys(k)) Then
ReDim Preserve tempArr(UBound(tempArr) + 1)
tempArr(UBound(tempArr)).X = xs(k)
tempArr(UBound(tempArr)).Y = ys(k)
End If
Next
Return tempArr
End Function
''' <summary>
''' 看看是不是在範圍之內
''' </summary>
''' <param name="number"></param>
''' <returns></returns>
Function in17(number As Integer) As Boolean
If number >= 1 And number <= one Then
Return True
End If
Return False
End Function
''' <summary>
''' 開始遊戲引數是方塊的行數量
''' </summary>
''' <param name="number"></param>
Private Sub 開始(number As Integer) '開始遊戲
kill = 0
one = number
If cubes.Length > 1 Then
For Each item As cube In cubes
Me.Controls.Remove(item) '再次遊戲的時候就會清除原有的方塊物件
Next
End If
one = number
ReDim cubes(one, one) '重新定義cubes陣列.
Dim I As Integer
Dim J As Integer
cube.BompCount = 0 '所有的雷的數量
For I = 1 To one
For J = 1 To one
cubes(I, J) = New cube '例項化陣列元素
'定義大小
cubes(I, J).Size = New Size With {.Height = 38 * 12 \ one, .Width = 38 * 12 \ one}
cubes(I, J).Enabled = True '可用
cubes(I, J).x = I '座標遊戲位置
cubes(I, J).y = J
cubes(I, J).SizeMode = PictureBoxSizeMode.StretchImage '拉伸圖片適應圖片框
cubes(I, J).Location = New Point With {.X = (J - 1) * 40 * 12 \ one, .Y = (I - 1) * 40 * 12 \ one + 30}
Me.Controls.Add(cubes(I, J)) '實際位置,並且窗體的控制元件集合增加新的cube
AddHandler cubes(I, J).MouseUp, AddressOf CubeOnMouseUp '為新的bube物件增加事件
Next
Next
End Sub
Private Sub Play_Music(ByVal Mname As SoundPlayer)
Mname.Play() '播放聲音
End Sub
Private Sub start(sender As Object, e As EventArgs) Handles 困難1616ToolStripMenuItem.Click, 簡單1010ToolStripMenuItem.Click, 高階2020ToolStripMenuItem.Click
開始(CInt(Mid(sender.ToString, 3, 2))) '困難簡單或者高階
FirstClick = True
Play_Music(New SoundPlayer(My.Resources.戰爭前的寧靜))
End Sub
Dim kill As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '窗體載入的時候播放音樂
Play_Music(New SoundPlayer(My.Resources.全軍出擊))
' My.Computer.Audio.Play("I:\VB2010NET\vb.net學習\類和物件的學習\掃雷\掃雷\Resources\" & "背景音樂" & ".wav", AudioPlayMode.WaitToComplete)
End Sub
End Class
''' <summary>
''' 方塊類
''' </summary>
Public Class cube
Inherits PictureBox '繼承實體類圖片框,因為為了後面方便接收點選事件
Private Shared m_Count As Integer
Private Shared m_BompCount As Integer
Public Shared ReadOnly Property Count() As Integer '總方塊數(這是一個共享過程
Get
Return m_Count
End Get
End Property
Public Shared Property BompCount() As Integer '雷的總數量
Get
Return m_BompCount
End Get
Set(value As Integer)
m_BompCount = value
End Set
End Property
Public Enum CubeStates '方塊的所有可能的狀態
unClicked = 0
space = 1
bomp = 2
flag = 3
End Enum
Private m_state As CubeStates
Public Property state() As CubeStates '根據當前的狀態來確定當前方塊的圖片
Get
Return m_state
End Get
Set(ByVal value As CubeStates)
m_state = value
If value = CubeStates.bomp Then
Me.Image = My.Resources.bomp
ElseIf value = CubeStates.space Then
Me.BackColor = Color.LightGreen
ElseIf value = CubeStates.flag Then
Me.Image = My.Resources.flag
ElseIf value = CubeStates.unClicked Then
Me.Image = Nothing
End If
End Set
End Property
Public Event StateChange()
''' <summary>
''' 當前的是不是地雷
''' </summary>
Private m_LandMine As Boolean
Public Property LandMine() As Boolean
Get
Return m_LandMine
End Get
Set(ByVal value As Boolean)
m_LandMine = value
End Set
End Property
Sub New() '建構函式
Randomize()
Select Case Int(Rnd() * 1.1) '這個數越大雷就越多'隨機佈雷
Case 0
Me.LandMine = False
Case 1
Me.LandMine = True
m_BompCount += 1
End Select
Me.BorderStyle = BorderStyle.FixedSingle
m_Count += 1
End Sub
Private m_x As Integer '位置x
Public Property x() As Integer
Get
Return m_x
End Get
Set(ByVal value As Integer)
m_x = value
End Set
End Property
Private m_y As Integer
Public Property y() As Integer
Get
Return m_y
End Get
Set(ByVal value As Integer)
m_y = value
End Set
End Property
Public Property checked() As Boolean '是否已經被遍歷過了
End Class
小遊戲，vb.net,動態生成控制元件,物件導向，掃雷
相關文章
- JS實現掃雷JS
- 掃雷小遊戲-網頁版遊戲網頁
- 掃雷--C語言實現C語言
- go語言實現掃雷Go
- python之掃雷小遊戲(附程式碼)Python遊戲
- 探秘掃雷遊戲的C語言實現遊戲C語言
- 無聊的週末用Java寫個掃雷小遊戲Java遊戲
- Python3+pygame實現Windows經典掃雷PythonGAMWindows
- 利用Python實現自動掃雷小指令碼Python指令碼
- 防微信雷達掃描加好友控制元件實現控制元件
- 自動掃雷程式
- 最簡單的C實現控制檯掃雷1+1=2
- 《魔窟掃雷》給掃雷遊戲指明瞭一個進化的方向遊戲
- 軟體開發其實就像工兵掃雷
- 用ncurses庫寫掃雷
- java掃雷遊戲程式碼Java遊戲
- win10有掃雷嗎？Win10系統掃雷遊戲在哪裡Win10遊戲
- 生成一個掃雷矩陣矩陣
- 經典掃雷遊戲Web版遊戲Web
- 掃雷遊戲作弊逆向菜文遊戲
- 掃雷程式思想講解 (轉)
- win10如何安裝掃雷遊戲_win10系統怎麼玩掃雷Win10遊戲
- 自定義View 實現多塔機監控類似星軌雷達掃描View
- canvas 實現雷達圖Canvas
- Java Swing掃雷遊戲demo分享Java遊戲
- python寫的自動掃雷Python
- （詳解）用C語言實現一個能夠連續展開的掃雷。C語言
- win10掃雷怎麼換主題 如何更換win10的掃雷主題Win10
- 強化學習實戰 | 自定義Gym環境之掃雷強化學習
- 安全測試之探索 windows 遊戲掃雷Windows遊戲
- Qt學習- (掃雷專案初學)QT
- CSS3雷達掃描效果CSSS3
- win10沒有掃雷遊戲怎麼辦_win10自帶遊戲沒有掃雷如何解決Win10遊戲
- iOS - 利用原生框架實現掃一掃功能iOS框架
- Android自定義View 雷達掃描效果AndroidView
- 專業掃雷v1.2版破解分析
- 前端黑科技：使用 JavaScript 實現網頁掃碼功能前端JavaScript網頁
- 厲害了，一個自動掃雷遊戲專案！遊戲