程序问题

wudi · 发表于 2015-11-3 14:58:43

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
i,j,Rows,Lines:integer;
MachineName,BufName:string;
Machine,Buf:object;
do
if Number_Of_Machine/=D_From_To_Chart.YDim then
inspect messageBox("Number Wrong...,",50,13)
when 16 then
print "Yes";
when 32 then
print "No";
else
print "Cancel";
end;
EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
for j:=1 to Number_Of_Machine loop
if j<i then
if D_From_To_Chart[j,i]<=0 then
D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
end;
else
if j=i then
D_From_To_Chart[j,i]:=0;
else
if D_From_To_Chart[j,i]<=0 then
messageBox("distence<=0...,",50,13);
EventController.stop;
end;
end;
end;
next;
next;

end;

Lines :=0;
for i:1 to Number_Of_Machine loop
Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
MachineSequence[2,i]:=Rows;
      for j:1 to Number_Of_Machine loop
      if W_From_To_Chart[j,Rows]>0 then
      Lines :=Lines+1;
PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
PartsTable[3,Lines]:=sprint("Parts");
PartsTable[5,Lines]:=Rows;
PartsTable[6,Lines]:=j;
end;
next;
MachineName :=sprint("M",Rows);
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]);
Machine.Name :=MachineName;
Machine.ProcTime :=5;
Machine.label :=sprint("machine_",Rows);
Machine.ExitCtrl :=ref(Leave);

BufName :=sprint("BF",Rows);
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]);
Buf.Name :=BufName;
Buf.Capacity :=5000;
Buf.ProcTime :=0;
.MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五 · 发表于 2015-11-3 18:23:57

end 数量不对且后面两个for循环赋值没有等号。。。

wudi · 发表于 2015-11-4 09:06:13

老师，我再问一下，哪里的end数量不对啊，我是新手

帐号		自动登录	找回密码
密码			注册

[求助] 程序问题

相关帖子

回帖奖励 +1 金仿真币

浏览过的版块