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


         

Реализация семейства - часть 4


Для использования класса AXStat в проекте необходимо сначала добавить в проекте ссылку на класс, а затем создать объектную переменную, соответствую­щую классу. Следующее объявление должно появиться в самом начале окна кода тестовой формы:

Dim STATS As New Statistics

Ключевое слово New

говорит Visual Basic, что необходимо создать новый экземпляр модуля класса Statistics. Первая командная кнопка использует метод Add переменной STATS для создания набора данных из 100 значений.

Программа 15.13. Заполнение объекта STATS случайными данными

Private Sub Command1_C1ick()

List1.Clear

STATS.Clear

For i = 1 То 100

STATS.Add Rnd() * 1000

Next

Command2.Enabled = True

Command3.Enabled = True

End Sub

Рис. 15.7. Тестовая форма класса AXStat

Кнопка Display Data извлекает данные из переменной STATS с помощью метода Item. Значения данных формируются в цикле, который работает в диапазоне от 1 до STATS.Count.

Программа 15.14. Чтение данных из объекта STATS

Private Sub Command2_Click()

Dim i As Long

List1.Clear

For i = 1 To STATS.Count

List1.AddItem Format(STATS.Item(i), "000.000000")

Next

End Sub

Кнопка Show Statistics вызывает методы Average, Min и Мах переменной для вычисления основных статистических характеристик набора данных. Код, соответ­ствующий кнопке Show Statistics, приведен ниже.

Программа 15.15. Использование класса AXStat для вычисления статистических характеристик

Private Sub Command3_Click()

StatsMsg = "There are " & STATS.Count & _

           " points in the data set" & vbCrLf  

' (В наборе присутствуют ... элементов данных)

StatsMsg = StatsMsg & "Their average is" & _   

STATS.Average & vbCrLf    

' (Их среднее значение. .)

StatsMsg = StatsMsg & "The smallest value" & STATS.Mm & vbCrLf

                           '(Минимальное значение...)

StatsMsg = StatsMsg & "The largest value"& STATS.Max

'(Максимальное значение...)

MsgBox StatsMsg

End Sub




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