Ein konkretes Klassen-Projekt zum Lernen und Entwickeln

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Ein konkretes Klassen-Projekt zum Lernen und Entwickeln

    Hallo liebes Forum,

    nun ist es soweit. Ich habe mich rangesetzt und mir ein richtiges Beispiel (geeignetes Problem) ausgedacht, das ich verfolgen will, um ein wenig mehr mit Klassen zu machen.
    Im alten Thread hatte ich keine guten Beispiele und ich kannte mich nicht so gut aus. Hier darf jeder gerne seine Ideen einbringen. :)


    Ich habe mich an @VaporiZeds Beispiel Lebewesen gehalten und habe das Ganze anhand der biologischen Systematik strukturiert. "Lebewesen" ist im Programmtechnischen zu allgemein und damit MustInherit. Ebenso Säugetiere (diese haben aber schon bestimmte Eigenschaften), dann kommen die Paarhufer mit deren Eigenschaften, dann die Echten Schweine und zu guter letzt das Hausschwein. (Die Struktur ist etwas abgekürzt, aber das Prinzip ist klar ;) )

    1.) Ich möchte als Erstes ein Hausschwein erstellen. Wie übergebe ich am geschicktesten die Parameter?
    2.) Braucht es i.A. eine Public Shared Function CreateInstance?

    Ich stelle schon mal den ersten Code rein. Ist noch nackig.

    Viele Grüße

    Bartosz

    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften gesetzt.
    2. 'Assembly-Sprache ist Deutsch (Deutschland).
    4. Public Class Form1
    5. Private HS As New Hausschwein
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Debug.WriteLine("")
    9. End Sub
    10. End Class
    12. Public MustInherit Class Lebewesen
    13. Protected Alter As Integer
    14. Protected IQ As Integer
    15. Protected Sub New()
    17. End Sub
    18. Public MustOverride Sub Adaptivitaet() 'um auch ein Public MustOverride Sub drinzuhaben :-)
    19. End Class
    21. Public MustInherit Class Saeugetiere : Inherits Lebewesen
    22. Private kann_fliegen As Boolean
    23. Private hat_Fell As Boolean
    24. Private wie_viele_Zaehne As Integer
    25. Private Koerpertemperatur As Integer
    26. Public Sub New()
    27. MyBase.New()
    28. End Sub
    29. End Class
    31. Public MustInherit Class Paarhufer : Inherits Saeugetiere
    32. Public Structure Waffenarten
    33. Public Property hat_Hoerner As Boolean
    34. Public Property hat_Stosszaehne As Boolean
    35. Public Property hat_Klauen As Boolean
    36. Public Sub New(hatHoerner As Boolean, hatStosszaehne As Boolean, hatKlauen As Boolean)
    37. Me.hat_Hoerner = hatHoerner
    38. Me.hat_Stosszaehne = hatStosszaehne
    39. Me.hat_Klauen = hatKlauen
    40. End Sub
    41. End Structure
    42. Private ist_nachtaktiv As Boolean
    44. Public Sub New()
    45. MyBase.New()
    46. End Sub
    47. End Class
    49. Public MustInherit Class Echte_Schweine : Inherits Paarhufer
    50. Public Sub New()
    51. MyBase.New()
    52. End Sub
    53. End Class
    55. Public Class Hausschwein : Inherits Echte_Schweine
    56. Private dieses_wird_im_Stall_gehalten As Boolean
    57. Public Sub New()
    58. MyBase.New()
    59. End Sub
    61. Public Overrides Sub Adaptivitaet()
    62. 'Throw New NotImplementedException()
    63. End Sub
    64. End Class
    Bilder

    • BIld1 - Kopie.jpg

      91,18 kB, 994×398, 70 mal angesehen
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Solange Du in die Konstruktoren (Sub New) nichts reinschreibst, kannst Du sie auch weglassen. Das muss nur explizit hingeschrieben werden, wenn was drinsteht. Und wenn eine abgeleitete Klasse darauf besteht, dass die Initialisierung, die die Basisklasse im Konstruktor mach, auch wirklich vorgenommen wird, dann ruft sie im eigenen Konstruktor MyBase.New auf, und zwar zwangsläufig als erste Konstruktoranweisung:

    Basisklasse macht im Konstruktor was, abgeleitete Klasse will auch, dass das gemacht wird:

    VB.NET-Quellcode

    1. Public MustInherit Class Lebewesen
    2. Protected Alter As Integer
    3. Protected IQ As Integer
    4. Public Sub New() 'muss NICHT Protected sein; dank MustInherit kann man den eh nicht von außen aufrufen
    5. Alter = 0
    6. End Sub
    7. Public MustOverride Sub Adaptivitaet() 'um auch ein Public MustOverride Sub drinzuhaben :-)
    8. End Class
    10. Public MustInherit Class Saeugetiere : Inherits Lebewesen
    11. Private kann_fliegen As Boolean
    12. Private hat_Fell As Boolean
    13. Private wie_viele_Zaehne As Integer
    14. Private Koerpertemperatur As Integer
    15. Public Sub New()
    16. MyBase.New()
    17. End Sub
    18. End Class


    Basisklasse macht nix im Konstruktor, abgeleitete Klasse auch nicht:

    VB.NET-Quellcode

    1. Public MustInherit Class Lebewesen
    2. Protected Alter As Integer
    3. Protected IQ As Integer
    4. Public MustOverride Sub Adaptivitaet() 'um auch ein Public MustOverride Sub drinzuhaben :-)
    5. End Class
    7. Public MustInherit Class Saeugetiere : Inherits Lebewesen
    8. Private kann_fliegen As Boolean
    9. Private hat_Fell As Boolean
    10. Private wie_viele_Zaehne As Integer
    11. Private Koerpertemperatur As Integer
    12. End Class


    Lebewesen sollte keinen IQ haben. Oder wie willst Du den bei der Pflanze oder einem Pilz berechnen? Spekulatius: Auch bei einem Axolotl wird das m.E. schwierig, da es, solange es im juvenilen Stadium bleibt, quasi ewig leben kann. Und da der IQ-altersabhängig ist …

    zu Deinen Fragen: Wie übergibst Du Parameter? Kommt drauf an. Eine Möglichkeit ist: Durch den Konstruktor:

    VB.NET-Quellcode

    1. Public Sub New(ÜbergebenesAlter As Integer, ÜbergebenerIQ As Integer)
    2. Me.Alter = ÜbergebenesAlter
    3. Me.IQ = ÜbergebenerIQ


    Warum sind in den Zwischenklassen viele Punkte Private? EchtesHausschwein kann dann weder die Daten direkt anschauen noch ändern. Absicht?

    Zur Frage 2: CreateInstance ist nicht nötig, verwende ich auch nicht. Das ist dann nötig, wenn Du keinen Konstruktor zu Verfügung stellen willst oder mit Singletons arbeitest (z.B.)., Ich selber nutze CreateInstance oder ähnliches nicht. Habe keinen Anwendungszweck.

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    @VaporiZed Ok, danke Dir!
    IQ ist raus.
    Also wenn ich ein Hausschwein erstellen will, muss ich ja alle Daten festlegen. Mache ich das Klasse für Klasse (mit den jeweiligen Sub New()) oder sage ich einfach

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private HS As New Hausschwein(...,...,...)


    Warum sind in den Zwischenklassen viele Punkte Private
    Stimmt, mein Fehler. Sind jetzt Public
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Die ganzen Daten, die Du für Hausschwein festlegen willst, kannst Du entweder alle festlegen, indem Du die Solldaten über den Konstruktor reinwirfst. Oder Hausschwein kümmert sich selber darum. Wenn die Daten (auch die in den Basisklassen) Public sind, kannst Du auch schreiben:

    VB.NET-Quellcode

    1. Dim MeinKleinesSchweinchen As New Hausschwein With {.Alter = 5, wie_viele_Zähne = 52, …}

    Wenn die Protected sind, dann

    VB.NET-Quellcode

    1. Dim MeinKleinesSchweinchen As New Hausschwein()
    und im Konstruktor

    VB.NET-Quellcode

    1. Public Sub New()
    2. Alter = 5
    3. wie_viele_Zaehne = 52
    4. End Sub

    oder z.B. auch mit Parametern

    VB.NET-Quellcode

    1. Public Sub New(GewünschtesAlter As Integer)
    2. Alter = GewünschtesAlter
    3. wie_viele_Zaehne = 52
    4. End Sub

    ach ja: wie_viele_Zaehne ist - wenn man von deutschen Wörtern in englischem Code mal absieht - ungünstig. Besser: Anzahl_der_Zähne oder Zahnanzahl.
    Alter ist quasi in Ordnung. Spätestens wenn es um andere Sachen geht, bei denen die Zahlen nicht für sich selbst sprechen*, dann besser z.B. KoerperlaengeInCm
    Aber das ist wieder ein anderes Thema.

    * bei Alter ist mir zumindest ziemlich klar, dass damit Alter in Jahren gemeint ist
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    oder z.B. auch mit Parametern
    VB.NET-Quellcode
    Public Sub New(GewünschtesAlter As Integer)
    Alter = GewünschtesAlter
    wie_viele_Zaehne = 52
    End Sub
    ok, danke soweit.

    genau das: wie muss ich das aufrufen? Am besten alle Werte auf einmal übergeben.

    PS: auf 'Anzahl_der_Zaehne' geändert
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bartosz“ ()

    Dim MeinKleinesSchweinchen As New Hausschwein(10)
    Da hilft Dir dann aber auch VisualStudio weiter, s. Anhang
    Bilder

    • WithALittleHelpFromMyIDE.png

      2,46 kB, 282×43, 73 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Also in der letzten Klasse, ok. Übrigens, ich habe noch eine Klasse mehr gebraucht.

    Eine (vorerst) letzte Frage: Wie übergebe an Waffenarten neue Parameter? Weil hier sagt er, das ist kein Member:

    VB.NET-Quellcode

    1. Public Class Neues_Schwein : Inherits Hausschwein
    2. Public Sub New(


    VB.NET-Quellcode

    1. 'Option Strict On wurde in den Projekteigenschaften gesetzt.
    2. 'Assembly-Sprache ist Deutsch (Deutschland).
    4. Public Class Form1
    5. Private HS As New Neues_Schwein(10, False, False, 52, 36, False, False)
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Debug.WriteLine("")
    9. End Sub
    10. End Class
    12. Public MustInherit Class Lebewesen
    13. Protected Alter As Integer
    15. ' Basisklasse macht nix im Konstruktor, abgeleitete Klasse auch nicht:
    16. 'Public Sub New(uebergebenes_Alter As Integer) 'muss NICHT Protected sein; dank MustInherit kann man den eh nicht von außen aufrufen
    17. ' Alter = uebergebenes_Alter
    18. 'End Sub
    19. Public MustOverride Sub Adaptivitaet() 'um auch ein Public MustOverride Sub drinzuhaben :-)
    20. End Class
    22. Public MustInherit Class Saeugetiere : Inherits Lebewesen
    23. Public kann_fliegen As Boolean
    24. Public hat_Fell As Boolean
    25. Public Anzahl_der_Zaehne As Integer
    26. Public Koerpertemperatur As Integer
    27. 'Public Sub New()
    28. ' MyBase.New()
    29. 'End Sub
    30. End Class
    32. Public MustInherit Class Paarhufer : Inherits Saeugetiere
    33. Public Structure Waffenarten
    34. Public Property hat_Hoerner As Boolean
    35. Public Property hat_Stosszaehne As Boolean
    36. Public Property hat_Klauen As Boolean
    37. Public Sub New(hatHoerner As Boolean, hatStosszaehne As Boolean, hatKlauen As Boolean)
    38. Me.hat_Hoerner = hatHoerner
    39. Me.hat_Stosszaehne = hatStosszaehne
    40. Me.hat_Klauen = hatKlauen
    41. End Sub
    42. End Structure
    43. Public ist_nachtaktiv As Boolean
    45. 'Public Sub New()
    46. ' MyBase.New()
    47. 'End Sub
    48. End Class
    50. Public MustInherit Class Echte_Schweine : Inherits Paarhufer
    51. 'Public Sub New()
    52. ' MyBase.New()
    53. 'End Sub
    54. End Class
    56. Public Class Hausschwein : Inherits Echte_Schweine
    57. Public dieses_wird_im_Stall_gehalten As Boolean
    58. 'Public Sub New()
    59. ' MyBase.New()
    60. 'End Sub
    62. Public Overrides Sub Adaptivitaet()
    63. 'Throw New NotImplementedException()
    64. End Sub
    65. End Class
    67. Public Class Neues_Schwein : Inherits Hausschwein
    68. Public Sub New(
    69. uebergebenes_Alter As Integer,
    70. kann_fliegen As Boolean,
    71. hat_Fell As Boolean,
    72. Anzahl_der_Zaehne As Integer,
    73. Koerpertemperatur As Integer,
    74. ist_nachtaktiv As Boolean,
    75. dieses_wird_im_Stall_gehalten As Boolean)
    76. 'MyBase.New()
    77. Alter = uebergebenes_Alter
    78. Me.kann_fliegen = kann_fliegen
    79. Me.hat_Fell = hat_Fell
    80. Me.Anzahl_der_Zaehne = Anzahl_der_Zaehne
    81. Me.Koerpertemperatur = Koerpertemperatur
    82. Me.ist_nachtaktiv = ist_nachtaktiv
    83. Me.dieses_wird_im_Stall_gehalten = dieses_wird_im_Stall_gehalten
    85. End Sub
    86. Public Overrides Sub Adaptivitaet()
    87. 'Throw New NotImplementedException()
    88. End Sub
    90. End Class

    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    1. Neues_Schwein: Was ist denn das für eine Hausschweinart? Eine neue? Denn das wird hier suggeriert. Es ist kein Hausschwein, sondern eine Unterart von Hausschwein. Ist das beabsichtigt?
    2. Solange diese Structure Waffenarten nur besteht, aber es in den Hausschweinklassen keine Variable vom Typ Waffenarten gibt, ist die Structure nutzlos. Wenn Du aber eine entsprechende Variable in der Hausschweinklasse (Public Waffenart As Waffenarten) hast, dann kannst Du schreiben:

      VB.NET-Quellcode

      1. Dim MeinSchwein As New Hausschwein()
      2. MeinSchwein.Waffenart = New Paarhufer.Waffenarten(False, False, False)

    3. Man sollte gewisse Sachen nicht über den Konstruktor einstellen können. Manche Sachen sollte die Klasse selber festlegen. Sonst haben wir irgendwann hochgefährliche, fliegende, nachtaktive Schweine, die mit einer Körpertemperatur von 0 K den Planeten vergletschern.
    4. nested structures wie Waffenarten - oder gar Structures allgemein - sind nur selten nützlich. Nutze sie nur, wenn Du weißt, dass eine Class Dir keinen Vorteil bringt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    1.) Ich nutze wieder

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private S As New Hausschwein(10, False, False, 52, 36, False, False, False, False, False)


    Ich dachte vorhin kurz, ich muss eine Klasse Neues_Schwein schreiben, da ich nicht auf alles Zugriff hatte. Hat sich aber erledigt. Gut, dass du das nochmal erwähnst.

    2.) Geändert und läuft:

    VB.NET-Quellcode

    1. Public Class Hausschwein : Inherits Echte_Schweine
    2. Public dieses_wird_im_Stall_gehalten As Boolean
    3. Public Waffenart As Waffenarten
    4. Public Sub New(
    5. uebergebenes_Alter As Integer,
    6. kann_fliegen As Boolean,
    7. hat_Fell As Boolean,
    8. Anzahl_der_Zaehne As Integer,
    9. Koerpertemperatur As Integer,
    10. ist_nachtaktiv As Boolean,
    11. dieses_wird_im_Stall_gehalten As Boolean,
    12. hat_hoerner As Boolean,
    13. hat_Klauen As Boolean,
    14. hat_Stosszaehne As Boolean)
    15. 'MyBase.New()
    16. Alter = uebergebenes_Alter
    17. Me.kann_fliegen = kann_fliegen
    18. Me.hat_Fell = hat_Fell
    19. Me.Anzahl_der_Zaehne = Anzahl_der_Zaehne
    20. Me.Koerpertemperatur = Koerpertemperatur
    21. Me.ist_nachtaktiv = ist_nachtaktiv
    22. Me.dieses_wird_im_Stall_gehalten = dieses_wird_im_Stall_gehalten
    23. Me.Waffenart.hat_Hoerner = hat_hoerner
    24. Me.Waffenart.hat_Klauen = hat_Klauen
    25. Me.Waffenart.hat_Stosszaehne = hat_Stosszaehne
    26. End Sub


    3.)
    Sonst haben wir irgendwann hochgefährliche, fliegende, nachtaktive Schweine, die mit einer Körpertemperatur von 0 K den Planeten vergletschern.
    Ja, hmm, es gibt ja fliegende Säugetiere (Fledermaus, Flughund)... D.h. die Klasse Hausschwein soll das selbst regeln, ok. Ich schreib da mal 'was zu.

    4.) War nur zu Übungszwecken.
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Bartosz schrieb:

    gibt ja fliegende Säugetiere
    Ja, aber mit Dim CreepyPig As New Hausschwein(999, True, True, 1024, -273, True, False, True, True, True) hab ich ein gruseliges und hochgefährliches Hausschwein. Daher sollte die Hausschweinklasse selber festlegen, dass es z.B. eine gewisse Körpertemperatur hat und nicht fliegen kann. Und diese Daten sollte man von außen auch nicht festlegen (Konstruktor) oder ändern (Methode oder gar direkter Zugriff auf die Variablen) können:

    VB.NET-Quellcode

    1. Public Class Hausschwein : Inherits Echte_Schweine
    2. Public dieses_wird_im_Stall_gehalten As Boolean
    3. Public Waffenart As Waffenarten
    4. Public Sub New(uebergebenes_Alter As Integer, dieses_wird_im_Stall_gehalten As Boolean)
    5. Alter = uebergebenes_Alter
    6. Me.kann_fliegen = False
    7. Me.hat_Fell = False 'naja, ist relativ mit den Borsten
    8. Me.Anzahl_der_Zaehne = 44
    9. Me.Koerpertemperatur = 39
    10. Me.ist_nachtaktiv = False
    11. Me.dieses_wird_im_Stall_gehalten = dieses_wird_im_Stall_gehalten
    12. Me.Waffenart = New Paarhufer.Waffenarten(False, False, False, False)
    13. End Sub

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Das klappt alles wunderbar. Danke nochmals!

    Zwei Fragen noch zum Schluss: Muss ich irgendwas von Lebewesen bis Hausschwein disposen? Oder muss ich noch irgendwas beachten?
    Und: In der grauen Infobox ist neben dem Feld von Alter ein * zu sehen (siehe Anhang). Was bedeutet das? Wegen Protected?

    Erledigt ^^
    Bilder

    • Screenshot - Kopie.jpg

      49,91 kB, 643×234, 67 mal angesehen
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Spekulatius: das Stern bedeutet: geerbt von einer Basisklasse

    Disposen ist für mich gleichbedeutend mit IDisposable implementieren. Das ist nur dann notwendig, wenn Du mit Objekten arbeitest, die nicht automatisch plattgemacht werden. Oder eben solche, die IDisposable selber implementieren. Wenn ich z.B. eine Klasse habe, die etwas in einer bestimmten Schriftart auf dem Bildschirm darstellt und daher eine Font erstellt und nutzt, solange es lebt, implementiere ich dafür auch IDisposable, damit es dann im Disposing-Teil die Font entsorgt. Genauso mit Streams oder ggf. auch COM-Objekten. Du siehst: Bei einfachen Klassen ist das nicht nötig. Erst wenn man Objekte nutzt, die man disposen kann (weil sie ein Dispose als Methode anbieten) oder die man entsprechend der Klassendoku disposen sollte.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende