设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 5685|回复: 2

[求助] 程序问题

  [复制链接]
发表于 2015-11-3 14:58:43 | 显示全部楼层 |阅读模式
以下程序运行时显示有语法错误,我是新手,求帮忙看看哪里有语法错误" c9 Q: q% e# {# l1 m% Y5 F0 m
is
; M8 {% A# D" }. E! v        i,j,Rows,Lines:integer;
2 {! T& m$ c# u        MachineName,BufName:string;
3 q. y- i% @8 o7 t        Machine,Buf:object;
) C8 y( p3 Q; F7 G" M' k! Udo+ ~3 y+ g/ B' s1 o- m6 W# _. y0 t
        if Number_Of_Machine/=D_From_To_Chart.YDim then1 b5 s- k  t% t
                inspect messageBox("Number Wrong...,",50,13)
1 w! O# G  b2 o  A6 K                when 16 then4 t  R1 W; Q  D9 [1 g2 J8 M" Z
                        print "Yes";& |/ O3 o" u' }
                when 32 then
+ @4 {, W) c2 F8 w* g" c- p- F                        print "No";# X3 q; N  S/ }& ^* P& x" p/ p
                else
2 X! l9 T6 @8 y( l8 I1 c                        print "Cancel";( O# m3 J$ f4 M, F. |5 e8 X
                end;. I2 S7 t3 M0 _7 [% V
        EventController.stop;
' G! J; Z6 P0 zend;
  a( m' B5 r/ DPartsTable.delete;8 K9 d- m: j2 Q% I$ A
for i:=1 to Number_Of_Machine loop
; N5 r: }0 L1 j) _* A3 E2 j        for j:=1 to Number_Of_Machine loop, O3 E% i& j) l8 }- l8 R6 j
                if j<i then
1 u  n, S. {. H                        if D_From_To_Chart[j,i]<=0 then
4 u9 |; F$ p5 F! L/ _2 j                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];, r0 F& {& p( f/ `% c
                        end;# J& x2 C1 {: a/ b1 L/ X& d
                else7 \' V+ A4 R, b% f
                        if j=i then2 E" Z0 I. J/ b7 H7 v  W2 D( \# v
                                D_From_To_Chart[j,i]:=0;
3 i) X0 E7 @/ [7 q+ O                        else- v/ o5 C8 o0 o* k+ h
                                if D_From_To_Chart[j,i]<=0 then
$ o& r+ }( {$ R/ w2 I9 S                                        messageBox("distence<=0...,",50,13);
3 l' |4 D, l; C; l) H+ P+ q+ I                                        EventController.stop;$ z1 }4 L! O4 ^! r
                                end;. `4 ?8 l- `2 F' ]" j  ?4 {
                        end;
: s/ e, ~: q! k0 |# }; E2 ?                end;9 ]8 j0 V$ W' J: |9 C  I8 N
        next;
$ k* s; K2 \! a7 r7 z! Xnext;
, U+ M8 @/ c5 ?1 {: X" ?. n. l% T6 D/ b8 y' D& M7 _* V
end;
+ e% O! \2 n8 S, a/ a4 W
8 n) {* ^2 Z) \0 Y2 A! M    Lines :=0;
* S2 l3 E: U9 M2 @5 W7 b        for i:1 to Number_Of_Machine loop/ o7 D9 Q4 b4 C* C' d
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 L( z# d6 x3 _( i2 O% w) \' M        MachineSequence[2,i]:=Rows;
; l+ n  y! [* W7 a6 D3 K! v7 U            for j:1 to Number_Of_Machine loop
$ J6 Y% R4 b! H0 L2 t/ H2 X                    if W_From_To_Chart[j,Rows]>0 then
7 t: A' Y  {: u$ w( ^0 x                            Lines :=Lines+1;! I% A% L, y1 Q, Q9 G5 h
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));9 |$ j) P# Z. A: {; f
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 d8 F) P! N' E! k                        PartsTable[3,Lines]:=sprint("Parts");7 A# R) B. u4 N9 u' ^8 \
                        PartsTable[5,Lines]:=Rows;
' {* \0 e( v; S) j, q6 _0 i  f" s                        PartsTable[6,Lines]:=j;
9 B; ?$ p/ r! y/ C1 |' |                end;
. i- \$ J. H1 s        next;
9 C9 J1 R( W8 c" F# o( `        MachineName :=sprint("M",Rows);7 [" [! s4 Q' t4 e# p: d$ ]
        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]);
0 h- m5 G4 o4 S( N* P        Machine.Name :=MachineName;, y/ c5 y6 A- I$ R4 q
        Machine.ProcTime :=5;, l! [  ]$ A" S
        Machine.label :=sprint("machine_",Rows);
) h9 I2 u) [& f: L% Z        Machine.ExitCtrl :=ref(Leave);
6 ]( [+ E5 W% H3 o. I        7 I, n+ a0 k, J6 Q" h
        BufName :=sprint("BF",Rows);
" s' t% K' k3 f        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]);) B4 e# ^  z, k8 i" L) R6 H
                Buf.Name :=BufName;, b7 e, ~2 R) G. t  C/ w# V
        Buf.Capacity :=5000;* c% u5 S; q3 A$ L
        Buf.ProcTime :=0;
9 O1 Z$ @3 R' s8 }        .MaterialFlow.Connector.connect(Buf,Machine);
% V! y7 s6 `6 r  A! h9 \next;
9 g/ f& `( o/ _end;
5 v- ?0 o7 \# @$ s) S& |# z+ W1 I
发表于 2015-11-3 18:23:57 | 显示全部楼层

回帖奖励 +1 金仿真币

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

本版积分规则

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

GMT+8, 2025-12-8 05:43 , Processed in 0.020496 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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