Objekt-Eigenschaft auslesen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Capus.

    Objekt-Eigenschaft auslesen

    Hallo,

    ich habe eine dumme anfängerfrage: In meinem Lehrbuch steht, dass man, wenn man die eigenschaft eines objektes auslesen will, eine Variable deklarieren muss und dann mit einem Punkt dahinter den eingeschaftsnamen setzen muss um es abzufragen, also z. B.

    Dim oObjektBeispiel As New ObjektBeispiel
    Label1.Text = oObjektBeispiel.BeispielTextEigenschaft()

    Das habe ich brav in meinem Programm (es ist mein erstes "eigenständig" programmiertes Programm mit einem Objekt, ein einfaches Star-Trek-Quiz) gemacht. Beim Programmstart drücke ich auf meinen Start-Button, und das Frage-Label und der Text der RadioButtons verschwinden. Ich weiß nicht, was ich falsch gemacht habe. Im Code der Klassendatei mit dem Objekt ist nur bei jeder Eigenschaft das "End Get" grün unterkringelt und es heißt: "Von der Eigenschaft "Question" wird nicht in allen Codepfaden ein Wert zurückgegeben. WEnn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisaufnahme erfolgen". Ich schätze, daran wird es liegen, aber ich weiß nicht, wie ich das beheben kann. Ich habe sogar einmal folgendes gemacht:

    Quellcode

    1. Public Property Question() As String
    2. Get
    3. vQuestion = "Test"
    4. Question() = vQuestion
    5. End Get
    6. Set(ByVal value As String)
    7. vQuestion = value
    8. End Set
    9. End Property


    Trozdem erhielt ich beim Ausführen nur ein leeres Textfeld und die Unterkringelung blieb.

    Hier ist der ganze Programmcode:

    Spoiler anzeigen

    Die Objekt-Datei

    Quellcode

    1. Public Class StarTrek
    3. Dim vQuestion As String
    4. Dim vOptionA, vOptionB, vOptionC, vOptionD As String
    5. Dim vRightAnswer As String
    7. Dim rdmArray As New Random
    10. 'Fragen-Arrays
    11. Dim CaptainEnterpriseD(5) As String
    12. Dim ReiseVoyager(5) As String
    13. Dim RangWesleyCrusher(5) As String
    14. Dim SpeziesNeelix(5) As String
    16. Public Property Question() As String
    17. Get
    18. Question() = "Test"
    19. End Get
    20. Set(ByVal value As String)
    21. vQuestion = value
    22. End Set
    23. End Property
    25. Public Property OptionA() As String
    26. Get
    27. OptionA() = vOptionA
    28. End Get
    29. Set(ByVal value As String)
    30. vOptionA = value
    31. End Set
    32. End Property
    34. Public Property OptionB() As String
    35. Get
    36. OptionB() = vOptionB
    37. End Get
    38. Set(ByVal value As String)
    39. vOptionB = value
    40. End Set
    41. End Property
    43. Public Property OptionC() As String
    44. Get
    45. OptionC() = vOptionC
    46. End Get
    47. Set(ByVal value As String)
    48. vOptionC = value
    49. End Set
    50. End Property
    52. Public Property OptionD() As String
    53. Get
    54. OptionD() = vOptionD
    55. End Get
    56. Set(ByVal value As String)
    57. vOptionD = value
    58. End Set
    59. End Property
    61. Public Property RightAnswer() As String
    62. Get
    63. RightAnswer() = vRightAnswer
    64. End Get
    65. Set(ByVal value As String)
    66. vRightAnswer = value
    67. End Set
    68. End Property
    71. Public Sub Deklaration()
    72. 'Hier werden die Arrays deklariert. Diese Funktion muss vor dem Benutzen des Fragebogens ausgeführt werden. (ich hab hier nicht alle reinkopiert, nur ein paar als beispiel).
    74. CaptainEnterpriseD(0) = "Wer ist der Captain der USS Enterprise D?"
    75. CaptainEnterpriseD(1) = "A: Captain Janeway"
    76. CaptainEnterpriseD(2) = "B: Captain Picard"
    77. CaptainEnterpriseD(3) = "C: Captain Kirk"
    78. CaptainEnterpriseD(4) = "D: Captain Spock"
    79. CaptainEnterpriseD(5) = "B"
    81. ReiseVoyager(0) = "Wie lange dauerte die Reise der USS Voyager?"
    82. ReiseVoyager(1) = "A: 5 Jahre"
    83. ReiseVoyager(2) = "B: 3 Wochen"
    84. ReiseVoyager(3) = "C: 17 Jahre"
    85. ReiseVoyager(4) = "D: 7 Jahre"
    86. ReiseVoyager(5) = "D"
    88. RangWesleyCrusher(0) = "Welchen Rang hatte Wesley Crusher inne, als er an Bord der USS Enterprise D diente?"
    89. RangWesleyCrusher(1) = "A: Crewman"
    90. RangWesleyCrusher(2) = "B: Chief Petty Officer"
    91. RangWesleyCrusher(3) = "C: Fähnrich"
    92. RangWesleyCrusher(4) = "D: Captain"
    93. RangWesleyCrusher(5) = "C"
    96. End Sub
    98. Public Sub Datenauswahl()
    100. 'Deklaration der Arrays
    101. Call Deklaration()
    103. 'Hier werden den Variablen der Eigenschaften die Arrays mit den Strings mit Fragen und Antwortmöglichkeiten zugewiesen. Ich wollte die hier nicht alle reinkopieren, deshalb hab ich hier exemplarisch ein paar (die, die zu der Deklaration oben gehören):
    105. Dim WhichData As Integer
    109. WhichData = rdmArray.Next(4)
    111. If WhichData = 0 Then
    112. vQuestion = CaptainEnterpriseD(0)
    113. vOptionA = CaptainEnterpriseD(1)
    114. vOptionB = CaptainEnterpriseD(2)
    115. vOptionC = CaptainEnterpriseD(3)
    116. vOptionD = CaptainEnterpriseD(4)
    117. vRightAnswer = CaptainEnterpriseD(5)
    118. End If
    119. If WhichData = 1 Then
    120. vQuestion = ReiseVoyager(0)
    121. vOptionA = ReiseVoyager(1)
    122. vOptionB = ReiseVoyager(2)
    123. vOptionC = ReiseVoyager(3)
    124. vOptionD = ReiseVoyager(4)
    125. vRightAnswer = ReiseVoyager(5)
    126. End If
    127. If WhichData = 2 Then
    128. vQuestion = RangWesleyCrusher(0)
    129. vOptionA = RangWesleyCrusher(1)
    130. vOptionB = RangWesleyCrusher(2)
    131. vOptionC = RangWesleyCrusher(3)
    132. vOptionD = RangWesleyCrusher(4)
    133. vRightAnswer = RangWesleyCrusher(5)
    134. End If
    136. 'Ja, ich weiß, natürlich ist diese Lösung sehr provisorisch, aber sie müsste eig. auch funktionieren.
    138. End Sub
    140. End Class



    Und hier der Code des Formulars:

    Quellcode

    1. Public Class frmHaupt
    3. Dim oStarTrek As New StarTrek
    4. Dim blnAnswerRight As Boolean
    6. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    7. 'Generierung der Frage, Bereitschaft zur Ergebniseingabe
    10. btnStart.Enabled() = False
    14. 'Hier werden die Daten der Frage, die zufällig aufgerufen wurde, abgefragt.
    15. Call oStarTrek.Deklaration()
    16. Call oStarTrek.Datenauswahl()
    18. lblQuestion.Text = oStarTrek.Question()
    19. radOptionA.Text = oStarTrek.OptionA()
    20. radOptionB.Text = oStarTrek.OptionB()
    21. radOptionC.Text = oStarTrek.OptionC()
    22. radOptionD.Text = oStarTrek.OptionD()
    25. End Sub
    27. Private Sub CheckTheAnswer()
    28. 'Überprüfung der ausgewählten Daten
    30. If oStarTrek.RightAnswer() = "A" Then
    31. If radOptionA.Checked = True Then
    32. blnAnswerRight = True
    33. End If
    34. If radOptionA.Checked = False Then
    35. blnAnswerRight = False
    36. End If
    37. End If
    38. If oStarTrek.RightAnswer() = "B" Then
    39. If radOptionB.Checked = True Then
    40. blnAnswerRight = True
    41. End If
    42. If radOptionB.Checked = False Then
    43. blnAnswerRight = False
    44. End If
    45. End If
    46. If oStarTrek.RightAnswer() = "C" Then
    47. If radOptionC.Checked = True Then
    48. blnAnswerRight = True
    49. End If
    50. If radOptionC.Checked = False Then
    51. blnAnswerRight = False
    52. End If
    53. End If
    54. If oStarTrek.RightAnswer() = "D" Then
    55. If radOptionD.Checked = True Then
    56. blnAnswerRight = True
    57. End If
    58. If radOptionD.Checked = False Then
    59. blnAnswerRight = False
    60. End If
    61. End If
    63. End Sub
    65. Private Sub btnBestaetigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBestaetigen.Click
    67. Call CheckTheAnswer()
    69. End Sub
    71. Noch ein paar unwichtige Prozeduren um dem benutzer zu sagen,
    72. End Class




    Wenn mir jemand sagen könnte, was ich falsch gemacht habe, wäre ich ihm sehr dankbar.

    MfG Capus

    Die Getter deiner Properties sind ein wenig blödsinnig.
    Du hast es so:

    VB.NET-Quellcode

    1. Public Property OptionA() As String
    2. Get
    3. OptionA() = vOptionA
    4. End Get
    5. Set(ByVal value As String)
    6. vOptionA = value
    7. End Set
    8. End Property
    Im Getter weist du deinem Property wieder eine neue Variable zu, was in einer Endlosschleife endet.
    Richtig wäre es so:

    VB.NET-Quellcode

    1. Public Property OptionA() As String
    2. Get
    3. Return vOptionA
    4. End Get
    5. Set(ByVal value As String)
    6. vOptionA = value
    7. End Set
    8. End Property

Facebook
Telefonspende