Input Request Functions

Name

Purpose

Arguments

Return value

Example

inputBox

activates an input window, in which the user can enter a value

1: STRING: Text, which appears in the request

2: INTEGER, REAL, CHAR, STRING: Variable, in which the value entered is stored

-

inputBox ("Please enter the desired power", rQGen);

messageBox

activates a message window, which the user must confirm with "OK"

1: STRING: Text, which appears as the message

2: messageBoxTypeEnum

Value that can be put together from the elements of the enumeration "messageBoxTypeEnum" (Unit @System) using "bitor". For more information, see https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-messagebox

type messageBoxResultEnum
= (IDOK = 1,
  IDCANCEL = 2,
  IDABORT = 3,
  IDRETRY = 4,
  IDIGNORE = 5,
  IDYES = 6,
  IDNO = 7,
  IDCLOSE = 8,
  IDHELP = 9,
  IDTRYAGAIN = 10,
  IDCONTINUE = 11);
The result of the type messageBoxResultEnum provides information about which button was pressed.
The enumerations messageBoxResultEnum and messageBoxTypeEnum are defined and described in @System.

begin
case messageBox( "Please push OK or Cancel button.", MB_OKCANCEL) of IDOK:
begin
  println("OK-Button pressed!"); end;
IDCANCEL :
begin
  println("Cancel-Button pressed!");
end
otherwise
begin
   println("Unknown Button pressed!");
 end
 end;
end;

wizardBox

opens the input window used by "EbsAssistenten", with which 7 parameters can be specified for the model.

1: STRING: Description for the 1st parameter

2: REAL: 1st Parameter

3: STRING: Description for the 2nd Parameter

4: REAL: 2nd Parameter

5: STRING: Description for the 3rd Parameter

6: REAL: 3rd Parameter

7: STRING: Description for the 4th Parameter

8: REAL: 4th Parameter

9: STRING: Description for the 5th Parameter

10: REAL: 5th Parameter

11: STRING: Description for the 6th Parameter

12: REAL: 6th Parameter

13: STRING: Description for the 7th Parameter

14: REAL: 7th Parameter

BOOLEAN:

true, if the user clicked on "OK"

false, if the user clicked on "Cancel"

var
  r1,r2,r3,r4,r5,r6,r7:real;

    bOk:boolean;

begin

    r1:=DSP.MEASM;

    r2:=T2.MEASM;

    r3:=P2.MEASM;

    r4:=T1.MEASM;

    r5:=P1.MEASM;

    r6:=1000*  (PKOND.MEASM + PAMB.MEASM);

    r7:=T17.MEASM;

    bOk:=wizardBox ("Live steam mass flow [kg/s]", r1, "Live steam temperature [°C]", r2, "Live steam pressure [bar]", r3,

"Intermediate heating temperature [°C]", r4, "Intermediate heating pressure [bar]", r5,

"Condenser pressure [mbar]", r6, "Cooling water temperature [°C]", r7 );

    if (bOk) then

    begin

        DSP.MEASM:=r1;

        T2.MEASM:=r2;

        P2.MEASM:=r3;

        T1.MEASM:=r4;

        P1.MEASM:=r5;

        PKOND.MEASM:= 0.001*r6 - PAMB.MEASM;

        T17.MEASM:=r7;

        simulate;

     end;

end.

yesNoBox

opens a decision window, in which the user can click either on "Yes" or "No"

1: STRING: Text, which appears in the request

BOOLEAN:

true, if the user clicked on "Yes"

false, if the user clicked on "No"

bContinue:= yesNoBox ("Should the calculation be continued?");

yesNoCancelBox

INTEGER:

1, if the user clicked on "Yes"

0, if the user clicked on "No"

-1, if the user clicked on "Cancel"

bContinue:= yesNoCancelBox ("Should the calculation be continued?");