Diskuze – Lekce 10 - Vlastnosti ve Visual Basic .NET

Upravené Vlastnosti:

Module Module1

Sub Main()
Dim s As New Student("Pavel Hora", True, 20)
's.Vek = 15
' s.muz = True
Console.Write­Line(s)

' Console.Write­Line(objekt, Jmeno) 'číst
' objekt.Jmeno = "Jan Malý" 'zapisovat

Console.ReadKey()
End Sub

End Module

upravená třída Student:

Class Student
Public jmeno As String
Public muz As Boolean
Public vek As Integer
Public plnolety As Boolean
Public Sub New(jmeno As String, pohlavi As Boolean, vek As Integer)
Me.Jmeno = jmeno
Me.Muz = Muz
Me.Vek = vek
Plnolety = True
If vek < 18 Then
Plnolety = False
End If
End Sub
Public Overrides Function ToString() As String
Dim jsemPlnolety As String = "jsem"
If Not Plnolety Then
jsemPlnolety = "nejsem"
End If
Dim pohlavi As String = "muž"
If Not True Then
pohlavi = "žena"
Else
pohlavi = "muž"
End If
Return [String].Format("Jsem {0}, {1}.Je mi {2} let a {3} plnoletý.", Jmeno, pohlavi, Vek, jsemPlnolety)
End Function
Public Function VratJmeno() As String
Return jmeno
End Function

Public Function VratPlnoletost() As String
Return plnolety
End Function
Public Function VratVek() As Integer
Return vek
End Function
Public Function Muz1() As String
Return muz
End Function
Public Sub NastavVek(hodnota As Integer)
vek = hodnota
' přehodnocení plnoletosti
plnolety = True
If vek < 18 Then
plnolety = False
End If
End Sub
' Public Property Jmeno() As String
' Get
' Return Jmeno
' End Get
' Private Set(value As String)
' Jmeno = value
'End Set

'End Property
' Private jmeno As String
'Public Property Muz() As Boolean
'Get
'Return Muz
'End Get
'Private Set(value As Boolean)
' muz = value
'End Set
' End Property
' Private muz As Boolean
'Public Property Plnolety() As Boolean
'Get
'Return Plnolety
'End Get
'Private Set(value As Boolean)
' plnolety = value
'End Set
'End Property
' Private plnolety As Boolean
' Private vek As Integer
'Public Property Vek() As Integer
'Get
'Return Vek
'End Get
'Set(value As Integer)
' vek = value
'kontrola plnoletosti
' plnolety = True
'If vek < 18 Then
' plnolety = False
'End If
'End Set
'End Property

' část Property nefunguje, hlásí chyby!
' vyřadil jsem ji

End Class

ostatní pracuje dobře!

Ta třída Student stále nefunguje správně, pro nastavený věk 15 let vypíše: jsem plnoletý proč?
Když tam ponechám část Property s gettery a settery tak to hlásí spoustu chyb

A sám si sa nad tým zamyslel?

Co to má co dělat tady? Na to slouží diskuzní fórum, ne komentáře pod příspěvkem.
Navíc, dotaz jsem zodpověděl.

Je možné vytvoriť skrátený zápis, kde bude setter private?

Pokud si přejeme, aby vlastnost nešla mimo třídu měnit,
označíme getter jako privátní:

správně má být:

Pokud si přejeme, aby vlastnost nešla mimo třídu měnit,
označíme setter jako privátní:

' s.pohlavi = False ' tento řádek nyní způsobí chybu a musí být odebrán

správně má být:

' s.Muz = False ' tento řádek nyní způsobí chybu a musí být odebrán

Děkujeme , opraveno.

Děkujeme , opraveno.