EBSILON®Professional Online Dokumentation
EbsScript / EbsScript Funktionen / Eingabeaufforderungsfunktionen
In diesem Thema
    Eingabeaufforderungsfunktionen
    In diesem Thema

    Eingabeaufforderungsfunktionen


    Diese Funktionen geben beim Ablauf des EbsScripts ein Fenster auf dem Bildschirm auf, das den Anwender zu einer Aktion auffordert.

    Name

    Zweck

    Argumente

    Rückgabewert

    Beispiel

    inputBox

    schaltet ein Eingabefenster auf, in dem der Anwender einen Wert eintragen kann

    1: STRING: Text, der bei der Aufforderung erscheint

    2: INTEGER, REAL, CHAR, STRING: Variable, auf die der eingegebene Wert übernommen wird

    -

    inputBox ("Bitte geben Sie die gewünschte Leistung ein", rQGen);

    messageBox

    schaltet ein Benachrichtigungsfenster auf, das der Anwender mit "OK" quittieren muss

    1: STRING: Text, der als Nachricht erscheint

    2: messageBoxTypeEnum

    Wert der mittels „bitor“ aus den Elementen der Enumeration „messageBoxTypeEnum“ (Unit @System) zusammengesetzt werden kann. Weitere Informationen hierzu finden Sie unter
    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);

    Das Ergebnis vom Typ messageBoxResultEnum gibt Auskunft, welcher Button gedrückt wurde. Die Enumerationen messageBoxResultEnum und messageBoxTypeEnum sind in @System definiert und beschrieben.

    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

    schaltet das vom "EbsAssistenten" verwendete Eingabefenster auf, mit dem 7 Parameter an eine Schaltung übergeben werden können.

    1: STRING: Beschreibung für den 1. Parameter

    2: REAL: 1. Parameter

    3: STRING: Beschreibung für den 2. Parameter

    4: REAL: 2. Parameter

    5: STRING: Beschreibung für den 3. Parameter

    6: REAL: 3. Parameter

    7: STRING: Beschreibung für den 4. Parameter

    8: REAL: 4. Parameter

    9: STRING: Beschreibung für den 5. Parameter

    10: REAL: 5. Parameter

    11: STRING: Beschreibung für den 6. Parameter

    12: REAL: 6. Parameter

    13: STRING: Beschreibung für den 7. Parameter

    14: REAL: 7. Parameter

    BOOLEAN:

    true, wenn der Anwender "Beenden" geklickt hat

    false, wenn der   Anwender "Abbrechen" geklickt hat

    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

    schaltet ein Entscheidungsfenster auf, in dem der Anwender wahlweise auf "Ja" oder "Nein" klicken kann

    1: STRING: Text, der bei der Aufforderung erscheint

    BOOLEAN:

    true, wenn der Anwender "Ja" geklickt hat

    false, wenn der Anwender "Nein" geklickt hat

    bContinue:= yesNoBox ("Soll die Rechnung fortgesetzt werden?");

    yesNoCancelBox

    schaltet ein Entscheidungsfenster auf, in dem der Anwender wahlweise auf "Ja"/ "Nein"/ "Abbrechen" klicken kann

    1: STRING: Text, der bei der Aufforderung erscheint

    INTEGER:

    1, Wenn der Anwender auf "Yes" geklickt hat

    0, Wenn der Anwender auf "No" geklickt hat

    -1, Wenn der Anwender auf "Cancel" geklickt hat

    bContinue:= yesNoCancelBox ("Soll die Rechnung fortgesetzt werden?");