|
|
5仿真币
你好,帮我看个程序,好吗; Y; M. ]/ {4 c8 _& Z. b8 P
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
/ Z( @8 a- U# k/ |& S. v" g
/ z; D; }5 H) }procedure mech_Pro_Type()/ E" ~8 N+ U' `! y
var3 S0 |7 G! v6 y" ] H8 Z
pro1_process,pro2_process:process
7 H& x4 [% r" O7 \$ R# R% qthe_logic:logic! L4 |. Q* m2 M* m8 Y; K/ j0 y
begin
! G3 o+ M0 n! C; W wait until out part_count 0
* G" V) | J" N8 e require part any
* O. d9 A/ F) L! P( K pro1_process=get_process('Mechanism400')+ [1 X: B! U" R3 m, R* @9 t
pro2_process=get_process('Mechanism500')& r3 H4 B( ]0 P: [# n- l! ~
. h g, Z+ m9 q, o. L if(cpart<>NULL)then3 F$ ?# L* c* H
if( cpart->Product_Type==400)then
. [9 F7 G7 M6 R) ^. |( N7 q( ^: ? do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING: y" J& o% K2 s) l& |
-- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)7 x0 X l9 @2 G: L m
else
4 w- g$ ]# B% O do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
5 I; Z* `8 x0 J5 G3 c6 \ --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
/ b3 ~/ x* G/ p3 Y. t- M- V: k endif2 Y$ G+ S ^5 H; |" I8 Q
endif
" ^' `# J1 I. C9 hend |
|
发表于 2008-6-15 18:49:23
