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

'Задать кнопки выбора вариантов "Easy" или "Hard" режима игры

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

buttonShowAnswers_AdvancedVersion.Top = showanswers_beginY

buttonShowAnswers_SimpleVersion.Top = showanswers_beginY

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

'Задать набор вариантов ответов

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

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

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

buttonAnswer0.Top = answerbuttons_beginY

'Поместить PictureBox под элементами управления

pictureBoxGameBoard.Top = _

(answerButtons dy + dy betweenButtons) * 3 + _

answerbuttons_beginY

buttonAskQuestion.Top = 0

buttonAskQuestion.Left = 174

textBoxAskQuestion.Top = 0

#Else 'ПОЛЕ ИГРЫ располагается над пользовательскими элементами управления

Const answerbuttons_beginY As Integer = 174

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

'Задать кнопки выбора вариантов "Easy" или "Hard" режима игры

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

buttonShowAnswers_AdvancedVersion.Top = answerbuttons_beginY

buttonShowAnswers_SimpleVersion.Top = answerbuttons_beginY

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

'Задать набор вариантов ответа

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

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

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

buttonAnswer0.Top = answerbuttons_beginY

pictureBoxGameBoard.Top = 0

buttonAskQuestion.Top = answerbuttons_beginY

buttonAskQuestion.Left = 174

#End If

buttonShowAnswers AdvancedVersion.Left = answerbuttons_beginX

buttonShowAnswers_SimpleVersion.Left = _

buttonShowAnswers_AdvancedVersion.Left + _

answerButtons dx + dx_betweenButtons

pictureBoxGameBoard.Left = 0

pictureBoxGameBoard.Width = 240

pictureBoxGameBoard.Height = 172

buttonAnswer0.Left = answerbuttons_beginX

buttonAnswer1.Left = buttonAnswer0.Left + answerButtons_dx + _

dx_betweenButtons

buttonAnswer1.Top = buttonAnswer0.Top

'Следующий ряд

buttonAnswer2.Left = buttonAnswer0.Left

buttonAnswer2.Top = buttonAnswer0.Top + answerButtons_dy + _

dy_betweenButtons

buttonAnswer3.Left = buttonAnswer2.Left + answerButtons_dx + _

dx_betweenButtons

buttonAnswer3.Top = buttonAnswer2.Top

'Следующий ряд

buttonAnswer4.Left = buttonAnswer2.Left

buttonAnswer4.Top = buttonAnswer2.Top + answerButtons_dy + _

dy_betweenButtons

buttonAnswer5.Left = buttonAnswer4.Left + answerButtons_dx + _

dx_betweenButtons

buttonAnswer5.Top = buttonAnswer4.Top

End Sub

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

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

'кнопок, отображающих ответы из словаря

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

Private Sub SetAnswerButtonVisibility(ByVal visibleState _

As Boolean)

buttonAnswer0.Visible = visibleState

buttonAnswer1.Visible = visibleState

buttonAnswer2.Visible = visibleState

buttonAnswer3.Visible = visibleState

buttonAnswer4.Visible = visibleState

buttonAnswer5.Visible = visibleState

End Sub

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

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

'некоторых элементов управления

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

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"