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

 System.DateTime)

 If (currentTravelDate <> newTravelDate) Then
 'НАИЛУЧШАЯ ПРОИЗВОДИТЕЛЬНОСТЬ: Использовать кэшированный индекс столбца!
 currentCustomerRow(m_TestColumn_TravelDate) = _
 newTravelDate
 numberRecordsChanged = numberRecordsChanged + 1
 End If
 End If
 Next
Return numberRecordsChanged 'Количество обновленных записей
End Function

'Событие щелчка на кнопке
Private Sub buttonRunTest_Click(ByVal sender As Object, _
 ByVal e As System.EventArgs) Handles buttonRunTest.Click
 createDataSet
 cacheDataSetInfo

 'НИЗКАЯ ПРОИЗВОДИТЕЛЬНОСТЬ: Использовать поиск по строкам
 changeDayOfTravel_test(testType.textColumnLookup)

 'ЛУЧШАЯ ПРОИЗВОДИТЕЛЬНОСТЬ: Использовать поиск по целочисленным индексам
 changeDayOfTravel_test(testType.cachedIndexLookup)

 'НАИЛУЧШАЯ ПРОИЗВОДИТЕЛЬНОСТЬ: Использовать поиск по объектам столбцов
 changeDayOfTravel_test(testType.cachedColumnObject)
End Sub

Листинг 14.4. Результаты тестирования производительности при использовании пользовательского формата данных вместо объектов DataSet

'Определение размерных характеристик теста
Const DUMMY _ROWS_OF_DATA As Integer = 100
Const NUMBER_TEST_ITERATIONS As Integer = 500

Const TABLE_NAME_PASSENGERINFO As String = "CustomerTravelInfo"
Const TEST_CREDIT_CARD As String = "IvoCard-987-654-321-000"

Private m_data_creditCards As String
Private m_data_names As String
Private m_data_travelDates As System.DateTime

'-------------------------------------------------------------
'Создает массив данных (вместо использования объектов DataSet)
'-------------------------------------------------------------
Private Sub createDataSet
 '=============================================
 '1. Создать пространство для размещения данных
 '=============================================
 ReDim m_data_creditCards(DUMMY_ROWS_OF_DATA)
 ReDim m_data_names(DUMMY_ROWS_OF_DATA)
 ReDim m_data_travelDates(DUMMY_ROWS_OF_DATA)
 '----------------------
 'Добавить строки данных
 '----------------------
 Dim buildTestString As System.Text.StringBuilder
 buildTestString = New System.Text.StringBuilder
 Dim addItemsCount As Integer
 For addItemsCount = 0 To DUMMY_ROWS_OF_DATA
'Выбрать день отъезда пассажира
 m_data_travelDates(addItemsCount) = _
 System.DateTime.Today.AddDays(addItemsCount)
 '---------------------
 'Выбрать имя пассажира
 '---------------------
 'Очистить строку
 buildTestString.Length = 0
 buildTestString.Append("TestPersonName")
 buildTestString.Append(addItemsCount)
 m_data_names(addItemsCount) = buildTestString.ToString
 '-------------------------------------------------------
 'Связать с пассажиром текстовый номер кредитной карточки
 '-------------------------------------------------------
 'Строка значения третьего столбца набора данных
 buildTestString.Length = 0
 buildTestString.Append("IvoCard-000-000-0000-")
 buildTestString.Append(addItemsCount)
 m_data_creditCards(addItemsCount) = _
 buildTestString.ToString
 Next

 'Добавить элемент, поиск которого мы хотим выполнить в нашем тесте.
 'Выбрать день для значения в первом столбце данных
 m_data_travelDates(DUMMY_ROWS_OF_DATA) = _
 System.DateTime.Today
 'Строка для второго столбца данных
 m_data_names(DUMMY_ROWS OF DATA) = "Ms. TestPerson"
 'Строка с идентификатором кредитной карточки
 m_data_creditCards(DUMMY_ROWS_OF_DATA) = TEST_CREDIT_CARD
End Sub

'---------------
'Выполнить тест.
'---------------
Sub changeDayOfTravel_test
 'Отобразить курсор ожидания
 System.Windows.Forms.Cursor.Current = _
 System.Windows.Forms.Cursors.WaitCursor
 'Начать с известной даты.
 Dim newDate As System.DateTime newDate = System.DateTime.Today
 changeDayOfTravel_CustomArrays(TEST_CREDIT_CARD, newDate)

 'ТОЛЬКО В ЦЕЛЯХ ТЕСТИРОВАНИЯ!!!
 'HE СЛЕДУЕТ использовать вызовы сборщика мусора в готовом программном
 'коде. Это ЗАМЕДЛЯЕТ работу приложения.
 System.GC.Collect
 Const testNumber As Integer = 0

 'Запустить таймер теста
 PerformanceSampling.StartSample(testNumber, "Custom Array implementation")