Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Vererbung ist auf dem Weg
Gestern hat dkl den von v1ctor erstellten Zweig für die Einführung der Vererbung in FreeBASIC in den Hauptzweig übernommen. Zuvor stellte er nach einigen Tests fest, dass die neuen Funktionen stabil genug sind, sodass sie für die nächste FreeBASIC-Version aufgenommen werden konnten.
Die Redaktion arbeitet bereits an den neuen Referenzeinträgen, damit die wichtigsten Informationen über die neuen Möglichkeiten in FreeBASIC zeitnah nach dem offiziellen Release nachgelesen werden können.
Um eine Vorstellung über die Vererbung in FreeBASIC zu geben, hier ein kleines Beispiel:
Type Wolf Extends Object
As Integer beine = 4
As Integer schwanz = 1
As Integer schnauze = 1
Declare Sub bellen ()
End Type
Sub Wolf.bellen ()
Print "Wuff!"
End Sub
Type Wildhund Extends Wolf
As Integer menschenfreundlich = 1
End Type
Type Haushund Extends Wildhund
As Integer menschenfreundlich = 5
As Integer gehorsam = 5
End Type
'#####################################################
Dim As Haushund bello
Print "Bello hat " & bello.beine & " Beine und ist menschenfreundlich (Stufe: " & bello.menschenfreundlich & ")."
bello.bellen
Print
'#####################################################
Dim As Wolf balto = Wildhund()
If balto Is Wildhund Then
Print "Balto ist nicht gehorsam."
ElseIf balto Is Haushund Then
Print "Balto ist gehorsam."
Else
Print "Balto ist wohl ein Wolf."
EndIf
'#####################################################
Sleep
Gepostet von 
MOD am 21.11.2011 um 17:37:08