|
|
遇见一个难题,请教各位高手。
4 A# R& _# n9 P, G$ a I* |
: z1 ]) R# Y7 C6 e4 q6 E7 g使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。0 m; @" n7 U- K8 x8 p/ i: ^$ c
" k) J1 ]7 W% c7 V% L$ B
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。. y6 D0 Y/ Q: q# h' h! i( X" Y
" o: \! m, ~% `& n2 n8 O7 x
is
0 F) s4 D8 [% c# F2 F# r9 O" e) @5 \! z i,m: integer; -- 整数变量
# A5 [. h, S; x& t y1 U- m, M Name:string; -- 字符串变量
2 T5 F6 a+ c/ I5 S- b2 S( f Obj:Object; -- 对象类型变量( a7 Z2 q4 _8 I, J
- u* X2 M' T, X# w5 J' u
do R+ e- B; N! r" w9 j1 O' D3 C) D3 u
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型0 ~5 |: K& S ~! t9 |' s" S! y
Name := sprint("BA", m); -- 生产线名称
8 O5 ^5 ^4 ^; g1 F* n9 w- j1 c Obj := str_to_obj(Name); -- 转换成对象变量, P' Z. J$ X' F
; y7 E( W' H7 Q4 [+ I FOR i:=1 to 100 LOOP9 p1 `3 _+ d4 ^& G
waituntil OBJ.occupied prio 1;5 s8 P; }9 r" e5 K
OBJ.cont.move(@);
# y2 g1 [7 D0 L4 r7 o4 f4 [! ~* D / Y3 h* j- l% Q: o
NEXT;
! P+ D" S4 V, O" H: r @.backwards:=false;
. `. [; v, K3 _% D0 xend;
/ e/ \+ p/ {) ?2 t* H C8 N& ^ |
|