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

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

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

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

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

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