การสร้างเกม OX (XO) ในภาษา Delphi Object Pascal แบบง่าย ๆ

เกม OX (หรือที่เรียกว่า XO, Tic-Tac-Toe) เป็นเกมที่นิยมเล่นกันในหลากหลายประเทศ ต้นฉบับของเกมนี้มีต้นกำเนิดมาจากเกมที่เรียกว่า "Terni Lapilli" ซึ่งเป็นเกมที่สามารถเล่นได้ง่ายเพียงใช้กระดาษและดินสอ แต่ในยุคดิจิทัลนี้ เราสามารถสร้างเกมนี้ขึ้นมาให้ผู้เล่นเล่นได้สะดวกสบายมากยิ่งขึ้น โดยใช้ภาษา Delphi Object Pascal

การเตรียมโปรเจค

ก่อนที่เราจะเริ่มเขียนโค้ด เราต้องติดตั้งโปรแกรม Delphi ก่อน ซึ่งสามารถใช้เวอร์ชันฟรีที่เรียกว่า "Lazarus" เพื่อทดสอบและพัฒนาโค้ดในรูปแบบ Open Source ได้

ขั้นตอนสร้างโปรเจค OX

โค้ดตัวอย่าง

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

 unit OXGame;

interface

uses
  Forms, Controls, StdCtrls, Classes, SysUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label1: TLabel;
    procedure ButtonClick(Sender: TObject);
    procedure ResetGame;
  private
    board: array[1..9] of string;
    currentPlayer: string;
    procedure CheckWinner;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.ResetGame;
var
  i: Integer;
begin
  currentPlayer := 'X';
  for i := 1 to 9 do
  begin
    board[i] := '';
  end;
  Label1.Caption := 'Turn: Player ' + currentPlayer;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var
  buttonIndex: Integer;
begin
  buttonIndex := StrToInt(TButton(Sender).Caption);
  if (board[buttonIndex] = '') then
  begin
    board[buttonIndex] := currentPlayer;
    TButton(Sender).Caption := currentPlayer;
    CheckWinner;
    currentPlayer := IfThen(currentPlayer = 'X', 'O', 'X');
    Label1.Caption := 'Turn: Player ' + currentPlayer;
  end;
end;

procedure TForm1.CheckWinner;
const
  WinCombo: array[1..8] of array[1..3] = (
    (1, 2, 3), (4, 5, 6), (7, 8, 9),
    (1, 4, 7), (2, 5, 8), (3, 6, 9),
    (1, 5, 9), (3, 5, 7)
  );
var
  i, j: Integer;
begin
  for i := 1 to 8 do
  begin
    if (board[WinCombo[i][1]] = currentPlayer) and
       (board[WinCombo[i][2]] = currentPlayer) and
       (board[WinCombo[i][3]] = currentPlayer) then
    begin
      Label1.Caption := 'ผู้เล่น ' + currentPlayer + ' ชนะ!';
      Exit;
    end;
  end;
end;

end.

อธิบายการทำงาน

- `board` เก็บสถานะของเกม โดยแต่ละตำแหน่งจะเก็บสัญลักษณ์ 'X' หรือ 'O'

- `currentPlayer` ใช้เพื่อติดตามว่าผู้เล่นคนไหนกำลังเล่นอยู่

- ทำการรีเซ็ตสถานะของเกมไปยังจุดเริ่มต้น

- เมื่อผู้เล่นคลิกที่ปุ่มที่แสดงถึงช่องในเกม จะแสดงสัญลักษณ์ของผู้เล่นและทำการตรวจสอบว่ามีผู้ชนะหรือไม่

- ตรวจสอบว่าผู้เล่นคนใดชนะตามชุดค่าที่กำหนดไว้ หรือไม่ ถ้ามีผู้ชนะจะแสดงข้อความผลการแข่งขัน

Use Cases ในโลกจริง

ทำไมต้องเรียนเขียนโปรแกรม?

การเรียนเขียนโปรแกรมไม่เพียงแค่ช่วยให้เราสามารถสร้างเกมหรือแอปพลิเคชันที่น่าสนใจได้ แต่ยังสามารถให้ทักษะการซ่อมแซมปัญหา การคิดอย่างมีระบบ และความคิดสร้างสรรค์

ถ้าคุณต้องการพัฒนาโปรแกรมของคุณให้เก่งขึ้น หรือสร้างอาชีพในวงการ IT อย่าลืมไปเรียนที่ EPT (Expert-Programming-Tutor)!

สรุป

การสร้างเกม OX ในภาษา Delphi Object Pascal เป็นการเริ่มต้นที่ดีในการเรียนรู้การเขียนโปรแกรม เช่นเดียวกับการตรวจสอบความคิดในการพัฒนาเกมและการใช้ OOP ในการแก้ไขปัญหา คุณจะได้พัฒนาความคิดสร้างสรรค์และการทำงานเป็นทีมได้อย่างมีประสิทธิภาพ

หากคุณสนใจเข้ามาศึกษาและฝึกฝนกันที่ EPT เพื่อนำความรู้ไปต่อยอดในอนาคต!

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