Стр. 155 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
155
Timer1.Interval:=1000;
//запуск таймера
Timer1.Enabled:=true;
end;
6. Перед разделом объявления глобальных констант объявим процедуру.
//рисует вектор длиной l из точки x0,y0; а –угол наклона вектора
procedure Vector(x0,y0,a,l:integer);
Далее после процедуры FormCreate опишем эту процедуру.
//рисует вектор заданной длины из точки x0,y0
procedure Vector(x0,y0,a,l:integer);
var
//координаты конца вектора
x,y:integer;
begin
//перемещение курсора в центр циферблата
Form1.Canvas.MoveTo(x0,y0);
//вычисление координат конца вектора
x:=round(x0+l*cos(a*gr));
y:=round(y0-l*sin(a*gr));
//отрисовка линии из точки x0,y0 в точку x,y
Form1.Canvas.LineTo(x,y);
end;
7. Создадим процедуру Timer1Timer для обработки события OnTimer
компонента Timer1. Оформим ее следующим образом.
//процедура выполняется через заданный интервал времени
procedure TForm1.Timer1Timer(Sender: TObject);
var
//координаты маркеров и цифр на циферблате
x,y:integer;
//угол между осью OX и прямой (x0,y0)–(x,y)
a:integer;
//метка часовой риски
h:integer;
begin
//стиль кисти
Canvas.Brush.Style:=bsClear;
//ширина карандаша
Canvas.Pen.Width:=1;
//цвет карандаша
Canvas.Pen.Color:=clGreen;
//цвет текста
Canvas.Font.Color:=clLime;