设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6054|回复: 2

[求助] 程序问题

  [复制链接]
发表于 2015-11-3 14:58:43 | 显示全部楼层 |阅读模式
以下程序运行时显示有语法错误,我是新手,求帮忙看看哪里有语法错误" g" ?5 S: Z5 A% p4 j7 m. ^! U
is
8 ?: u" W  c* y% Q% @        i,j,Rows,Lines:integer;
/ J) E+ {. F, I        MachineName,BufName:string;
' h: s0 J0 O8 [        Machine,Buf:object;
' x5 n$ U. ?6 y. pdo  F4 N( A# ?3 B- O  o; g
        if Number_Of_Machine/=D_From_To_Chart.YDim then& T* q4 a" q- W# w
                inspect messageBox("Number Wrong...,",50,13)
7 L) W: o& _6 b- K# D  R                when 16 then! x8 m$ F  b7 O, q" c0 z; M
                        print "Yes";
+ N6 I3 N' i' C; h# ^                when 32 then8 I& S3 o8 P" j
                        print "No";
) K+ d1 |3 ^: C5 O& z                else
  O6 i" e( m& E2 G                        print "Cancel";0 V2 ~6 l) O1 {) q/ E, K, I
                end;
! v  S" k* @. L        EventController.stop;% G$ v7 p. t5 `# r% A- ?* V8 z
end;
2 ]: J" X; h* k) }: uPartsTable.delete;0 A% n: \8 ^5 b
for i:=1 to Number_Of_Machine loop8 p4 S  Q: M9 X3 N
        for j:=1 to Number_Of_Machine loop
8 J; D( ~9 T# O6 C                if j<i then/ a' C7 ?& o: v5 C' v
                        if D_From_To_Chart[j,i]<=0 then
! F; X! y; Q! s- m5 w0 c                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ W! t% M* B* v                        end;/ X1 Q6 W) {; ]
                else
5 s4 \: c, Z" G1 G1 }; t8 h) J" w                        if j=i then& q) z; N" L1 U  C$ ~* A
                                D_From_To_Chart[j,i]:=0;
, f& ~$ A6 p' b! w, b4 j  }/ J                        else
$ ~1 d$ K7 _" s4 U                                if D_From_To_Chart[j,i]<=0 then
2 _( F1 M. a5 r% e) Y5 A+ w& U                                        messageBox("distence<=0...,",50,13);/ A0 e4 R' h" _4 t! o6 _6 p
                                        EventController.stop;. E( K' ?% b  v) }6 ~5 z: B! O
                                end;
6 ]5 \0 \* q& l2 t/ R$ L4 i                        end;, w2 B  p  K2 o( n9 B) [' j' F) Q, [
                end;
9 d* T; ]3 {' y, f        next;
7 U! K" a; b8 `$ d- X. jnext;; h1 N$ @2 G  G5 N% V
$ D  W0 e7 F9 h& K4 @
end;! C% ]7 d3 z5 {/ N& I; n

- r/ E7 A" l6 ~) L    Lines :=0;0 {+ K$ K8 @- R4 ?
        for i:1 to Number_Of_Machine loop
% c/ n# u# R/ K$ r+ d: R; j# U        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));. p  ^" o$ T( c- x1 ~
        MachineSequence[2,i]:=Rows;
( Q! r& f2 w2 K- A& A- H1 v            for j:1 to Number_Of_Machine loop- a% C" O3 M5 a" n3 k
                    if W_From_To_Chart[j,Rows]>0 then 9 Z: Z+ _' Y' X5 X
                            Lines :=Lines+1;0 w2 p: X0 U  P  {0 ~( G
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));3 ~7 z' N( A8 s0 r! |
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& {) j' s9 G- j4 n' Y. Z                        PartsTable[3,Lines]:=sprint("Parts");
% y# ?/ @8 O  U                        PartsTable[5,Lines]:=Rows;' i$ u1 V, W, `, J6 U
                        PartsTable[6,Lines]:=j;
. H4 p/ \7 u" q                end;( R. i( s* g5 C3 |
        next;
% X0 v2 n3 B5 x+ [3 A2 X4 {        MachineName :=sprint("M",Rows);7 T- K& i3 o+ l! T) y/ [8 S
        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]);. t# I" Z8 d+ u
        Machine.Name :=MachineName;
, m+ K3 c* B) j' R$ ~5 K. l- r  d" x        Machine.ProcTime :=5;
3 B* N2 J* }2 C! K        Machine.label :=sprint("machine_",Rows);
' _- `( @; Q3 L) d1 H4 m9 @1 [! v; e        Machine.ExitCtrl :=ref(Leave);
; x' }3 i. L5 W" q: [       
" C/ C& F7 f: Z        BufName :=sprint("BF",Rows);
" E9 D0 A9 A" ^1 Y6 u& f9 z        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]);
& h. B+ h0 T5 @                 Buf.Name :=BufName;: O) t$ s- Q, H: D" J0 q: v& q) E* ~
        Buf.Capacity :=5000;0 L( D" _: l- z! x/ t
        Buf.ProcTime :=0;* f  a+ b2 U+ J; j. h
        .MaterialFlow.Connector.connect(Buf,Machine);
3 ^0 s. b2 D6 c6 a3 F, _3 D+ Lnext;7 m# `/ X9 I0 G; L; l6 _1 ^. z
end;
7 \, T0 |0 I& t# j
发表于 2015-11-3 18:23:57 | 显示全部楼层

回帖奖励 +1 金仿真币

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

本版积分规则

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

GMT+8, 2026-1-21 01:20 , Processed in 0.020106 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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