Скачиваний:
24
Добавлен:
02.05.2014
Размер:
59.39 Кб
Скачать

Федеральное агентство по образованию.

Государственное общеобразовательное учреждение высшего профессионального

образования.

Уфимский Государственный Авиационный Технический Университет.

Кафедра информатики.

Отчет по лабораторной работе №7

По теме: «Работа с графикой»

Выполнили:

Студенты группы МКС-120

Ноготков П.А.,

Кононович Ж.И.

Проверила старший

преподаватель:

Хамзина Е.А.

Уфа-2008

Цель работы:

Целью работы является изучение возможностей разработки графических приложений

Задания:

Задание первого уровня сложности:

Построить график функции Y=k*x на отрезке [-5, 0] при K=1.5 и на отрезке [0, 8] при K=2.5

Код программы: Private Sub Command1_Click()

Picture1.Cls

Label3.Visible = True

Label4.Visible = True

Picture1.Scale (-5, 20)-(8, -7)

Picture1.DrawWidth = 2

Picture1.Line (0, 20)-(0, -7)

Picture1.Line (-5, 0)-(8, 0)

Picture1.Line (8, 0)-(7, -1)

Picture1.Line (8, 0)-(7, 1)

Picture1.Line (0, 20)-(-1, 19)

Picture1.Line (0, 20)-(1, 19)

Picture1.DrawWidth = 3

Picture1.Line (-5, -7)-(0, 0), RGB(255, 5, 56)

Picture1.Line (0, 0)-(8, 20), RGB(0, 255, 0)

Picture1.DrawWidth = 1

For x = -5 To 8 Step 1

Picture1.Line (x, 20)-(x, -7)

Next x

Picture1.DrawWidth = 1

For y = -7 To 20 Step 1

Picture1.Line (-5, y)-(20, y)

Next y

End Sub

Задание второго уровня сложности:

Создайте проект и напишите программу "Светофор", позволяющую по нажатию кнопки "включать" заданный свет светофора. 

Код программы:

Private Sub Form_Activate()

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)

End Sub

Private Sub Command1_Click()

Picture1.FillColor = &H8000000F

Picture1.FillStyle = 0

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)

Picture1.FillColor = QBColor(12)

Picture1.FillStyle = 0

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

End Sub

Private Sub Command2_Click()

Picture1.FillColor = &H8000000F

Picture1.FillStyle = 0

Picture1.Circle (450, 1900), 300, RGB(0, 0, 0)

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

Picture1.FillColor = QBColor(14)

Picture1.FillStyle = 0

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

End Sub

Private Sub Command3_Click()

Picture1.FillColor = &H8000000F

Picture1.FillStyle = 0

Picture1.Circle (450, 500), 300, RGB(255, 0, 0)

Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)

Picture1.FillColor = QBColor(10)

Picture1.FillStyle = 0

Picture1.Circle (450, 1900), 300, RGB(0, 0, 0)

End Sub

Таблица№1

Объект

Свойства

Значение

Command

Label

Label

Command

Command

Command

Form1

Form2

Caption

Caption

Caption

Caption

Caption

Caption

Caption

Caption

рисовай!

X

Y

красный

желтый

зеленый

задание№1

задание№2


Вывод:

В результате проделанной работы мы изучили графические операторы языка Visual Basic, а так же изучили различные возможности просмотра графических файлов в Visual Basic.