Информатика: программа visual basic (не могу найти ошибку)
программа показывает что введено не правильно. а что именно не правильно? (здесь написано не по порядку, только то, где ошибки) :
Graph1.DrawEllipse(Pen1, X, Y, 2, 2)
Graph1.FillEllipse(Brush1, X, Y, 2, 2)
Dim Pen1 as New Pen(Color.Black, 3)
dim Pen2 as New Pen(Color.Red, 3)
dim Brush1 as New SolidBrush(Color.Black)
Graph1.DrawEllipse(Pen1, X, Y, 2, 2)
Graph1.FillEllipse(Brush1, X, Y, 2, 2)
Graph1.DrawEllipse(Pen1, 90, 90, 20, 20)
Это модель системы управления. Называется проект "управление без обратной связи "
Private Sub Button2_Click()
Graph1.DrawEllipse(Pen1, X, Y, 2, 2)
Graph1.FillEllipse(Brush1, X, Y, 2, 2)
End Sub
Private Sub Button3_Click()
Y = Y + 1
End Sub
Private Sub Button4_Click()
X = X - 1
End Sub
Private Sub Button5_Click()
X = X + 1
End Sub
Private Sub Button6_Click()
Y = Y - 1
End Sub
Dim Graph1 As Graphics
Dim Pen1 as New Pen(Color.Black, 3)
dim Pen2 as New Pen(Color.Red, 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