case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Number2Bitmask(modul: Miscellaneous Evaluating Functions)

[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
Number2Bitmask
(Miscellaneous Evaluating Functions)

Vytvořeno:	12-08-1995 18:25:42
Poslední změna:	12-04-2002 14:17:57

Auxiliary function: Converts a number in the range of 0..2047 into a bit-representation as a string (e.g. 5 is converted into "10100000000")

Modul

Module: Miscellaneous Evaluating Functions

Zdrojový kód:

PROCEDURE Number2Bitmask(Zahl%, BYREF byte$)
BEGIN
    Zahl% = Zahl% - (Zahl% / 2048) * 2048;

    i%=1024;
    byte$="";
    WHILE i%>0 DO
        IF zahl%>=i% THEN
            byte$="1"+byte$;
            zahl%=zahl%-i%;
        ELSE
            byte$="0"+byte$;
        END
        i%=i%/2;
    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\8579.htm	(C) microTOOL GmbH 2002