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

 setQuestionText("What is the English word for 'der Mensch'?")

 buttonAnswer0.Text = "Four"

 buttonAnswer1.Text = "Person"

 buttonAnswer2.Text = "Three"

 buttonAnswer3.Text = "To Jump"

 buttonAnswer4.Text = "Newspaper"

 buttonAnswer5.Text = "Brother"

End Sub

'Вызывается для оценки варианта ответа, выбранного пользователем

Private Sub evaluateMultipleChoiceAnswer(ByVal buttonClicked _

 As Button, ByVal selection As Integer)

 'Примечание: В практической реализации правильный номер ответа

 'определяется динамически и не всегда соответствует "кнопке #1"

 'Если выбранный пользователем вариант ответа не является правильным,

 'отменить доступ к нажатой кнопке

 If (selection <> 1) Then

  'Выбранный вариант ответа является неправильным

  buttonClicked.Enabled = False

 Else

  'Пользователь выбрал правильный ответ, продолжить игру

  StateChangeForGameUI(GameUIState.waitForNextQuestion)

 End If

End Sub

'Абстракция, задающая текст вопросов

Sub setQuestionText(ByVal textIn As String)

 textBoxAskQuestion.Text = textIn

End Sub

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

'ОБРАБОТЧИК СОБЫТИЙ: Пользователь желает увидеть следующий вопрос

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

Private Sub buttonAskQuestion_Click(ByVal sender As Object, _

 ByVal e As System.EventArgs) Handles buttonAskQuestion.Click

 SetTextForVocabularyQuestion

 StateChangeForGameUI(GameUIState.waitForUserToStateKnowledge)

End Sub

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

'ОБРАБОТЧИК СОБЫТИЙ:

'Пользователь желает ответить на отображенный вопрос и сообщить, какой

'наиболее сложный уровень является для него приемлемым

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

Private Sub buttonShowAnswers AdvancedVersion_Click( _

 ByVal sender As Object, ByVal e As System.EventArgs) _

 Handles buttonShowAnswers_AdvancedVersion.Click

 'Установить состояние игры для отображения вариантов выбора

 StateChangeForGameUI( _

  GameUIState.waitForUserToAnswerMultipleChoice)

End Sub

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

'ОБРАБОТЧИК СОБЫТИЙ:

'Пользователь желает ответить на отображенный вопрос и сообщить, какой

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

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

Private Sub buttonShowAnswers_SimpleVersion_Click( _

 ByVal sender As Object, ByVal e As System.EventArgs) _

 Handles buttonShowAnswers_SimpleVersion.Click

 'Установить состояние игры для отображения вариантов выбора

 StateChangeForGameUI( _