|
|
遇见一个难题,请教各位高手。
" G' X" J3 R6 s3 O3 u. E% `7 z$ q7 v
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。* L' s4 }! A* W f8 o
9 b+ p: b0 m( {. S需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。7 S: b- c' u1 v b v* N4 N7 {
6 t4 T2 b; i3 W9 J8 {- Y
is- m, a7 H2 T$ k, |8 N2 n4 b9 G" S
i,m: integer; -- 整数变量, { \: e5 e$ U6 T& j9 t
Name:string; -- 字符串变量
/ u2 _% w# J" q6 y" ?$ L Obj:Object; -- 对象类型变量4 I9 Y9 ^; P5 o
( ]4 Y5 l% h1 D, y% |- {/ `do
5 D' r! j f% X3 H# j m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型 F r* l5 C( k# L& x; b4 B
Name := sprint("BA", m); -- 生产线名称
5 ]/ S" J9 ?& c- M* C" T* P' \ Obj := str_to_obj(Name); -- 转换成对象变量
. }3 M: D1 p; @8 N, X3 r4 `7 w$ j
( X, R/ F& c! t FOR i:=1 to 100 LOOP4 N1 O, w$ c' C" }' ?
waituntil OBJ.occupied prio 1;$ q: G! Q1 f- O* \, I# V
OBJ.cont.move(@);
# c& {7 F( |2 Q9 b0 m
6 M7 C; ^- t5 g1 Y NEXT;
& h- M, ~# O# g# s6 ^/ I) D @.backwards:=false;% F( u: m! r+ M0 }1 x" a3 Z7 c1 i; q
end;
1 A% F7 k' V7 x! ^/ Z |
|