Increasing the serial number by 1...

Every time I run a program, I'm asked for the serial number, room temp, job number, PO number, inspector and inspection date. These are always the same, except the serial number. I'd like to manipulate the code to increase the serial number by one and restart the program so I don't have to re-enter them each time.

Can someone check out my code and give me some tips?

STARTUP    =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
            ALIGNMENT/END
            MODE/MANUAL
            PROBECOM/ON
            PREHIT/0.25
            RETRACT/0.25
            CHECK/1,1
            FLY/ON,0.1181
            TOUCHSPEED/ 1.25
            MOVESPEED/ 100
            FORMAT/ , , ,HEADINGS, , ;MEAS,NOM,DEV,TOL,OUTTOL, , 
$$ NO,
            
            LOADPROBE/P315Z1314-21_A
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=90
$$ NO,
            
            COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
            LOAD PART PER SET UP
$$ NO,
            
SERIAL_NO  =COMMENT/INPUT,NO,FULL SCREEN=NO,
            SERIAL NUMBER.............
TEMP       =COMMENT/INPUT,NO,FULL SCREEN=NO,
            CMM ROOM TEMPERATURE......
INSP_BY    =COMMENT/INPUT,NO,FULL SCREEN=NO,
            INSPECTED BY..............
INSP_DATE  =COMMENT/INPUT,NO,FULL SCREEN=NO,
            INSPECTION DATE...........
$$ NO,
            
L1         =LABEL/
$$ NO,
            
            ASSIGN/COUNT=SERIAL_NO.INPUT
$$ NO,
            
            COMMENT/REPT,
             
             
             
            =====================================================================
            COMMENT/REPT,
            =                                                                   =
            COMMENT/REPT,
            =             COMPUTER CONTROL INSPECTION RESULTS                   =
            COMMENT/REPT,
            =                                                                   =
            COMMENT/REPT,
            =====================================================================
            COMMENT/REPT,
            =             PART NUMBER  : 315Z1314-21                            =
            COMMENT/REPT,
            =             CREATION DATE: 08-14-2011 17:46                       =
            COMMENT/REPT,
            =             PROGRAMMER   : ALEX                                   =
            COMMENT/REPT,
            =             PROVEN DATE  : 09-14-2011 08:59                       =
            COMMENT/REPT,
            =             PROVEN BY    : BRIAN                                  =
            COMMENT/REPT,
            =                   REV    : A                                      =
            COMMENT/REPT,
            =                   E.O.   : NA                                     =
            COMMENT/REPT,
            =====================================================================
             
             
$$ NO,
            
            COMMENT/REPT,
            "SERIAL NUMBER............. : " + SERIAL_NO.INPUT
            COMMENT/REPT,
            "TEMPERATURE............... : " + TEMP.INPUT
JOB_INFO   =FILE/OPEN,C:\CMM\JOBINFO.DAT,READ
JOB_NO     =FILE/READLINE,JOB_INFO,{LINE1}
            COMMENT/REPT,
            "JOB NUMBER................ : " + LINE1
PO_NO      =FILE/READLINE,JOB_INFO,{LINE2}
            COMMENT/REPT,
            "PO NUMBER................. : " + LINE2
            FILE/CLOSE,JOB_INFO,KEEP
            COMMENT/REPT,
            "INSPECTED BY.............. : " + INSP_BY.INPUT
            COMMENT/REPT,
            "INSPECTION DATE........... : " + INSP_DATE.INPUT
$$ NO,
            
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            TAKE FOUR POINTS AT SEQ 6, DATUM C.
$$ NO,

            *
            *
            *
            ==============================
                        INSPECTION STUFF
            ==============================
            *
            *
            *

$$ NO,
            
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,AUTO=1,$
              TO_PRINTER=OFF,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=               315Z1314-21                              ,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
$$ NO,
            
C1         =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            DO YOU WANT TO CHECK ANOTHER PART?
$$ NO,
            
            IF/C1.INPUT=="YES"
$$ NO,
            
            ASSIGN/SERIAL_NO.INPUT=COUNT + 1
$$ NO,
            
            GOTO/L1
$$ NO,
            
            END_IF/
$$ NO,

dph51 over 11 years ago

