|
|
遇见一个难题,请教各位高手。, F2 k; H- } T4 a$ P5 `
% G6 I( n& a5 |" ?6 j1 c- C
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
( y5 x7 @4 f" k8 y/ E; Y
; q6 i& r: ^0 q# g* @& W$ I' S需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。' }* g* z" Y; q0 ]: W, N
$ l5 D. {8 p1 g9 d k( ~: d8 D* H is/ a& V7 l) i: b% P+ w- {7 N
i,m: integer; -- 整数变量
: M& \4 g0 r# D( p! g* k: ] Name:string; -- 字符串变量
! V: Q3 I, G) ^+ @+ C4 { Obj:Object; -- 对象类型变量
- P# F0 N$ d$ D0 U. [
" t: n, {- u8 v; fdo
# e4 L2 c2 O) d* m! T) b m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
. L5 ~2 |$ M. p% Y Name := sprint("BA", m); -- 生产线名称$ v1 f1 t9 g; E9 a7 B2 x. l, M
Obj := str_to_obj(Name); -- 转换成对象变量( U% U9 V6 V5 m0 V
w3 v9 k5 s- v" k4 _ FOR i:=1 to 100 LOOP
/ v3 q: s2 H8 Q% v' {& d waituntil OBJ.occupied prio 1;9 ^# Q7 \. O7 O! D/ \
OBJ.cont.move(@); 1 |3 Y& _6 r+ s' L& Y9 m
: q5 k8 b$ u; W& F; i( g1 P B3 R NEXT;
$ \2 t: g' @- `9 y5 A! }0 ] @.backwards:=false;
. U. C, V5 `7 b* s. Pend;. u( ], n2 j5 Y+ W7 G) l$ g7 N
|
|