Программирование мобильных устройств на платформе .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( _
 GameUIState.waitForUserToAnswerMultipleChoice)
End Sub

'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
Private Sub buttonAnswer0_Click(ByVal sender As Object, ByVal _
 e As System.EventArgs) Handles buttonAnswer0.Click
 evaluateMultipleChoiceAnswer(buttonAnswer0, 0)
End Sub

'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
Private Sub buttonAnswer1_Click(ByVal sender As Object, ByVal _
 e As System.EventArgs) Handles buttonAnswer1.Click
 evaluateMultipleChoiceAnswer(buttonAnswer1, 1)
End Sub

'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
Private Sub buttonAnswer2_Click(ByVal sender As Object, ByVal _
 e As System.EventArgs) Handles buttonAnswer2.Click
 evaluateMultipleChoiceAnswer(buttonAnswer2, 2)
End Sub

'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
Private Sub buttonAnswer3_Click(ByVal sender As Object, ByVal _
 e As System.EventArgs) Handles buttonAnswer3.Click
 evaluateMultipleChoiceAnswer(buttonAnswer3, 3)
End Sub

'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
Private Sub buttonAnswer4_Click(ByVal sender As Object, ByVal _
 e As System.EventArgs) Handles buttonAnswer4.Click
 evaluateMultipleChoiceAnswer(buttonAnswer4, 4)
End Sub

'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
Private Sub buttonAnswer5_Click(ByVal sender As Object, ByVal _