16
Общие вопросы / Рандомный вызов подпрограмм без повторов
« on: December 12, 2018, 12:40:26 AM »
Здравствуйте.
Подскажите, как вызвать 21 подпрограмму в случайном порядке и при этом без повторов?
Поиском нашел похожий вопрос с вот таким скриптом:
Попробовал вот такой вариант, но он не работает:
Подскажите, как вызвать 21 подпрограмму в случайном порядке и при этом без повторов?
Поиском нашел похожий вопрос с вот таким скриптом:
Code: (clickermann) [Select]
$r = "ABCDEFGHIJKLMNOPQWVXYZ"
$a = STRLEN($r)
FOR($c, $c < $a)
$f = STRCUT($r, RND(1, STRLEN($r)), 1)
IF(STRLEN($r) > 1)
$r = STRFILTER($r, $f, 0)
END_IF
LOGWRITE($f)
WAITMS(50)
END_CYC
Но не могу сообразить как его использовать чтобы вместо LOGWRITE($f) вызывать подпрограммы.Попробовал вот такой вариант, но он не работает:
Code: (clickermann) [Select]
SUB(A)
//подпрограмма A
END_SUB
...
//и т.д. подпрограммы B-X
...
SUB(Y)
//подпрограмма Y
END_SUB
$r = "ABCDEFGHIJKLMNOPQWVXY"
$a = STRLEN($r)
FOR($c, $c < $a)
$f = STRCUT($r, RND(1, STRLEN($r)), 1)
IF(STRLEN($r) > 1)
$r = STRFILTER($r, $f, 0)
END_IF
STRCONCAT( $f,() ) // не работает - подпрограммы не вызываются
WAITMS(50)
END_CYC