设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7179|回复: 2

[求助] 程序问题

  [复制链接]
发表于 2015-11-3 14:58:43 | 显示全部楼层 |阅读模式
以下程序运行时显示有语法错误,我是新手,求帮忙看看哪里有语法错误5 H# C, u5 O5 B- W% b# U9 h
is' X! X+ V7 S5 X: c1 O
        i,j,Rows,Lines:integer;* b+ j/ N! P5 V2 W7 a$ N/ P; _  [
        MachineName,BufName:string;9 e: W) c" Z' v5 L7 M0 |  V7 @/ G
        Machine,Buf:object;
3 V; I* N- G+ J# q; hdo. e) {3 l+ y5 y+ p: ^: d  y
        if Number_Of_Machine/=D_From_To_Chart.YDim then6 O- j! ~( j5 p& W2 t- D
                inspect messageBox("Number Wrong...,",50,13)
- ]! y4 T" \: r# z                when 16 then( G8 v5 }* K) D1 M6 i" d6 U/ q
                        print "Yes";8 h, S6 l5 p7 J  W9 y% S
                when 32 then
- W( J$ s! @) t                        print "No";- q9 d# c/ g* k# B" W7 _4 {
                else
7 C' K# D+ r; t3 g, y                        print "Cancel";
; Y$ I9 L: k6 K- t, N! J/ W8 B7 }                end;
9 O! T+ ^/ y9 c+ j        EventController.stop;
! j! ^2 z7 i2 Iend;
; J' `, Z, g; KPartsTable.delete;
9 z' ?5 t* {* J' ?6 I/ K' F- tfor i:=1 to Number_Of_Machine loop
) D* [/ J, T) z/ h        for j:=1 to Number_Of_Machine loop
  E/ `3 y1 M' o  f/ F5 D                if j<i then
/ W' G8 w% @  m+ D3 a7 D                        if D_From_To_Chart[j,i]<=0 then
" L& q( s% h3 J' a$ b  Z* I                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 m; ^: M! |9 j/ M/ ^8 Z                        end;
' U+ \; w. P, a. \                else
5 L4 p# q. E! [. B) l/ U  P+ N                        if j=i then5 P. I6 j# f- _0 R
                                D_From_To_Chart[j,i]:=0;+ Z) `# ^) O& P  J5 ~
                        else& ]: v, L0 y! [* @0 Q/ ?$ r
                                if D_From_To_Chart[j,i]<=0 then
6 \/ F; z! \1 l2 t. r                                        messageBox("distence<=0...,",50,13);
& L' P8 c" d' k' q0 P                                        EventController.stop;) j0 {) ~+ P5 e8 C4 Q
                                end;, m6 K0 v+ o: N+ G
                        end;7 W: U9 C9 M" `! F: g9 @. x% D
                end;8 v( ?# T3 C9 F' c% r! `2 ?( N8 {1 y
        next;
8 h& |3 U% u6 C# M1 R6 Rnext;5 k5 t; y/ q" Y/ V' V
7 k+ S4 G* _1 H4 \* N0 ]! t; P
end;/ p6 W# Z/ V" T: i

) }: R* r- q, [6 n+ T* Q    Lines :=0;
& `5 z7 B3 U+ [1 K1 m        for i:1 to Number_Of_Machine loop
3 x4 u7 q. H9 e        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 `/ b! v$ H1 O% Z$ d+ Q7 ]# j! j" L        MachineSequence[2,i]:=Rows;
0 d$ w9 `" `1 d0 |            for j:1 to Number_Of_Machine loop
$ G+ {- s3 x6 e5 S/ |                    if W_From_To_Chart[j,Rows]>0 then
" J0 h+ }! b" W3 W                            Lines :=Lines+1;
* r" w/ ]* `! ~  Z                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));8 i: |3 p+ H" H$ _9 d* y; m
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];8 |% g6 Y7 w# Q
                        PartsTable[3,Lines]:=sprint("Parts");
0 T3 P( I' ]- z4 l& k. ^$ x: n                        PartsTable[5,Lines]:=Rows;
6 _* ]9 H/ O0 o: U  T                        PartsTable[6,Lines]:=j;. R& V4 _: h  J( z+ |
                end;
6 B% e9 u3 x1 j" k  @) C        next;
' k6 l* W( s( X+ ?, ^3 ], a        MachineName :=sprint("M",Rows);  m! ]& ~9 A* b2 l4 O& R
        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);1 o7 N* i& K( M/ S' m  ?) G
        Machine.Name :=MachineName;# ~$ D+ a% r: v# E4 m7 Z
        Machine.ProcTime :=5;
7 o( _3 r+ G; u* L        Machine.label :=sprint("machine_",Rows);
! v( d& t1 z# [5 y: O- e        Machine.ExitCtrl :=ref(Leave);
  h# Q4 b! S9 z* n% @) v- f" O       
0 F  T3 ], t- b% u. {% t) J( n        BufName :=sprint("BF",Rows);1 C# p& L- k' L# R. s7 h
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
( z4 c6 d; |- s) i3 V                 Buf.Name :=BufName;0 O2 @# M3 J: B
        Buf.Capacity :=5000;
( S+ f" i4 Z9 [" |+ @        Buf.ProcTime :=0;+ K3 v6 K6 N4 E# t& ^6 I! R
        .MaterialFlow.Connector.connect(Buf,Machine);8 ~% r( A) \2 a  j
next;
! m, `! R+ z6 z) f8 F1 }! A2 H1 Kend;9 A! I7 r: k8 [$ ]
发表于 2015-11-3 18:23:57 | 显示全部楼层

回帖奖励 +1 金仿真币

end 数量不对 且后面两个for循环 赋值没有等号。。。
 楼主| 发表于 2015-11-4 09:06:13 | 显示全部楼层
老师,我再问一下,哪里的end数量不对啊,我是新手
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-2 15:33 , Processed in 0.021478 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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