Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]


Vyhodnocovací funkce
STD_Header
(State Transition Diagram)

Vytvořeno: 12-08-1995 18:45:02
Poslední změna: 12-10-2002 12:14:52
Auxiliary function: Print table heading line for state transition table.
Modul

Module: State Transition Diagram

Zdrojový kód:

PROCEDURE STD_Header(Id$,Source$,Function$,i%,t%,e%)
BEGIN
/*
  auxiliary function for state transition table;
  print part of table header line
*/

  f%=i%;
  depth%=(i%/4);
  i%=i%-(depth%*4);
  Sign$="";
  FOREACH Transition AS T1 WHERE T1.Name=Id$
                             AND T1.Sourcestate=Source$
                             AND T1.Function=Function$ DO
    c%=0;
    IF f%=e% THEN
      PRINT {"ARIAL",UNDERLINE,8} TAB(16*t%-3),"|";
    ELSE
      PRINT {"ARIAL",8} TAB(16*t%-3),"|";
    END
    FOREACH Combinationpart AS Cbm WHERE Cbm.Transition=T1.Name
                                     AND Cbm.Function=T1.Function
                                     AND Cbm.Sourcestate=T1.Sourcestate DO
      IF c%=depth% THEN
        // mark AND and NEGATION, if needed
        IF i%=0 AND c%>0 THEN
          Sign$="&";
        END
        IF i%=0 AND Cbm.Negated<>0 THEN
          Sign$=Sign$+"Ž";
        END
        // print line of table header
        FOR Datastructure WHERE Datastructure.Name=Cbm.Event DO
          IF f%=e% THEN
            PRINT {BOLD,"ARIAL",UNDERLINE,8} TAB(16*t%-2),Sign$;
            PRINT {BOLD,"ARIAL",UNDERLINE,8} TAB(16*t%),MID$(Datastructure.Boxname,i%*12+1,12);
          ELSE
            PRINT {BOLD,"ARIAL",8} TAB(16*t%-2),Sign$;
            PRINT {BOLD,"ARIAL",8} TAB(16*t%),MID$(Datastructure.Boxname,i%*12+1,12);
          END
        END
      END
      c%=c%+1;
    END
  END

END
Generováno: 16.10.2003 7:41 Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf Generováno systémem case/4/0
Vygeneroval: Administrator Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\8947.htm (C) microTOOL GmbH 2002