RationalDMIS 2020 PROMPT提示语句

Example 1 numeric input

DECL/DOUBLE,dHoleDia

$$

$$ The following input will …

$$ accept any numeric value

dHoleDia=PROMPT/'Hole diameter ? '

$$

$$ The following input will …

$$ limit input to less than 100

dHoleDia=PROMPT/'Hole diameter ? ',100

$$

$$ The following input will …

$$ limit to range 5-100

dHoleDia=PROMPT/'Hole diameter ? ',100,5

Example 2 alphanumeric input

DECL/CHAR,40,cName

$$

$$ The following input will …

$$ accept input up to 40 alphanumeric chars

cName=PROMPT/'Operator name ? ' 

$$

$$ The following input will …

$$ accept input up to 20 alphanumeric chars

cName=PROMPT/'Operator name ? ',20

Example 3 multiple input and playing a .wav file

$$ refer to (Figure A.3 — The PROMPT dialog box) below.

$$

DECL/SHORT,ok,model

DECL/CHAR,32,shift

ok=PROMPT/TITLE,'Enter inspection run information',    $

  TEXT,'Provide your operator ID, in the box below',   $

  EDIT,OP(oper_id),32,                                 $

  TEXT,'Pick the model of part to inspect',            $

  GROUP,'Model',model,'Short Block','Long Block','V6', $

        'Diesel',                                      $

  TEXT,'Select your shift',                            $

  LIST,shift,'First','Second','Third',                 $

  SOUND,'wakeup.wav',                                  $

  BUTTON,'OK',1                                        $

  BUTTON,'Cancel',2

IF/(ok .EQ.  1)

  SELECT/model

   CASE/3

     DECL/CHAR,32,msg

     msg=ASSIGN/CONCAT('V6 Block during ',shift,' Shift')

     TEXT/OUTFIL,msg

     R(run)=REPORT/OP(oper_id)

$$Inspect the part here

   ENDCAS

  ENDSEL

ELSE

  TEXT/OUTFIL,'Run canceled by operator'

ENDIF