>'-----------------------------------------------------------------
>'Вспомогательная функция, вызываемая для задания свойств видимости
>'некоторых элементов управления
>'-----------------------------------------------------------------
>Private Sub SetDifficultyButtonVisibility(ByVal visibleState _
> As Boolean)
> buttonShowAnswers_AdvancedVersion.Visible = visibleState
> buttonShowAnswers_SimpleVersion.Visible = visibleState
>End Sub
>'-----------------------------------------------------------------------
>'Вспомогательная функция, которая позволяет задавать состояние видимости
>'кнопок, отображающих ответы из словаря
>'-----------------------------------------------------------------------
>Private Sub SetAnswerButtonEnabled(ByVal enabledState _
> As Boolean)
> buttonAnswer0.Enabled = enabledState
> buttonAnswer1.Enabled = enabledState
> buttonAnswer2.Enabled = enabledState
> buttonAnswer3.Enabled = enabledState
> buttonAnswer4.Enabled = enabledState
> buttonAnswer5.Enabled = enabledState
>End Sub
>'-----------------------------------------------------------------
>'Задает текст в текстовом окне и кнопках,
>'необходимых для формулирования вопросов.
>'
>'В случае практической реализации эта функция должна просматривать
>'вопросы динамически
>'-----------------------------------------------------------------
>Private Sub SetTextForVocabularyQuestion()
> 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
>'----------------------------------------------------------------
>'ОБРАБОТЧИК СОБЫТИЙ: Пользователь желает увидеть следующий вопрос
>'----------------------------------------------------------------