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

будет перемещаться точка;
Кнопку 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