Категория
Информатика
Тип
реферат
Страницы
8 стр.
Дата
26.02.2014
Формат файла
.html — Html-документ
Архив
998938.zip — 3.97 kb
  • sozdanie-3d-grafiki-sredstvami-jazyka-programmirovanija-visual-basic_998938_1.html — 13.15 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 AsInteger)

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 Thenang = 0

'

DoEvents

'

Loop Until all_stop

'

End Sub

Private Sub Timer2_Timer()



Ваше мнение



CAPTCHA