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

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

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

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

PrivateFPSAsLong

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)

--> ЧИТАТЬ ПОЛНОСТЬЮ <--