Создать функцию на ST

[melky]

а я думал exit относится к case, но суть в другом, case это набор констант в некотором роде, зачем вы его в цикл, даже если у вас единственная итерация ?

з.ы. я не знаю, как там в C, но в C# вроде из switch case все таки выходят при найденном при помощи break. Может конечно еще какие реализации существуют, надо посмотреть...

[Andrey G]

а я думал exit относится к case, но суть в другом, case это набор констант в некотором роде, зачем вы его в цикл, даже если у вас единственная итерация ?

з.ы. я не знаю, как там в C, но в C# вроде из switch case все таки выходят при найденном при помощи break. Может конечно еще какие реализации существуют, надо посмотреть...

Так вы сами и ответили на свой вопрос )
В Си есть break; В ST аналогичной команды нет. Если поместить case в repeat - exit будет выполнять ту же функцию что и break в Си

[Andrey G]

а с чего Вы решили что ST это Си-подобный язык?
Вложение 62739

я такого не писал, Вам показалось

[Andrey G]

а зачем exit везде наставлены, потому что а так хотелось выйти из кейса?

ну да, хотелось выйти из кейса. Я с самого начала об этом и пишу.

[Andrey G]

так на скрине же пишеться о том что break не нужен, программа сама выйдет из кейса не выполнив нижеследующие, я об этом с самого начала не пишу, но такой код бесмсленный об этом упоминал и по поводу Вашего радостного согласия с Валенком, прочитайте справку из ОЛ, бесконечный это цикл или не очень Вложение 62740

Да, там ошибка в справке.
попробуйте такую функцию на холст кинуть. Будет ошибка "программа зашла в бесконечный цикл"

function function1: bool; 
    var_input 
        inputVariable : bool; 
    end_var
    repeat
        
    until false
    end_repeat
    function1 := true;
end_function

Я Вас использовать exit таким образом не агитирую. Обходитесь без него - прекрасно. Зачем и в каких случаях я им пользуюсь написал, так как были заданы такие вопросы

[Andrey G]

я за документацию не отвечаю, я ей обычно верю. Хорошо ошибка, тогда все работает и exit и тот способ который я бы использовал вместо констант

У Вас case 2: никогда не выполняется.
Это так же видно по тому что блок на выходе всегда дает 1. Если бы цикл выполнился дважды, было бы 2

    repeat
        count := count + 1;
        case count of
            2:
                exit;
            1:
                foo := true;     // в первый проход цикла попадаем сюда
            else
        end_case;
    until foo  // условие выполнилось, выходим из цикла

В остальном я сейчас так же делаю, поскольку exit не работает.
exit не работает, по крайней мере после выполнения кода ниже count = 2. Правда с поддержки написали что вроде бы починили в последней версии.

    repeat
        count := count + 1;
        case count of
            2:
                count := 100;
                foo := true;
                exit;
            1:
                foo := false;
            else
        end_case;
    until foo
    end_repeat

[Andrey G]

в эмуляции отредактировать с 1 на 3 и проверить необходмио 10 секунд, считаете это проблема

попробуйте перед exit присвоение сделать, как ниже
Блок будет выдавать на выходе 2 вместо 100

    repeat
        count := count + 1;
        case count of
            2:
                count := 100;
                exit;
            3:
                foo := true;
            else
        end_case;
    until foo
    end_repeat