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

buttonAnswer0.Width = answerButtons_dx

buttonAnswer0.Height = answerButtons_dy

buttonAnswer1.Size = buttonAnswer0.Size

buttonAnswer2.Size = buttonAnswer0.Size

buttonAnswer3.Size = buttonAnswer0.Size

buttonAnswer4.Size = buttonAnswer0.Size

buttonAnswer5.Size = buttonAnswer0.Size

buttonShowAnswers_AdvancedVersion.Width = answerButtons_dx

buttonShowAnswers_AdvancedVersion.Height = 24

buttonShowAnswers_SimpleVersion.Size = _

buttonShowAnswers_AdvancedVersion.Size

'Расстояние (в пикселях) между соседними кнопками

Const dx_betweenButtons As Integer = 3

Const dy betweenButtons As Integer = 2

Const answerbuttons_beginX As Integer = 3

'Создать задний план для нашего изображения, чтобы мы видели

'его в процессе тестирования

Dim gameBoard As System.Drawing.Bitmap

gameBoard = New System.Drawing.Bitmap( _

pictureBoxGameBoard.Width, pictureBoxGameBoard.Height)

Dim gameboard_gfx As System.Drawing.Graphics

gameboard_gfx = System.Drawing.Graphics.FromImage(gameBoard)

gameboard_gfx.Clear(System.Drawing.Color.Yellow)

Dim myPen As System.Drawing.Pen = New System.Drawing.Pen( _

System.Drawing.Color.Blue)

gameboard_gfx.DrawRectangle(myPen, 2, 2, _

gameBoard.Width - 4, gameBoard.Height - 6)

myPen.Dispose()

gameboard_gfx.Dispose()

pictureBoxGameBoard.Image = gameBoard

'Разместить текстовое окно, в котором содержатся задаваемые вопросы,

'а также подробные ответы для пользователей

textBoxAskQuestion.Left = 0

textBoxAskQuestion.Width = 240

buttonAskQuestion.Width = 64

buttonAskQuestion.Height = 20

#If PLAYFIELD_ON_BOTTOM <> 0 Then 'ПОЛЕ ИГРЫ располагается под ПИ

Const answerbuttons_beginY As Integer = 42

Const showanswers_beginY As Integer = 77

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

'Задать кнопки выбора вариантов "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"

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

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

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

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

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

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