Категория
Информатика
Тип
лабораторная работа
Страницы
12 стр.
Дата
12.06.2009
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
107275.zip — 392.36 kb
  • greating-3d-graphics-on-visual-basic_107275_1.rtf — 0 Bytes
  • greating-3d-graphics-on-visual-basic_107275_2.rtf — 0 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

Без интервала;
;
AUTOMATIC SYSTEM XTreme Diapsalmata
9
AUTOMATIC SYSTEM
CREATING 3D-GRAPHICS ON VISUAL BASIC
Dushanbe, 2009
INTERFACE
SOURCE CODE
Dim Angle As Double 'The rotation angle
Dim AngleHolder As Double 'holder for previous rotation angle
Dim NumObjectSides As Integer 'Number of sides making up the object
Private Type Point 'The makeup of a point
X As Double 'the X location of the point
Y As Double 'the Y location of the point
Z As Double 'the Z location of the point
End Type
Dim Center As Point 'center of the picboxes
Private Type Verticies 'The verticies of a side
NumPoints As Integer 'The number of points on a line
Points ( 20
) As Point 'the actual endpoints of each line
Normal As Point 'The normal of the Plane
End Type
Dim Sides ( 50 )
As Verticies 'the sides of the object
Dim XSides ( 50 )
As Verticies 'the X rotation points
Dim YSides ( 50 )
As Verticies 'the Y rotation points
Dim ZSides ( 50 )
As Verticies 'the Z rotation points
Dim Sides3D ( 50 )
As Verticies 'the 3D rotation of points
Dim CosAng ( 359 ) As Double
'A lookup table to hold the Cosine Angles
Dim SinAng ( 359 )
As Double 'A lookup table to hold the Sine Angles
Private Type POINTAPI 'This is the drawn Points of the
X As Long 'object to fill it and draw it fast
Y As Long 'using a win api function
End Type
Dim tmp ( )
As POINTAPI
'This function is for drawing filled polygons Much faster than anything I wrote
Private Declare Function Polygon Lib " gdi32



Ваше мнение



CAPTCHA