кубаВ»
2.1 Принцип роботи програми В«Обертання кубаВ» мовою VB.NET
Після відкриття програми Microsoft VisualStudio 2005 потрібно створити новий проект, вибравши серед мов программірованіяVisualBasic, потім WindowsApplication.
На екрані з'явилося вікно-форма, на який надалі буде відображатися і обертатися куб. Тепер за допомогою TextBox створюються чотири кнопки, за допомогою яких буде обертатися куб вгору, вниз, вправо і вліво. p align="justify"> Спочатку в самому тілі програми необхідно оголосити всі глобальні змінні (до стандартної функції Form_Load).
У програмі оголошені глобальні змінні, що визначають центр екрана, кут повороту куба, всі координати вершин куба (у двовимірному і тривимірному просторі), параметри куба (ширина, висота, глибина), масив для зчитування даних з файлу .
Далі, після Form_Load, створюється функція vvod () для зчитування параметрів куба з текстового файлу формату *. txt.
У цій функції зчитування рядків з файлу здійснює оператор sw.ReadLine (), а розбиття Mid (a, j, 1), гдеa-рядок, j-номер символу, з якого записувати.
Функція val () здійснює присвоєння значень змінним, так само обчислює координати центру в тривимірних координатах, використовуючи формули.
(22)
(23)
Замість половини ширини екрану використана довільна значення 300.
Функція val () дозволяє обертати вліво і вправо куб за допомогою формул
(24)
(25)
Таким чином, мінлива angle1 відповідає за поворот вниз, а angle за поворот вгору.
Функція val1 () використовується при повороті вправо і вліво, відповідно змінними angle1 і angle, які при кожному натисканні на кнопки, або збільшуються, або зменшуються.
За допомогою кнопок Button_Click складено чотири процедури, в яких відбувається обертання.
У Button1_Click і Button3_Click викликається функція val () для присвоєння значень змінним і зміни кута. Потім у функції обчислюються координати всіх вершин куба за допомогою формул. Розглянемо одну з вершин:
(26)
(27)
(28)
Усі координати відлічуються щодо центру екрану, з використанням заданих за файлу параметрів куба (ширини, висоти і глибини).
Далі здійснюється обертання кожної вершини за допомогою формул обертання навколо осей, описаних в попередньому розділі.
Далі створюється об'єкт p для малювання та очищення екрана.
Dim p As Graphics = Me.CreateGraphics
p.Clear (Color.White)
Потім з допомогу DrawPolygon виводиться зображення куба на форму у вигляді...
