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

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

2 Поместить на форму: 1. Графическое поле PictureBox1, по которому будет перемещаться точка; 2. Кнопку Button1 для запуска обработчика события вывода первоначального положения точки; 3. Кнопку Button2 для запуска обработчика события вывода конечного положения точки; 4. Четыре кнопки для управления движением точки 5. Две надписи Label1 и Label2 для вывода текущих координат

3 Создать обработчик события вывода первоначального положения управляемого объекта (точки). Обработчик должен включать случайную генерацию координат точки: 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 ….. 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

4 Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Вправо: Private Sub Button5_Click…. X = X + 1 Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) Label1. Text = X Label2. Text = Y End Sub

5 Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Влево: Private Sub Button5_Click…. X = X - 1 Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) Label1. Text = X Label2. Text = Y End Sub

6 Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Вверх: Private Sub Button2_Click… Y = Y - 1 Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) Label1. Text = X Label2. Text = Y End Sub

7 Четыре обработчика события перемещения точки должны обеспечивать изменение координат точки. Вниз: Private Sub Button2_Click… Y = Y+1 Graph1.DrawEllipse(Pen1, X, Y, 2, 2) Graph1.FillEllipse(Brush1, X, Y, 2, 2) Label1. Text = X Label2. Text = Y End Sub

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