fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Beispielimplementierung eines Implements

Uploader:	theta
Datum/Zeit:	29.01.2012 21:12:30

#Define implements : 'ermöglicht, dass zwei Sachen in eine Zeile gehen

#Define kannFahren kannFahrenMakro()



#Macro kannFahrenMakro()

Declare Sub fahren(geschwindigkeit As UInteger)

Declare Function IstSchnell() As Integer

#EndMacro



Type Auto implements kannFahren 'Auto muss fahren(Integer) und IstSchnell() implementieren, sonst Fehler

    As String farbe,typ

End Type



Function Auto.IstSchnell() As Integer

    Return 2

End Function

Sub Auto.fahren(geschwindigkeit As UInteger)

    Print "Der ";farbe;" ";typ;" rast mit ";geschwindigkeit*IstSchnell();" Sachen!"

    Print "Brumm, Brumm..."

End Sub



Dim wagen As Auto

wagen.farbe="lilane"

wagen.typ="Fiat"



wagen.fahren(90)



GetKey

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.