|
|
遇见一个难题,请教各位高手。
$ o- t* i/ u5 c- x, d; @. Q8 L* R7 i) g) ?+ p" L+ c& N) n
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。3 r$ O A- [7 Z* [4 P+ b1 s; s5 \
3 B, I# _8 c) Q5 P8 f5 f1 l需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
# j2 }. _) y5 ^& S% y; o( w
% k! ~$ S) O E) Q9 V2 |& } is
; K# R; }- [+ a1 d: o i,m: integer; -- 整数变量; T+ L; i6 l1 k9 W$ K9 ~2 z/ \ j
Name:string; -- 字符串变量' }- K* F9 T- v1 Y
Obj:Object; -- 对象类型变量* `9 X8 B. T* Q! B: V9 V4 i
' ^7 B! L0 R! W4 Z! y; f
do( g' D5 f, A8 l4 M/ r& z% I9 u
m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型% a/ }0 d% z5 N: ~5 h: E# k
Name := sprint("BA", m); -- 生产线名称
4 j1 ` p1 o1 t+ _/ o Obj := str_to_obj(Name); -- 转换成对象变量1 j R, X% s2 I. N8 X e! I
( W; r r* r3 r2 S5 Q+ q
FOR i:=1 to 100 LOOP
2 T5 S7 Q u% \( a3 J) E waituntil OBJ.occupied prio 1;# v& Q; k: f3 C3 V) I% m. e
OBJ.cont.move(@); ' R l5 [$ Y! Q) d0 G* b" N% Q# e
6 H5 M+ Z8 F7 j NEXT;
! t. W/ _/ _- X4 ?* N5 N$ Q6 k @.backwards:=false;
# c5 ]7 V& C' m# A6 j6 ~# Nend;. V" q: ^3 A# N7 k" @
|
|