帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
* v( b. V! ^/ h5 X" C   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
( h& w  v# m2 \2 ?# K9 S
3 V# L" t6 [; p  S: A0 t' {8 vprocedure mech_Pro_Type()
var
pro1_process,pro2_process:process
the_logic:logic
2 e2 ]# M0 @# v/ t! I) Ibegin
1 q- R/ {" O; ]( C3 f" e   wait until out part_count 0
/ V0 X6 C5 d1 I, y" }   require part any
   pro1_process=get_process('Mechanism400')
8 d2 S+ m7 |* y- n0 I4 g   pro2_process=get_process('Mechanism500')
! T, }0 A& q3 b9 H& g: K4 E! u
0 ?: \( E2 x5 q4 G5 l   if(cpart<>NULL)then
- ^1 m, X+ v9 p; L       if( cpart->Product_Type==400)then
4 t/ x6 f4 v& G) b  w' c            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
; q  l; n4 r; z" Y6 r& C5 B         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
, V; _1 P0 V6 V* x% m+ ~       else
: K- y  x. g5 T- O% V' ?+ U            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
       endif
% N7 ^: g/ F) }   endif
$ a3 K- V( B' l( R- lend