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

'

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

'

x As Single

y As Single

z As Single

'

sx As Long

sy As Long

'

End Type

'