|
遇见一个难题,请教各位高手。 y' S W% y7 j' h. c9 ?7 K
' f8 T) w3 V e9 g+ l使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
! \3 I9 H* [- Z/ T: I7 J2 Z2 |" R
8 f; P' f( ~, Y# D3 S% B1 O需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
# ]: S/ F# A1 F; d7 W* A6 \, o* ^, [' W1 y& s
is
" G0 C' L9 z' N. U; l# y! J7 B+ @ i,m: integer; -- 整数变量8 @, o: D9 U! x* j0 i* P
Name:string; -- 字符串变量
8 V1 f( M/ I3 x [ Obj:Object; -- 对象类型变量# f `! E S8 r, o: C
% ^/ C8 k8 L( z# @" N6 |3 n% X5 wdo8 }0 `* J/ Z5 ]3 p. l6 ^- G! Z
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型& m6 I4 Y& H1 s b5 e
Name := sprint("BA", m); -- 生产线名称
+ {+ U: n# }. \/ H: D7 |" P Obj := str_to_obj(Name); -- 转换成对象变量
/ u! I, H! f. g/ ^ 5 }$ p, U1 Q2 n4 E, q8 |: U% o
FOR i:=1 to 100 LOOP3 k9 {; q& M, M) d" m) Z- z
waituntil OBJ.occupied prio 1;
! B5 o" ?8 K& s4 H. q9 I OBJ.cont.move(@); ' e3 L8 m) }1 Y. _. y1 H4 I5 k2 j
0 ? b5 _/ @7 X9 L; j& C NEXT;2 s% m9 j1 d9 A8 a
@.backwards:=false;
9 R8 |# h( B1 g1 fend;
8 S: C) F) M8 } |
|