OOP-Anfängerfragen

  • Allgemein

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    OOP-Anfängerfragen

    Mahlzeit,

    bevor zu Tisch geht habe ich noch ein paar Fragen zum Thema OOP.
    Mein Niveau: Anfänger (seit zwei Wochen habe ich den Anfänger quatsch hinter mir, sonst PHP und SQL mäßig bisher unterwegs gewesen)

    Also nachdem ich nun die ganzen Anfänger Tuts durch habe und das Ziel meiner ersten richtigen Anwendung verfolge, stoße ich nun an den Punkt objektorientierte Programmierung. Es gibt je die ganzen Standard-Klassen von .NET, aber wenn ich hiervon ein Objekt erstelle, kann das ja nicht alles an der objektorientierten Programmierung sein. In der Literatur warten dort mehrere hunderte von Seiten auf mich und das ganze ist sehr trocken und theoretisch gehalten. Nun mal an meinem praktischen Beispiel meiner Kassen-Anwendung. Diese besteht aus Hauptanwendung (Kasse), Verwaltung (Artikel). Wie kommt nun die Objektorientierung ins Spiel?! Also lege ich eine Klasse Musterartikel am woraus später die Objekt Artikel bestehen? Und kommt dann in die Klasse Musterartikel die ganzen Eigenschaften von Artikel (die ja eigentlich als Spalten in der DB sind) und als Funktionen ArtikelAnlegen(), ArtikelÄndern(), ArtikelLöschen()? Diese Funktionen übernimmt ja eigentlich vom Grundsatz hier der DataAdapter?!

    Hat jemand eine kurze Einführung aus der der praktische Sinn der objektorientierten Programmierung wirklich hervor geht (Theorie schön und gut... 8-)), bin auch gerne bereit ein paar Seiten zu lesen, nur sollte das ganze irgendwie praktisch was für mich haben.

    DANKE FÜR ANTWORTEN :thumbup:

    Einfaches Beispiel einer Objektorientierung

    Auto-Klasse

    VB.NET-Quellcode

    1. Public Class Auto
    2. Public Name As String
    3. Public PS As Integer
    4. Public Farbe As Color
    6. Public Sub New(Name As String, PS As Integer, Farbe As Color)
    7. Me.Name = Name
    8. Me.PS = PS
    9. Me.Farbe = Farbe
    10. End Sub


    Anwendung:

    VB.NET-Quellcode

    1. Private Autos As New List(Of Auto)
    3. Autos.Add(New Auto("Ford", 150, Color.Red))
    4. Autos.Add(New Auto("Opel", 45, Color.White))
    5. Autos.Add(New Auto("VW", 102, Color.Black))
    6. Autos.Add(New Auto("Renault", 75, Color.Blue))


    Heißt für eine Liste von Autos zu verwalten legst du eine Klasse an mit den Werten die für ein Auto gespeichert werden sollen. Genauso kann man OOP verwenden wenn man von einer Funktion mehrere Werte zurückgeben möchte

    VB.NET-Quellcode

    1. Private Function GetDefaultAuto() As Auto
    2. Return New Auto("VW", 105, Color.Green)
    3. End Function


    Damit wird eben der Code deutlich übersichtlicher als wenn du es z.B. im CSV Format speichern würdest und dann mit Array Parts arbeiten müsstest, wenn man mit OOP ein Code ließt wird einem gleich klar was wo zugeordnet wird z.B.

    VB.NET-Quellcode

    1. TextBox1.Text = Autos(1).Name
    2. Textbox2.Text = Autos(1).PS.ToString()
    3. Textbox3.Text = Autos(1).Farbe.ToString()


    Würde man ein Array vom Typ String haben sähe das schon schwieriger aus

    VB.NET-Quellcode

    1. Dim Parts As String() = Autos(1).Split(","c)
    2. Textbox1.Text = Parts[0]
    3. Textbox2.Text = Parts[1]
    4. Textbox3.Text = Parts[2]

    Ich benutze zu der OOP noch gerne die Ungarische Notation. Meiner Meinung nach ist der Programmierstil besser, obwohl es VB.Net ist. Vielleicht kennst das schon von PHP. Die Klasse von Dodo säh bei mir dann so aus :

    VB.NET-Quellcode

    1. Public Class Auto
    2. Public mName As String 'm für Member
    3. Public mPS As Integer
    4. Public mFarbe As Color
    6. Public Sub New(Name As String, PS As Integer, Farbe As Color)
    7. mName = Name
    8. mPS = PS
    9. mFarbe = Farbe
    10. End Sub


    Gruß, Trudi :thumbup:

    Nunja ich war zu Schreibfaul *g* normalerweise mache ichs auch Englisch und dann auch mir Datentypspezifischen Präfixen also für Integers "i" Strings "s" usw.

    Dann nutze ich auch meist die Variablen als Private und hole sie mir via Property, also bei mir sähe die Klasse so aus

    VB.NET-Quellcode

    1. Public Class Car
    2. Private sName As String
    3. Private iHP As Integer
    4. Private cColor As Color
    6. Public Sub New(ByVal Name As String, ByVal HP As Integer, ByVal Colour As Color)
    7. sName = Name
    8. iHP = HP
    9. cColor = Colour
    10. End Sub
    12. Public ReadOnly Property Name() As String
    13. Return sName
    14. End Property
    16. Public ReadOnly Property HP() As Integer
    17. Return iHP
    18. End Property
    20. Public ReadOnly Property Colour() As Color
    21. Return cColor
    22. End Property


    Weil manchmal sollen ja nur Werte gelesen aber nicht gesetzt werden, deswegen ReadOnly, zudem kann man hierbei noch Konvertierungen vornehmen, wenn ich z.B. Zeit und Datum seperat zuweisen und auslesen möchte nutzte ich trotzdem EINE gemeinsame Variable und beim auslesen, lese ich in der Property GetTime() nur die Zeit aus der gemeinsamen Variable und bei GetDatE() entsprechend nur das Datum aus, damit spart man sich schonmal eine unnötige Varialbe.

    @Trudi:
    Das ist nun alles mögliche, nur keine Hungarian Notation.
    "m" für Member ist C++.
    Hungarian Notation wäre etwa:

    VB.NET-Quellcode

    1. Public m_strName As String 'm für Member
    2. Public m_iPS As Integer
    3. Public m_colFarbe As Color
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ok, dann halt so ^^

    So sieht eine vollständige Klasse in meinem Programmierstil aus :
    Klasse

    VB.NET-Quellcode

    1. Public Class Server
    2. Private mOnlinePlayersCount As Integer
    3. Private mOnlinePlayers As List(Of String)
    4. Private mMaxPlayers As Integer
    5. Private mServerName As String
    6. Private mServerNameValidated As String
    7. Private mValidateServerName As Boolean
    8. Private mMap As String
    9. Private mPing As Integer
    11. ''' <summary>
    12. ''' Initlialisiert die Klasse
    13. ''' </summary>
    14. ''' <param name="Servername">Name vom Server</param>
    15. ''' <param name="OnlinePlayers">Liste mit den Spielern die Online sind</param>
    16. ''' <param name="OnlinePlayersCount">Anzahl der Spieler die Online sind</param>
    17. ''' <param name="MaxPlayers">Maximal erlaubte Spieler auf dem Server</param>
    18. ''' <param name="Map">aktuelle Map auf dem Server</param>
    19. ''' <param name="Ping">Reaktionszeit vom Server</param>
    20. ''' <param name="ValidateName">Soll der validierte Name zurück gegeben werden ?</param>
    21. ''' <remarks></remarks>
    22. Public Sub New(ByVal Servername As String, ByVal OnlinePlayers As List(Of String), ByVal OnlinePlayersCount As Integer, _
    23. ByVal MaxPlayers As Integer, ByVal Map As String, ByVal Ping As Integer, ByVal ValidateName As Boolean)
    24. mServerName = Servername
    25. mServerNameValidated = ServerNameValidator.Validate(Servername)
    26. mValidateServerName = ValidateName
    27. mOnlinePlayers = OnlinePlayers
    28. mOnlinePlayersCount = OnlinePlayersCount
    29. mMaxPlayers = MaxPlayers
    30. mMap = Map
    31. mPing = Ping
    32. End Sub
    34. ''' <summary>
    35. ''' Gibt den Servernamen zurück, wobei entschieden wird ob der Name validiert werden soll oder nicht
    36. ''' ( anhand der ValidateServerName Eigenschaft )
    37. ''' </summary>
    38. ''' <value></value>
    39. ''' <returns>Servername</returns>
    40. ''' <remarks></remarks>
    41. Public ReadOnly Property Name As String
    42. Get
    43. If mValidateServerName = True Then
    44. Return mServerNameValidated
    45. Else
    46. Return mServerName
    47. End If
    48. End Get
    49. End Property
    51. ''' <summary>
    52. ''' Gibt die Anzahl der Spieler zurück, die maximal zugelassen sind
    53. ''' </summary>
    54. ''' <value></value>
    55. ''' <returns>Maximale Spieleranzahl</returns>
    56. ''' <remarks></remarks>
    57. Public ReadOnly Property MaxPlayers As Integer
    58. Get
    59. Return mMaxPlayers
    60. End Get
    61. End Property
    63. ''' <summary>
    64. ''' Gibt die Anzahl der Spieler zurück, welche auf dem Server spielen
    65. ''' </summary>
    66. ''' <value></value>
    67. ''' <returns>Anzahl der Spieler die Online sind</returns>
    68. ''' <remarks></remarks>
    69. Public ReadOnly Property OnlinePlayersCount As Integer
    70. Get
    71. Return mOnlinePlayersCount
    72. End Get
    73. End Property
    75. ''' <summary>
    76. ''' Gibt eine Liste aller Spielernamen die auf dem Server online sind zurück
    77. ''' </summary>
    78. ''' <value></value>
    79. ''' <returns>Liste mit Spielernamen</returns>
    80. ''' <remarks></remarks>
    81. Public ReadOnly Property OnlinePlayers As List(Of String)
    82. Get
    83. Return mOnlinePlayers
    84. End Get
    85. End Property
    87. ''' <summary>
    88. ''' Servername wo nicht das erste Zeichen hinter einem ^ entfernt worden sind
    89. ''' </summary>
    90. ''' <value></value>
    91. ''' <returns>Servername</returns>
    92. ''' <remarks></remarks>
    93. Public ReadOnly Property UnvalidatedServerName As String
    94. Get
    95. Return mServerName
    96. End Get
    97. End Property
    99. ''' <summary>
    100. ''' Servername, wo der erste Buchstabe hinter einem ^ gelöscht wurde
    101. ''' </summary>
    102. ''' <value></value>
    103. ''' <returns>Servername</returns>
    104. ''' <remarks></remarks>
    105. Public ReadOnly Property ValidatedServerName As String
    106. Get
    107. Return mServerNameValidated
    108. End Get
    109. End Property
    111. ''' <summary>
    112. ''' Gibt an, ob der Servername validiert werden soll
    113. ''' </summary>
    114. ''' <value></value>
    115. ''' <returns>gibt zurück ob der Servername validiert werden soll</returns>
    116. ''' <remarks></remarks>
    117. Public Property ValidateServerName As Boolean
    118. Set(ByVal value As Boolean)
    119. mValidateServerName = value
    120. End Set
    121. Get
    122. Return mValidateServerName
    123. End Get
    124. End Property
    126. ''' <summary>
    127. ''' Gibt den Spieltyp vom Server zurück
    128. ''' </summary>
    129. ''' <value></value>
    130. ''' <returns>Spieltyp</returns>
    131. ''' <remarks></remarks>
    132. Public ReadOnly Property Map As String
    133. Get
    134. Return mMap
    135. End Get
    136. End Property
    138. ''' <summary>
    139. ''' Gibt die Reaktionszeit vom Server zurück, bei einem Fehler oder wenn der Server nicht erreicht wurde,
    140. ''' wird -1 zurück gegeben
    141. ''' </summary>
    142. ''' <value></value>
    143. ''' <returns>Reaktionszeit vom Server</returns>
    144. ''' <remarks></remarks>
    145. Public ReadOnly Property Ping As Integer
    146. Get
    147. Return mPing
    148. End Get
    149. End Property
    151. End Class



    Properties sind das beste an der OOP von .Net Sprachen, sonst finde ich C++ besser ^^

    Gruß, Trudi

    Gut gesättigt grad vom Mittag gekommen und sieht da: ERSTMAL DANKE!

    Ja nun ist meine Frage wie das ganze zu meiner Kassenanwendung passt? Ich meine wenn ich das Autobeispiel auf meine Artikel übertrage?! Ich meine muss ich alles doppelt definieren, also einmal in der DB und einmal als Eigenschaft der Klasse Artikel?

    Meine Tabelle Artikel sieht in der DB wie folgt aus:
    ArtNr - Integer (Primärschlüssel; AutoWert)
    ArtBez - String
    MwSt -Integer
    PreisNetto - Double

    Wenn ich zum Beispiel eine Funktion NewArtikel() anlegen will mache ich das in der Klasse Artikel?

    VB.NET-Quellcode

    1. Public Class Artikel
    2. Private m_iArtNr As Integer
    3. Private m_sArtBez As String
    4. Private m_iMwSt As Integer
    5. Private m_dPreisNetto As Double
    7. ' Sub New ist in VB.Net das selbe wie __construct in PHP (ist ein Konstruktor)
    8. Sub New(ByVal ArtNr As Integer, ByVal ArtBez As String, ByVal MwSt As Integer, ByVal PreisNetto As Double)
    9. m_iArtNr = m_iArtNr
    10. m_sArtBez = ArtBez
    11. m_iMwSt = MwSt
    12. m_dPreisNetto = PreisNetto
    13. End Sub
    15. Public ReadOnly Property ArtNr As Integer
    16. Get
    17. Return m_iArtNr
    18. End Get
    19. End Property
    21. Public ReadOnly Property ArtBez As String
    22. Get
    23. Return m_sArtBez
    24. End Get
    25. End Property
    27. Public ReadOnly Property MwSt As Integer
    28. Get
    29. Return m_iMwSt
    30. End Get
    31. End Property
    33. Public ReadOnly Property PreisNetto As Double
    34. Get
    35. Return m_dPreisNetto
    36. End Get
    37. End Property
    38. End Class


    Aufruf :

    VB.NET-Quellcode

    1. Dim art As New Artikel(0, "Spielzeugauto", 19, 69.99)
    3. Dim preis As Double = art.PreisNetto
    4. ' [...]


    Meinst du das so ?

    Gruß, Trudi

    Jetzt wäre das so halb die Klasse Artikel, jedoch ist die Klasse noch nicht mit der DB verbunden? Lasse ich die Klasse so oder wird in die Klasse noch die Verbindung zu DB hergestellt? Macht es überhaupt mit der DB Sinn eine eigene Klasse für Artikel zu erstellen?

    Funktionen für Artikel:
    - Artikel anlegen
    - Artikel ändern
    - Artikel löschen

    - Artikel auf Bon

    Obwohl hier die Frage wäre, ob "Artikel auf Bon" nicht zur Klasse Bon gehört?!

    Aus meiner Sicht fängst Du das von der falschen Seite an.
    Zunächst brauchst Du etwas Basis-Wissen, auch wenn es trocken ist. Das Problem ist nämlich, dass es recht viele Beispiele gibt, wofür man OOP bzw. Klassen braucht. Hier wurden Klassen meist als Datenhalter als Beispiel aufgezeigt. Es gibt aber noch viel mehr Anwendungsgebiete.

    Aus meiner Sicht gibt es zwei Entscheidende Dinge, die man über OOP wissen muss, damit man es einigermaßen versteht:

    1. Unterschied zwischen Klasse und Objekt.
    2. Die Merkmale von OOP.


    Vor allem Punkt 2 ist besonders wichtig. Alleine durch das Merkmal Kapselung erkennt man schnell, wozu man OOP brauchen kann.

    Meine erste Klasse:

    VB.NET-Quellcode

    1. Module Klassen
    2. Public Class SteuernComboBox
    4. Public Sub New(ByVal TEXT As String, ByVal ID As String)
    5. sText = TEXT
    6. iId = ID
    7. End Sub
    9. Private _text As String
    10. Private _id As String
    12. Public Property sText() As String
    14. Get
    15. Return _text
    16. End Get
    18. Set(ByVal TEXT As String)
    19. _text = TEXT
    20. End Set
    22. End Property
    24. Public Property iId() As String
    26. Get
    27. Return _id
    28. End Get
    30. Set(ByVal ID As String)
    31. _id = ID
    32. End Set
    34. End Property
    36. End Class
    37. End Module



    Anwendung:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Dim ComboList As New List(Of SteuernComboBox)
    6. ComboList.Add(New SteuernComboBox("7 Prozent", 7))
    7. ComboList.Add(New SteuernComboBox("19 Prozent", 19))
    9. For Each ul As SteuernComboBox In ComboList
    11. ComboBox1.Items.Add(ul.sText)
    13. Next
    15. End Sub
    16. End Class


    Soweit so guuuut ;) Also ich habe eine Klasse SteuerComboBox erstellt, die meine Werte für diese ComboBox verwalten soll. Nun habe ich eine Access-Datenbank in der ich nun Arikelt.MwSt mit ComboBox1.Items vergleichen will und bei Übereinstimmung soll der Wert auf default gesetzt werden. Sprich, wenn ein Artikel mit 7 in der DB hinterlegt ist, soll in der ComboBox "7 Prozent" stehen.


    Gruß John

    Memo schrieb:


    Möchtest du fertigen Code :cursing: ? - Falscher Hash ;)
    ----> IMMER HER DAMIT :thumbsup:

    Deine erste Klasse ist ein Modul, ;(
    Module sind VB-Nicht-Net-Code, von Modulen gibt es nur eine Instanz zur Laufzeit.
    Wenn dies Dein Ziel ist, generiere Dir eine richtige Klasse und deklariere die Prozeduren und Variablen mit Shared.
    Oder streiche die Zeilen
    Module Klassen
    End Module
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende