fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Variable Funktionsauswahl per function-Pointer

Uploader:	Sannaj
Datum/Zeit:	22.03.2011 20:16:29

' Test. Variabel ausgewählte Function. Die durch den gleichen Namen angesprochen werden kann.



' Zuerst einen Functionspointer erstellen.

dim test as function(test as string) as integer



' Dann die beiden Auswahloptionen als Function

declare function varA(testI as string) as integer

declare function varB(testI as string) as integer



dim choise as string

dim i as integer

do

    ' Wähle die gewünschte Function.

    input "Bitte wähle 'a' oder 'b': ", choise

    if choise = "a" then

        ' Pointer zuweisen, genauso wie bei einer

        test = @varA()

        exit do

    elseif choise = "b" then

    '

        test = @varB()

        exit do

    end if

loop

i = test("Testtext")

print i

sleep



function varA(testI as string) as integer

    print "This is Option A!"

    print testI

    return -7

end function



function varB(testI as string) as integer

    print "This is Option B!"

    print testI

    return 8

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.