Практика. Чесалов. Вариант-13 / 2 / отчет

МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

(МИНТРАНС РОССИИ)

ФЕДЕРАЛЬНОЕ АГЕНСТВО ВОЗДУШНОГО ТРАНСПОРТА

(РОСАВИАЦИИ)

ФГОУ ВПО

«САНКТ-ПЕРЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ГРАЖДАНСКОЙ АВИАЦИИ»

Отчёт

по дисциплине ИНФОРМАТИКА

летняя практика

Специализация: ОРТОП

Факультет: Инженерно-технический

Выполнил: Чесалов.С.А.

Проверил: Барышников. В.Ф.

Санкт-Петербург

2013 г.

1. Условие задачи.

Решить задачу воспроизведения на экране компьютера плоского изображения, состоящего из нескольких геометрических фигур

2. Алгоритм решения задачи.

По-порядку создаем фигуры

3. Текст программы.

Private Sub Form_Load()

ScaleMode = vbPixels

AutoRedraw = True

DrawWidth = 3

ForeColor = vbGreen

Circle (200, 120), 10

Line (200, 120)-(300, 120)

Line (300, 120)-(320, 180)

Circle (320, 180), 10

Line (220, 180)-(320, 180)

Line (200, 120)-(220, 180)

Line (270, 140)-(330, 140)

Line (270, 140)-(300, 90)

Line (300, 90)-(330, 140)

End Sub