Diskusia – 10. diel - Vlastnosti vo Visual Basic .NET

Späť

Upozorňujeme, že diskusie pod našimi online kurzami sú nemoderované a primárne slúžia na získavanie spätnej väzby pre budúce vylepšenie kurzov. Pre študentov našich rekvalifikačných kurzov ponúkame možnosť priameho kontaktu s lektormi a študijným referentom pre osobné konzultácie a podporu v rámci ich štúdia. Toto je exkluzívna služba, ktorá zaisťuje kvalitnú a cielenú pomoc v prípade akýchkoľvek otázok alebo projektov.

Komentáre

Jaroslav Trojan

Tvůrce

Jaroslav Trojan:3.7.2016 15:28

Upravené Vlastnosti:

Module Module1

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

' Console.WriteLine(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!

Odpovedať

3.7.2016 15:28

statik

Jaroslav Trojan

Tvůrce

Jaroslav Trojan:8.7.2016 13:06

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

Odpovedať

8.7.2016 13:06

statik

Libor Šimo (libcosenior)

Tvůrce

Libor Šimo (libcosenior):8.7.2016 18:06

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

Odpovedať

8.7.2016 18:06

Aj tisícmíľová cesta musí začať jednoduchým krokom.

VitekST

Člen

VitekST:8.7.2016 18:08

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.

Odpovedať

8.7.2016 18:08

Miroslav Holubek

Tvůrce

Miroslav Holubek:2.6.2020 13:14

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

Odpovedať

2.6.2020 13:14

Michal D.

Tvůrce

Michal D.:11.12.2022 15:35

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í:

Odpovedať

11.12.2022 15:35

Michal D.

Tvůrce

Michal D.:11.12.2022 16:09

' 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

Odpovedať

11.12.2022 16:09

David Novák

Tvůrce

David Novák:12.12.2022 5:46

Děkujeme :-) , opraveno.

Odpovedať

12.12.2022 5:46

David Novák

Tvůrce

David Novák:12.12.2022 5:46

Děkujeme :-) , opraveno.

Odpovedať

12.12.2022 5:46

Naučíme ťa pracovať na home-office.

Zistiť viac...

Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zatiaľ nikto nevložil komentár - buď prvý!

Najčastejšie vyhľadávané

Diskusia – 10. diel - Vlastnosti vo Visual Basic .NET