Kod: Zaznacz cały
O03020 (DPRNT EXAMPLES, NGC)
(NOTE, IF PROGRAM WILL NOT LOAD, REMOVE COLONS ":" AND)
(REPLACE SPACES WITH "*")
(":" ONLY ALLOWED IN SW VERSION 100.17.000.2037 AND NEWER)
G04 P1. (1 SECOND DWELL, JUST SO WE HAVE A CYCLE TIME)
G103 P1 (LIMIT LOOKAHEAD)
(* CAN BE USED AS SPACES)
DPRNT[------------------]
DPRNT[*******HAAS]
DPRNT[**TIP-OF-THE-DAY]
DPRNT[**DPRNT*EXAMPLES]
DPRNT[------------------]
(DPRNT BLANK LINE)
DPRNT[]
(DPRNTS ALL TEXT, A PART NUMBER)
DPRNT[ PART NUMBER: 265-4183, REV. X2]
(DPRNT BLANK LINE)
DPRNT[]
(SET MACRO VARIABLE #100)
#100= 123456789.12
(DPRNTS MACRO VARIABLE INFO)
(THE 92 IS OUTPUT FORMAT. NINE INTEGERS, TWO NUMBERS PAST DECIMAL)
(NOTE HOW IT DPRNTS FIRST #100 AS TEXT, NO FORMAT NUMBER AFTER IT)
DPRNT[*MACRO*#100:*#100[92]]
(DPRNT BLANK LINE)
DPRNT[]
(SIMPLE DATE AND TIME)
DPRNT[ DATE YYMMDD: #3011[60]]
DPRNT[ TIME HHMMSS: #3012[60]]
(DPRNT BLANK LINE)
DPRNT[]
(ALTERNATE DATE/TIME EUROPE FORMAT)
(YEAR) #10= FIX[ #3011 / 10000 ]
(MONTH)#11= FIX[ [ #3011 - [ #10 * 10000 ] ] / 100 ]
(DAY) #12= FIX[ [ #3011 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ]
DPRNT[ DATE:*20#10[40]-#11[20]-#12[20]]
(HOUR) #10= FIX[ #3012 / 10000 ]
(MINUTE) #11= FIX[ [ #3012 - [ #10 * 10000 ] ] / 100 ]
(SECOND) #12= FIX[ [ #3012 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ]
DPRNT[ TIME:*#10[20]:#11[20]:#12[20]]
(DPRNT BLANK LINE)
DPRNT[]
(ALTERNATE DATE/TIME US FORMAT)
(YEAR) #10= FIX[ #3011 / 10000 ]
(MONTH)#11= FIX[ [ #3011 - [ #10 * 10000 ] ] / 100 ]
(DAY) #12= FIX[ [ #3011 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ]
DPRNT[ DATE:*#11[20]-#12[20]-20#10[40]]
(HOUR) #10= FIX[ #3012 / 10000 ]
(MINUTE)#11= FIX[ [ #3012 - [ #10 * 10000 ] ] / 100 ]
(SECOND)#12= FIX[ [ #3012 - [ #10 * 10000 ] - [ #11 * 100 ] ] / 1 ]
DPRNT[ TIME: #10[20]:#11[20]:#12[20]]
(DPRNT BLANK LINE)
DPRNT[]
(PROBED DIMENSIONS)
(SEE RENISHAW INSPECTION PLUS MANUAL)
(SECTION 4-2 FOR VARIABLE LIST)
(PROBED BORE DIAMETER, #188)
DPRNT[*PROBED*BORE*DIA.:**#188[14]]
(BORE XY CENTER, #185, #186)
DPRNT[*BORE*CENTERLINE :*X#185[24]*Y#186[24]]
(DPRNT BLANK LINE)
DPRNT[]
(#3901 PARTS COUNTER)
DPRNT[*PARTS*MADE:*#3901[90]]
(DPRNT BLANK LINE)
DPRNT[]
(#3024 LAST PART TIMER)
DPRNT[*TIME,*LAST PART:*#3024[40]*SECONDS]
(DPRNT BLANK LINE)
DPRNT[]
DPRNT[------------------]
DPRNT[***END*EXAMPLES**]
DPRNT[------------------]
G103 (RETURN TO NORMAL LOOKAHEAD)
M30 
