TAILIEUCHUNG - 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. | 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 .

TỪ KHÓA LIÊN QUAN
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.