设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6106|回复: 2

[求助] 程序问题

  [复制链接]
发表于 2015-11-3 14:58:43 | 显示全部楼层 |阅读模式
以下程序运行时显示有语法错误,我是新手,求帮忙看看哪里有语法错误+ k+ Y/ D) `% d  T: V
is
, B8 M- T6 B) a        i,j,Rows,Lines:integer;
4 v5 A) q% a+ N3 s; {. h/ d+ V" X+ Z        MachineName,BufName:string;+ g6 o9 e% x6 L7 \9 ]
        Machine,Buf:object;5 d! b; a& @* `! h! b
do1 @5 R) S/ n+ V& Z4 x! O5 h
        if Number_Of_Machine/=D_From_To_Chart.YDim then+ j5 P( C8 B, [1 O& Q& g7 ]
                inspect messageBox("Number Wrong...,",50,13)- P+ a* ?/ d- o6 d8 Y) t2 E$ w% k, n+ p) U
                when 16 then1 b: u1 u$ m: O2 Y% p0 ~
                        print "Yes";
/ }$ b, S5 M( R/ H" K                when 32 then
, Z7 o& X- U1 u. I! r3 H- \                        print "No";
: c0 I5 v8 _# Y8 ^* F6 Z% j% q                else+ {" N( ]/ k- @4 {) g0 K% i
                        print "Cancel";
. U3 d( H' _9 Y9 H  r                end;8 d- }  O" W4 i
        EventController.stop;5 N. X0 Y2 g4 a, z
end;
. B/ h- A8 c" A# \/ HPartsTable.delete;5 B1 U7 ?# U0 H
for i:=1 to Number_Of_Machine loop* J- k* l( P6 Z
        for j:=1 to Number_Of_Machine loop3 z, ~% z# c1 ?; @: T% f
                if j<i then
  S! A) O6 A' B+ \; i0 q* i9 S  G" ^  F; J                        if D_From_To_Chart[j,i]<=0 then
) c# _6 _+ }. H8 ~                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
/ S$ E# B. d, o  w8 q: K                        end;' S( v' B& P# A4 T! e1 H
                else
: a+ W* ]6 c; [% W6 A1 Z                        if j=i then$ e4 \5 y9 V9 K
                                D_From_To_Chart[j,i]:=0;$ |, ~# e4 O7 P6 r6 Z" J; U/ M
                        else4 F2 G1 q( X( A9 Z
                                if D_From_To_Chart[j,i]<=0 then, v# t% g0 R- f% j
                                        messageBox("distence<=0...,",50,13);
. F' s+ v# q7 S/ S! L( i! S                                        EventController.stop;
. ]$ u4 n1 m8 n6 p                                end;) Z3 ]9 _* d! c$ T" U1 @
                        end;1 Z# ~& j3 \. Y% O* Y: d
                end;5 T4 k7 z/ x8 v! {8 c* T6 x
        next;
0 a* D9 w# d& w3 f8 }1 `/ I! N& Onext;! V) w# B$ {5 i6 |4 K* G+ i

5 G/ l6 R" g8 C' q8 G  tend;
# [9 V" {( `9 ]0 E: a5 W7 y' ?2 l$ @. X
    Lines :=0;
* O* V$ ~2 _- w3 T7 Y2 j        for i:1 to Number_Of_Machine loop1 t) e% }, I+ V
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, b  d* v% `; V0 s! }& U        MachineSequence[2,i]:=Rows;
. b  H: p! W' d" d            for j:1 to Number_Of_Machine loop/ `% C7 r/ j7 q. C# u( e* j" {
                    if W_From_To_Chart[j,Rows]>0 then ) Y, H/ ~7 h7 Z: e" I4 ~
                            Lines :=Lines+1;
( `6 ^4 m7 ?7 _% |" n; J                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));0 E, V* X7 w% B* v+ T9 T
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];( c& s' _% t: R6 z9 k9 m$ J+ {' r
                        PartsTable[3,Lines]:=sprint("Parts");& j; m- b/ ~% x  J' \
                        PartsTable[5,Lines]:=Rows;
; P% X+ b% a. C% b' {; d$ j, F0 r                        PartsTable[6,Lines]:=j;
# j  c  k0 G8 H" z/ Q8 j1 w2 m                end;
2 M6 ?5 B/ G4 f7 M        next;
$ a1 k; W* s! ?3 y& {. _# t6 R        MachineName :=sprint("M",Rows);( J4 D/ {/ o6 f& z- O
        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]);+ Z, T; ~$ z  Q6 v
        Machine.Name :=MachineName;
" r5 T0 O7 r. @- H# S        Machine.ProcTime :=5;
. y6 k2 ~& b% Y7 l$ \- K  r        Machine.label :=sprint("machine_",Rows);
- U/ v9 n2 c$ l4 M        Machine.ExitCtrl :=ref(Leave);% b- j+ m- ]1 L( Y; F) C
       
; L3 ~  p0 }/ C# d2 e4 U        BufName :=sprint("BF",Rows);
! |* g; C, ^7 X. a6 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]);
. {  I2 S. T% F0 U                 Buf.Name :=BufName;
1 b! _3 K- g; C2 v( _0 ^4 Y& B        Buf.Capacity :=5000;% b5 J2 A$ c2 l) J; V" F+ }
        Buf.ProcTime :=0;1 _6 c* P: K- h  [, y
        .MaterialFlow.Connector.connect(Buf,Machine);0 X( M% F1 O; d
next;3 D) M# v. k. w  p* @( }7 _& Y
end;
- o0 x0 @$ Y7 E
发表于 2015-11-3 18:23:57 | 显示全部楼层

回帖奖励 +1 金仿真币

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

本版积分规则

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

GMT+8, 2026-1-26 04:15 , Processed in 0.026468 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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