|
|
5仿真币
你好,帮我看个程序,好吗
9 p5 Y2 L! o7 W2 f3 d 这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)) {/ B# u+ B6 g$ |
5 M* K. H2 F1 N' v$ J
procedure mech_Pro_Type()1 @: g" C4 k( @' _, y
var
}6 t+ \! H: ipro1_process,pro2_process:process
9 w' \1 n& C. S1 j: f, I& bthe_logic:logic* T& O" D; G# D3 @. V, |1 d$ G
begin
; J+ m& i" w- n4 T wait until out part_count 0
1 H% i d7 e! k- Z require part any
8 S+ r% e8 l4 H; l8 j. j. \3 ` pro1_process=get_process('Mechanism400')
5 H. g9 f" x( B5 ?) U5 h1 y pro2_process=get_process('Mechanism500')
4 i7 ?5 o) H2 i" f. S9 }2 m
2 m& {1 M& L% c5 _' I if(cpart<>NULL)then
$ E2 Q% @) |0 {. ~) U if( cpart->Product_Type==400)then
- q1 C* c0 V7 ^' M, e3 W4 f do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
\2 w1 e4 c! Q, H% _ -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
/ V) F* `* n) N9 g% b4 G9 j else + s- p& |9 v& e3 k, U' d( F
do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING 3 S' s0 A+ O3 s" i |
--write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
1 R1 p2 p3 C) E6 K endif) m4 ]9 b w j) ]3 I4 \- ?3 \
endif O. m' h7 `! K( @+ X
end |
|
发表于 2008-6-15 18:49:23
