|
|
遇见一个难题,请教各位高手。( E% F! K( Q, F9 Z3 p d/ G* p
8 q' m3 a X+ o
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。! y" j6 e8 K# G" h. H
& l: y( p- G4 z
需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。; y( Z: F1 _7 s3 c% u( e
; h1 L8 |& h4 b" Q, p* z! L: r
is
$ o" U! C: v" K7 |: V3 O& y$ } i,m: integer; -- 整数变量
" L* [" u$ Y* s& R2 R6 y# P5 t1 s Name:string; -- 字符串变量
0 [ P2 k& F; t Obj:Object; -- 对象类型变量/ m: l, K/ I7 \6 K& Y
/ ]* O" L# Z* z v0 _
do% d+ t' K7 o. d. r0 `
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
$ {1 O7 O {1 `& s+ F- n- o Name := sprint("BA", m); -- 生产线名称
$ D1 b/ H2 X- M Obj := str_to_obj(Name); -- 转换成对象变量. l" \+ H/ R" I% e
) f3 e- A4 w/ |( ] M; j FOR i:=1 to 100 LOOP" ^2 F% I j j0 T
waituntil OBJ.occupied prio 1;
! `% N/ I: _0 _9 c' ~6 ~ OBJ.cont.move(@); + F) Z2 Y9 V0 b6 g
0 B) U- s! E" k" l
NEXT;
6 Q6 X( D. x* B. V3 k @.backwards:=false;
( n4 k C, u& Z0 Q! u- K$ g+ C# L4 aend;
0 {1 D @ A& |# X3 _' d# P |
|