fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Führende Nullen und AK-Lib (QB-Beispiel)

Uploader:	Sebastian
Datum/Zeit:	23.03.2008 16:15:41

DECLARE FUNCTION FuehrendeNullen$ (Zahl%, SollLaenge%)



CALL XSCREEN(&H105)



FOR i% = 1 TO 6000

        N$ = "BLD_" + FuehrendeNullen$(i%, 4) + ".BMP"

        CALL SET.PICTURE(0,0,N$)

    SLEEP 1

NEXT i%



SLEEP: END



FUNCTION FuehrendeNullen$ (Zahl%, SollLaenge%)

Neu$ = LTRIM$(STR$(Zahl%))

DO

        AktuelleLaenge% = LEN(Neu$)

        IF AktuelleLaenge% = SollLaenge% THEN     'Die L„nge stimmt!

                FuehrendeNullen$ = Neu$           'Wert zurckliefern

                EXIT DO

        ELSEIF AktuelleLaenge% > SollLaenge% THEN 'Zahl ist gr”áer als 9999,

                FuehrendeNullen$ = LEFT$(Neu$, 4) 'daher die letzten 4 Ziffern verwenden

                EXIT DO

        ELSEIF AktuelleLaenge% < SollLaenge% THEN 'Zahl ist zu kurz,

                Neu$ = "0" + Neu$                 'also 0 voranstellen

        END IF

LOOP

END FUNCTION

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.