Perfect panic mode
So as a final touch please look at the below code and let me know for any mistakes.
Code
&ACCESS RVP
&COMMENT HANDLER on external automatic
DEF CELL ( )
EXT Jig1()
EXT Jig1_2225()
EXT Jig2()
EXT Jig2_2225()
EXT down()
;FOLD INIT
DECL CHAR DMY[3]
DMY[]="---"
;ENDFOLD (INIT)
;FOLD BASISTECH INI
;GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
GLOBAL INTERRUPT DECL 3 WHEN $IN[2018]==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 )
;ENDFOLD (BASISTECH INI)
;FOLD CHECK HOME
$H_POS=XHOME
IF $IN[2028]==TRUE THEN
P00 (#CHK_HOME,#PGNO_GET,DMY[],0 ) ;Testing Home-Position
ENDIF
;ENDFOLD (CHECK HOME)
;FOLD PTP HOME Vel= 100 % DEFAULT;%{PE}%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:HOME, 3:, 5:100, 7:DEFAULT
$H_POS=XHOME
PDAT_ACT=PDEFAULT
BAS (#PTP_DAT )
FDAT_ACT=FHOME
BAS (#FRAMES )
BAS (#VEL_PTP,100 )
PTP XHOME
;ENDFOLD
;FOLD AUTOEXT INI
P00 (#INIT_EXT,#PGNO_GET,DMY[],0 ) ; Initialize extern mode
;ENDFOLD (AUTOEXT INI)
;PGNO = $IN[3000]
LOOP
P00 (#EXT_PGNO,#PGNO_GET,DMY[],0 )
SWITCH $IN[3000] ; Select with Programnumber
CASE 1
P00 (#EXT_PGNO,$IN[3500],DMY[],0 ) ; Reset Progr.No.-Request
;EXAMPLE1 ( ) ; Call User-Program
Jig1()
CASE 2
P00 (#EXT_PGNO,$IN[3500],DMY[],0 ) ; Reset Progr.No.-Request
;EXAMPLE2 ( ) ; Call User-Program
Jig1_2225()
CASE 3
P00 (#EXT_PGNO,$IN[3500],DMY[],0 ) ; Reset Progr.No.-Request
;EXAMPLE3 ( ) ; Call User-Program
Jig2()
CASE 4
P00 (#EXT_PGNO,$IN[3500],DMY[],0 ) ; Reset Progr.No.-Request
;EXAMPLE2 ( ) ; Call User-Program
Jig2_2225()
CASE 5
P00 (#EXT_PGNO,$IN[3500],DMY[],0 ) ; Reset Progr.No.-Request
;EXAMPLE3 ( ) ; Call User-Program
down()
DEFAULT
P00 (#EXT_PGNO,$IN[3600],DMY[],0 )
ENDSWITCH
ENDLOOP
END
Display More
But i don't see any PGNO_VALID signal?
I am sorry panic mode maybe it sounds silly but i am putting an effort to gain some experience.
Regards
n