Разработка физического приложения

Для первоначального образования игрального поля необходимо разграничить координаты шахматной доски, а так же расположить на ней фигуры. Для этого мы подробно описываем в программе каждый участок.

Начать необходимо с объявления полей:

a1: TImage; a2: TImage; a3: TImage; a4: TImage; a5: TImage;

a6: TImage; a7: TImage; a8: TImage; a9: TImage; a10: TImage;

b1: TImage; b2: TImage; b3: TImage; b4: TImage; b5: TImage;

b6: TImage; b7: TImage; b8: TImage; b9: TImage; b10: TImage;

c1: TImage; c2: TImage; c3: TImage; c4: TImage; c5: TImage;

c6: TImage; c7: TImage; c8: TImage; c9: TImage; c10: TImage;

d1: TImage; d2: TImage; d3: TImage; d4: TImage; d5: TImage;

d6: TImage; d7: TImage; d8: TImage; d9: TImage; d10: TImage;

e1: TImage; e2: TImage; e3: TImage; e4: TImage; e5: TImage;

e6: TImage; e7: TImage; e8: TImage; e9: TImage; e10: TImage;

f1: TImage; f2: TImage; f3: TImage; f4: TImage; f5: TImage;

f6: TImage; f7: TImage; f8: TImage; f9: TImage; f10: TImage;

g1: TImage; g2: TImage; g3: TImage; g4: TImage; g5: TImage;

g6: TImage; g7: TImage; g8: TImage; g9: TImage; g10: TImage;

h1: TImage; h2: TImage; h3: TImage; h4: TImage; h5: TImage;

h6: TImage; h7: TImage; h8: TImage; h9: TImage; h10: TImage;

i1: TImage; i2: TImage; i3: TImage; i4: TImage; i5: TImage;

i6: TImage; i7: TImage; i8: TImage; i9: TImage; i10: TImage;

j1: TImage; j2: TImage; j3: TImage; j4: TImage; j5: TImage;

j6: TImage; j7: TImage; j8: TImage; j9: TImage; j10: TImage;

Вторым этапом разграничение, является расстановка шахматных фигур согласно правилам игры, и их позиционных мест.

h_w_r: TImage; e_w_r: TImage; d_w_r: TImage; f_w: TImage;

k_w: TImage; d_w_l: TImage; e_w_l: TImage; l_w_r: TImage;

l_w_l: TImage; h_w_l: TImage; l_b_l: TImage; l_b_r: TImage;

h_b_l: TImage; e_b_l: TImage; d_b_l: TImage; k_b: TImage;

f_b: TImage; d_b_r: TImage; e_b_r: TImage; h_b_r: TImage;

p_b₀₁: TImage; p_b₀₂: TImage; p_b₁₀: TImage; p_b₀₃: TImage;

p_b₀₈: TImage; p_b₀₉: TImage; p_b₀₄: TImage; p_b₀₅: TImage;

p_b₀₆: TImage; p_b₀₇: TImage; p_w₀₁: TImage; p_w₀₂: TImage;

p_w₁₀: TImage; p_w₀₃: TImage; p_w₀₈: TImage; p_w₀₉: TImage;

p_w₀₄: TImage; p_w₀₅: TImage; p_w₀₆: TImage; p_w₀₇: TImage;

L₁₁: TLabel; L₁₂: TLabel; L₁₃: TLabel; L₁₄: TLabel; L₁₅: TLabel;

L₁₆: TLabel; L₁₇: TLabel; L₁₈: TLabel; L₀₄: TLabel;

L₀₅: TLabel; L₀₂: TLabel; L₀₃: TLabel;

L₀₈: TLabel; L₀₆: TLabel; L₀₇: TLabel; L₀₁: TLabel;

При выборе фигуры для очередного хода, а именно при нажатии на фигуру левой кнопкой мыши фигура меняет свой вид и приобретает выделение красным. Производится это действием следующей процедуры:

procedure TForm1. end_vibor (ch:char);

begin.

case liner of.

— 1: begin.

mutant[selection]: =ch;

fgico[selection]: ='_pic+ch+'_w';

end;

1: begin.

mutant[selection]: =ch;

fgico[selection]: ='_pic+ch+'_b';

end;end;

fgname[selection]. Picture. LoadFromFile (fgico[selection]+'.ico');

turn:=liner;

vibor1.hide;

vibor2.hide;

vibor3.hide;

vibor4.hide;

vibor5.hide;

end;

В программе предусматривается очередность ходов. То есть когда кто-либо из игроков то право хода передается сопернику. А фигуры первого игрока блокируются.

procedure TForm1. prSquare;

begin.

if rule_square (fgname[selection]. top, fgname[selection].left, t, l) then Fig (fgname[selection]);

case turn of.

1: begin.

lab_turn.caption:='Ход белых';

end;

— 1: begin.

lab_turn.caption:='Ход черных';

end;

end;

turn_prohod:=turn_prohod+1;

if turn_prohod>30 000 then turn_prohod:=2;

end;

Для контроля над игроками, а именно для того чтоб игроки не ставили фигуры на те кнопки, которые не входят в перечень их ходов, для каждой фигуры описаны ходы и возможные позиции.

