Ввод чисел пользователем #753896


#0 by Murphy
Недавно начал изучать 1С, столкнулся с такой задачей: Необходимо несколько раз открыть пользователю форму для ввода числа, а после посчитать сумму этих чисел и вывести на экран. Ввод двух чисел реализовать получилось, но как сделать для 3-х и более, тут у меня никак не получается сообразить. Подскажите, пожалуйста, правильный подход для решения такой задачи. Собственно сам код для ввода двух чисел:
#1 by Волшебник
Издевательство какое...
#2 by Ненавижу 1С
Если Число1 = Неопределено Тогда      Если НЕ Число1 = Неопределено И НЕ Число2 = Неопределено Тогда если все же, как говорится
#3 by VitShvets
Можно забахать таблицу значений с одной колонкой типа число и таким количеством строк, сколько надо ввести чисел. Потом в цикле обходим, спрашиваем Число + СокрЛП(НомерСтроки). Ну и в конце ТаблицаЗначений.Итог("Колонка")
#4 by фобка
Здесь ошибка, должно быть ВводЧислаЗавершение(Число2, Число1)
#5 by фобка
Конструкция примерно такая Показатьвводчисла(опоп, );... Конецпроцедуры Конецпроцедуры
#6 by Murphy
Интересный вариант, только с таблицами значений я пока не сталкивался, надо будет почитать. Ну мы их все равно суммируем, поэтому с порядком я не заморачивался. А что такое "сумма1" и откуда оно взялось? К сожалению не очень понял смысл кода.
#7 by фобка
это твой результат. Сумма всех введенных значений. Ты получаешь его после того как прекратишь ввод чисел
#8 by фобка
Этих двух процедур достаточно для ввода любого количества значений и получения результата их суммирования. Вот и весь смысл кода
#9 by Murphy
Ваш пример навел на мысль и получилось такое: и т.д. В принципе цель достигнута, таким образом можно сколько угодно окон наплодить, но теперь интересно другое.   В моем нынешнем варианте для каждого окна используется своя уникальная процедура. А реально ли обойтись только 2-мя процедурами или это будет слишком сложно?
#10 by фобка
реально, это и описано в . Две процедуры на любое количество значений
#11 by Murphy
Можете описать подробнее? Не понимаю как в этом случае первая процедура должна работать.
#12 by фобка
с телефона пишу, неудобно мне. Но повторюсь &наклиенте
#13 by фобка
Если первая процедура не подхватывается командой -изза параметра, тогда просто вынести в аналогичную и вызвать
#14 by Murphy
Блин, вот я тапок, невнимательно смотрел на 2-ю процедуру. Теперь все ясно, спасибо!
Тэги: 1С 8
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С