информатика

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » Учебный раздел » 9 класс » информатика (кибернетика и др)

информатика

midschool

Дата: Воскресенье, 14.02.2010, 20:52 | Сообщение # 1

Admin

Группа: Администраторы

Сообщений: 99

Репутация: 3

Статус: Оффлайн

Тема "Информационные модели систем управления"
программа для создания системы управления
Public Class Form1
Dim x, y As Single
Dim g1 As Graphics
Dim pen1 As New Pen(Color.Red, 3)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
g1 = Me.PictureBox1.CreateGraphics
g1.ScaleTransform(1, -1)
g1.TranslateTransform(0, -300)
g1.DrawEllipse(pen1, 150, 150, 50, 50)
g1.DrawEllipse(Pens.Black, 10, 10, 2, 2)
End Sub

End Sub
End Class