Лабораторная работа: Создание 3D-графики средствами языка программирования Visual Basic
👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Лабораторная работа по программированию
"
Создание 3
D
-
графики средствами языка программирования
Visual
Basic
"
Private Sub Form_Unload (Cancel As Integer)
Call ScaleObject (10, 10, 10, temp)
Call RotateObject (ang, -0.5, 0, temp)
Call TranslateObject (0, 0, 50, temp)
ang = ang + 0.02: If ang > 6.282 Then ang = 0
Me. Caption = «VB/3D – Tutorial #1 – FPS =» + Str$(FPS)
Public Sub LoadObject (obj As Object3D)
ReDim obj.vertex(7), obj.polygon(11)
obj.vertex(0).x = -1: obj.vertex(0).y = -1: obj.vertex(0).z = -1
obj.vertex(1).x = -1: obj.vertex(1).y = -1: obj.vertex(1).z = 1
obj.vertex(2).x = 1: obj.vertex(2).y = -1: obj.vertex(2).z = 1
obj.vertex(3).x = 1: obj.vertex(3).y = -1: obj.vertex(3).z = -1
obj.vertex(4).x = -1: obj.vertex(4).y = 1: obj.vertex(4).z = -1
obj.vertex(5).x = -1: obj.vertex(5).y = 1: obj.vertex(5).z = 1
obj.vertex(6).x = 1: obj.vertex(6).y = 1: obj.vertex(6).z = 1
obj.vertex(7).x = 1: obj.vertex(7).y = 1: obj.vertex(7).z = -1
obj.polygon(0).v_pointer(0) = 0: obj.polygon(0).v_pointer(1) = 2: obj.polygon(0).v_pointer(2) = 1
obj.polygon(0).colr = RGB (255, 0, 0)
obj.polygon(1).v_pointer(0) = 0: obj.polygon(1).v_pointer(1) = 3: obj.polygon(1).v_pointer(2) = 2
obj.polygon(1).colr = RGB (255, 0, 0)
obj.polygon(2).v_pointer(0) = 4: obj.polygon(2).v_pointer(1) = 0: obj.polygon(2).v_pointer(2) = 1
obj.polygon(2).colr = RGB (255, 0, 0)
obj.polygon(3).v_pointer(0) = 4: obj.polygon(3).v_pointer(1) = 1: obj.polygon(3).v_pointer(2) = 5
obj.polygon(3).colr = RGB (255, 0, 0)
obj.polygon(4).v_pointer(0) = 5: obj.polygon(4).v_pointer(1) = 1: obj.polygon(4).v_pointer(2) = 2
obj.polygon(4).colr = RGB (255, 0, 0)
obj.polygon(5).v_pointer(0) = 5: obj.polygon(5).v_pointer(1) = 2: obj.polygon(5).v_pointer(2) = 6
obj.polygon(5).colr = RGB (255, 0, 0)
obj.polygon(6).v_pointer(0) = 7: obj.polygon(6).v_pointer(1) = 2: obj.polygon(6).v_pointer(2) = 3
obj.polygon(6).colr = RGB (255, 0, 0)
obj.polygon(7).v_pointer(0) = 7: obj.polygon(7).v_pointer(1) = 6: obj.polygon(7).v_pointer(2) = 2
obj.polygon(7).colr = RGB (255, 0, 0)
obj.polygon(8).v_pointer(0) = 4: obj.polygon(8).v_pointer(1) = 5: obj.polygon(8).v_pointer(2) = 6
obj.polygon(8).colr = RGB (255, 0, 0)
obj.polygon(9).v_pointer(0) = 4: obj.polygon(9).v_pointer(1) = 6: obj.polygon(9).v_pointer(2) = 7
obj.polygon(9).colr = RGB (255, 0, 0)
obj.polygon(10).v_pointer(0) = 4: obj.polygon(10).v_pointer(1) = 3: obj.polygon(10).v_pointer(2) = 0
obj.polygon(10).colr = RGB (255, 0, 0)
obj.polygon(11).v_pointer(0) = 4: obj.polygon(11).v_pointer(1) = 7: obj.polygon(11).v_pointer(2) = 3
obj.polygon(11).colr = RGB (255, 0, 0)
Public Sub DisplayObject (obj As Object3D, frm As Object)
For poly = 0 To UBound (obj.polygon())
Private Sub DrawTriangle (obj As Object3D, poly As Long, frm As Object)
x0 = obj.vertex (obj.polygon(poly).v_pointer(0)).sx
y0 = obj.vertex (obj.polygon(poly).v_pointer(0)).sy
x1 = obj.vertex (obj.polygon(poly).v_pointer(1)).sx
y1 = obj.vertex (obj.polygon(poly).v_pointer(1)).sy
x2 = obj.vertex (obj.polygon(poly).v_pointer(2)).sx
y2 = obj.vertex (obj.polygon(poly).v_pointer(2)).sy
frm. Line (x0, y0) – (x1, y1), obj.polygon(poly).colr
frm. Line – (x2, y2), obj.polygon(poly).colr
frm. Line – (x0, y0), obj.polygon(poly).colr
Public Sub ProjectObject (obj As Object3D, frm As Object)
For pnt = 0 To UBound (obj.vertex())
dz = obj.vertex(pnt).z: If dz <= 0 Then dz = 0.001
obj.vertex(pnt).sx = (frm. ScaleWidth / 2) + ((obj.vertex(pnt).x * 300) / dz)
obj.vertex(pnt).sy = (frm. ScaleHeight / 2) + ((obj.vertex(pnt).y * 300) / dz)
Public Sub RotateObject (yaw As Single, pit As Single, rol As Single, obj As Object3D)
Dim x0 As Single, y0 As Single, z0 As Single
Dim x1 As Single, y1 As Single, z1 As Single
Dim x2 As Single, y2 As Single, z2 As Single
For pnt = 0 To UBound (obj.vertex())
x0 = Cos(yaw) * obj.vertex(pnt).x + Sin(yaw) * obj.vertex(pnt).z
z0 = Sin(yaw) * obj.vertex(pnt).x – Cos(yaw) * obj.vertex(pnt).z
Public Sub ScaleObject (xs As Single, ys As Single, zs As Single, obj As Object3D)
For pnt = 0 To UBound (obj.vertex())
obj.vertex(pnt).x = obj.vertex(pnt).x * xs
obj.vertex(pnt).y = obj.vertex(pnt).y * ys
obj.vertex(pnt).z = obj.vertex(pnt).z * zs
Public Sub TranslateObject (tx As Long, ty As Long, tz As Long, obj As Object3D)
For pnt = 0 To UBound (obj.vertex())
obj.vertex(pnt).x = obj.vertex(pnt).x + tx
obj.vertex(pnt).y = obj.vertex(pnt).y + ty
obj.vertex(pnt).z = obj.vertex(pnt).z + tz
Private Sub Form_Unload (Cancel As Integer)
Call ScaleObject (10, 10, 10, temp)
Call RotateObject (ang, -0.5, 0, temp)
Call TranslateObject (0, 0, 50, temp)
ang = ang + 0.02: If ang > 6.282 Then ang = 0
Me. Caption = «VB/3D – Tutorial #1 – FPS =» + Str$(FPS)
Программный код программы по Созданию 3D – графики средствами языка программирования VisualBasic, состоит из переменных, функций, циклов, различных математических функций, операторов.
Программа по созданию 3D-графики средствами VisualBasic 6.0, состоит из экранной формы, на которых расположено 2 элемента управления Timer (Timer1, Timer2)
Окно формы, часто называемое просто «форма», является главным элементом приложения. Форма представляет собой контейнер для элементов управления. Точки сетки на форме только помогают размещению элементов и при работе приложения не видны. При запуске Visual Basic открывающаяся на экране форма не содержит элементов управления. После щелчка на пиктограмме требуемого элемента управления курсор мыши принимает форму крестика. Теперь нужно указать в форме начальный угол элемента управления, нажать левую кнопку мыши и, не отпуская ее, установить размер элемента. После достижения нужного размера кнопка отпускается и в форме появляется выбранный элемент управления.
Использование таймера является хорошим способом управления вашей программой. С помощью таймера вы можете запускать или завершать процессы приложения в определенные моменты времени. Таймер может быть полезным и в том случае, если приложение выполняется в фоновом режиме. Во время проектирования таймер отображается в форме, но во время выполнения программы он является невидимым.
Таймер имеет единственное событие – Timer, которое вызывается по истечении установленного временного интервала.
Для установки интервала времени служит свойство Interval, значение которого устанавливается в миллисекундах. Например, задание значения 250 вызывает событие Timer через каждые 250 миллисекунд независимо от того, какое приложение активно. Для отключения таймера следует присвоить свойству Interval значение О или свойству Enabled значение False. Максимально допустимый интервал составляет 64757 миллисекунд. Но следует помнить, что операционная система может обрабатывать только 18,2 прерывания таймера в секунду, поэтому точность задания интервала составляет максимум одну восемнадцатую секунды. Необходимо также учесть, что при большой загрузке системы (поддержка сети, печать и т.п.) прерывания могут обрабатываться еще реже. В Windows вы можете использование не более 32 таймеров. Поскольку для работы системы также нужен таймер, то для всех приложений остается максимум 31. Если обработка события Timer длится дольше, чем задано значение мinterval, то новое событие Timer не вызывается, пока Visual Basic не обработает это событие.
Программа по созданию 3D – графики средствами Visual Basic 6.0, показывает свои графические возможности представления 3D – графики.
Название: Создание 3D-графики средствами языка программирования Visual Basic
Раздел: Рефераты по информатике, программированию
Тип: лабораторная работа
Добавлен 13:57:44 06 июля 2009 Похожие работы
Просмотров: 144
Комментариев: 15
Оценило: 4 человек
Средний балл: 4.3
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Лабораторная работа: Создание 3D-графики средствами языка программирования Visual Basic
Реферат: Местные налоги и общественные блага. Скачать бесплатно и без регистрации
Какие Темы По Русскому Языку Сочинение
Курсовая Работа Одежда
Курсовая работа по теме Культурно-исторические центры и экскурсионные объекты познавательного туризма юга Тюменской области
Дипломная работа по теме Работа социального педагога с семьей
Автореферат На Тему Методи Та Засоби Зменшення Обсягів Даних Тріангуляційного Опису Об’Єктів Комп’Ютерної Томографії
Компетенции Менеджера Курсовая
Курсовая работа по теме Синтез нитрата 1-окси-3-адамантанкарбоновой кислоты
Реферат На Тему Психология Публичного Выступления
Реферат по теме Господарство України періоду утвердження капіталізму
Магистерская диссертация по теме Організаційні зміни як основа забезпечення конкурентних переваг підприємства
Реферат Ряды Динамики И Показатели
Реферат: Имидж Лидера
Реферат: Аналитико-синтетическая переработка информации
Реферат: Описание Языка СИ
Реферат На Тему На Работу Порядок
Сочинение Рассуждение На Тему Неистребимо Благородство Душ
Реферат: Углерод и его основные неорганические соединения
Дипломная работа по теме Биотехнологический способ получения меченого стабильными изотопами липид-транспортирующего белка чечевицы (Lens culinaris)
Разговорный Жестовый Язык Контрольная Работа
Реферат: Политические партии и движения
Курсовая работа: Государственный мониторинг земель
Статья: Структурная организация белков