새로운 글
새로운 덧글

[따라하기] 인공지능 오목게임 [6] 흑백 바둑알 놓고 위치저장

 

 

안녕하세요 델파이 프로그래머님들!

 

이번  흑백 바둑알 놓기 6번째 세션에서는 다음 과정을 프로그램 하겠습니다.

 

1. 흑백 바둑알을 순차적으로 놓기

2. 흑백 바둑알이 놓여진 좌표를 기억하기 위한 Record 설정하고 저장하기

3. 이미 바둑알이 놓여진 자리에 다시 놓지 못하게 방지하기

4. 그리고 다음 세션을 위한 생각

 

 

1 흑백 바둑알을 순차적으로 놓기

 

1) 먼저  WhiteMoved 란 전역 변수를 boolean 으로 선언해서 백색 바둑알이 놓여졌으면 흑색을 다음에 놓게 합니다.

 

type

  TMainForm = class(TForm)

public

  WhiteMoved : boolean;

, , , ,

2) 그리고 이 변수를 ResetBoard 프로시져에서 초기화 해줍니다.

 

procedure TMainForm.ResetBoard;

begin

  WhiteMoved := True;

, , ,  

 

 

3) 세션5에서 프로그램한 MouseUp 이벤트에 다음 변경을 해서 흑백돌을 순차적 놓을수 있게 WhiteMoved  변수를 사용합니다.

 

procedure TMainForm.TTTBoardMouseUp( , , , X, Y: Integer);

, , , ,

if (((Column > 0) and (Row > 0)) and (( Column < 20) and (Row < 20))) then

begin

if ( WhiteMoved) then

begin

  TTTBoard.Canvas.Draw((Column * 18) - 8, (Row * 18) - 8, img_white.Picture.Graphic);

  WhiteMoved := false;

end

else if (Not WhiteMoved) then

begin

  TTTBoard.Canvas.Draw((Column * 18) - 8, (Row * 18) - 8, img_black.Picture.Graphic);

  WhiteMoved := true;

end;

end;

 

그럼 다음처럼 백 / 흑 이 순차적으로 놓여지게 됩니다.  물론 나중에는 옵션을 메뉴를 사용해서

순서를 흑 / 백으로도 할수있습니다.

 

 

blackWhite.png

 

 

2. 흑백 바둑알이 놓여진 좌표를 기억하기 위한 Record 타입을 설정하고 저장하기

 

오목의 승자를 확인하기 위해선 각각의 흑백 좌표를 알고 있어야 합니다.  그래서 놓여진 좌표를 Record 타입과 Array 배열을 사용해서 저장하고자 합니다.  

 

1) 그래서 우선 다음의 TStoneColor 레코드에 흑인지 백인지 저장할수 있게 선언합니다.

    WhiteOrBlack  저당되는 데이터 값은 3가지 'W', 'B', ' '  입니다.

type

  TStoneColor = record

   WhiteOrBlack : Char;

end;

 

2) 위에서 선언한 TStoneColorStonePiece에 좌표값으로 설정하기 위해 2차원 array 형태로 선언해줍니다.

type

  TMainForm = class(TForm)

public  

   , , ,

  StonePiece : array[0..19, 0..19] of TStoneColor;

 

         즉 [X, Y] 좌표 [ 1, 1]  ,  , [1, 19] ,   , ,  [19, 1], [19, 19] 의 위치의 값이 저장됩니다.

 

3) 이번에는 StonePiece에 값을 MouseUp 이벤트 내에서 저장해 보도록 하겠습니다.

    StonePiece[Column, Row].WhiteOrBlack := ‘W’  의 형태로 데이터를 저장했죠!

 

procedure TMainForm.TTTBoardMouseUp( , , , X, Y: Integer);

  , , , ,

if (((Column > 0) and (Row > 0)) and (( Column < 20) and (Row < 20))) then

begin

     if ( WhiteMoved) then

begin

, , ,

StonePiece[Column, Row].WhiteOrBlack := ‘W’;

WhiteMoved := false;

end

      else if (Not WhiteMoved) then

begin

, , ,

StonePiece[Column, Row].WhiteOrBlack := ‘B’;

WhiteMoved := true;

end;

end;

 

4) 그럼 StonePiece[Column, Row] 에 어떻게 데이터가 저장되었는지 궁금하시죠?

그래서 화면 아래에 임시로 ‘Test’ 버튼을 두어  Onclick 이벤트에서 테스트 해봅니다.

 

procedure TMainForm.testbtnClick(Sender: TObject);

var I, J: integer;

s : string;  

begin

    s := '';

    for J := 1 to 19 do

for I := 1 to 19 do

begin  

     if StonePiece[I, J].WhiteOrBlack <> ' ' then

begin

   // 흑백돌의 저장된 좌표값의 초기화

   s := s + '['+ inttoStr(I) + ','+ inttoStr(J) +','+ StonePiece[I, J].WhiteOrBlack + ' ], ';

end;

end;

    MessageDlg(S, mtInformation, [mbOk], 0);

end;

 

아래의 그림처럼 저장된 레코드값 결과를 보실수 있죠!

 

