|
5仿真币
你好,帮我看个程序,好吗9 v$ x7 v9 [0 P7 R3 K5 ?9 H2 V* z
这个程序是一个machine的logic,我是想根据part的型号(400号,500号),来执行不同的process.程序编译没错,能够运行.但是运行时Machine中却有两个part(process中只定义需要一个part)
) u2 v1 q5 A7 M9 b) U) j
$ I# f! X6 k% qprocedure mech_Pro_Type()
4 ^8 i& H) f: Avar
' R/ R! D7 h3 Y1 R& ~pro1_process,pro2_process:process/ c2 X6 ?# o* v* k4 P7 Z
the_logic:logic
1 M1 y# `2 x- t4 }# Ebegin" ^2 d# z; B4 _% z0 R0 h
wait until out part_count 0
1 L# z& O; U+ M% p: y+ M0 E* W! f require part any( _4 l! O) r6 x# y2 B
pro1_process=get_process('Mechanism400')! _: V; A1 b& _+ A; g3 ]
pro2_process=get_process('Mechanism500')
3 N3 g* R0 }, T F/ I( \ 8 \# V) T0 w# ~0 ~3 U7 {
if(cpart<>NULL)then
5 x: l+ c* x, L. A3 s. x if( cpart->Product_Type==400)then
' S. C$ N8 f8 W. l$ i9 S2 N do_process(pro1_process)in state IDLE_IDLE, BUSY_PROCESSING
4 w. ]' V( _3 _1 T -- write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)4 W7 N/ I7 J9 D9 n
else
! r3 u4 G5 t: U5 I# R7 O- N4 K do_process(pro2_process)in state IDLE_IDLE, BUSY_PROCESSING
* j- d- c5 [# C/ V e" T8 m+ o --write('装机构工位:正在执行工艺号',cpart->Product_Type,cr)
8 u0 Y: t+ M! U5 Z2 p2 [ endif: o8 J- \9 v6 ?( ~: z
endif
( _, d9 h& e; J( u9 cend |
|