设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 3470|回复: 0

[求助] 仿真出错,求大神帮我看看哪里错了

[复制链接]
发表于 2015-5-10 17:46:09 | 显示全部楼层 |阅读模式
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。4 z/ k, K4 S4 ]# K* R# y) f
语句是这样的
/ L' X5 p; F! uis. F  n' J6 d9 G& F
        i:integer;
$ H/ ]3 D; R- r$ S% s9 H% b7 V& d        Res:string;' W4 s$ _4 q( R8 D5 V
        obj:object;* A% V: f: c) A- ^3 g
do
4 _2 k' O; p% B3 I0 d6 Y        if existsObject("Status") then0 {( E/ q! d: D4 r8 q7 ~$ t1 |; i
                Status.deleteObject;0 n/ b8 i" t' N  B# J
        end;7 k  Y8 L6 H5 }7 {
        for i:=1 to 10 loop* Q- F- ]' \9 h8 f" l- N1 B5 I: B
                Res:=sprint("Store_",i);) O- S& b4 W+ a4 c& k4 k
                if existsObject(Res) then$ h( J2 a, H+ e9 l2 s: S: |' B
                        Obj:=str_to_obj(Res);
9 S* S) u4 t, r7 O* a                        Obj.deleteObject;
' r* e' h8 W6 G5 n. ~  _                end;# Z3 x9 o& {( @% }2 R# S
        next;
* S# j- j6 K( I6 a" l        --shengcheng Status:zimoxingceng* }; W( y' Y4 b- c' |4 x* @) T
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");) A# y$ t+ p9 L: X
        Obj.Label:="warehouse status";
. M6 P; `" L8 u8 J, K% K5 ]4 E       
3 G- K' W. n+ u) _        for i:=1 to WH_nums loop
' S4 a: @7 H2 q: m$ A- l                Res:=sprint("Store_",i);5 I6 a/ ~7 E$ _" _" [. i7 b8 N5 N- y
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 }! v2 p( u1 i9 Y                Obj.Label:=sprint("huojiaceng:",i);
) k' q+ |1 Y) _2 c" h6 I                Obj.xDim:=WH_x;( j) {* O/ ~2 C
                Obj.yDim:=WH_y;
+ g& j- V. f+ c3 T2 J                Res:=sprint("StoreData_",i);2 m  l0 R5 p) ?, {- {
               
3 Z0 B0 }% b2 B7 i/ I                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);. K4 I6 E/ A1 e4 v) f
                Obj.Label:=sprint("huojiaceng:",i);( Z5 n: h. F5 i% c
                Obj.inheritFormat:=false;  E0 g  }6 M+ I9 r9 H
                Obj.maxxDim:=WH_x;' y* g: i8 m* Z# D7 K
                Obj.maxyDim:=WH_y;
4 [/ E3 z" g8 @$ \5 W2 h) ?5 U% w- J                Obj.ColumnWidth:=3;& W& T. p8 Z" e8 B
        next;( h5 U; w1 ~' ]9 R: w# U
        / P, X/ a' P$ O8 y7 S' Z
        .Delivery.MUs.Forklift.speed:=2;
; e# {6 ^4 ~' T+ H. d$ l        WH_var.delete({1,Part_Nums+1}..{*,*});9 m- q  h* y$ t, O) n$ H
        for i:=1 to Part_Nums loop( @  @9 N% K, F+ A9 r) {0 W* P- E
                WH_var[1,i]:=chr(64+i);9 T0 E( ~% K/ p0 }5 _0 ~
        next;; y' q7 U  i% [, F, R
end;
7 v3 W$ S7 h! `! c, r( Q0 U出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了
2 e0 h+ Z5 G2 y3 x% h6 z7 j% }2 |) Z  g2 I6 V8 v

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-3-5 16:02 , Processed in 0.019560 second(s), 18 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表