|
|
5仿真币
你好,帮我看个程序,好吗# a- j# [( H1 d' }( l: ]
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part). R1 Y6 K9 P# x$ \$ ~
8 l: Y% L! ^' M( A
procedure mech_Pro_Type()! a- @( P i& b$ _3 R% u/ G# o V+ v
var, q+ O2 V: A" Y
pro1_process,pro2_process:process
' v' p. D$ K8 H. othe_logic:logic8 C, C3 K& J( ]6 M
begin
8 B! C2 q8 q. r# j1 X6 f1 D7 W+ g wait until out part_count 0 1 n9 x* o- R+ f4 u1 @/ x- S1 D
require part any
5 I6 P" a) w) ]; r' e+ L) ] pro1_process=get_process('Mechanism400'), ~0 a8 \. D. J* V7 R7 |+ X
pro2_process=get_process('Mechanism500')
8 C1 }. H4 J/ |
/ V9 _& K4 X3 s; ? if(cpart<>NULL)then$ D" Y; s; u& d& _- \2 b
if( cpart->Product_Type==400)then
) f$ v; N! L: F$ @0 S& q do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING6 U# o+ O g1 o8 z8 q# o
-- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
: Q1 M8 o. J7 h% p* }$ c) Z) f/ }' W else 1 I: W; |6 L; z9 j+ Z5 A
do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING 9 b! I. ^0 B1 i! H7 \: D. m
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
! p% \% H2 S1 x7 `3 y2 u7 m* [2 ^ endif* N s9 @' @% S, d3 g7 C
endif/ o! M' ~! v* ?& W K! V
end |
|
发表于 2008-6-15 18:49:23