Для коней разработана следующая функция:

function TForm1. turn_horse (ts, ls, te, le: integer):boolean;

begin //Ходы лошадок.

turn_horse:=false;

if.

• (((le=ls+1*square) and (te=ts+2*square)) or
• ((le=ls-1*square) and (te=ts+2*square)) or
• ((le=ls+1*square) and (te=ts-2*square)) or
• ((le=ls-1*square) and (te=ts-2*square)) or
• ((le=ls+2*square) and (te=ts+1*square)) or
• ((le=ls+2*square) and (te=ts-1*square)) or
• ((le=ls-2*square) and (te=ts+1*square)) or
• ((le=ls-2*square) and (te=ts-1*square)))

then turn_horse:=true;

end;

Для ходов слонов (офицеров) :

function TForm1. turn_elefant (ts, ls, te, le: integer):boolean;

begin //Описание ходов слонов (оф).

turn_elefant:=false;

if.

• (((le=ls+1*square) and (te=ts+1*square)) or
• ((le=ls+2*square) and (te=ts+2*square)) and empty_square (te-1*square, le-1*square)or
• ((le=ls+3*square) and (te=ts+3*square)) and empty_square (te-1*square, le-1*square)

and empty_square (te-2*square, le-2*square)or.

((le=ls+4*square) and (te=ts+4*square)) and empty_square (te-1*square, le-1*square).

and empty_square (te-2*square, le-2*square).

and empty_square (te-3*square, le-3*square)or.

((le=ls+5*square) and (te=ts+5*square)) and empty_square (te-1*square, le-1*square).

and empty_square (te-2*square, le-2*square).

and empty_square (te-3*square, le-3*square).

and empty_square (te-4*square, le-4*square)or.

((le=ls+6*square) and (te=ts+6*square)) and empty_square (te-1*square, le-1*square).

and empty_square (te-2*square, le-2*square).

and empty_square (te-3*square, le-3*square).

and empty_square (te-4*square, le-4*square).

and empty_square (te-5*square, le-5*square)or.

((le=ls+7*square) and (te=ts+7*square)) and empty_square (te-1*square, le-1*square).

and empty_square (te-2*square, le-2*square).

and empty_square (te-3*square, le-3*square).

and empty_square (te-4*square, le-4*square).

and empty_square (te-5*square, le-5*square).

and empty_square (te-6*square, le-6*square)or.

((le=ls+8*square) and (te=ts+8*square)) and empty_square (te-1*square, le-1*square).

and empty_square (te-2*square, le-2*square).

and empty_square (te-3*square, le-3*square).

and empty_square (te-4*square, le-4*square).

and empty_square (te-5*square, le-5*square).

and empty_square (te-6*square, le-6*square).

and empty_square (te-7*square, le-7*square)or.

((le=ls+9*square) and (te=ts+9*square)) and empty_square (te-1*square, le-1*square).

and empty_square (te-2*square, le-2*square).

and empty_square (te-3*square, le-3*square).

and empty_square (te-4*square, le-4*square).

and empty_square (te-5*square, le-5*square).

and empty_square (te-6*square, le-6*square).

and empty_square (te-7*square, le-7*square).

and empty_square (te-8*square, le-8*square)or.

• ((le=ls+1*square) and (te=ts-1*square)) or
• ((le=ls+2*square) and (te=ts-2*square)) and empty_square (te+1*square, le-1*square)or
• ((le=ls+3*square) and (te=ts-3*square)) and empty_square (te+1*square, le-1*square)

and empty_square (te+2*square, le-2*square)or.

((le=ls+4*square) and (te=ts-4*square)) and empty_square (te+1*square, le-1*square).

and empty_square (te+2*square, le-2*square).

and empty_square (te+3*square, le-3*square)or.

((le=ls+5*square) and (te=ts-5*square)) and empty_square (te+1*square, le-1*square).

and empty_square (te+2*square, le-2*square).

and empty_square (te+3*square, le-3*square).

and empty_square (te+4*square, le-4*square)or.

((le=ls+6*square) and (te=ts-6*square)) and empty_square (te+1*square, le-1*square).

and empty_square (te+2*square, le-2*square).

and empty_square (te+3*square, le-3*square).

and empty_square (te+4*square, le-4*square).

and empty_square (te+5*square, le-5*square)or.

((le=ls+7*square) and (te=ts-7*square)) and empty_square (te+1*square, le-1*square) вычислительный шахматный приложение программный.

and empty_square (te+2*square, le-2*square).

and empty_square (te+3*square, le-3*square).

and empty_square (te+4*square, le-4*square).

and empty_square (te+5*square, le-5*square).

and empty_square (te+6*square, le-6*square)or.

((le=ls+8*square) and (te=ts-8*square)) and empty_square (te+1*square, le-1*square).

and empty_square (te+2*square, le-2*square).

and empty_square (te+3*square, le-3*square).

and empty_square (te+4*square, le-4*square).

and empty_square (te+5*square, le-5*square).

and empty_square (te+6*square, le-6*square).

and empty_square (te+7*square, le-7*square)or.

((le=ls+9*square) and (te=ts-9*square)) and empty_square (te+1*square, le-1*square).

and empty_square (te+2*square, le-2*square).

and empty_square (te+3*square, le-3*square).

and empty_square (te+4*square, le-4*square).

and empty_square (te+5*square, le-5*square).

and empty_square (te+6*square, le-6*square).

and empty_square (te+7*square, le-7*square).

and empty_square (te+8*square, le-8*square)or.

• ((te=ts-1*square) and (le=ls-1*square)) or
• ((te=ts-2*square) and (le=ls-2*square)) and empty_square (te+1*square, le+1*square)or
• ((te=ts-3*square) and (le=ls-3*square)) and empty_square (te+1*square, le+1*square)

and empty_square (te+2*square, le+2*square)or.

((te=ts-4*square) and (le=ls-4*square)) and empty_square (te+1*square, le+1*square).

and empty_square (te+2*square, le+2*square).

and empty_square (te+3*square, le+3*square)or.

((te=ts-5*square) and (le=ls-5*square)) and empty_square (te+1*square, le+1*square).

and empty_square (te+2*square, le+2*square).

and empty_square (te+3*square, le+3*square).

and empty_square (te+4*square, le+4*square)or.

((te=ts-6*square) and (le=ls-6*square)) and empty_square (te+1*square, le+1*square).

and empty_square (te+2*square, le+2*square).

and empty_square (te+3*square, le+3*square).

and empty_square (te+4*square, le+4*square).

and empty_square (te+5*square, le+5*square)or.

((te=ts-7*square) and (le=ls-7*square)) and empty_square (te+1*square, le+1*square).

and empty_square (te+2*square, le+2*square).

and empty_square (te+3*square, le+3*square).

and empty_square (te+4*square, le+4*square).

and empty_square (te+5*square, le+5*square).

and empty_square (te+6*square, le+6*square)or.

((te=ts-8*square) and (le=ls-8*square)) and empty_square (te+1*square, le+1*square).

and empty_square (te+2*square, le+2*square).

and empty_square (te+3*square, le+3*square).

and empty_square (te+4*square, le+4*square).

and empty_square (te+5*square, le+5*square).

and empty_square (te+6*square, le+6*square).

and empty_square (te+7*square, le+7*square)or.

((te=ts-9*square) and (le=ls-9*square)) and empty_square (te+1*square, le+1*square).

and empty_square (te+2*square, le+2*square).

and empty_square (te+3*square, le+3*square).

and empty_square (te+4*square, le+4*square).

and empty_square (te+5*square, le+5*square).

and empty_square (te+6*square, le+6*square).

and empty_square (te+7*square, le+7*square).

and empty_square (te+8*square, le+8*square)or.

• ((te=ts+1*square) and (le=ls-1*square)) or
• ((te=ts+2*square) and (le=ls-2*square)) and empty_square (te-1*square, le+1*square)or
• ((te=ts+3*square) and (le=ls-3*square)) and empty_square (te-1*square, le+1*square)

and empty_square (te-2*square, le+2*square)or.

((te=ts+4*square) and (le=ls-4*square)) and empty_square (te-1*square, le+1*square).

and empty_square (te-2*square, le+2*square).

and empty_square (te-3*square, le+3*square)or.

((te=ts+5*square) and (le=ls-5*square)) and empty_square (te-1*square, le+1*square).

and empty_square (te-2*square, le+2*square).

and empty_square (te-3*square, le+3*square).

and empty_square (te-4*square, le+4*square)or.

((te=ts+6*square) and (le=ls-6*square)) and empty_square (te-1*square, le+1*square).

and empty_square (te-2*square, le+2*square).

and empty_square (te-3*square, le+3*square).

and empty_square (te-4*square, le+4*square).

and empty_square (te-5*square, le+5*square)or.

((te=ts+7*square) and (le=ls-7*square)) and empty_square (te-1*square, le+1*square).

and empty_square (te-2*square, le+2*square).

and empty_square (te-3*square, le+3*square).

and empty_square (te-4*square, le+4*square).

and empty_square (te-5*square, le+5*square).

and empty_square (te-6*square, le+6*square)or.

((te=ts+8*square) and (le=ls-8*square)) and empty_square (te-1*square, le+1*square).

and empty_square (te-2*square, le+2*square).

and empty_square (te-3*square, le+3*square).

and empty_square (te-4*square, le+4*square).

and empty_square (te-5*square, le+5*square).

and empty_square (te-6*square, le+6*square).

and empty_square (te-7*square, le+7*square)or.

((te=ts+9*square) and (le=ls-9*square)) and empty_square (te-1*square, le+1*square).

and empty_square (te-2*square, le+2*square).

and empty_square (te-3*square, le+3*square).

and empty_square (te-4*square, le+4*square).

and empty_square (te-5*square, le+5*square).

and empty_square (te-6*square, le+6*square).

and empty_square (te-7*square, le+7*square).

and empty_square (te-8*square, le+8*square)).

then turn_elefant:=true.

end;

Описание ходов других фигур строится аналогичным образом с проработкой множества возможных вариантов.