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

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





тини) на формі

dst: = Bounds (x, y, HK-2, WK-2);


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

Form1.Canvas.CopyRect (dst, Pictures.Canvas, src);


// встановити колір кордону та цифри

Form1.Canvas.Pen.Color: = clBlack;

Form1.Canvas.Font.Color: = clBlack;

Form1.Canvas.Brush.Style: = bsClear;

end;



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

// клітина закрита, малюємо тільки контур

begin

Form1.Canvas.Brush.Color: = clBtnFace;

Form1.Canvas.Pen.Color: = clBlack;

Form1.Canvas.Font.Color: = clBtnFace;

end;


// отрісовать клітку

Form1.Canvas.Rectangle (x, y, x + WK-2, y + HK-2);

// Form1.Canvas.TextOut (x +15, y +15, IntToStr (Pole [col, row]));

Form1.Canvas.Brush.Color: = clBtnFace;

;


// отрісовиваєт полеShowPole;

row, col: integer;

for row: = 1 to H do

for col: = 1 to W do

Kletka (row, col);;


// нова іграNewGame;

var


k: integer;// кількість парних картинок

r: integer;// випадкове число

buf: array [1 .. MAX_SIZE] of integer;

// в buf [i] записуємо, скільки чисел i

// записали в масив Pole

i, j: integer;// індекси масивів

begin


Randomize;

k: = Trunc (H * W/2);


for i: = 1 to k do

buf [i]: = 0;



// запишемо в масив Pole випадкові числа

// від 1 до 2

// кожне число має бути записано два рази

for i: = 1 to H do

for j: = 1 to W do

begin

repeat

r: = random (k) + 1;

until buf [r] <2;

Pole [i, j]: = r;// код картинки

inc (buf [r]);

end;

// тут поле згенеровано

n: = 0;

ShowPole;

;


// створення формиTForm1.FormClick (Sender: TObject);. timer2.Enabled: = True;// clock: = 0;;

TForm1.FormCreate (Sender: TObject);

va...


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





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

  • Реферат на тему: Розробка ігрової програми "Сапер"
  • Реферат на тему: Створення ігрової програми "WP-Billiards"
  • Реферат на тему: Henry Miller's philosophy and style in "Tropic of cancer", &q ...
  • Реферат на тему: Розробка ігрової системи "Тетріс"
  • Реферат на тему: Розробка програми лояльності на прикладі ТОВ "Керуюча Компанія" Б ...