fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Führende Nullen in QB

Uploader:	Sebastian
Datum/Zeit:	23.03.2008 16:10:56

DECLARE FUNCTION FuehrendeNullen$ (Zahl%, SollLaenge%)



CLS

WIDTH 80, 43 'Den Bildschirm etwas groesser machen.

FOR i% = 1 TO 1000

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

        PRINT N$

        '^- stattdessen: CALL SET.PICTURE(0,0,N$)

        IF i% MOD 41 = 0 THEN SLEEP 1: CLS 'Alle 41 Namen 2s warten

NEXT i%

BEEP

PRINT

PRINT "Fertig."

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.