Программирование на BASIC / Visual Basic / Лабораторные работы1 / Лабораторные по информатике по VB(преподаватель- Хамзина Е.А.) / лабораторная по информатике7
.docФедеральное агентство по образованию.
Государственное общеобразовательное учреждение высшего профессионального
образования.
Уфимский Государственный Авиационный Технический Университет.
Кафедра информатики.
Отчет по лабораторной работе №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.