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

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

'