testXY.png

 

 

3. 이미 바둑알이 놓여진 자리에 다시 놓지 못하게 방지하기

 

현재 상태에서 게임을 실행해보면 바둑알이 놓여진 자리에 또 놓여지는 불상사가 발생합니다. 그럼 안되겠죠!

 

1) 그래서 놓으려는 좌표에 이미 바둑알이 놓여져있나를  (StonePiece[Column, Row].WhiteOrBlack = ' ' 를

   사용해서  아무것도 없는경우에만 놓게합니다.

 

procedure TMainForm.TTTBoardMouseUp( , , , X, Y: Integer);

, , ,

if (StonePiece[Column, Row].WhiteOrBlack = ' ') and WhiteMoved then

begin

, , ,

end

else if (StonePiece[Column, Row].WhiteOrBlack = ' ') and (Not WhiteMoved)then

begin

, , ,

end;

 

 

2) 그리고 ResetBoard에서 StonePiece[Column, Row] 좌표값을 다음처럼 초기화 해줍니다.

   새게임이 클릭될때에도 마찬가지로 초기화 합니다.

 

procedure TMainForm.ResetBoard;

begin

    for I := 0 to 19 do

for J := 0 to 19 do

begin

   // 흑백돌의 저장된 좌표값의 초기화

   StonePiece[I, J].WhiteOrBlack := ' '; 

 

 

4. 다음 세션을 위한 생각!

다음 세션에서는  연속 5개의 바둑알이 있는지 확인하는 기능을 해보고자 합니다.

그러기 위해선 총 4 방향으로 연속5개가 있나를 확인하는 프로그램을 하면됩니다.

 

4ways.png

 

       위의  4가지 경우의 수를 프로그램으로 구현하기위해선 다음의 좌표를 이해하시면 도움이 됩니다.      

  

 

 xy_Cal.png

 

그럼 다음 세션에선 5개의 연속이 있는지를 아래의 function 에서 프로그램 해보도록 하겠습니다!


    function  TMainForm.IsThereFiveToStopGame(ForWho : char): boolean;

begin
  //
end;
 

 

 그럼 다음에 뵙겠습니다. 좋은 연휴되십시요

 

 첨부파일 첨부합니다.

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 관리자 2017.02.06 885
공지 이 달의 기술자료 & 기술레터 관리자 2017.02.06 321
공지 데브기어 강의 - 2017년 9월~2017년 11월 관리자 2015.01.22 5556
공지 RAD Studio(Delphi, C++Builder) 시작하기 관리자 2015.06.30 8779
공지 RAD 스튜디오로 개발된 모바일 앱 사례(17년 6월 26일 업데이트) 험프리 2014.01.16 146229
789 [따라하기] 인공지능 오목게임 [7] 오목게임 승자(5돌) 결정 지능프로그램 file 대화마을 2017.10.17 59
» [따라하기] 인공지능 오목게임 [6] 흑백 바둑알 놓고 위치저장 file 대화마을 2017.10.01 58
787 엔터프라이즈 커넥터로 '구글 드라이브 VCL 애플리케이션' 만들기 file 관리자 2017.09.29 88
786 이 달의 기술자료 - 2017년 10월 file 험프리 2017.09.26 135
785 [따라하기] 인공지능 오목게임[5] 바둑알 놓기 [2] file 대화마을 2017.09.22 103
784 [FMX] TListView 더보기 버튼 구현하기 험프리 2017.09.20 98
783 [REST API] 다음 Kakao > 로컬 > 주소검색 연동하기 험프리 2017.09.18 468
782 [따라하기] 인공지능 오목게임[4] 바둑판 그리기 [2] file 대화마을 2017.09.18 77
781 [따라하기] 인공지능 오목게임 디자인 구성하기 3 file 대화마을 2017.09.14 71
780 [따라하기] 인공지능 오목게임 최종결과물 2 [2] file 대화마을 2017.09.14 78
779 [FMX] 폼의 높이를 애니메이션으로 변경하기, 툴바를 끌어 폼 이동하기 험프리 2017.09.12 101
778 [따라하기] 인공지능 오목게임 만들기 1 [1] file 대화마을 2017.09.12 177
777 [업데이트][핫픽스][10.2.1] 상속된 VCL 폼의 디스플레이 배율 미적용 버그 해소 file 험프리 2017.09.11 142
776 TListView 행별로 배경색 설정 및 글꼴변경하기 험프리 2017.09.08 104
775 [FireDac] FDConnection 데이터베이스 Connection 설정 file 김원경 2017.09.01 118
774 이 달의 기술자료 - 2017년 09월 file 험프리 2017.09.01 162
773 [오픈소스] VerySimple.Lua file 험프리 2017.09.01 96
772 [오픈소스] Python for Delphi(P4D) file 험프리 2017.09.01 146
771 [FMX] 파이어몽키 메시징 시스템을 이용해 프로세스 내에서 메시지를 등록하고 구독하는 방법 file 험프리 2017.09.01 53
770 [VCL] 화면의 특정영역을 확대하는 “돋보기” 기능 구현방법 소개 file 험프리 2017.09.01 115


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..