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

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

            Next

        Next

        'Произвольные координаты 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);