Lập trình trò chơi Minesweeper với VB6 Hẳn các bạn không xa lạ gì với Minesweeper, một trong những trò chơi gắn liền với hệ điều hành Windows (người Việt mình thường gọi là trò Dò mìn hay Gỡ mìn). Do vậy tôi nghĩ không cần thiết giới thiệu lại cách chơi. Trong bài viết này tôi muốn giới thiệu đến các bạn chương trình VB6 "cover" lại trò Minesweeper. Tổ chức dữ liệu Gọi số hàng và số cột lần lượt là Rows và Cols. Chúng ta sẽ dùng các mảng hai chiều kích thước Rows x Cols để đại diện cho các ô vuông. Mỗi phần tử của mảng sẽ tượng trưng cho một ô ở vị trí tương ứng. Ta tạo một mảng Field (Rows x Cols), kiểu dữ liệu là Integer. Phần tử Field(Row, Col) của mảng Field đại diện cho ô (Row, Col). Giá trị của phần tử này ở trong khoảng 0-8 cho biết số ô xung quanh có chứa mìn (một ô có tối đa 8 ô khác bao quanh). Riêng giá trị 9 chỉ ra là ô này có chứa mìn. Ta cần một mảng Flag (Rows x Cols), kiểu dữ liệu Integer, để cho biết trạng thái đánh dấu của một ô. Một phần tử của mảng Flag sẽ mang giá trị 0 nếu ô tương ứng chưa được đánh dấu, 1 nếu đánh dấu bằng cờ, và 2 nếu đánh dấu bằng dấu "?". Ta cần một mảng Checked (Rows x Cols), kiểu dữ liệu Boolean, để cho biết một ô đã lật hay chưa. Một phần tử của mảng Checked sẽ mang giá trị True nếu ô tương ứng đã được lật, và mang giá trị False nếu chưa được lật. Thủ tục thực hiện Bạn tạo một dự án (project) mới thuộc loại Standard exe. Bạn chỉ cần thêm vào Form một PictureBox tên là picField để làm vùng chơi. Mọi hoạt động của trò chơi như hiển thị các ô, cờ, mìn . hay nhận các sự kiện nhấn chuộ t khi chơi đều ở trên PicturexBox này. Sau đây là phần mã (code) chương trình. 1. Khai báo Option Explicit Const Rows = 10 'Số hàng Const Cols = 10 'Số cột Const Mines = 20 'Số mìn Const CellWidth=30 'Chiều rộng của một ô tính theo Pixel. Thuộc tính ScaleMode của picField là 3 - Pixel Dim Field(1 To Rows, 1 To Cols) As Integer Dim Flag(1 To Rows, 1 To Cols) As Integer Dim Checked(1 To Rows, 1 To Cols) As Boolean 2. Các thủ tục (Sub) * Thủ tục vẽ các ô nổi (chưa lật) và ô chìm (đã lật) để người chơi biết ô nào đã được lật rồi. * Thủ tục DrawNumber(Row As Integer, Col As Integer): Khi ô (Row, Col) được lật, nếu ô này không chứa mìn thì sẽ thông báo cho người chơi số ô xung quanh có chứa mìn. Thủ tục DrawNumber làm việc đó bằng cách hiển thị giá trị của Field(Row, Col). * Thủ tục DrawFlag(Row as Integer, Col as Integer): Khi người chơi nhấn chuột ph ải trên ô (Row, Col), ta dùng thủ tục này vẽ ra trên ô đó hình cờ nếu Flag(Row, Col)=1, hay hình "?" nếu Flag(Row, Col)=2, và xóa đi hình "?" nếu Flag(Row, Col)=0. * Thủ tục Mark(Row As Integer, Col As Integer): Thủ tục này dùng xử lý sự kiện người chơi nhấn chuột phải lên ô (Row, Col). Phần tử Flag(Row, Col) của mảng Flag sẽ cho biết trạng thái của ô (Row, Col). Bạn phải thay đổi giá trị của Flag(Row, Col) mỗi khi người chơi nhấn chuột phải lên ô (Row, Col). Nếu giá trị của Flag(Row, Col) đang là 0 thì sẽ thành 1, đang là 1 s ẽ thành 2, đang là 2 sẽ thành 0. Sau đó bạn gọi thủ tục DrawFlag(Row, Col) để vẽ các ký hiệu. * Thủ tục CountMines(Row As Integer, Col As Integer): Thủ tục này gán giá trị cho phần tử Field(Row, Col). Giá trị này chính là số ô có mìn trong số các ô chung quanh ô (Row, Col). Ta lần lượt kiểm các ô xung quanh ô (Row, Col), gặp một ô có mìn ta sẽ tăng giá trị Field(Row, Col) lên 1. Lưu ý là một ô bình thường sẽ có 8 ô bao quanh, nhưng các ô ở góc và cạnh sẽ có ít hơn 8 ô bao quanh. * Thủ tục SetMines(): Thủ tục này sẽ được gọi khi người ch ơi bắt đầu một game mới (chọn New Game). Nó sẽ thiết lập giá trị mặc định cho các mảng lúc bắt đầu một game mới, sau đó tiến hành đặt mìn ngẫu nhiên và đếm số mìn xung quanh mỗi ô. * Hàm Inside(X As Single, Y As Single, x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer): Hàm này trả về giá trị True nếu X nằm giữa x1 và x2, Y nằm giữa y1 và y2. Nói cách khác, Inside có giá trị True nếu điểm (X,Y) nằm trong hình chữ nhật có góc trên trái (x1,y1) và góc dưới phải (x2,y2). Nếu điểm (X,Y) nằm ngoài hình chữ nhật này, Inside có giá trị False. * Thủ tục Solve(Row As Integer, Col As Integer): Trong Minesweeper, khi bạn lật một ô, sẽ có 3 trường hợp xảy ra. - Trường hợp 1: Nếu ô bạn lật có mìn thì . game over 9. - Trường hợp 2: Nếu ô bạn lật không có mìn và ít nhất một trong các ô xung quanh có mìn thì bạn sẽ được thông báo số ô xung quanh có chứa mìn. - Trường hợp 3: Nếu ô bạn lật không có mìn và các ô xung quanh cũng không có mìn thì các ô đó đều được tự động lật, và chính các ô này khi được lật lại áp dụng trường hợp 2 và trường hợp 3. Thủ tục Solve xử lý các vấn đề khi người chơi lật một ô. Trong quá trình xử lý này, thủ tục Solve có thể lại được dùng để xử lý tiếp tục (lật một ô khác trong trường hợp 3). Như vậy, ta thấy thủ tục Solve gọi chính nó. Điều này được gọi là đệ quy. Ta sẽ dùng thuật giải đệ quy trong thủ tục Solve. Private Sub Solve(Row As Integer, Col As Integer) Dim xx(1 To 8) As Integer Dim yy(1 To 8) As Integer Dim k As Integer xx(1) = -1: yy(1) = -1 'Ô trên trái ô (Row, Col) xx(2) = 0: yy(2) = -1 'Ô ngay trên ô (Row, Col) xx(3) = 1: yy(3) = -1 'Ô trên phải ô (Row, Col) xx(4) = -1: yy(4) = 0 'Ô bên trái ô (Row, Col) xx(5) = 1: yy(5) = 0 'Ô bên phải ô (Row, Col) xx(6) = -1: yy(6) = 1 'Ô dưới trái ô (Row, Col) xx(7) = 0: yy(7) = 1 'Ô ngay dưới ô (Row, Col) xx(8) = 1: yy(8) = 1 'Ô dưới phải ô (Row, Col) Checked(Row, Col) = True 'Bạn đặt thủ tục vẽ ô lật ở vị trí này để cho biết ô (Row, Col) đã được lật. Khi ta g ọi thủ tục Solve, có một số ô không có mìn sẽ được thủ tục Solve tự động lật lên (chứ không do người chơi lật), và do đó ta phải để thủ tục vẽ ô lật cũng như dòng Checked(Row, Col) = True ở trong thủ tục Solve để đánh dấu và vẽ ra các ô đã lật này. If Field(Row, Col) = 0 Then 'Vì các ô chung quanh ô (Row, Col) đều không có mìn nên ta lật hết các ô này For k = 1 To 8 Step 1 If (Row + yy(k) > 0) And (Row + yy(k) <= Rows) And (Col + xx(k) > 0) And (Col + xx(k) <= Cols) Then 'Dòng lệnh if này để loại trừ các ô không tồn tại trong số các ô chung quanh đối với các ô ở góc và ở cạnh If Checked(Row + yy(k), Col + xx(k)) = False And Flag(Row + yy(k), Col + xx(k)) <> 1 Then 'Nếu ô xung quanh ô (Row, Col) chưa được lật, không có đánh dấu cờ thì lật tiếp ô này bằng chính thủ tục Solve (thuật giải đệ quy) Solve Row + yy(k), Col + xx(k) End If End If Next k Else 'Else của dòng lệnh If Field(Row, Col) = 0 DrawNumber Row, Col 'Thông báo số ô có mìn xung quanh ô (Row, Col) End If End Sub * Hàm Finish(): Hàm này cho kết quả True nếu người chơi đã gỡ hết mìn, và False nếu chưa gỡ hết mìn. Người chơi được coi là chiến thắng khi mọi ô không có mìn đều đã được lật. * Thủ tục ShowWin(): Thủ tục này được gọi khi người chơi chiến thắng. Xin nhắc lại, người chơi được coi là chiến thắng khi mọi ô không có mìn đều đã được lật. Do vậy, nhiệm vụ của thủ tục ShowWin() là kiểm tra trong số những ô chưa lật (đều là những ô có mìn vì những ô không có mìn đều đã đượ c lật), ô nào chưa được đánh dấu cờ thì sẽ đánh dấu. * Thủ tục ShowLose(Row As Integer, Col As Integer): Thủ tục này được gọi khi người chơi "đạp mìn" và "chết", có 2 nhiệm vụ: - Vẽ ra các quả mìn ở những ô có mìn mà chưa được đánh dấu cờ (mìn nổ). Riêng ô mìn mà người chơi đạp phải sẽ được tô màu đỏ. (Row, Col) là tọa độ của ô mìn này. - Xem những ô nào không có mìn nhưng lại được đánh dấu c ờ thì vẽ ký hiệu cho biết đánh dấu đó là sai. * Thủ tục picField_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single): Thủ tục này xử lý sự kiện (event) người chơi nhấp chuột lên PictureBox picField. Tùy theo người chơi nhấp chuột phải hay chuột trái mà ta có cách xử lý tương ứng. Private Sub picField_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Row As Integer, Col As Integer Dim i As Integer, j As Integer 'Xác định người chơi nhấn vào ô nào Row = 0 Col = 0 For i = 1 To Rows For j = 1 To Cols If Inside(X, Y, (j - 1) * CellWidth, j * CellWidth, (i - 1) * CellWidth, i * CellWidth) Then Row = i Col = j Exit For End If Next j Next i If Row <> 0 And Col <> 0 Then If Button = 1 Then 'Nhấn chuột trái If Checked(Row, Col) = False And Flag(Row, Col) <> 1 Then 'Nếu ô người chơi nhấn chuột để lật chưa được lật (Checked(Row, Col) = False ) và không có đánh dấu cờ (Flag(Row, Col) <> 1) thì ô đó mới được l ật If Field(Row, Col) <> 9 Then 'May quá, lật ô này không có mìn! Solve Row, Col Else 'Đạp mìn rồi !!! ShowLose Row, Col 'Lúc này người chơi đã bị "chết" do đạp mìn, kết thúc trò chơi. Exit Sub End If End If End If If Button = 2 Then 'Nhấn chuột phải If Not (Checked(Row, Col)) Then Mark Row, Col End If End If If Finish = True Then ShowWin 'Xét xem sau khi người chơi nhấn chuột thì đã hoàn thành trò chơi chưa, nếu hoàn thành rồi thì kết thúc trò chơi. End Sub Như vậy là các bạn đã hoàn thành các bước chính để lập trình trò chơi Minesweeper. Rất tiếc là do khuôn khổ bài viết có hạn nên tôi không thể trình bày từng chi tiết được. Các bạn có thể tải về chương trình hoàn chỉnh (mã nguồn) từ website Thế Giới Vi Tính - PC World Vietnam Online. Nâng cấp Minesweeper Bạn có muốn "lên đời" trò chơi Minesweeper của mình, làm cho nó khác biệt, đẹp hơn và hay hơn phiên bản của Microsoft không? Tôi xin đưa ra một số gợi ý sau: - Thêm vào âm thanh và hình ảnh. - Dùng một ảnh làm nền. Khi một ô không có mìn được lật sẽ hiện ra một phần của bức ảnh, khi người chơi thắng sẽ hiện ra toàn bộ bức ảnh đ ó. Người chơi cũng có thể nhập thêm hình ảnh mới vào. - Lật ô nhanh: Xét ô (Row, Col) đã được lật. Nếu số ô đánh dấu bằng cờ xung quanh ô (Row, Col) bằng số ô có mìn trong số các ô quanh ô này, người chơi có thể cho lật nhanh các ô còn lại bằng cách ấn chuột trái vào ô (Row, Col) đã lật và khi đó, các ô chưa lật quanh nó sẽ được lật. - Đánh dấu nhanh: Tương tự như lật ô nhanh, nếu số ô chưa lật xung quanh ô (Row, Col) bằng số ô có mìn quanh nó, ta có thể đánh dấu nhanh bằng cách nhấn chuột phải vào ô (Row, Col) đã lật. Hy vọng bài viết này có thể giúp các bạn tự lập trình trò chơi "Dò mìn" với những sáng tạo mới. Nếu cần trao đổi, các bạn có thể liên lạc với tác giả qua email MiNaH2710@yahoo.com.sg. Chúc thành công!   . Lập trình trò chơi Minesweeper với VB6 Hẳn các bạn không xa lạ gì với Minesweeper, một trong những trò chơi gắn liền với hệ điều hành. chơi nhấn chuột thì đã hoàn thành trò chơi chưa, nếu hoàn thành rồi thì kết thúc trò chơi. End Sub Như vậy là các bạn đã hoàn thành các bước chính để lập