帮我看个程序,好吗

zhangyc1985

你好,帮我看个程序,好吗
9 R, j+ t' n' F: P  ?/ e   这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)

* Q% V) i3 T9 X( T0 v! M3 F. wprocedure mech_Pro_Type()
var
pro1_process,pro2_process:process
8 K9 C: }2 H( I! A* x, C1 Jthe_logic:logic
6 v+ ?+ u8 P7 e1 a/ q2 a/ Vbegin
- l3 y# r! J% k0 ]6 N   wait until out part_count 0
$ Z- X9 O1 ?" J- E3 R& \- ^$ ~   require part any
" }4 n2 c- ~. r8 W   pro1_process=get_process('Mechanism400')
   pro2_process=get_process('Mechanism500')
6 N0 I- x3 B! }6 v0 `  ^
5 q- ]7 X7 t1 `+ Z4 _0 }   if(cpart<>NULL)then
0 E+ W" d: [4 \( S3 c0 {+ a       if( cpart->Product_Type==400)then
# S4 H& w# P5 u! t, K& o1 ?            do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
5 p8 S$ E; u0 ~4 x9 N+ [9 g         -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
3 |0 a4 q6 }( d" `       else
            do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
          --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
3 F! ~1 t: e' v, l: U7 V. h, M       endif
6 L6 e& L5 T( r( [# M   endif
end