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

' 2. Настройка переменных/состояний игры, соответствующих

' данному режиму работы

' SetUpGameStateForScoldUser()

Case Else

Throw New System.Exception("Наизвестное состояние!")

End Select

'Сохранить запрошенное новое состояние в качестве текущего

m_CurrentGameState = newGameUIState

End Sub

End Class

'Код, выполняющийся при загрузке формы

Private Sub Form1_Load(ByVal senderAs System.Object,ByVal _

e As System.EventArgs) Handles MyBase.Load

TextBox1.Visible = True

ListBox1.Visible = False

End Sub

'Данные

Private m_someImportantInfoAs String

'Пользователь щелкнул на кнопке и хочет перейти к выполнению

'следующего шага данного приложения. Скрыть текстовое окно и отобразить

'окно списка в отведенном для этого месте.

Private Sub Button1_Click(ByVal senderAs System.Object,ByVal _

e As System.EventArgs) Handles Button1.Click

m_someImportantInfo = TextBox1.Text

TextBox1.Visible = False

ListBox1.Visible =True

End Sub

Private m_someImportantInfo As String

'Определить состояния, в которых может находиться приложение

Enum MyStates

step1

step2

End Enum

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

'Главная функция, которая

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

'в изменении состояния приложения

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

Sub ChangeApplicationState(ByVal newStateAs MyStates)

Select Case newState

Case MyStates.step1

TextBox1.Visible = True

ListBox1.Visible = False

Case MyStates.step2

m_someImportantInfo = TextBox1.Text

TextBox1.Visible = False

ListBox1.Visible = True

End Select

End Sub

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

'Пользователь щелкнул на кнопке и хочет перейти к выполнению

'следующего шага данного приложения. Скрыть текстовое окно и отобразить

'окно списка в отведенном для этого месте.

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

'Вызвать главную функцию для изменения состояния

ChangeApplicationState(MyStates.step2)

End Sub

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

'Код, выполняющийся при загрузке формы

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

Private Sub Forml_Load(ByVal sender As Object, _

ByVal eAs System.EventArgs)

'Вызвать главную функцию для изменения состояния

ChangeApplicationState(MyStates.step1)

End Sub

Option Strict On

Imports System

Public Class FindNextPrimeNumber

'Определить возможные состояния

Public Enum ProcessingState

notYetStarted

waitingToStartAsync

lookingForPrime

foundPrime

requestAbort

aborted

End Enum

Private m_startTickCount As Integer

Private m_endTickCount As Integer

Private m_startPoint As Long

Private m_NextHighestPrime As Long

Private m_processingState As ProcessingState

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

'Простейший конечный автомат

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

Public Sub setProcessingState(ByVal nextState As ProcessingState)

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

'Простейший защитный код, гарантирующий

'невозможность перехода в другое состояние в случае успешного

'завершения задачи или успешной отмены ее выполнения

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

Dim currentState As ProcessingState

currentState = getProcessingState()

If ((currentState = ProcessingState.aborted) _

OrElse (currentState = ProcessingState.foundPrime)) Then

Return

End If

'Безопасное параллельное выполнение потоков

SyncLock (Me)

'Разрешить изменение состояния

m_processingState = nextState

End SyncLock

End Sub

Public Function getProcessingState() As ProcessingState

Dim currentState As ProcessingState

'Безопасное параллельное выполнение потоков

SyncLock (Me)

currentState = m_processingState

End SyncLock

Return currentState

End Function

Public Function getTickCountDelta() As Integer

If (getProcessingState() = _

ProcessingState.lookingForPrime) Then

Throw New Exception( _

"Продолжается поиск простого числа! Окончательное время еще не вычислено")

End If

Return m_endTickCount - m_startTickCount

End Function

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

'Возвращает простое число

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