База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как создать игру «Угадай число» в 1С:Предприятие 8.3? › Ответ в теме: Как создать игру «Угадай число» в 1С:Предприятие 8.3?
Вот простой пример игры «Угадай число» в 1С:Предприятие 8.3 с полным описанием, что и как сделать.
—
## Шаг 1. Создайте внешнюю обработку
1. Откройте Конфигуратор 1С.
2. Создайте новую внешнюю обработку:
Файл → Новый → Внешняя обработка.
3. Сохраните её под именем, например, «ИграУгадайЧисло».
—
## Шаг 2. Создайте форму обработки
1. В дереве объектов обработки откройте раздел «Формы».
2. Создайте новую форму (если её нет).
3. На форму добавьте следующие элементы управления:
— Поле ввода (назовите его ПолеВвода)
— Кнопка (назовите её КнопкаПроверить, подпись «Проверить»)
— Текстовое поле или метка для вывода подсказок (назовите МеткаПодсказка)
—
## Шаг 3. Настройте форму
— Для кнопки КнопкаПроверить создайте обработчик события «Нажатие».
— Для формы создайте обработчик события «ПриОткрытии».
—
## Шаг 4. Код модуля формы
Откройте модуль формы и вставьте следующий код:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
&НаКлиенте Перем ЗагаданноеЧисло; Перем Попытки; &НаКлиенте Процедура ПриОткрытии() ЗагаданноеЧисло = СлучайноеЧисло(1, 100); Попытки = 0; ЭлементыФормы.ПолеВвода.Значение = ""; ЭлементыФормы.МеткаПодсказка.Текст = "Игра 'Угадай число'! Введите число от 1 до 100 и нажмите 'Проверить'."; КонецПроцедуры &НаКлиенте Процедура КнопкаПроверитьНажатие(Кнопка) Попытки = Попытки + 1; Введенное = ЭлементыФормы.ПолеВвода.Значение; Если ТипЗнч(Введенное) <> Тип("Число") Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Введите, пожалуйста, число!"; Возврат; КонецЕсли; Если Введенное < 1 Или Введенное > 100 Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Число должно быть от 1 до 100!"; Возврат; КонецЕсли; Если Введенное = ЗагаданноеЧисло Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Поздравляем! Вы угадали число за " + Строка(Попытки) + " попыток."; ИначеЕсли Введенное < ЗагаданноеЧисло Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число больше."; Иначе ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число меньше."; КонецЕсли; ЭлементыФормы.ПолеВвода.Значение = ""; ЭлементыФормы.ПолеВвода.УстановитьФокус(); КонецПроцедуры |
—
## Шаг 5. Запуск игры
1. Сохраните обработку.
2. Запустите её в режиме «1С:Предприятие» (кнопка «Запустить» в конфигураторе).
3. В появившейся форме введите число и нажмите «Проверить».
4. Следуйте подсказкам.
—
## Что происходит в коде
— При открытии формы генерируется случайное число от 1 до 100.
— Пользователь вводит число и нажимает кнопку.
— Проверяется корректность ввода.
— Выводится подсказка: больше, меньше или угадал.
— Считается количество попыток.
—
## Можно улучшить
— Добавить кнопку «Начать заново» для перезапуска игры.
— Добавить ограничение по количеству попыток.
— Добавить звуки или простую анимацию (через смену картинок).
— Сделать игру в виде внешнего отчёта или расширения.
—
Если нужно, могу помочь с расширением функционала или с другими типами игр.