# Создание web-страниц с доступом к MATLAB

## 5. Подключение MATLAB к web-странице

Описание кнопки для подключения MATLAB:

    <button id="LoadMatLab" language="VBScript"
      title="Подключить MATLAB" onClick="LoadMatLab()">
      <img src="matlab.gif"></img>
    </button>

Обработка нажатия на кнопку:

    sub LoadMatLab() ' Загружает MATLAB
      Dim MyRes, MyArray, Ub
      Set MatLab = CreateObject("Matlab.Application")
      if MatLab is Nothing then
        alert "Невозможно подключить MATLAB"
        exit sub ' если нет Matlab - выходим
      end if
      MyRes = MatLab.Execute("version(" & Chr(39)& "-release" & Chr(39) & ")")
      MyArray = Split(MyRes, "=", -1, 1)
      Ub = UBound(MyArray)
      ver = CByte(MyArray(Ub)) ' MATLAB release
    end sub