Visual Basic 6. Руководство разработчика



         

Написание сценария для приложения - часть 2


4. Добавьте код, скопированный из модуля класса AXStats.

Рис. 20.6. Проект StatCIss: вычисление основных статистических характеристик массива данных

Теперь имеется проект, состоящий из формы ScriptForm, на которой пользователь может вводить и выполнять сценарии, объект DisplayClass и класс AXStats, содер­жащий свойства и методы для вычисления основных статистических характеристик массива данных. Имеет смысл записать компоненты нового проекта в новую папку.

Примечание

Методы класса AXStats возвращают значения типа Double, в то время как VBScnpt является бестиповым языком. Каким образом сценарий взаимодействует с классом AXStats и интерпретирует возвращаемые значения? Можно использовать функции приведения типов, но не ожидайте, что пользователь (который вводит текст сценария) в состоянии выполнить все необходимые преобразования. Проще исправить код класса, удалив все типы. Для этого необходимо открыть окно Code для класса AXStats и удалить все объявления типов (часть As объявления методов и их типов). Для просмотра кода класса AXStats после исправления необходимо открыть проект в среде разработки VB.

Чтобы предоставить пользователю доступ к членам класса

AXStats (и позволить ему разрабатывать сценарии для обработки массивов данных), надо добавить ссылку на класс. Для этого в начало кода ScriptForm добавьте следующее объявление

Private Statistics As New AXStats

Затем добавьте объект Stat в элемент управления Script события Load формы

ScriptControll.AddObject "Stat", Statistics, True

Пользователь приложения получает доступ к членам класса

AXStats с помощью компонентов объектной переменной Stat или их имен. Далее следует небольшой сценарий для вычисления среднего арифметического четырех чисел. Введите следующий код в редактор сценария и щелкните на кнопке Execute Script.

Программа 20.11. Сценарий приложения StatCIss

Add 301

Add 44.50

Add 529

Add 124.5

Show "Mm значение " & Mm

Show "Max значение " & Мах

Show "Среднее      " & Average




Содержание  Назад  Вперед