|
|
5仿真币
你好,帮我看个程序,好吗
+ f' q& Q* H3 h" G0 a 这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)- z+ d" Z: {* ]5 L/ p! {% ?
# x) g! i; y/ B/ @5 S7 S$ t
procedure mech_Pro_Type()
2 [! K7 R" P ovar( p l$ v, o4 t6 i5 @
pro1_process,pro2_process:process
. c4 a2 v: ^4 A/ uthe_logic:logic" s1 a8 Q4 @* R7 C S
begin3 X* w+ Q1 J9 p( o1 u2 K
wait until out part_count 0
* |$ @9 T+ Y. G3 _/ y& z0 W require part any
% Z" e2 r- x; z( T pro1_process=get_process('Mechanism400')
/ P/ N s' y7 A2 p, o0 t6 g0 l! [# Q pro2_process=get_process('Mechanism500')
2 k1 c- m# X* n: i& x
7 `9 Q. C3 G3 ?4 a V; z if(cpart<>NULL)then$ P9 U. a2 v" ^3 ?- D
if( cpart->Product_Type==400)then2 B8 E8 z. a* T0 s2 \; @% x
do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
' i d6 x; [6 J& R& s( o -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)- v' W$ E1 `* g# Y
else
d1 _( C# H' [' t9 _0 K) s do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
d6 ]+ Z* s# }# ], ^$ n --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
) y1 }4 b) a5 q7 f endif! p" H! w/ u Y* P; W. ^: P5 O) J" a
endif& S" z1 Z9 J5 K L+ i# D
end |
|
发表于 2008-6-15 18:49:23
