你好,帮我看个程序,好吗 , F' J- \, T y5 B% t l 这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)8 L/ K! P$ V+ w3 x5 D( H( Y
. ?5 _9 R4 L+ X5 [# p7 J& f! u' hprocedure mech_Pro_Type() . Y$ s# T" r, B/ m# Fvar% ] L+ O0 G' o/ ^" P) O9 ]
pro1_process,pro2_process:process8 G- Y; ]( ~) \
the_logic:logic! o7 t0 c B+ D3 R: o
begin- y/ X! K2 \# o* ?8 {4 g
wait until out part_count 0 $ [ D- T% i O7 d3 S
require part any 0 A K& ^ P$ L! K# { pro1_process=get_process('Mechanism400') / s5 P# O# [9 k# T3 M* A% u% t pro2_process=get_process('Mechanism500')& I0 P& Q# _' K3 w& y0 U
7 v: _# n' V/ _9 H4 ^
if(cpart<>NULL)then 7 N# E- F( A# I if( cpart->Product_Type==400)then! B( c1 d# }6 N; o' F5 e! |; d
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING ; H% ^2 I$ z$ O* K: Z6 O& r0 F -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)! s0 p! s" r; c/ [9 }2 o- M# \1 z' Q
else , p6 Q a3 ^. A/ \
do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING % v( f9 P, m1 E+ r+ Y+ w/ Q0 | --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr). c+ J( [5 G9 q
endif : r* x. @- J, O" C- q& |( L) s endif ( l+ Y8 y. I1 _0 H: y. ?. Mend
发表于 2008-6-15 18:49:23
