Klassen, Property, Konstruktor und Vererbung?

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von demolay.

    Klassen, Property, Konstruktor und Vererbung?

    Hallo nochmals!

    Meine Hausaufgaben getalten sich doch etwas komplizieter als erwartet. Deshalb mal ein neuer Thread.
    Ich habe folgende Aufgabe:

    In der zu erstellenden Anwendungen sollen die Daten von Bankkunden gespeichert werden, wobei
    zwischen Privatkunden und Firmenkunden zu unterscheiden ist.


    a. Erstellen Sie eine Klasse ClsKunde, die den Vornamen und Nachnamen sowie den
    Kontostand eines Kunden abspeichern kann.

    b. Stellen Sie durch einen geeigneten Gültigkeitsbereich sicher, dass die Variable für den
    Kontostand eines Kunden auch in von ClsKunde abgeleiteten Klassen verwendet werden
    kann.

    c. Erstellen Sie Property-Methoden zum Lesen und Schreiben des Vor- und Nachnamens
    sowie eine schreibgeschützte Property für den Kontostand.

    d. Programmieren Sie für die Klasse ClsKunde einen Konstruktor, der Parameterwerte für
    den Vor- und Nachnamen entgegennimmt und diese den entsprechenden Instanzvariablen
    bei der Erstellung eines Kundenobjektes zuweist.

    e. Erstellen Sie eine Methode GibZinsen, welche die für den aktuellen Kontostand pro
    Jahr anfallenden Zinsen berechnet und zurückgibt. Gehen Sie dabei von einem Zinssatz
    von 1,25% aus.

    f. Sorgen Sie dafür, dass die Methode GibZinsen in abgeleiteten Klassen überschrieben
    werden kann.

    g. Kopieren Sie den folgenden Methodenrumpf in die Klasse ClsKunde:
    Public Overrides Function ToString() As String
    End Function
    Implementieren Sie diese Methode so, dass eine Zeichenkette bestehend aus dem Vor- und
    dem Nachnamen des Kunden zurückgegeben wird.


    Tja, kurz gesagt habe ich wenig Ahnung wie das Meiste davon geht, habe es aber mal so probiert (Bei f und g habe ich absolut keinen PLAN):

    VB.NET-Quellcode

    1. Public Class ClsKunde
    3. Private _Vorname As String
    4. Private _Nachname As String
    5. Private _Vermoegen As Double
    6. Private _Gibzinsen As Double
    8. Public Property Vorname() As String
    9. Get
    10. Return _Vorname
    11. End Get
    12. Set(ByVal value As String)
    13. _Vorname = value
    14. End Set
    15. End Property
    17. Public Sub New(ByVal Vorname As String)
    18. _Vorname = Vorname
    19. End Sub
    20. Public Property Nachname() As String
    21. Get
    22. Return _Nachname
    23. End Get
    24. Set(ByVal value As String)
    25. _Nachname = value
    26. End Set
    27. End Property
    28. Public Sub New(ByVal Nachname As String)
    29. _Nachname = Nachname
    30. End Sub
    31. Public Overrides Function ToString() As String
    32. End Function
    34. Public ReadOnly Property Vermoegen() As Double
    35. Get
    36. Return _Vermoegen
    37. End Get
    39. End Property
    41. Public Sub New(ByVal Gibzinsen As Double)
    43. _Gibzinsen = Vermoegen / 100 * 125
    44. End Sub
    46. End Class


    Edit by Agent: VB-Tag eingefügt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Agent“ ()

    g) ist doch ganz einfach:

    VB.NET-Quellcode

    1. Public Overrides Function ToString() As String
    2. return _Vorname & " " & _Nachname
    3. End Function


    Zitat aus MSDN:
    ...Overridable kennzeichnet eine Methode als überschreibbar, also als nicht endgültig implementiert. In einer abgeleiteten KLasse kann die Methode neu implementiert werden und muss dort mit Overrides gekennzeichnet sein...
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

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

    Hallo Smith ;)

    so einfach ist das für mich gar nicht.
    Ich habs mal bei Zeile 31 ersetzt.

    Und f) ?

    In Zeile 17 ist immer das New unterschlängelt, ich weiß aber nicht warum. Die Fehlermeldung ist :

    "Public Sub New(Vorname As String)" hat mehrere Definitionen mit identischen Signaturen.

    In Zeile 28 bekomme ich diese Meldung nicht. Warum?

    Gibt es vielleicht ordentliche Literatur, wo ich diese Dinge nachlesen kann?

    f) siehe mein Zitat: "Overridable"

    Da du mehrere Konstruktoren mit "New" angelegt hast, musst du diese mit "Overloads" entsprechend kennzeichnen.

    Wenn dies noch nicht so einfach für dich ist, solltest du dich zunächst näher mit OOP beschäftigen, es gibt bestimmt jede Menge Tutors und Übungen.
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Öhm, schön wärs! Klar gibt es tutorien. Da kann ich schlecht hin, da ich hauptsächlich Wirtschaftsingenieur studiere und deshalb mein Vorlesungsplan zu dieser Zeit immer andere Fächer vorschreibt.

    Diese Hausaufgaben sind nun leider mal der Zugang zur Klausur.

    Ich würde hier niemals freiwillig so doofe Fragen stellen aber mir sitzt die Zeit im Nacken...

    Habe ich das richitg verstanden:

    Public overloads sub(ByVal Vorname As String)
    _Vorname = Vorname
    End Sub

    Dann erwartet man von mir aber einen Bezeichner nach sub. Was ist das?

    Sieht der restliche Text denn gut aus?

    Hi!

    Das Problem ist, dass du 2 Konstruktoren hast, die beide String annehmen (einer mit Vorname, einer mit Nachname). Wenn du jetzt x = new clsKunde("Maier") machst, kann ein doofer Computer schwer sagen, ob der Typ jetzt den Vornamen Maier oder den Nachnamen Maier hat ;)

    Ich würde hier einen Constructor machen, der Nachnamen annimmt und einen, der Vor- und Nachnamen annimmt. In den wenigsten Fällen wird man nen Kunden haben, von dem nur der Vorname bekannt ist, jedoch nicht der Nachname. In dem (Sonder-)Fall müsste man einen leeren Kunden anlegen und über die Eigenschaft einen Vornamen zuweisen. Dazu brauchst du dann noch einen leeren Constructor (also einen, der keine Parameter annimmt).


    mfG Andy



    PS: Ich finds interessant, dass so viele Schüler und Studenten mit ihren (Haus-)Aufgaben nicht fertig werden. Das kann doch nicht sein, dass von euch was verlang wird, was ihr nie gemacht habt bzw. nicht die Möglichkeit hattet es zu lernen?!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()

    Wenn ich New einfüge dann wird erst richtig gemeckert. Ich bin mir da nicht sicher. Wenn ich einfach "Identität" voranstelle, dann bekomme ich keine Fehlermeldung.

    Die Idee die beiden Konstruktore zusammenzufassen gefällt mir.
    Und jetzt bitte nicht steinigen...ist das so richtig?

    VB.NET-Quellcode

    1. Public Class ClsKunde
    3. Private _Vorname As String
    4. Private _Nachname As String
    5. Private _Vermoegen As Double
    6. Private _Gibzinsen As Double
    8. Public Property Vorname() As String
    9. Get
    10. Return _Vorname
    11. End Get
    12. Set(ByVal value As String)
    13. _Vorname = value
    14. End Set
    15. End Property
    17. Public Property Nachname() As String
    18. Get
    19. Return _Nachname
    20. End Get
    21. Set(ByVal value As String)
    22. _Nachname = value
    23. End Set
    24. End Property
    25. Public Sub New(ByVal Vorname As String, ByVal Nachname As String)
    27. _Vorname = Vorname
    28. _Nachname = Nachname
    30. End Sub
    31. Public Overrides Function ToString() As String
    32. Return _Vorname & " " & _Nachname
    33. End Function
    35. Public ReadOnly Property Vermoegen() As Double
    36. Get
    37. Return _Vermoegen
    38. End Get
    40. End Property
    42. Public Sub New(ByVal Gibzinsen As Double)
    44. _Gibzinsen = Vermoegen / 100 * 125
    45. End Sub
    47. End Class




    PS.:Doch leider. Es hieß letzte Vorlesung: Die Folien lese ich Ihnen jetzt aber nicht vor, das machen Sie mal im Selbststudium...
    Er hatte uns bis zu diesem Zeitpunkt Arrays, Objekte, Methoden, KLassen und die Definition für Vererbung und Polymorphismus "erklärt"
    Und jetzt knoble ich hier schon den ganzen Tag an meinen Aufgaben. Was ich hier erfrage ist nicht einmal ein Drittel davon :(

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „demolay“ ()

    Hi!

    Ein Constructor, der nur Gibzinsen annimmt macht irgendwie keinen Sinn... besonders, wenn du die übergebene Variable nichtmal verwendest.

    b. Stellen Sie durch einen geeigneten Gültigkeitsbereich sicher, dass die Variable für den
    Kontostand eines Kunden auch in von ClsKunde abgeleiteten Klassen verwendet werden
    kann.
    Hierfür musst du die Variable _Vermoegen als protected deklarieren.

    e. Erstellen Sie eine Methode GibZinsen, welche die für den aktuellen Kontostand pro
    Jahr anfallenden Zinsen berechnet und zurückgibt. Gehen Sie dabei von einem Zinssatz
    von 1,25% aus.

    Das war wohl dein missglückter Versuch von oben...
    Das ist über eine Funktion zu lösen:

    VB.NET-Quellcode

    1. Public Overridable Function GibZinsen () As Double
    2. return (Vermoegen / 100 * 125)
    3. End Function

    Die Variable _Gibzinsen gibts nicht, da die Zinsen ja nicht (zwischen-)gespeichert werden, sondern beim Aufrufen der Funktion berechnet und sofort zurück gegeben werden. Mit dem Schlüsselwort "Overridable", kann die Funktion in abgeleiteten Klassen überschrieben werden (siehe Agent's post).

    ansonsten müsste es passen :)


    mfG Andy


    PS: Normalerweise gleidert man Klassen mit #Region ... #End Region.
    Das Könnte dann in etwa so aussehen:

    VB.NET-Quellcode

    1. Public Class clsKunde
    2. #Region "Public Vars"
    3. 'du hast keine public Variablen, also kannst du den Block weglassen
    4. #End Region
    6. #Region "Private Vars"
    7. 'deine priavate Variablen
    8. #End Region
    10. #Region "Getters"
    11. 'Hier kommen alle Properties rein, die nur dazu da sind eine priavte Variable aus der Klasse "raus" zu bekommen.
    12. 'In deinem Fall nur Vermoegen
    13. #End Region
    15. #Region "Properties"
    16. 'Hier kommen dann alle anderen Properties rein
    17. #End Region
    19. #Region "Constructors"
    20. 'Hier kommen deine Konstruktoren rein
    21. 'in deinem Fall nur der eine, dens gibt ;)
    22. #End Region
    24. #Region "Distructor"
    25. 'Hier würde der Distructor rein kommen
    26. 'Kannst du weg lassen, da es bei dir keinen gibt.
    27. #End Region
    29. #Region "Methods"
    30. 'hier kommen dann alle Subs und Funktionen rein, die nicht überschrieben WERDEN
    31. 'überschreibbare, die nicht geerbt werden kommen hier also auch rein
    32. #End Region
    34. #Region "Overrides"
    35. 'hier kommen dann alle Subs und Funktionen rein, die überschrieben werden
    36. 'in deinem Fall ist das keine, somit kannst du diesen Region-Block auch weg lassen
    37. #End Region
    39. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()

    Ok, habe das mal geändert und neu sortiert.
    Protected habe ich noch gar nicht kennen gelernt! Und dass man so sortiert auch nicht.
    DAfür aber besonderen Dank.
    Hatte bei C++ immer das Prolem, dass ich keine Strucktur hatte, an der ich mich langhangeln konnte, bis OOP kam, dann war alles klar. Und bei VB bin ich noch lange nicht dabei, aber diese Gleiderung wird bestimmt helfen :))

    Noch eine kleine Frage: Ich habe meine Variablen alle schon oben instanziert (? zum double oder string gemacht) In den Properties taucht diese Einordnung ja nochmal auf. Ist das nicht doppelt gemoppelt?

    Kann ich unter den source code nun ein Häckchen machen und meine Nerven an den restlichen Aufgaben aufreiben :D ?

    VB.NET-Quellcode

    1. Public Class ClsKunde
    3. #Region "Private Vars"
    5. Private _Vorname As String
    6. Private _Nachname As String
    7. Protected _Vermoegen As Double
    8. Private _Gibzinsen As Double
    10. #End Region
    12. #Region "Getters"
    13. Public ReadOnly Property Vermoegen() As Double
    14. Get
    15. Return _Vermoegen
    16. End Get
    18. End Property
    20. #End Region
    22. #Region "Properties"
    23. Public Property Vorname() As String
    24. Get
    25. Return _Vorname
    26. End Get
    27. Set(ByVal value As String)
    28. _Vorname = value
    29. End Set
    30. End Property
    32. Public Property Nachname() As String
    33. Get
    34. Return _Nachname
    35. End Get
    36. Set(ByVal value As String)
    37. _Nachname = value
    38. End Set
    39. End Property
    40. #End Region
    42. #Region "Constructors"
    43. Public Sub New(ByVal Vorname As String, ByVal Nachname As String)
    45. _Vorname = Vorname
    46. _Nachname = Nachname
    48. End Sub
    49. #End Region
    51. #Region "Methods"
    52. Public Overrides Function ToString() As String
    53. Return _Vorname & " " & _Nachname
    54. End Function
    57. Public Overridable Function GibZinsen() As Double
    58. Return (Vermoegen / 100 * 125)
    59. End Function
    60. #End Region
    64. End Class


    sehe gerade, dass es bei der Zinsberechnung doch heißen müsste : Gibzinsen = Vermoegen *125 / 10000

    wäre schon, wenns 25% Zinsen gäbe ;)

    Falls das nun so korrekt ist, dann hat sich der Thread erledigt.
    Möchte allen für Ihre Hilfe danken!!!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „demolay“ ()

Facebook
Telefonspende