Page 108 - 6735
P. 108

використання у VBA різних математичних процедур описані в [1, 3,
           10, 17].

           Dim MatLab As Object 'об'єкт MatLab
           Dim b(1, 2) As Double 'масив (реальна частина)
           Dim z(1, 2) As Double 'нульовий масив (уявна частина)

           Public Sub main()
           Set MatLab = CreateObject("Matlab.Application") 'створити
           об'єкт MatLab
           'заповнити масиви
           For i = 0 To 1
               For j = 0 To 2
                   b(i, j) = 1 'одиницями
                   z(i, j) = 0 'нулями
               Next j
           Next i
           'виконати команди MatLab
           MatLab.PutFullMatrix "b", "base", b, z 'передати матрицю
           'b' в MatLab
           MatLab.Execute "a = [1 2 3; 4 5 6]" 'створити матрицю 'a'
           MatLab.Execute "b = a + b" 'додати матриці
           'передати матрицю 'b' в VBA програму
           MatLab.GetFullMatrix "b", "base", b, z
           'вивести 'b'
           Debug.Print b(0, 0), b(0, 1), b(0, 2)
           Debug.Print b(1, 0), b(1, 1), b(1, 2)
           MatLab.Quit 'вийти з MatLab
           End Sub

                      Microsoft DAO – об'єктний доступ до даних

              База  даних  –  це  організований  набір  даних,  які  доступні  для
           машинної обробки. Реляційні бази даних складаються з таблиць, які
           містять  поля  (стовпчики)  і  рядки  (записи).  Для  взаємодії  з
           реляційними базами даних використовують предметно-орієнтовану
           мову  структурованих  запитів  SQL.  Microsoft  Data  Access  Objects
                                         108
   103   104   105   106   107   108   109   110   111   112   113