WEB-ресурс научно-практических конференций

ВИКОРИСТАННЯ   СЕРВЕРА АВТОМАТИЗАЦІЇ   MS EXCEL ДЛЯ ОРГАНІЗАЦІЇ СИМВОЛЬНИХ ОБЧИСЛЕНЬ У СЕРЕДОВИЩАХ VB .NET ТА DELPHI

К. ф.-м.н. Сопронюк Т.М., Сопронюк А.Ю.

Чернівецький національний університет

Автоматизація — це одна з можливостей, наданих технологією Microsoft COM (Component Object Model). Автоматизація використовується додатками (COM-серверами) для надання доступу до своїх об'єктів, їх властивостей і методів іншим додаткам (COM-клієнтам), якими можуть бути і засоби розробки. Усі додатки Microsoft Office є серверами автоматизації (COM-серверами).

Розглянемо автоматизацію на прикладі використання методу Evaluate об’єкта WorkSheet для виконання символьних обчислень. Як сервер автоматизації   використаємо MS Excel (COM-сервер) , а   як засіб розробки – Visual Basic .NET ( COM-клієнт) .

Приклад 1. Побудова графіка функції засобами MS Excel, які забезпечують побудову діаграм.

Private Sub cmdCalculate_Click( ByVal sender As System.Object, _

  ByVal e As System.EventArgs) Handles cmdCalculate.Click

   Dim   Функція, значення As String , n As Integer

        ' раннє зв'язування буде працювати тільки у випадку

        ' наявності посилання (Project|References)   на реально існуючий додаток.

  Dim oExcel As New Excel.Application ' раннє зв'язування

  oExcel.Visible = False        ' додатка не видно  

  oExcel.Workbooks.Add()   ' добавлення робочої книги

  With oExcel.ActiveWorkbook   ' для активної робочої книги

            For n = 1 To 50 ' заповнення першого робочого листа

' занесення у два стовпчики першого листа точок (x,y) майбутнього

' графіка,   точки формуються на відрізку x ? (0;5] з кроком 0.1

  .                      Worksheets(1).Cells(n, 1).Value = n * 0.1

            '   зчитування рядка з формулою з елемента керування форми

                        Функція = txtFormula.Text

' заміна всіх символів “х” на значення аргументу

                        значення = Replace(Функція, "x", Str(n * 0.1))

                         ' десяткова точка в Excel може задаватися комою, тому, якщо треба:

                        значення = Replace(значення, ".", ",")

‘ виклик методу Evaluate об’єкта WorkSheet

‘ для обчислення значення функції в точці

                     . Worksheets(1).Cells(n, 2).Value = oExcel.Evaluate(значення)

            Next

             oExcel.Charts.Add()   ' добавлення діаграми

  ' побудова графіка на відрізку x ? (0;5] по створеному діапазону

               .ActiveChart.ChartWizard _

(oExcel.ActiveWorkbook.Worksheets(1).Range("A1:В50"), 4, 1, 2, 1)

            .ActiveChart.Export("graphic.gif")   ' збереження   графіка у файлі graphic.gif

            .Close( False )   ' закриття книги без збереження інформації

  End With

  ' закриття Excel

   oExcel.Quit()

   oExcel = Nothing

  ' зчитування графіка з файла graphic.gif у PictureBox1.Image

    PictureBox1.Image = Image.FromFile("graphic.gif")

End Sub

Аналогічний підхід можна реалізувати в будь-якому іншому засобі розробки.   Отже, часто не варто розробляти власні алгоритми для ряду задач. Зручніше використати потужні можливості додатків Microsoft Office, які є серверами автоматизації.   Їх можна навіть не візуалізовувати, як зроблено в попередньому прикладі.

Продемонструємо тепер описаний вище спосіб в іншому середовищі розробки . Тут повний код проекту наводити не будемо, а опишемо тільки функцію , яку можна використовува ти, наприклад, для побудови графіка функції одної зміннної, заданої у текстовому вигляді.

Приклад 2.   Символьне обчислення значення функції в точці х (сервер автоматизації   – MS Excel (COM-сервер) , засіб розробки – Delphi ( COM-клієнт)) .

Function F(x:double):double;

var        fun: string,

      oExcel: variant;

begin

// зв’язування з сервером автоматизації Excel

oExcel:= CreateOleObject('Excel.Application');

// зчитування рядка з формулою з елемента керування форми Form1

fun := Form1.txtFormula.Text;

// заміна всіх входжень символу ‘ х ’   в рядок fun на реальне числове

// значення, що передається у функцію

while Pos('x', fun) > 0   do

                         begin

                                    Insert(FloatToStr(x), fun, Pos('x', fun));

                                    Delete(fun,Pos('x', fun),1);

                        end;

// виклик методу Evaluate об’єкта WorkSheet

// для обчислення значення функції в точці

            F:= oExcel.Evaluate(fun);

// закриття Excel

oExcel.Quit;

end;