Ирина Фризен - Офисное программирование

If MsgBox («Начинать?», vbYesNo)= vbYes then

Операторы на действие этой кнопки

Else

Операторы на действие другой кнопки

End if

Пример 35 . Создать программу таким образом, чтобы при запуске формы, вводе имени в текстовое поле и нажатии на кнопку «Вывод текста» появлялось диалоговое окно, запрашивающее разрешение вывести текст (рис. 76).

Рис. 76.Форма примера 35 в режиме конструктора

Листинг работы формы

Private Sub CommandButton1_Click()

If MsgBox(«Вывести текст?», vbYesNo) = vbYes Then

If Documents.Count = 0 Then Documents.Add Selection.Text = «Изучение работы с текстом в документе Word является важной составной частью умения программировать в VBA, „+ TextBox1.Text + «, и отвечает запросам всех программистов!“

Selection.Font.Color = wdColorBlue

Selection.Font.Bold = wdToggle

Selection.Font.Italic = wdToggle

Else

Unload Me

End If

End Sub

В результате запуска приложения (рис. 77) в документе Word появится предложение:

Изучение работы с текстом в документе Word является важной составной частью умения программировать в VBA, Света, и отвечает запросам всех программистов!

Рис. 77.Форма примера 35 в рабочем режиме

Пример 36 .Создать форму, имитирующую простейшую игру в орла и решку (рис. 78). Игрок выставляет флажок вместо подбрасывания монеты, а компьютер после нажатия кнопки Бросание монеты запускает случайное число, соответствующее орлу или решке. При совпадении выигрывает компьютер, при несовпадении – игрок. Все действия сопровождаются всплывающими диалоговыми окнами.

Технология выполнения

1. Создайте форму для реализации этой игры.

2. Описание процедур.

Кнопка Бросание монеты

Private Sub CommandButton1_Click()

Randomize

монета = Int(2 * Rnd)

If OptionButton1.Value = True Then

If монета = 0 Then MsgBox «не везет. Займись-ка лучше изучением VBA»

If монета = 1 Then MsgBox «везунчик. Поздравляю, ты выиграл»

End If

If OptionButton2.Value = True Then

Рис. 78.Разработанная форма примера 36 в рабочем состоянии и диалоговое окно, реагирующее на результат игры

If монета = 1 Then MsgBox «не везет. Займись-ка лучше изучением VBA»

If монета = 0 Then MsgBox «везунчик. Поздравляю, ты выиграл»

End If End Sub

Кнопка Выход из игры

Private Sub CommandButton2_Click()

Dim ima As String

intA = MsgBox(« Нажмите кнопку!», vbYesNoCancel +

vbExclamation + vbDefaultButton3, «VBA для чайников!»)

If MsgBox(«начинать?», vbYesNoCancel) = vbYes Then

ima = InputBox(«введите Ваше имя», «Пример окна ввода»)

If ima <> "" Then

MsgBox «Привет,» & ima, vbInformation, «Пример окна сообщения»

Else

MsgBox «невежа, ты забыл ввести свое имя» & ima, vbExclamation, «еще один пример окна сообщения» End If

Else

If MsgBox(«ты точно подумал?», vbYesNoCancel) = vbNo Then

MsgBox («ха-ха»)

Else: MsgBox « Ну наконец-таки!»

Unload Me

End If

End If End Sub

Пример 37 . В разработанном игровом приложении предусмотреть создание окна «Банк», в котором будет выводиться результат очков игрока при остановке игры. Правила игры: при выигрыше игрока добавляется единица к сумме, лежащей в банке, при проигрыше – добавляется компьютеру (отнимается из суммы, лежащей в банке).

Предусмотреть все необходимые диалоговые окна.

Пример 38 . [4]Смоделировать полную игру в орел и решку. Игрок вносит в банк определенную сумму денег. Во время игры нельзя добавлять деньги в банк. Игра состоит из последовательности шагов, априори конечных. На очередном шаге игрок загадывает либо орел, либо решку. Компьютер «бросает» монету. Если «монета падает той же стороной», которую задал игрок, то банк увеличивается на единицу, в противном случае – уменьшается на единицу. Игра заканчивается либо по желанию игрока, либо когда величина банка становится нулем или больше 10 000 руб. (определенная сумма). Игрок забирает себе содержимое банка. Можно предусмотреть максимальные и минимальные суммы, которые были в банке в течение всей игры.

Примечание . Можно смоделировать бросание игральной кости, используя функцию Int(6* Rnd)+1. Правила меняются: выиграл тот, кто больше бросил.

Технология выполнения