帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
6 g' e' q& i5 p( Q, y' B& X
9 J4 ]2 H0 f* W5 ~3 ]' n# ^" tprocedure mech_Pro_Type()
var
pro1_process,pro2_process:process
! U# B6 s, A' ^+ t/ `" l- vthe_logic:logic
6 Q( X9 u+ I. c5 [: A+ {7 wbegin
   wait until out part_count 0
   require part any
) j& ~, v' ?. T9 N4 l: g- P- X   pro1_process=get_process('Mechanism400')
5 e/ u# p6 w/ {9 m2 @4 `0 Z   pro2_process=get_process('Mechanism500')
' w+ v% w; N4 `# l. B. l' r
   if(cpart<>NULL)then
) p0 G, |8 n) ^7 Q& q" Z1 n" E# V       if( cpart->Product_Type==400)then
. d$ A; ?' @0 Q+ C: m1 t, ?: x. I* v            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
* o# _* L8 k3 d7 M1 N3 }7 N         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
  N) P" Z, R# r       else
            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
2 U( F0 N1 U  l8 }+ t  _       endif
   endif
end