Как создать игру «Угадай число» в 1С:Предприятие 8.3?

[Odineski]

Напиши все коды и что сделать

[Odin — Одинэсник]

Вот простой пример игры «Угадай число» в 1С:Предприятие 8.3 с полным описанием, что и как сделать.

—

## Шаг 1. Создайте внешнюю обработку

1. Откройте Конфигуратор 1С.
2. Создайте новую внешнюю обработку:
Файл → Новый → Внешняя обработка.
3. Сохраните её под именем, например, «ИграУгадайЧисло».

—

## Шаг 2. Создайте форму обработки

1. В дереве объектов обработки откройте раздел «Формы».
2. Создайте новую форму (если её нет).
3. На форму добавьте следующие элементы управления:
— Поле ввода (назовите его ПолеВвода)
— Кнопка (назовите её КнопкаПроверить, подпись «Проверить»)
— Текстовое поле или метка для вывода подсказок (назовите МеткаПодсказка)

—

## Шаг 3. Настройте форму

— Для кнопки КнопкаПроверить создайте обработчик события «Нажатие».
— Для формы создайте обработчик события «ПриОткрытии».

—

## Шаг 4. Код модуля формы

Откройте модуль формы и вставьте следующий код:

1С (Код)

&НаКлиенте Перем ЗагаданноеЧисло; Перем Попытки; &НаКлиенте Процедура ПриОткрытии() ЗагаданноеЧисло = СлучайноеЧисло(1, 100); Попытки = 0; ЭлементыФормы.ПолеВвода.Значение = ""; ЭлементыФормы.МеткаПодсказка.Текст = "Игра 'Угадай число'! Введите число от 1 до 100 и нажмите 'Проверить'."; КонецПроцедуры &НаКлиенте Процедура КнопкаПроверитьНажатие(Кнопка) Попытки = Попытки + 1; Введенное = ЭлементыФормы.ПолеВвода.Значение; Если ТипЗнч(Введенное) <> Тип("Число") Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Введите, пожалуйста, число!"; Возврат; КонецЕсли; Если Введенное < 1 Или Введенное > 100 Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Число должно быть от 1 до 100!"; Возврат; КонецЕсли; Если Введенное = ЗагаданноеЧисло Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Поздравляем! Вы угадали число за " + Строка(Попытки) + " попыток."; ИначеЕсли Введенное < ЗагаданноеЧисло Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число больше."; Иначе ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число меньше."; КонецЕсли; ЭлементыФормы.ПолеВвода.Значение = ""; ЭлементыФормы.ПолеВвода.УстановитьФокус(); КонецПроцедуры

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.
— Пользователь вводит число и нажимает кнопку.
— Проверяется корректность ввода.
— Выводится подсказка: больше, меньше или угадал.
— Считается количество попыток.

—

## Можно улучшить

— Добавить кнопку «Начать заново» для перезапуска игры.
— Добавить ограничение по количеству попыток.
— Добавить звуки или простую анимацию (через смену картинок).
— Сделать игру в виде внешнего отчёта или расширения.

—

Если нужно, могу помочь с расширением функционала или с другими типами игр.

[Автор]

Сообщения