fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Constructor und base() in 0.25

Uploader:	MilkFreeze
Datum/Zeit:	25.11.2012 20:03:01

type VATER extends object

    declare constructor ()

    declare constructor( foo as string )

    foo as string

end type





type KIND extends VATER

    declare constructor( foo as string )

    declare constructor ()

    foo as string

end type



constructor VATER( foo as string )

    print "Vater sagt: " & foo

end constructor



constructor VATER(  )

    print "VATER TUT NICHTS"

end constructor



constructor KIND( foo as string )

    base( foo )

    print "KIND sagt: " & foo

end constructor



constructor KIND( )

    print "KIND TUT NICHTS"

end constructor



'Ausgabe: "Vater sagt: Hi" und "KIND sagt: Hi"

dim foo as KIND = KIND( "Hi" )



print



'Ausgabe: "VATER TUT NICHTS", "KIND TUT NICHTS"

dim bar as KIND = KIND( )

sleep

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.