See changes in RED below

Move ASSIGN/COUNT before L1 branch
Increment COUNT after the IF/C1.INPUT = YES statement

hope this helps.

STARTUP    =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES            ALIGNMENT/END
            MODE/MANUAL
            PROBECOM/ON
            PREHIT/0.25
            RETRACT/0.25
            CHECK/1,1
            FLY/ON,0.1181
            TOUCHSPEED/ 1.25
            MOVESPEED/ 100
            FORMAT/ , , ,HEADINGS, , ;MEAS,NOM,DEV,TOL,OUTTOL, , 
$$ NO,
            
            LOADPROBE/P315Z1314-21_A
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=90
$$ NO,
            
            COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
            LOAD PART PER SET UP
$$ NO,
            
SERIAL_NO  =COMMENT/INPUT,NO,FULL SCREEN=NO,
            SERIAL NUMBER.............
TEMP       =COMMENT/INPUT,NO,FULL SCREEN=NO,
            CMM ROOM TEMPERATURE......
INSP_BY    =COMMENT/INPUT,NO,FULL SCREEN=NO,
            INSPECTED BY..............
INSP_DATE  =COMMENT/INPUT,NO,FULL SCREEN=NO,
            INSPECTION DATE...........
$$ NO,
[COLOR=#ff0000]              ASSIGN/COUNT=SERIAL_NO.INPUT         [/COLOR]
L1         =LABEL/            
$$ NO,
            


$$ NO,
            
            COMMENT/REPT,
             
             
             
            =====================================================================
            COMMENT/REPT,
            =                                                                   =
            COMMENT/REPT,
            =             COMPUTER CONTROL INSPECTION RESULTS                   =
            COMMENT/REPT,
            =                                                                   =
            COMMENT/REPT,
            =====================================================================
            COMMENT/REPT,
            =             PART NUMBER  : 315Z1314-21                            =
            COMMENT/REPT,
            =             CREATION DATE: 08-14-2011 17:46                       =
            COMMENT/REPT,
            =             PROGRAMMER   : ALEX                                   =
            COMMENT/REPT,
            =             PROVEN DATE  : 09-14-2011 08:59                       =
            COMMENT/REPT,
            =             PROVEN BY    : BRIAN                                  =
            COMMENT/REPT,
            =                   REV    : A                                      =
            COMMENT/REPT,
            =                   E.O.   : NA                                     =
            COMMENT/REPT,
            =====================================================================
             
             
$$ NO,
            
            COMMENT/REPT,
            "SERIAL NUMBER............. : " + SERIAL_NO.INPUT
            COMMENT/REPT,
            "TEMPERATURE............... : " + TEMP.INPUT
JOB_INFO   =FILE/OPEN,C:\CMM\JOBINFO.DAT,READ
JOB_NO     =FILE/READLINE,JOB_INFO,{LINE1}
            COMMENT/REPT,
            "JOB NUMBER................ : " + LINE1
PO_NO      =FILE/READLINE,JOB_INFO,{LINE2}
            COMMENT/REPT,
            "PO NUMBER................. : " + LINE2
            FILE/CLOSE,JOB_INFO,KEEP
            COMMENT/REPT,
            "INSPECTED BY.............. : " + INSP_BY.INPUT
            COMMENT/REPT,
            "INSPECTION DATE........... : " + INSP_DATE.INPUT
$$ NO,
            
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            TAKE FOUR POINTS AT SEQ 6, DATUM C.
$$ NO,


            *
            *
            *
            ==============================
                        INSPECTION STUFF
            ==============================
            *
            *
            *


$$ NO,
            
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,AUTO=1,$
              TO_PRINTER=OFF,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=               315Z1314-21                              ,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
$$ NO,
            
C1         =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            DO YOU WANT TO CHECK ANOTHER PART?
$$ NO,
            
            IF/C1.INPUT=="YES"
$$ NO,
            
[COLOR=#ff0000]            ASSIGN/COUNT=COUNT + 1[/COLOR]
$$ NO,
            
            GOTO/L1
$$ NO,
            
            END_IF/
$$ NO,

DarthLoser over 11 years ago

It works! Whoop Whoop! You da man!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel