Презентация на тему: Управление без обратной связи

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

Поместить на форму: Графическое поле PictureBox1, по которому будет перемещаться точка; Кнопку Button1 для запуска обработчика события вывода первоначального положения точки; Кнопку Button2 для запуска обработчика события вывода конечного положения точки; Четыре кнопки для управления движением точки

Создать обработчик события вывода первоначального положения управляемого объекта (точки). Обработчик должен включать случайную генерацию координат точки: Public Class Form1 Dim Graph1 As Graphics Dim Pen1 As New Pen(Color.Black, 3) Dim Brush1 As New SolidBrush(Color.Black) Dim X, Y As Integer Private Sub Button1_Click……. Graph1 = Me.PictureBox1.CreateGraphics() Graph1.Clear(Color.White) Randomize() X = Int(Rnd() * 200) Y = Int(Rnd() * 200) Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) Graph1.DrawEllipse(Pen1, 90, 90, 20, 20) End Sub

Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Вправо: Private Sub Button6_Click …. X = X + 1 End Sub Вверх: Private Sub Button3_Click … Y = Y - 1 End Sub

Создать обработчик события, выводящий конечное положение управляемого объекта (точки): Private Sub Button2_Click … Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) End Sub