С.
Сергей ....

Информатика: программа 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

KK
Khatuna Khalvashi

Извините за прямоту, но книгу Вы выбрали из серии "макулатура".
В книге приведены алгоритмические конструкции присущие как
Visual Basic 6.0, так и Visual Basic .NET. Причем вперемешку.. .
Это совершенно разные языки и 90% примеров из этой книги или не будет работать,
или будет работать с ошибками.
Увы, таких книг сейчас на рынке много и это прискорбно :(((

Приведу пример на этих двух языках. Думаю, что различия Вы увидите сразу.

Visual Basic 6.0


Visual Basic .NET(2005, 2008, 2010)

Оксана Иванова
Оксана Иванова

а что она показывает? лог сообщений прикрепите, и полный код тоже

Похожие вопросы
Visual Basic, тестовая программа
Помогите сделать проекти по информатике в visual basic
Помоги пожалуйста с программами по информатике, язык Visual Basic
Программа - Visual Basic, проблема.
Простейшая программа Visual basic
составить программу в visual basic
Visual Basic Не могу понять где в коде ошибка
Нужна помощь по информатике (Visual Basic,накопление)
Информатика: не могу найти ошибку (программа visual basic)
помогите пожалуйста найти ошибку в коде ::visual basic::