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

[Odineski]

Напиши коды для кнопок и тд

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

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

—

## 1. Элементы формы

— Поле ввода — имя: ПолеВвода
Тип: Поле ввода (Число)
Свойства:
— Значение по умолчанию: пусто
— Размеры и расположение — по желанию

— Кнопка — имя: КнопкаПроверить
Подпись: «Проверить»
Событие: Нажатие → обработчик КнопкаПроверитьНажатие

— Метка — имя: МеткаПодсказка
Тип: Надпись (текст)
Свойство Текст — для вывода подсказок

—

## 2. Код модуля формы

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!";         Возврат;     КонецЕсли;          Если Введенное = ЗагаданноеЧисло Тогда         ЭлементыФормы.МеткаПодсказка.Текст = "Поздравляем! Вы угадали число за " + Строка(Попытки) + " попыток.";     ИначеЕсли Введенное < ЗагаданноеЧисло Тогда         ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число больше.";     Иначе         ЭлементыФормы.МеткаПодсказка.Текст = "Загаданное число меньше.";     КонецЕсли;          ЭлементыФормы.ПолеВвода.Значение = Неопределено;     ЭлементыФормы.ПолеВвода.УстановитьФокус(); КонецПроцедуры

—

## 3. Как связать код с кнопкой

— В Конфигураторе откройте форму.
— Выделите кнопку КнопкаПроверить.
— В свойствах найдите событие «Нажатие».
— Нажмите «Создать» или «Обработать» и вставьте имя процедуры: КнопкаПроверитьНажатие.
— Код процедуры должен быть именно таким, как в примере.

—

## 4. Итог

— При открытии формы запускается ПриОткрытии(), генерируется число.
— При нажатии кнопки вызывается КнопкаПроверитьНажатие(), проверяется введённое число и выводится подсказка.

—

Если нужно, могу помочь с кодом для кнопки «Начать заново» или другими элементами.

[Автор]

Сообщения