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



Уроки 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. Поместим на форму (рис. 1.56):

• две кнопки: Button1 — для запуска графического интерфейса проекта и Button2 — для запуска автоматической обратной связи;
• две надписи Label1 и Label2 для вывода текущих координат управляемого объекта (точки);
• графическое поле Image1, по которому будет перемещаться точка (закрашенный кружок).

2. Событийная процедура вывода первоначального положения управляемого объекта (точки) должна обеспечивать случайную генерацию координат точки (центра закрашенного кружка), выбор цвета и типа закрашивания, рисовать мишень (круг с координатами центра (100, 100)) в центре графического поля, а также стирать предыдущий вариант:


procedure TForm1.ButtonlClick(Sender: TObject);
begin
//Стирание
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Rectangle (0,0,200,200);
Image1.Canvas.FillRect(Rect(0,0,200,200));
Randomize;
X1:=Random(200);
Y1:=Random(200);
Form1.Image1.Canvas.Brush.Color:=clRed;
Form1.Image1.Canvas.Brush.Style:=bsSolid;
Form1.Image1.Canvas.Ellipse(X1-3,Y1-3,X1+3,Y1+3);
Form1.Image1.Canvas.Brush.Style:=bsClear;
Form1.Image1.Canvas.Ellipse(80,80,120,120);
end;

3. Для осуществления автоматической обратной связи использовать корректировку координат с использованием инструкции выбора If-Then-Else. Событийная процедура корректировки положения точки примет вид:


procedure TForm1.Button2Click(Sender: TObject);
begin
X2:=100;
Y2:=100;
//Автоматическая корректировка координаты X
If X2-X1>0 Then X1:=X1+1 Else X1:=X1-1;
//Автоматическая корректировка координаты Y
If Y2-Y1>0 Then Y1:=Y1+1 Else Y1:=Y1-1;
Label1.Caption:=IntToStr(X1);
Label2.Caption:=IntToStr(Y1);
Form1.Image1.Canvas.Brush.Color:=clRed;
Form1.Image1.Canvas.Pen.Color:=clRed;
Form1.Image1.Canvas.Brush.Style:=bsSolid;
Form1.Image1.Canvas.Ellipse(X1-3,Y1-3,X1+3,Y1+3);
end;

4. Запустить проект и нажатием кнопки Шаг осуществить попадание точки в мишень — окружность, имеющую координаты центра (100,100) (см. рис. 1.56).

Рис. 1.56. Модель системы управления с автоматической обратной связью на языке Turbo Delphi



Следующая страница Контрольные вопросы



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





Наверх