设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 3741|回复: 0

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

[复制链接]
发表于 2015-5-10 17:46:09 | 显示全部楼层 |阅读模式
我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例,在8.2.2里需要生成仓储货架层,我按照书上的语句输进去之后结果在22行出错了。
( b$ X; s6 T% t/ ?' H# s  G/ `4 b语句是这样的
0 x  P# b  a% t$ A, {+ Yis
1 \$ R) @0 y; X, k! S        i:integer;$ F: z' c4 r; h3 h1 V+ r6 `
        Res:string;
7 g/ r* ]4 R3 _' e        obj:object;
0 F; ?; B& V2 n9 Z+ D0 M3 A/ Gdo
; O! ^( A: e9 G4 R2 L/ P2 m        if existsObject("Status") then
) i9 i6 X6 ~2 ]  g6 z                Status.deleteObject;, t# I1 t+ o) H" c
        end;+ e0 y1 _8 Q1 M! f! {6 w
        for i:=1 to 10 loop
2 ^4 ~% J) U" t6 i                Res:=sprint("Store_",i);
. v! e  g  @0 D  w- z" w                if existsObject(Res) then
5 R& x, f3 ]! `9 l! q* r8 T" B* {                        Obj:=str_to_obj(Res);
& k7 w( ^: _' p+ n+ T, o1 U4 n7 {4 z% [' [                        Obj.deleteObject;; @4 c3 \+ e3 C9 e4 a- M
                end;6 t& a- }) l# f% G( F: h. ?
        next;
) @. c+ s* U& m; R        --shengcheng Status:zimoxingceng
  H' S$ `, X& U5 n5 X$ v4 E        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");; r2 C& @$ p5 w3 o8 Q
        Obj.Label:="warehouse status";/ ^/ T# @5 m6 X8 ~' u& T+ D
       
) Q; l& \" V+ G. T! [" [, ~        for i:=1 to WH_nums loop+ ?! N# M4 c  F' ^: ?0 b
                Res:=sprint("Store_",i);( r  ]  K2 p* S' V5 ~- m1 G& @' }& V
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);  H1 F' h7 S+ C8 s2 Y2 T
                Obj.Label:=sprint("huojiaceng:",i);# T$ Y/ Y9 O7 \& r/ ^/ j7 p( r
                Obj.xDim:=WH_x;
+ S! t( ^8 E! U* |+ |                Obj.yDim:=WH_y;# O* }! T; T! Y% V, L
                Res:=sprint("StoreData_",i);1 ^& U; l) ?$ j% ?1 A2 y; G, W6 G+ `
               
! @% `6 L0 _+ g' M                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 J5 J2 R) I4 o+ D7 J% k2 m1 e                Obj.Label:=sprint("huojiaceng:",i);$ }' X) I4 j. C" ]6 T
                Obj.inheritFormat:=false;
- d( f9 y% o2 {3 V! z8 |1 B9 B                Obj.maxxDim:=WH_x;
$ _0 d+ l) D, n; G) P2 H9 K" x5 |                Obj.maxyDim:=WH_y;+ q, V- C2 X9 Q4 r1 W
                Obj.ColumnWidth:=3;7 M: y) @+ Y$ M) p0 o
        next;
1 E8 b4 j& W- ~$ h       
3 n3 E+ I1 E' b* b1 V  x! G        .Delivery.MUs.Forklift.speed:=2;
2 Q, X* v8 Q) y. d. E        WH_var.delete({1,Part_Nums+1}..{*,*});2 _4 s0 @- h  G$ P8 @+ m
        for i:=1 to Part_Nums loop! h* Q! {: ^, m" `  V
                WH_var[1,i]:=chr(64+i);
& o4 C" R  G7 a        next;8 a6 _( S) {& I  e- O
end;
& _8 w/ J1 v% l. a: Q; c. k# d, T出错的截图在这里。这些语句可以生成出来子模型层Status,但是生成不了货架层,错误显示说是unknown identifer res.求大神帮忙看看!!!多谢了$ J+ m; b3 }+ s. G3 q9 o

7 y6 n/ D+ H& I4 ]' l

本帖子中包含更多资源

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

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

本版积分规则

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

GMT+8, 2026-4-19 22:41 , Processed in 0.019210 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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