Глава Изображение и управление - часть 5

For k As Integer = 1 To 3

i = i + 2

x1 = myArrayVB(i, 0)

y1 = myArrayVB(i, 1)

x2 = myArrayVB(i + 1, 0)

y2 = myArrayVB(i + 1, 1)

e.Graphics.DrawLine(myPen2, x1, y1, x2, y2)

'Записываем массив координат myArrayVB(2000, 1) в файл.

'Создаем объект sw класса StreamWriter

'для записи в файл по адресу D:\MyDocs\MyTest.txt.

'Файл автоматически “опустошается”:

Dim sw As StreamWriter = _

New StreamWriter("D:\MyDocs\MyTest.txt")

'Каждый элемент массива myArrayVB(i, j) записываем в файл

'в виде отдельной строки при помощи процедуры WriteLine:

For i = 0 To N_x

For j = 0 To N_y

sw.WriteLine(myArrayVB(i, j))

sw.Close()

End Sub

Чтобы мы могли управлять (например, вращать) объектами при помощи нажатия клавиш, в окне Class Name выбираем (Overrides), а в окне Method Name выбираем ProcessCmdKey. Появляется файл Form1.vb с шаблоном (процедуры ProcessCmdKey), который после записи нашего кода принимает следующий вид.

Листинг 38.3. Метод ProcessCmdKey для вращения поверхности.

'Поворачиваем поверхность после нажатия клавиши:

Protected Overrides Function ProcessCmdKey( _

ByRef msg As System.Windows.Forms.Message, _

ByVal keyData As System.Windows.Forms.Keys) As Boolean

'Задаем шаг поворота поверхности:

Const delta_theta As Double = PI / 32

Const delta_phi As Double = PI / 16

'Вычисляем сферические координаты (spherical coordinates)

'точки наблюдения:

Dim theta As Double = Atan2(myEye.orig_coord(1), _

myEye.orig_coord(0))

Dim r1 As Double = Sqrt(myEye.orig_coord(0) * _

myEye.orig_coord(0) _

+ myEye.orig_coord(1) * myEye.orig_coord(1))

Dim r2 As Double = Sqrt(myEye.orig_coord(0) * _

Содержание Назад Вперед