mistux Site Admin
Joined: 25 Jun 2004 Posts: 1042 Location: South Bend, Indiana USA
|
Posted: Fri Jul 02, 2004 12:23 pm Post subject: A Tool Life Program for Macro A |
|
|
In case your control does not have Macro B, here is a way to do Tool Life.
Code: | %
:9003 (TOOL LIFE MACRO)
( M88 ACTIVATES THIS PROGRAM )
( PARAMETER #242 = 88 ON "OM" CONTROL )
( 12 TOOLS MONITORED )
( #501 TO #512 RESERVED FOR TOOL COUNTERS )
( #514 TO #525 RESERVED FOR TOOL CHANGE FREQUENCY )
( AFTER TOOL HAS REACHED CHANGE FREQUENCY -)
( A PS ALARM #501 TO #512 WILL ACCRUE FOR THAT TOOL NUMBER)
( CHANGE TOOL AND RESET CORRESPONDING TOOL COUNTER TO ZERO )
( #4120 = TOOL# CURRENTLY PRESENT )
G65 H81 P101 Q#4120 R1
( IF ACTIVE TOOL IS 1 THEN GOTO LINE N101 )
G65 H81 P102 Q#4120 R2
G65 H81 P103 Q#4120 R3
G65 H81 P104 Q#4120 R4
G65 H81 P105 Q#4120 R5
G65 H81 P106 Q#4120 R6
G65 H81 P107 Q#4120 R7
G65 H81 P108 Q#4120 R8
G65 H81 P109 Q#4120 R9
G65 H81 P110 Q#4120 R10
G65 H81 P111 Q#4120 R11
G65 H81 P112 Q#4120 R12
N101
G65 H02 P#501 Q#501 R1
(ADD TO TOOL COUNTER #501)
G65 H85 P1001 Q#501 R#514
(IF TOOL COUNTER => CHANGE FREQUENCY GO TO N1001)
G65 H01 P5000
( GO TO N5000 )
N102
G65 H02 P#502 Q#502 R1
G65 H85 P1002 Q#502 R#515
G65 H80 P5000
N103
G65 H02 P#503 Q#503 R1
G65 H85 P1003 Q#503 R#516
G65 H80 P5000
N104
G65 H02 P#504 Q#504 R1
G65 H85 P1004 Q#504 R#517
G65 H80 P5000
N105
G65 H02 P#505 Q#505 R1
G65 H85 P1005 Q#505 R#518
G65 H80 P5000
N106
G65 H02 P#506 Q#506 R1
G65 H85 P1006 Q#506 R#519
G65 H80 P5000
N107
G65 H02 P#507 Q#507 R1
G65 H85 P1007 Q#507 R#520
G65 H80 P5000
N108
G65 H02 P#508 Q#508 R1
G65 H85 P1008 Q#508 R#521
G65 H80 P5000
N109
G65 H02 P#509 Q#509 R1
G65 H85 P1009 Q#509 R#522
G65 H80 P5000
N110
G65 H02 P#510 Q#510 R1
G65 H85 P1010 Q#510 R#523
G65 H80 P5000
N111
G65 H02 P#511 Q#511 R1
G65 H85 P1011 Q#511 R#524
G65 H80 P5000
N112
G65 H02 P#512 Q#512 R1
G65 H85 P1012 Q#512 R#525
G65 H80 P5000
N1001
G65 H99 P1
( CAUSE ALARM 501 )
N1002
G65 H99 P2
N1003
G65 H99 P3
N1004
G65 H99 P4
N1005
G65 H99 P5
N1006
G65 H99 P6
N1007
G65 H99 P7
N1008
G65 H99 P8
N1009
G65 H99 P9
N1010
G65 H99 P10
N1011
G65 H99 P11
N1012
G65 H99 P12
N5000 M99
% |
Enjoy
Legal stuff: I provide this "As Is" and make no express guarantees that it will work and/or will work on your machine. It is intended as a guide and as with all programs should be fully tested before it is ran. |
|