Глава Изображение объектов

Imports System.Math 'Для математических функций.

Imports System.Drawing 'Для рисования изображений.

Imports System.Drawing.Drawing2D 'Для рисования.

6. В тело этого класса Class1 записываем, для примера, следующую произвольную функцию для расчета массива с координатами точек графика.

Листинг 43.1. Метод для расчета массива с координатами точек графика.

Public Class Class1

Public Function myFunction1() As Object

'Объявляем индексы элементов массива myArrayVB(i, j):

Dim i, j As Integer

'Задаем границы индексов массива myArrayVB(i, j):

Dim N_x As Integer = 2000

Dim N_y As Integer = 1

'Массив переменных Single в виде myArrayVB(i, j),

'когда i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:

Dim myArrayVB(N_x, N_y) As Single

'Задаем произвольное значение 10 в двойном цикле:

For i = 0 To N_x

For j = 0 To N_y

myArrayVB(i, j) = 10

'Произвольные координаты 4-х точек ломаной линии:

myArrayVB(0, 0) = 100

myArrayVB(0, 1) = 50

myArrayVB(1, 0) = 200

myArrayVB(1, 1) = 75

myArrayVB(2, 0) = 300

myArrayVB(2, 1) = 150

myArrayVB(3, 0) = 400

myArrayVB(3, 1) = 300

Return myArrayVB

End Function

End Class

Листинг 43.2. Процедура PictureBox1_Paint для рисования.

Private Sub PictureBox1_Paint(ByVal sender As Object, _

ByVal e As System.Windows.Forms.PaintEventArgs) _

Handles PictureBox1.Paint

'Объявляем объект myObject класса Class1 компонента VB:

Dim myObject As New ComponentVB.Class1

'Объявляем индексы элементов массива myArrayVC(i, j):

Dim i, j As Integer

'Задаем границы индексов массива myArrayVC(i, j):

Dim N_x As Integer = 2000

Dim N_y As Integer = 1

'Объявляем массив myArrayVC(i, j) переменных типа float,

'когда i = 0,1,2,3,...,(N_x - 1);