Категория
Информатика
Тип
реферат
Страницы
8 стр.
Дата
20.03.2014
Формат файла
.html — Html-документ
Архив
1008621.zip — 3.98 kb
  • sozdanie-3d-grafiki-sredstvami-jazyka-programmirovanija-visual-basic_1008621_1.html — 13.55 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

КАФЕДРА: АСОИиУ

Лабораторная работа по программированию

" Создание 3 D - графики средствами языка программирования Visual Basic "

Душанбе, 2009 год

Интерфейс Рабочей Формы

/>/>


Интерфейс программы (в действии)


/>


/>/>


Исходный (программный код)

Private FPS As Long

Private all_stop As Boolean

Private cube As Object3D

Private Sub Form_Load()

Call LoadObject(cube)

all_stop = False

End Sub

Private Sub Form_Unload (Cancel As Integer)

all_stop = True

End Sub

Private Sub Timer1_Timer()

'

Dim temp As Object3D

Dim ang As Single

'

Timer1. Enabled = False

Do

temp = cube

'

Me. Cls

Call ScaleObject (10, 10, 10, temp)

Call RotateObject (ang, -0.5, 0, temp)

Call TranslateObject (0, 0, 50, temp)

Call ProjectObject (temp, Me)

'

Call DisplayObject (temp, Me)

'

FPS = FPS + 1

'

ang = ang + 0.02: If ang > 6.282 Then ang = 0

'

DoEvents

'

Loop Until all_stop

'

End Sub

Private Sub Timer2_Timer()

Me. Caption = «VB/3D – Tutorial #1 – FPS =» + Str$(FPS)

'

FPS = 0

'

End Sub

Private Type Vertex3D



Ваше мнение



CAPTCHA