User input

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • User input

    I searched a bit but found nothing that matched what I was trying to do.
    I am very new to pcdmis but have been asked to modify some of the code.

    I want a prompt for the user to input a part number and then output that number on our inspection report.

    I can get pcdmis to prompt but I have no idea how to output.

    Currently I have
    C1 =comment/input, yes, full screen,no, part number

    How can I output c1?

    Probably very simple but pcdmis is foreign to me.

  • #2
    Nevermind
    My comment/input, was no...not yes.

    Comment


    • #3
      this is what Is use on all of my programs to record a few things.

      C1 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      'MO#'
      C2 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      'Name'
      C3 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      'Machine'
      C4 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      'Offset'
      C5 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      'Job Status'
      C6 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      'Inspection Gage'
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; MO# : C1.INPUT
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Name : C2.INPUT
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Machine : C3.INPUT
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Offset : C4.INPUT
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Job Status : C5.INPUT
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Inspection Gage : C6.INPUT

      Comment


      • #4
        You can output the user input through a regular report comment as well.
        PC-DMIS CAD++ 2o19 R1 SP11

        Comment


        • #5
          I use a method similar to Schlag but I skip the comments and display the tracefields for user input. I modified the report header to display the first 3 tracefields in a program so the same information that gets transferred to Datapage is on each individual part report. The only downside I've found is that the header on page 1 or 2 won't update and you'll have the tracefield data from the previous part run so you have redraw each report before printing.

          The PCDMIS Help file has pretty good instructions on modifying the report's header. That's where I learned how to do it.
          Downtime: The short span between the job you just finished and the job you are putting off doing. - Glenn Downey

          Comment


          • #6
            Originally posted by vpt.se View Post
            You can output the user input through a regular report comment as well.
            +1 ! Something like this :
            C1 =COMMENT/INPUT,YES,FULL SCREEN=NO,
            "Input part number"
            C2 =COMMENT/REPORT,(...)
            C1.INPUT

            Comment


            • #7
              This is some of the info what I place in the operator Comments.
              Example:
              C1_NON_LOOP_PI_SN_CAV =COMMENT/INPUT,YES,FULL SCREEN=YES,
              Part ID \ Serial Number \ Cavity


              This is what I use to place Part info at the end of the report.
              Example:
              ASSIGN/PS1=C1_NON_LOOP_PI_SN_CAV.INPUT
              COMMENT/READOUT,YES,
              "Part ID \ Serial Number \ Cavity : " + PS1
              Last edited by davehocum; 05-07-2014, 08:43 AM.

              Comment


              • #8
                I do something similar for tracking exactly what position the part was run on the CNC machine.
                This displays (depending on values entered) something like the following at the top of the report:
                Pallet: 16
                Face: 1
                Position: 1

                (=COMMENT/INPUT,YES,FULL SCREEN=NO, --- the YES switch displays the comment at the top of the screen.)
                The IF GOTO's make it more difficult for an operator to enter incorrect information.

                It also names the .pdf report something like:
                part number P16F1-1 - 001(report number)

                Code:
                PALLET_START=LABEL/
                PALLET     =COMMENT/INPUT,YES,FULL SCREEN=NO,
                            Pallet
                            IF/PALLET.INPUT <> 16 AND PALLET.INPUT <> 34
                            GOTO/PALLET_START
                            END_IF/
                FACE_START =LABEL/
                FACE       =COMMENT/INPUT,YES,FULL SCREEN=NO,
                            Face
                            IF/FACE.INPUT <> 1 AND FACE.INPUT <> 3
                            GOTO/FACE_START
                            END_IF/
                            IF/PALLET.INPUT == 34 AND FACE.INPUT <> 1
                            GOTO/FACE_START
                            END_IF/
                            IF/PALLET.INPUT == 16  AND PALLET.INPUT == 2
                            GOTO/FACE_START
                            END_IF/
                POSITION_START=LABEL/
                POSITION   =COMMENT/INPUT,YES,FULL SCREEN=NO,
                            Position
                            IF/POSITION.INPUT > 4
                            GOTO/POSITION_START
                            END_IF/
                            IF/POSITION.INPUT <1
                            GOTO/POSITION_START
                            END_IF/
                            ASSIGN/VAR_REPORTNAME="R:\\directory\\" + "part number " + "P" + PALLET.INPUT + "F" + FACE.INPUT +"-" + POSITION.INPUT + " - " + ".PDF"
                program body

                Code:
                            PRINT/REPORT,EXEC MODE=END,$
                              TO_FILE=ON,AUTO=VAR_REPORTNAME,$
                              TO_PRINTER=OFF,$
                              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=YES,$
                              PREVIOUS_RUNS=DELETE_INSTANCES
                Last edited by Erikir; 05-07-2014, 10:34 AM.
                2012 CAD++ MR1
                Brown & Sharpe ONE
                PH10T

                Comment

                Related Topics

                Collapse

                Working...
                X