 |
|
รบกวนช่วยอธิบาย Code vb.net หน่อยครับ คือผมจะใช้ในการสร้างเกมส์คล้าย Minesweeper ที่มากับวินโดวส์ |
|
 |
|
|
 |
 |
|
Code (VB.NET)
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
Dim I As Integer
Dim J As Integer
btnNew.Enabled = False
btnExit.Text = " "
Remaining = 4
Tries = 0
lblMugwumps.Text = "4"
lblGuesses.Text = "0"
MyMap.Clear(pnlGrid.BackColor)
For I = 0 To 9
For J = 0 To 9
Map(I, J) = 0
Next J
Next I
For I = 1 To 4
Do
For J = 1 To 2
P(I, J) = Int(10 * Rnd())
Next J
Loop Until Map(P(I, 1), P(I, 2)) = 0
Map(P(I, 1), P(I, 2)) = 1
Next I
For I = 1 To 4
Map(P(I, 1), P(I, 2)) = 0
Next I
pnlGrid_Paint(Nothing, Nothing)
lblMessage.Text = " "
lblMessage.Refresh()
End Sub
คือผมจะใช้ในการสร้างเกมส์คล้าย Minesweeper ที่มากับวินโดวส์ แล้วถ้าผมจะเพิ่มจำนวนรูปจาก 4 เป็น 8 หรือ 10 ต้องแก้ส่วนใหน ครับ
ขอบคุณล่วงหน้าทุกคำตอบครับ
Tag : - - - -
|
|
 |
 |
 |
 |
Date :
2010-02-09 17:02:11 |
By :
Neptune29 |
View :
2094 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
น่าจะเป็นเยี่ยงนี้นะครับ
Code (VB.NET)
For I = 0 To 9 'ลูปนี้อ่ะเอาไว้สร้างตารางตอนนี้เป็น 9x9 อยู่ถ้าจะเปลี่ยนขนาดก็ตรงนี้แหละ
For J = 0 To 9
Map(I, J) = 0
Next J
Next I
For I = 1 To 4 'ลูปนี้เป็นการ random ซ่อนค่าที่จะทำให้ระเบิดอ่ะ ถ้าอยากเพิ่มก็เปลี่ยนจากเลข 4 เป็นจำนวนที่อยากเพิ่ม
Do
For J = 1 To 2
P(I, J) = Int(10 * Rnd())
Next J
Loop Until Map(P(I, 1), P(I, 2)) = 0
Map(P(I, 1), P(I, 2)) = 1
Next I
|
 |
 |
 |
 |
Date :
2010-02-10 12:37:14 |
By :
salapao_codeman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|