Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Розробка ігрової програми "Парні картинки"

Реферат Розробка ігрової програми "Парні картинки"





ь парних картинок

MAX_H = 8;// максимальний розмір поля - 8х8

MAX_W = 8;


Form1: TForm1;

clock: Integer;

level: Integer;


Pole: array [1 .. MAX_H, 1 .. MAX_W] of integer;

{Pole [i, j] <100 - код картинки, клітина закрита;

Pole [i, j]> 100 і <200 - клітина відкрита, тобто гравець бачить картинку;

Pole [i, j]> 200 - гравець знайшов пару для цієї картинки}


Pictures: TBitmap;// картинки, завантажені з файлу


n: integer;// колво відкритих пар картинок

count: integer;// кількості відкритих в даний момент клітин

open1: col_row;// координати 1-й відкритої клітки

open2: col_row;// координати 2-й відкритої клітки


W: integer;// кількість клітин по горизонталі

H: integer;// кількість клітин по вертикалі

// твір W і H повинна бути кратна 2-м

WK: integer;// ширина клітини

HK: integer;// висота клітини



implementation

Unit2, Unit3;


{$ R *. dfm}

// малює клітку поля

Kletka (col, row: integer);

var

x, y: integer;// лівий верхній кут клітини (координати)

src, dst: Trect;// джерело і одержувач бітового образу


// перетворимо координати клітини

// в координати на поверхні форми

x: = (col-1) * WK;

y: = (row-1) * HK;



if Pole [col, row]> 200 then

// для цієї клітини знайдена пара

// клітку треба прибрати з поля

begin

// встановити колір межі, зафарбування і тексту

Form1.Canvas.Brush.Color: = clBtnFace;

Form1.Canvas.Pen.Color: = clBtnFace;

Form1.Canvas.Font.Color: = clBtnFace;

end;



if (Pole [col, row]> 100) and (Pole [col, row] <200)

then

// клітина відкрита - вивести картинку

begin


// Pole [col, row] = номер картинки + 100,

// де 100 - ознака того, що клітина відкрита

// визначимо положення картинки в Pictures

src: = Bounds ((Pole [col, row] -100 -1) * WK, 0, WK, HK);


// координати картинки (клі...


Назад | сторінка 7 з 11 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Декартові координати
  • Реферат на тему: Географічні координати
  • Реферат на тему: Келихоподібних клітини
  • Реферат на тему: Стовбурові клітини
  • Реферат на тему: Хімічний склад клітини