в В.А. Комп'ютерна графіка, мультимедіа та ігри на VisualC # 2005.-М.: Жарков Пресс, 2005.-812с.
. Сафронов І. Visual Basic в завданнях і прикладах./І.Сафронов-БХВ-Петербург. - СПб: В«БХВ-ПетербургВ», 2008. - 400 с.
. Ананьїв А. Самовчитель VisualBasic 6.0/А.Ананьев, О.Федоров-М.: BHV - Санкт - Петербург, 2000. - 624 с.
8.Графіческіе формати [Електронний ресурс]: Вільна екціклопедія - Режим доступу до енциклопедії.: <# "justify"> ПРОГРАМИ
ДОДАТОК 1
Програма мовою VisualBasic. NET Обертання куба
Class Form1CenterPX, CenterPY, CenterPZ As Single 'центрcPX, cPY As Singleangle As Singleangle1 As Singleax1, ay1, az1, ax1R, ay1R, az1R, ax1D, ay1D, az1D As Single' коордінативершінкубаax2, ay2, az2 , ax2R, ay2R, az2R, ax2D, ay2D, az2D As Singleax3, ay3, az3, ax3R, ay3R, az3R, ax3D, ay3D, az3D As Singleax4, ay4, az4, ax4R, ay4R, az4R, ax4D, ay4D, az4D As Singleax5 , ay5, az5, ax5R, ay5R, az5R, ax5D, ay5D, az5D As Singleax6, ay6, az6, ax6R, ay6R, az6R, ax6D, ay6D, az6D As Singleax7, ay7, az7, ax7R, ay7R, az7R, ax7D, ay7D , az7D As Singleax8, ay8, az8, ax8R, ay8R, az8R, ax8D, ay8D, az8D As SingleCHIR, VIC, GLUB As Integer 'параметрикубаar (1000) As Integer' массивдлявводачиселсфайлаx1, y1, z1 As Singlen As Integer = 300z0 As Single = 300Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSubSub vvod ()'' вводчіселсфайла
'откриваетфайлдлячтеніяsw As IO.StreamReader = New IO.StreamReader ("D: 22.txt", True) a As Stringj As Long, st As String, c As Integer = 0, i As Integer
= sw.ReadLine ()
= 1 'перший прогалину в строкеj = 1 To Len (a)' Mid (a, j, 1) = "" Then = c + 1Preserve ar (c) 'зміна розміру масиву числами () (c) = Mid (a, st, 3) = j + 1If
. Close () Sub
val () () = ar (2) = ar (3) = ar (4)
'коордінатицентра = 300: CenterPY = 300: CenterPZ = 300
'' екранниекоордінат = 300 * CenterPX/CenterPZ = 300 * CenterPY/CenterPZ = 40 = 40 = 40 = angle + 2 = angle1 - 2Subval1 () () = ar (2) = ar (3 ) = ar (4)
'коордінатицентра = 300: CenterPY = 300: CenterPZ = 300
'' екранниекоордінат = 300 * CenterPX/CenterPZ = 300 * CenterPY/CenterPZ = 40 = 40 = 40 = angle - 2 = angle1 + 2Sub
Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'' вниз ()
'координати вершин верхньої межі = -0.5 * CHIR: ay1 = -0.5 * GLUB: az1 = 0.5 * VIC = 0.5 * CHIR: ay2 = -0.5 * GLUB: ...
