|
5仿真币
你好,帮我看个程序,好吗( _4 d- \ \ { y6 M; k+ R
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)4 Y( {) @) X7 P" m
6 J0 ?& j i* w) o+ p' i- E
procedure mech_Pro_Type()1 R2 l. f; I- @; R" H7 `8 |
var; P* S" f5 |4 o6 j; L
pro1_process,pro2_process:process( U1 j; m+ n: m7 m
the_logic:logic* q; l3 H* G" c/ \5 [% ]( g$ m
begin
! L& i1 l+ j5 {5 J3 L- P# s wait until out part_count 0 2 W6 w+ A+ T" b5 t: [3 ?
require part any. O, S; V: Q/ H: c0 }
pro1_process=get_process('Mechanism400')$ N1 Z2 f/ y1 T' J/ \- J
pro2_process=get_process('Mechanism500')
: @6 N n. h( ^
; Y8 w/ ]6 R+ k, w: S if(cpart<>NULL)then
0 d9 l: _' |. [/ R' X if( cpart->Product_Type==400)then4 m, N8 S3 y* r- _4 e; |: j
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
d) i' t; ]( t$ O+ u0 y) E6 g7 A -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)1 v5 o! ? m( S
else ) ?$ m& x5 U- B8 |5 d
do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
" k p7 j4 _: W4 R- E --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
& |" G7 i, n. m8 u4 \$ m endif6 W1 ]# _0 ]+ I$ I
endif
' G; {- U) b! P2 i5 `7 Q. Zend |
|