1
Общие вопросы / Очередь последовательно выполняемых процессов
« on: November 23, 2017, 04:56:45 PM »
Задача
Есть однотипныe процессы отличающихся только временем выполнения
Есть небходимость выбирать каждыйраз разные и запускать на выполнение
Я выбираю их в файл Products.txt и далее смотрите код
Для пары процессов годится и то что я написал, а что делать если их порядка сотни ? (запускаются последовательно)
Есть однотипныe процессы отличающихся только временем выполнения
Есть небходимость выбирать каждыйраз разные и запускать на выполнение
Я выбираю их в файл Products.txt и далее смотрите код
Для пары процессов годится и то что я написал, а что делать если их порядка сотни ? (запускаются последовательно)
Code: (clickermann) [Select]
SUB(make)
print ($Product)
END_SUB
SUB(mysub)
IF ($Product = "Bread")
IF($time_Bread < $_time_t)
make ()
$time_Bread = $_time_t + $t_Bread
END_IF
wait (1)
END_IF
IF ($Product = "Cheese")
IF($time_Cheese < $_time_t)
make ()
$time_Cheese = $_time_t + $t_Cheese
END_IF
wait (1)
END_IF
END_SUB
//---------------------------------------------
TFREADARR("Products.txt", $Products)
$t_Bread = 1 // Эти парметры тут указаны для примера,их значения записаны в
$t_Cheese = 5 // соответстующей строке ini-файла, типа Хлеб=Пекарня;1;1;240
// Хлеб делается в Пекарне 240 секунд ($t_Product = 240)
FOR($i=0, $i < ARRSIZE($Products))
$Product = $Products[$i]
mysub()
END_CYC