การสร้าง OX Game (หรือที่รู้จักกันในชื่อ Tic-Tac-Toe) ด้วยภาษา VBA

เกม OX หรือ Tic-Tac-Toe เป็นเกมที่มีชื่อเสียงก้องโลก ซึ่งเป็นเกมที่เล่นง่ายๆ โดยสองผู้เล่นจะทายสัญลักษณ์ “X” และ “O” ในตาราง 3x3 เพื่อให้ได้สัญลักษณ์ของตนในแนวนอน แนวตั้ง หรือแนวทแยง สำหรับบทความนี้เราจะมาศึกษาวิธีการสร้างเกม OX ในภาษา VBA (Visual Basic for Applications) ซึ่งเป็นภาษาที่ใช้งานในโปรแกรม Microsoft Excel, Access, และอื่นๆ

ทำไมต้องเลือกใช้ VBA?

การใช้ VBA ในการพัฒนาเกมดีๆ อย่างเช่น OX Game มีข้อดีหลายประการ:

ขั้นตอนการสร้าง OX Game

1. การเตรียมหน้า Excel

ขั้นแรกให้คุณเปิด Microsoft Excel และทำการตั้งค่าเซลล์ให้เป็นตาราง 3x3:

- ขยายขนาดเซลล์ให้อยู่ในรูปของตารางให้มีขนาดเท่ากัน

- ตั้งชื่อแถว (X) และ คอลัมน์ (Y) เพื่อให้ผู้เล่นสามารถเลือกตำแหน่งในการวางสัญลักษณ์

2. เขียนโค้ด VBA

กด `ALT + F11` เพื่อเปิดหน้าต่าง VBA แล้วแทรกโมดูลใหม่ (Insert → Module) จากนั้นให้คุณคัดลอกโค้ดตัวอย่างด้านล่างไปวาง:

 Dim turn As Integer
Dim board(1 To 3, 1 To 3) As String

Sub StartGame()
    turn = 1
    Dim i As Integer, j As Integer
    For i = 1 To 3
        For j = 1 To 3
            board(i, j) = ""
            Cells(i, j).Value = ""
        Next j
    Next i
    MsgBox "เริ่มเกม OX! ผู้เล่น 1 จะใช้ 'X' และ ผู้เล่น 2 จะใช้ 'O'"
End Sub

Sub PlayMove(row As Integer, col As Integer)
    If board(row, col) = "" Then
        If turn Mod 2 = 1 Then
            Cells(row, col).Value = "X"
            board(row, col) = "X"
        Else
            Cells(row, col).Value = "O"
            board(row, col) = "O"
        End If
        turn = turn + 1
        If CheckWinner() Then
            MsgBox "ผู้เล่น " & IIf(turn Mod 2 = 0, "1", "2") & " ชนะ!"
            StartGame
        ElseIf turn > 9 Then
            MsgBox "เกมเสมอ!"
            StartGame
        End If
    Else
        MsgBox "ตำแหน่งนี้ถูกใช้งานแล้ว!"
    End If
End Sub

Function CheckWinner() As Boolean
    Dim i As Integer
    For i = 1 To 3
        If (board(i, 1) <> "" And board(i, 1) = board(i, 2) And board(i, 2) = board(i, 3)) Or _
           (board(1, i) <> "" And board(1, i) = board(2, i) And board(2, i) = board(3, i)) Then
            CheckWinner = True
            Exit Function
        End If
    Next i
    If (board(1, 1) <> "" And board(1, 1) = board(2, 2) And board(2, 2) = board(3, 3)) Or _
       (board(1, 3) <> "" And board(1, 3) = board(2, 2) And board(2, 2) = board(3, 1)) Then
        CheckWinner = True
        Exit Function
    End If
    CheckWinner = False
End Function

3. การทำงานของโค้ด

4. การทดสอบและใช้งานเกม

เมื่อเขียนโค้ดเสร็จแล้ว ให้กลับไปที่ Excel และกดปุ่ม `Run` เพื่อเริ่มเกม จากนั้นผู้เล่นสามารถคลิกที่เซลล์เพื่อวาง “X” หรือ “O” ตามที่ต้องการ

Use Case ในโลกจริง

การใช้เกม OX สามารถนำไปใช้ในหลายสถานการณ์ รวมถึง:

สรุป

คุณพร้อมที่จะเริ่มการเดินทางสู่โลกของการเขียนโปรแกรมแล้วหรือยัง? มาร่วมเรียนรู้กับเราได้ที่ EPT กันเถอะ! ✨

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง