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

s_blackPen = Nothing

End If

'Освободить память от белого пера, если таковое имеется

If Not (s_whitePenIs Nothing) Then

s_whitePen.Dispose()

s_whitePen = Nothing

End If

'Освободить память от атрибута ImageAttribute, если таковой имеется.

'Примечание. Метод Dispose() для этого типа не предусмотрен,

'поскольку все его данные являются управляемыми

If Not (s_ImageAttribute Is Nothing) Then

s_ImageAttribute = Nothing

End If

'Освободить память от полужирного шрифта, если таковой имеется

If Not (s_boldFontIs Nothing) Then

b_boldFont.Dispose()

s_boldFont = Nothing

End If

End Sub

'-----------------------------------------

'Эта функция позволяет получить доступ

'к черному перу, находящемуся в кэш-памяти

'-----------------------------------------

Private Shared Function g_GetBlackPen() As System.Drawing.Pen

'Если перо еще не существует, создать его

If (s_blackPen Is Nothing) Then

s_blackPen = New System.Drawing.Pen( _

System.Drawing.Color.Black)

End If

'Возвратить черное перо

Return s_blackPen

End Function

'----------------------------------------

'Эта функция позволяет получить доступ

'к белому перу, находящемуся в кэш-памяти

'----------------------------------------

Private Shared Function g_GetWhitePen() As System.Drawing.Pen

'Если перо еще не существует, создать его

If (s_whitePen Is Nothing) Then

s_whitePen = New System.Drawing.Pen( _

System.Drawing.Color.White)

End If

'Возвратить белое перо

Return s_whitePen

End Function

'-----------------------------------------------

'Эта функция позволяет получить доступ

'к полужирному шрифту, находящемуся в кэш-памяти

'-----------------------------------------------

Private Shared Function g_GetBoldFont() As System.Drawing.Font

'Если перо еще не существует, создать его

If (s_boldFont Is Nothing) Then

s_boldFont = New System.Drawing.Font( _

System.Drawing.FontFamily.GenericSerif, 10, System.Drawing.FontStyle.Bold)

End If

'Возвратить полужирный шрифт

Return s_boldFont

End Function

'-----------------------------------------------------

'Эта функция позволяет осуществлять доступ

'к находящемуся в кэш-памяти объекту imageAttributes,

'который мы используем для изображений с прозрачностью

'-----------------------------------------------------

Private Shared Function g_GetTransparencyImageAttribute() As _

System.Drawing.Imaging.ImageAttributes

'Если объект не существует, создать его

If (s_ImageAttributeIs Nothing) Then

'Создать атрибут изображения

s_ImageAttribute = _

New System.Drawing.Imaging.ImageAttributes

s_ImageAttribute.SetColorKey(System.Drawing.Color.White, _

System.Drawing.Color.White)

End If

'Возвратить его

Return s_ImageAttribute

End Function

End Class

'Желаемое число повторений теста

Const LOOP_SIZE As Integer = 8000

'---------------------------------------------------------

'Эта функция переустанавливает содержимое нашего тестового

'массива, что обеспечивает возможность многократного

'выполнения тестового алгоритма

'---------------------------------------------------------

Private Sub ResetTestArray(ByRef testArray() As String)

If (testArray Is Nothing) Then

ReDim testArray(6)

End If

testArray(0) = "big_blue_duck"

testArray(1) = "small_yellow_horse"

testArray(2) = "wide_blue_cow"

testArray(3) = "tall_green_zepplin"

testArray(4) = "short_blue_train"

testArray(5) = "short_purple_dinosaur"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button2.Click

'Вызвать сборщик мусора, чтобы быть уверенными в том, что

'тест начнется с чистого состояния.

'ПРИБЕГАЙТЕ К ЭТОЙ МЕРЕ ТОЛЬКО В ЦЕЛЯХ ТЕСТИРОВАНИЯ! Вызовы

'сборщика мусора в программах вручную будут приводить к снижению

'общей производительности приложений!

System.GC.Collect()

Dim testArray() As String = Nothing

'--------------------------------------------------

'Просмотреть элементы массива и

'найти те из них, в которых средним словом является

'"blue". Заменить "blue" на "orange"

'Запустить секундомер для нашего теста!

'--------------------------------------------------

PerformanceSampling.StartSample(0, "WastefulWorkerClass")

Dim workerClass1 As WastefulWorkerClass

Dim outerLoop As Integer

For outerLoop = 1 To LOOP_SIZE