Риложение игра быки-коровы язык Visual Basic for Applications (vba) используется для программирования приложений Microsoft Office

Ваша задача – воспроизвести эту программу на своем компьютере. Задача решается в 4 этапа:

• 
  ввод игрового поля и панели кнопок как на рис. П.19;
  
• 
  ввод текста программы в редакторе Visual Basic;
  
• 
  назначение кнопкам панели макросов-подпрограмм;
  
• 
  отладка и тестирование программы.
  

Нарисуйте панель с кнопками. Настройте изображения кнопок – щелкните правой кнопкой мыши по каждой кнопке и в окне Формат объекта выполните настройки: шрифт, выравнивание по центру и пр. Рисование кнопок и назначение макросов было рассмотрено в главе 1.

Вызовите редактор Visual Basic, вставьте новый модуль и введите текст программы (рис. П.18). После ввода текста программы проверьте его на наличие синтаксических ошибок: пункт меню ОтладкаКомпилировать VBAProject (DebugCompile VBAProject). Исправьте ошибки строго по тексту программы, с учетом всех знаков, точного написания названий подпрограмм, переменных и операторов.

Текст программы можно скачать из Интернета по адресу www.kuprava.ru в разделе Excel. Здесь приводим полный текст программы Быки-Коровы на языке VBA с комментариями.

НоваяИгра

Randomize ' загадывание 4-х разных чисел

Цифры(1) = Int(10 * Rnd) ' с помощью функции Rnd()

I = 2

Цифры(I) = Int(10 * Rnd)

For J = 1 To I - 1

If Цифры(J) = Цифры(I) Then

I = I - 1

Exit For

Next J

Loop

For Col = 2 To 14 Step 1

Cells(Row, Col).Value = "" ' значение ячейки - пусто

Cells(Row, Col).Font.Color = RGB(0, 0, 0) ‘ цвет символов ячейки - черный

Next Col

Next Row

Cells(2 + 2 * I, 2).Value = I

Next I

Row = 4 ' подготовить координаты

ОбработкаЦифры (0)

ОбработкаЦифры (1)

ОбработкаЦифры (2)

ОбработкаЦифры (3)

ОбработкаЦифры (4)

ОбработкаЦифры (5)

ОбработкаЦифры (6)

ОбработкаЦифры (7)

ОбработкаЦифры (8)

ОбработкаЦифры (9)

Cells(Row, Col).Activate ' активизировать ячейку

ActiveCell.Value = Цифра ' и записать в нее цифру

If ActiveCell.Column < 9 Then ' все колонки строки заполнены?

Col = ActiveCell.Column + 2 ' нет, на следующую колонку

Else

Расчет ' да, расчет введенной строки

End If

End Sub
Sub Расчет() ' подпрограмма расчета строки

If Проверка Then ' если все цифры отгаданы, то

For I = 3 To 9 Step 2 ' покрасить их в красный цвет

Cells(Row, I).Font.Color = RGB(255, 0, 0)

Next I

Cells(Row, 11).Font.Color = RGB(255, 0, 0)

MsgBox "Вы выиграли!", , "Быки & Коровы"

Else

If (Row = 22) Then

Else

End If

Dim Быки As Integer, Коровы As Integer, БылБык As Boolean

Быки = 0 ' счетчик быков

Коровы = 0 ' счетчик коров

For I = 1 To 4

БылБык = False

If Cells(Row, 1 + I * 2).Value = Цифры(I) Then

Быки = Быки + 1 ' подсчет быков

БылБык = True ' установить флаг БылБык

End If

For j = 1 To 4 ' проверить I-ю цифру на корову

If I <> j And Cells(Row, 1 + j * 2).Value = Цифры(I) Then

Коровы = Коровы + 1

Exit For ' выход из внутреннего цикла, чтобы

End If ' не считать одинаковых коров

Next j

End If

Cells(Row, 11).Value = Быки ' запись быков и коров в ячейки

Cells(Row, 13).Value = Коровы

If Быки = 4 Then

Проверка = True ' 4 быка - окончание игры

Else

End If

Dim Число As String

Число = ""

For I = 1 To 4 ' преобразование числа в строку

Число = Число + Str(Цифры(I))

Next I

Dim fso ' переменная для ссылки на ActiveX элемент доступа к файлам

Set fso = CreateObject("Scripting.FileSystemObject") ' создать объект доступа к файлу

If fso.FileExists(Application.DefaultFilePath & "\BC.txt") Then ' если файл BC.txt существует,

Call Shell("C:\WINDOWS\NotePad.exe BC.txt", 1) ' то вызвать Блокнот с протоколом

End If

Const ForAppending = 8

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(Application.DefaultFilePath & "\BC.txt", ForAppending, True, 0)

Line = "Дата " & Str(Now()) ' вычисление и запись

f.WriteLine Line ' даты в файл протокола

Line = "Ваши числа Б К" ' запись заголовка

f.WriteLine Line ' в файл протокола

For I = 4 To 22 Step 2

Line = " " ' формирование строки чисел

k = 0

Line = Line + " " + Str((Cells(I, J).Value))

k = k + 1

If k = 4 Then Line = Line + " " ' сдвиг цифр Б и К вправо

Next J

f.WriteLine Line ' запись строки в файл протокола

Line = "Загаданное число:"

For I = 1 To 4 ' формирование строки чисел

Line = Line + " " + Str(Цифры(I))

Next I

f.WriteLine Line ' запись строки в файл протокола

f.Close

После этих действий сохраните xls-программу в файл, закройте его и выполните первую загрузку программы. По событию "открытие книги Excel" будет запущена подпрограмма Auto_open(), которая в свою очередь вызывает подпрограмму НоваяИгра(). НоваяИгра() загадывает 4 разные цифры, обновляет игровое поле и устанавливает координаты первой позиции в глобальные (Public, доступные из всех подпрограмм) переменные Row и Col. Подпрограмма НоваяИгра() также вызывается по нажатию одноименной кнопки. Применяемая здесь процедура Cells() использует R1C1-стиль обращения к ячейкам, функция RGB устанавливает цвет ячеек.

На нажатие цифровых кнопок реагируют подпрограммы Кнопка0() - Кнопка9(). Они передают соответствующую цифру в подпрограмму ОбработкаЦифры(), которая записывает цифру в нужную ячейку, по координатам (Row,Col). В подпрограмме ОбработкаЦифры() проверяется, ввел ли игрок все 4 цифры, если да, то вызывается подпрограмма Расчет().

Вся расчетная часть программы выполняется в функции Проверка(). Она выполняет 3 основных действия: вычисляет количество быков и коров, записывает их в ячейки игрового поля, возвращает значение True (Истина) при вычислении 4-х быков, иначе возвращает значение False (Ложь). Подпрограмма Расчет(), проверяющая функцию Проверка(), либо заканчивает игру с сообщением "Вы выиграли", либо переходит на ввод новой строки цифр, либо выводит сообщение "Вы проиграли! Загаданное число: хххх" в случае 10-ти неверных попыток.

Подпрограмма ПросмотрПротокола() проверяет наличие файла BC.txt в папке Excel по умолчанию (в MS Office 2000 это C:\Windows\Personal) и запускает программу блокнота NotePad.exe.

Подпрограмма СохранитьПротокол(0) открывает текстовый файл для добавления и записывает туда протокол игры в виде: