Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 27 - 30
§1.9. Информационные модели управления объектами




Содержание урока

1.9.1. Информационные модели систем управления
1.9.2. Модели систем управления на языке Visual Basic
1.9.3. Модели систем управления на языке Turbo Delphi

Системы управления без обратной связи

Проект «Управление без обратной связи» на языке Turbo Delphi

Системы управления с обратной связью

Проект «Управление с обратной связью» на языке Turbo Delphi

Проект «Автоматическое управление с автоматической обратной связью» на языке Turbo Delphi

Контрольные вопросы


1.9.3. Модели систем управления на языке Turbo Delphi


Проект «Управление с обратной связью» на языке Turbo Delphi


Усовершенствуем проект «Управление без обратной связи».

1. Поместить на форму дополнительно две надписи LabelX и LabelY для вывода текущих координат точки (рис. 1.55).

2. Четыре событийные процедуры перемещения точки должны обеспечивать изменение координат точки, а также рисовать ее текущие положения. Событийная процедура перемещения влево примет вид:


procedure TForm1.ButtonLClick(Sender: TObject);
begin
X1:=X1-1;
Form1.Image1.Canvas.Pen.Color:=clRed;
Form1.Image1.Canvas.Brush.Color:=clRed;
Form1.Image1.Canvas.Brush.Style:=bsSolid;
Form1.Image1.Canvas.Ellipse(X1-3,Y1-3,X1 + 3,Y1+3);
LabelX.Caption:=IntToStr(X1);
LabelY.Caption:=IntToStr(Y1);
end;

3. Запустить проект и осуществить попадание точки в мишень (круг, имеющий центр с координатами (100, 100), размещенный в графическом поле с размерами (200, 200)).

Легко убедиться, что использование обратной связи обеспечивает гарантированное попадание точки в мишень (см. рис. 1.55).

Рис. 1.55. Проект «Управление с обратной связью» на языке Turbo Delphi



Следующая страница Проект «Автоматическое управление с автоматической обратной связью» на языке Turbo Delphi



Cкачать материалы урока





Наверх