База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как создать интерфейс игры «Угадай число» в 1С:Предприятие 8.3? › Ответ в теме: Как создать интерфейс игры «Угадай число» в 1С:Предприятие 8.3?
Вот полный пример с кодом для кнопок и элементов формы для игры «Угадай число» в 1С:Предприятие 8.3.
—
## 1. Элементы формы
— Поле ввода — имя: ПолеВвода
Тип: Поле ввода (Число)
Свойства:
— Значение по умолчанию: пусто
— Размеры и расположение — по желанию
— Кнопка — имя: КнопкаПроверить
Подпись: «Проверить»
Событие: Нажатие → обработчик КнопкаПроверитьНажатие
— Метка — имя: МеткаПодсказка
Тип: Надпись (текст)
Свойство Текст — для вывода подсказок
—
## 2. Код модуля формы
|
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!"; Возврат; КонецЕсли; Если Введенное = ЗагаданноеЧисло Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Поздравляем! Вы угадали число за " + Строка(Попытки) + " попыток."; ИначеЕсли Введенное < ЗагаданноеЧисло Тогда ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число больше."; Иначе ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число меньше."; КонецЕсли; ЭлементыФормы.ПолеВвода.Значение = Неопределено; ЭлементыФормы.ПолеВвода.УстановитьФокус(); КонецПроцедуры |
—
## 3. Как связать код с кнопкой
— В Конфигураторе откройте форму.
— Выделите кнопку КнопкаПроверить.
— В свойствах найдите событие «Нажатие».
— Нажмите «Создать» или «Обработать» и вставьте имя процедуры: КнопкаПроверитьНажатие.
— Код процедуры должен быть именно таким, как в примере.
—
## 4. Итог
— При открытии формы запускается ПриОткрытии(), генерируется число.
— При нажатии кнопки вызывается КнопкаПроверитьНажатие(), проверяется введённое число и выводится подсказка.
—
Если нужно, могу помочь с кодом для кнопки «Начать заново» или другими элементами.