Книга: Программирование мобильных устройств на платформе .NET Compact Framework

Листинг 7.2. Тестовая программа, демонстрирующая использование приведенного выше кода для измерения временных интервалов

Листинг 7.2. Тестовая программа, демонстрирующая использование приведенного выше кода для измерения временных интервалов

Private Sub Button1_Click(ByVal senderAs System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 Const TEST_SAMPE_INDEXAs Integer = 2 'Выбрать любой допустимый индекс
 'Начать измерение
 PerformanceSampling.StartSample(TEST_SAMPE_INDEX, "TestSample")
 'Отобразить окно сообщений
 MsgBox("Для прекращения измерения нажмите кнопку OK")
 'Прекратить измерение
 PerformanceSampling.StopSample(TEST_SAMPE_INDEX)
 'Отобразить результаты
 MsgBox(PerformanceSampling.GetSampleDurationText( _
  TEST_SAMPE_INDEX))
End Sub

Оглавление книги


Генерация: 1.206. Запросов К БД/Cache: 3 / 0
поделиться
Вверх Вниз