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

End Sub

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

'ГОРАЗДО БОЛЕЕ ЭФФЕКТИВНЫЙ АЛГОРИТМ!

'Для имитации создания типичного набора строк используется

'конструктор строк (String Builder)

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

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

ByVal e As System.EventArgs) Handles Button2.Click

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

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

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

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

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

System.GC.Collect()

Dim sb As System.Text.StringBuilder = _

New System.Text.StringBuilder

Dim total_result As String

Dim numberToStore As Integer

PerformanceSampling.StartSample(1, "StringBuilder")

Dim outer_loop As Integer

For outer_loop = 1 To LOOP_ITERATIONS

'Очистить конструктор строк

sb.Length = 0

'Очистить строку со старым результатом

total_result = ""

'Выполнять цикл до максимального значения x_counter, каждый раз

'присоединяя очередную тестовую строку к рабочей строке

Dim x_counter As Integer

For x_counter = 1 To COUNT_UNTIL

sb.Append(numberToStore)

sb.Append(", ")

'Увеличить значение счетчика

numberToStore = numberToStore + 1

Next

'Имитируем выполнение некоторых операций над строкой...

total_result = sb.ToString()

Next

PerformanceSampling StopSample(1)

'Отобразить длину строки

MsgBox("Длина строки: " + total_result.Length.ToString())

'Отобразить строку

MsgBox("String : " + total_result)

'Отобразить длительность интервала времени, ушедшего на вычисления

MsgBox(PerformanceSampling.GetSampleDurationText(1))

End Sub

Option Strict On

Imports System

Public Class ThreadExecuteTask

'Перечисляем возможные состояния

Public Enum ProcessingState

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

'Начальное состояние

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

'Перечисляем возможные состояния

notYetStarted

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

'Рабочие состояния

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

'Ожидание запуска фонового потока

waitingToStartAsync

'Выполнение кода в фоновом потоке

running

'Запросить отмену выполнения вычислений

requestAbort

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

'Состояния завершения

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

'Состояние завершения: выполнение фонового потока

'успешно завершено

done

'Состояние завершения: выполнение потока отменено

'до его завершения

aborted

End Enum

Private m_processingState As ProcessingState

Public Delegate Sub ExecuteMeOnAnotherThread(_

ByVal checkForAborts As ThreadExecuteTask)

Private m_CallFunction As ExecuteMeOnAnotherThread

Private m_useForStateMachineLock As Object

Public Sub New(ByVal functionToCall As ExecuteMeOnAnotherThread)

'Создать объект, который мы можем использовать в конечном автомате

'в целях блокировки

m_useForStateMachineLock = New Object

'Обозначить готовность к началу выполнения

m_processingState = ProcessingState.notYetStarted

'Сохранить функцию, которую необходимо вызвать

'в новом потоке

m CallFunction = functionToCall

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

'Создать новый поток и вызвать в нем функцию на выполнение:

' this.ThreadStartPoint()

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

Dim threadStart As System.Threading.ThreadStart threadStart = _

New System.Threading.ThreadStart(AddressOf ThreadStartPoint)

Dim newThread As System.Threading.Thread

newThread = New System.Threading.Thread(threadStart)

'Обозначить готовность к началу выполнения (в целях определенности

'это важно сделать еще до того, как будет запущен поток!)

setProcessingState(ProcessingState.waitingToStartAsync)

'Дать ОС команду начать выполнение нового потока в асинхронном режиме

newThread.Start()

'Возвратить управление функции, вызывающей этот поток

End Sub

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

'Эта функция является точкой входа, вызываемой для

'выполнения в новом потоке

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

Private Sub ThreadStartPoint()

'Установить состояние обработки, соответствующее выполнению

'функции в новом потоке!

setProcessingState(ProcessingState.running)

'Запустить на выполнение пользовательский код и передать указатель в наш