ПР_14

11

form1.Canvas.Ellipse(x,y,x+10,y+10);

x:=x+dx;

//намалювати окружність на новому місці form1.Canvas.Pen.Color:=clBlack; form1.Canvas.Ellipse(x,y, x+10, y+10) ;

end;

//сигнал від таймера

procedure TForm1.Timer1Timer(Sender: TObject); begin Ris; end;

procedure TForm1.FormActivate(Sender: TObject); begin

x:=0;

y:=10;

dx:=5;

timer1.Interval:=50;

// період виникнення події OnTimer -0.5 сек form1.canvas.brush.color:=forml.color; end;

end.

Основну роботу виконує процедура Ris, що стирає окружність і виводить її на новому місці. Стирання окружності виконується шляхом перемальовування окружності поверх намальованої, але кольорами тла.

Для забезпечення періодичного виклику процедури Ris у форму програми доданий невізуальний компонент Timer (таймер).

Подія onTimer у розглянутій програмі обробляється процедурою Timer1Timer, що, у свою чергу, викликає процедуру Ris. Таким чином, у програмі реалізований механізм періодичного виклику процедури Ris.

Примітка

Змінні х, у (координати центра окружності) і dx (збільшення координати х при русі окружності) оголошені поза процедурою Ris, тобто вони є глобальними. Тому треба не забути виконати їхню ініціалізацію (у програмі ініціалізацію глобальних змінних реалізує процедура FormActivate).

7. Оформлення звіту

7.1.Мета роботи. 7.2.Завдання.

7.3.Виконання індивідуального завдання. 7.4.Висновки по роботі.

Література:

1.Митчел К. Керман “Программирование и отладка в Delphi Учебный курс”. Вильямс.2002р.

2.Турбо Паскаль 7.0.Киев: Издательская група BHV.

3.Г.В.Поддубный “Введение в програмирование на Delphi. Учебное пособие”.Одеса, 1999р.