|
|
遇见一个难题,请教各位高手。
8 o$ m. N c5 e- V1 v' V+ m6 o# e
使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
8 k1 S! Q: m" B5 i4 {1 N& w/ o
) t8 }6 @: j3 i G需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。
: ?0 K1 f k" o G% B. _
3 T4 I; s5 Q$ @* U" t& R is# H( w! V, f2 i
i,m: integer; -- 整数变量
- j8 |+ G2 m9 Z7 x Name:string; -- 字符串变量' L8 s) d$ h2 J( f r+ O; N0 l
Obj:Object; -- 对象类型变量 |' r8 U$ |* t9 a+ N/ N
; u5 l" e0 W+ Vdo
7 x4 ^2 a5 t& J1 d m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型
* \3 Z6 a# a" G Name := sprint("BA", m); -- 生产线名称
$ |* H' D Q& s* }2 F- R9 _& v; M* e Obj := str_to_obj(Name); -- 转换成对象变量
$ m7 N7 H/ @% K$ d1 h: c& s) {
+ u- U5 c3 \9 |+ O FOR i:=1 to 100 LOOP( E m4 c ^7 b/ O! e$ [
waituntil OBJ.occupied prio 1;% n6 T+ B& F5 ?, E0 ^
OBJ.cont.move(@); & U: T' {4 }2 Z( j6 K- F2 @$ B
+ J8 o$ F; B+ B% K) P2 a2 F: ~# N NEXT;
9 B, v9 x: I- j3 |* Z- m h @.backwards:=false;
; b" d& J- r$ E5 j5 C9 x: Wend;
+ P' b* ] i5 E& @/ L9 _ |
|