|
|
遇见一个难题,请教各位高手。
$ N, G# a: O. e$ @9 ?# q: n- f
5 y' K8 I# v5 K- p/ w+ P使用transporter将物料从A点运送到B点,通常情况下,每次运输100件,但是运输几次后,剩余的产品不够100件(例如订单总数是220件,第一次运输100件,第二次运输100件,第三次只有 20件可以运了),当运行到第三次的时候,仿真就停滞了,无法继续下去。不知道如何修改程序(我现在的程序如下)。
7 ]& {$ j5 U2 M+ n+ `- l
* h K5 S4 x# w/ N/ A4 J5 j+ q需要说明的是,A点的运输量不是固定的,因为有两台并联的机器,因此我无法通过表格直接得出已运送量和未运送量。! A3 C8 W; E X) u9 Z0 a
& w) [9 f* h3 G# X* z$ M5 p is
: s. H7 u" `8 X3 i- X% T# @ i,m: integer; -- 整数变量# ~6 B+ c. w' A; G7 H9 z
Name:string; -- 字符串变量
- E# e; Y: L! j! Q7 u Obj:Object; -- 对象类型变量
3 q& x& z" O& t5 K9 M& x% q; M( Z: t
do
! q- ~ k* Q1 N2 ] m := str_to_num(omit(?.Name,1,1)); -- 先取Drain*后面的数字,在转换成整数类型8 i) s) m( _1 p6 K2 r* R1 g
Name := sprint("BA", m); -- 生产线名称
8 ]% x$ T( S3 y4 z. j5 n/ n. F Obj := str_to_obj(Name); -- 转换成对象变量9 b4 Z" `1 J* l8 z& K
& d( y/ r" X& n# M4 @5 K& }" l
FOR i:=1 to 100 LOOP+ C- V9 Y' D$ m% i
waituntil OBJ.occupied prio 1;9 w' }* k0 l! |9 @8 P5 k! ^! {
OBJ.cont.move(@);
$ j3 }1 j' p( c; q7 p2 Q % V( G6 ^; g( P$ [
NEXT;
3 u( e7 l5 U7 p4 `; w3 K. s @.backwards:=false;
6 H# v* P% b$ {. E& Hend;
1 f7 c7 s, W) s) ^9 M% w- F: }1 f3 C |
|