Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

vraag over containment (Opgelost)

verhaba - 20/01/2009 10:47

Lid

Hallo
Ik heb een vraag over containment. Containment is een relatie tussen twee entiteiten. Ik heb een stukje code, waarvan ik begrijp wat het doet. Maar net het containment gedeelte, dus waar het ene object een relatie heeft met het andere object, zie ik over het hoofd. Kan iemand me helpen aub?
Alvast bedankt

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Class Person
    Private m_Name As String
    Public Function GetName() As String
        GetName = m_Name
    End Function
    Public Sub SetName(ByVal value As String)
        m_Name = value
    End Sub
    Private m_Address As Address
    Public Function GetAddress() As Address
        GetAddress = m_Address
    End Function
    Public Sub SetAddress(ByVal value As Address)
        m_Address = value
    End Sub
End Class
Class Address
    Private m_Street As String
    Public Function GetStreet() As String
        GetStreet = m_Street
    End Function
    Public Sub SetStreet(ByVal value As String)
        m_Street = value
    End Sub
    Private m_Number As String
    Public Function GetNumber() As String
        GetNumber = m_Number
    End Function
    Public Sub SetNumber(ByVal value As String)
        m_Number = value
    End Sub
    Private m_ZipCode As String
    Public Function GetZipCode() As String
        GetZipCode = m_ZipCode
    End Function
    Public Sub SetZipCode(ByVal value As String)
        m_ZipCode = value
    End Sub
    Private m_City As String
    Public Function GetCity() As String
        GetCity = m_City
    End Function
    Public Sub SetCity(ByVal value As String)
        m_City = value
    End Sub
End Class
Module Client1
    Sub Main()
        Dim address1 As Address = New Address
        address1.SetStreet("Royal Avenue")
        address1.SetNumber("10")
        address1.SetZipCode("90210")
        address1.SetCity("Beverly Hills")
        '
        Dim person1 As Person = New Person
        person1.SetName("John")
        person1.SetAddress(address1)
        '
        Print(person1)
        '
        Console.ReadLine()
    End Sub
    Sub Print(ByVal person As Person)
        Console.WriteLine(person.GetName())
        If person.GetAddress() IsNot Nothing Then
            With person.GetAddress()
                Console.WriteLine(.GetNumber() & ", " & .GetStreet())
                Console.WriteLine(.GetCity() & " " & .GetZipCode())
            End With
        End If
    End Sub
End Module

            
Class Person
    Private m_Name As String
    Public Function GetName() As String
        GetName = m_Name
    End Function
    Public Sub SetName(ByVal value As String)
        m_Name = value
    End Sub
    Private m_Address As Address
    Public Function GetAddress() As Address
        GetAddress = m_Address
    End Function
    Public Sub SetAddress(ByVal value As Address)
        m_Address = value
    End Sub
End Class
Class Address
    Private m_Street As String
    Public Function GetStreet() As String
        GetStreet = m_Street
    End Function
    Public Sub SetStreet(ByVal value As String)
        m_Street = value
    End Sub
    Private m_Number As String
    Public Function GetNumber() As String
        GetNumber = m_Number
    End Function
    Public Sub SetNumber(ByVal value As String)
        m_Number = value
    End Sub
    Private m_ZipCode As String
    Public Function GetZipCode() As String
        GetZipCode = m_ZipCode
    End Function
    Public Sub SetZipCode(ByVal value As String)
        m_ZipCode = value
    End Sub
    Private m_City As String
    Public Function GetCity() As String
        GetCity = m_City
    End Function
    Public Sub SetCity(ByVal value As String)
        m_City = value
    End Sub
End Class
Module Client1
    Sub Main()
        Dim address1 As Address = New Address
        address1.SetStreet("Royal Avenue")
        address1.SetNumber("10")
        address1.SetZipCode("90210")
        address1.SetCity("Beverly Hills")
        '
        Dim person1 As Person = New Person
        person1.SetName("John")
        person1.SetAddress(address1)
        '
        Print(person1)
        '
        Console.ReadLine()
    End Sub
    Sub Print(ByVal person As Person)
        Console.WriteLine(person.GetName())
        If person.GetAddress() IsNot Nothing Then
            With person.GetAddress()
                Console.WriteLine(.GetNumber() & ", " & .GetStreet())
                Console.WriteLine(.GetCity() & " " & .GetZipCode())
            End With
        End If
    End Sub
End Module
 

15 antwoorden

Gesponsorde links

nemesiskoen - 20/01/2009 10:55
PHP expert		Er zit in de klasse person een variabele m_Address die de gegevens bijhoudt van een bepaald adres. Die variabele is dus de koppeling tussen persoon en adres. Ik begrijp niet echt goed wat er _niet_ aan te snappen valt.

Ontani - 20/01/2009 10:55
-1		binnen de Class Person staat een variabele: vb.net code - Bekijk de code zonder highlighting - Klap code in Private m_Address As Address Private m_Address As Address die wordt opgevuld met: vb.net code - Bekijk de code zonder highlighting - Klap code in Public Sub SetAddress(ByVal value As Address) m_Address = value End Sub Public Sub SetAddress(ByVal value As Address) m_Address = value End Sub Dus met: vb.net code - Bekijk de code zonder highlighting - Klap code in Dim person1 As Person = New Person person1.SetAddress(address1) Dim person1 As Person = New Person person1.SetAddress(address1) wordt de relatie gelegd

verhaba - 20/01/2009 11:02 (laatste wijziging 20/01/2009 11:03)
Lid		OK thanks mannekes... dat is al dat. Tweede vraag: Hoe komt het dat geen error geeft want in vbnet code - Bekijk de code zonder highlighting - Klap code in Private m_Address as Address Private m_Address as Address is de Class Address toch nog niet geînitialiseerd?

Wim - 20/01/2009 11:33
Crew algemeen		Volgens mij is dat door dezelfde reden als dat je in php een functie kan gebruiken ookal wordt ze later in je code pas aangemaakt. Even een kleine opmerking, je hebt veel get en set-functie's, VB.NET heeft daar ook properties voor waar je gebruik van kunt maken: vbnet code - Bekijk de code zonder highlighting - Klap code in Public Property Name() As String Get Return m_Name End Get Set(ByVal value As String) m_name = value End Set End Property Public Property Name() As String Get Return m_Name End Get Set(ByVal value As String) m_name = value End Set End Property

Ontani - 20/01/2009 11:35
-1		Is een gedownload voorbeeld GDX, heeft ie nie zelf geschreven.

verhaba - 20/01/2009 11:40
Lid		OK. thx vrienden. de tweede vraag was maar een detail, maar stelde ze gewoon maar effe uit curieusiteit. Ik zal ze mss best eens aan de leerkracht stellen... Ik hou jullie op de hoogte van het antwoord. Thx.

Mario - 20/01/2009 11:57 (laatste wijziging 20/01/2009 11:59)
Crew algemeen		verhaba schreef: is de Class Address toch nog niet geînitialiseerd? Bij het aanmaken van een Class is deze gekend in de ganse Solution, net zoals de class Form en duizenden andere classes in het .net framework. Greetzzzz RedThread

verhaba - 20/01/2009 14:24 (laatste wijziging 20/01/2009 16:19)
Lid		Puik... Heel mooi... Man man man... er valt me nog veel te leren me dunkt. Er schiet me nu net iets te binnen. in plaats van procedures en/of functies te gebruiken in bovenstaande Class Person was het gebruik van een property toch ook toegestaan, of niet?

Abbas - 20/01/2009 16:38 (laatste wijziging 20/01/2009 16:40)
Crew .NET		Het is zelfs aangeraden het te gebruiken, daar dienen ze tenslotte voor, je hoeft het niet enkel voor de klasse Person te doen, maar je kan ze ook toepassen op de klasse Address.

verhaba - 20/01/2009 17:11
Lid		idd.. Het was enkel maar ter voorbeeld. De leerkracht vb heeft er een andere visie over (denk ik). Hier is zijn oordeel: ' Property = toekennen van values aan velden (set). Ook heb je hier een onderdeel dat een teruugeefwaarde bevat (get). Meestal gebruik je hier geen bewerkingen Sub = bewerking uitvoeren (mutator - manipulatie), zonder het resultaat terug naar de main te sturen. Wens je het toch terug te sturen, dan maak je gebruik van een functie Functie = teruggeven van een waarde (result), meestal gekoppeld aan een bewerking. Het louter en alleen teruggeven van de waarde van een veld doe je met een property.'

Abbas - 20/01/2009 17:24

Crew .NET

Dat is in mijn ogen een foute visie want je haalt niet enkel een waarde op met een Property (Get), je kan ook perfect een waarde veranderen met een Property (Set). Zoals ik al zei: daar dienen ze voor. En wat betreft die Subs/Functions, binnen een klasse noemen ze zoiets Methods, klein voorbeeld:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Class Persoon

    'Private velden (Fields)
    Private mNaam As String
    Private mGebJaar As Integer
    
    'Publieke eigenschappen (Properties)
    Public Property Naam() As String
        Get
            Return mNaam
	End Get
	Set(ByVal value as String)
	    mNaam = value
	End Set
    End Property
    Public Property GeboorteJaar() As Integer
        Get
	    Return mGebJaar
	End Get
	Set(ByVal value as Integer)
	    mGebJaar = value
        End Set
    End Property

    'Publieke functies (Methods)
    Public Shared Function GetLeeftijd(Jaar) As Integer
        Return DateTime.Now.Year - Jaar
    End Function

End Class

            
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
 
Class Persoon
 
    'Private velden (Fields)
    Private mNaam As String
    Private mGebJaar As Integer
 
    'Publieke eigenschappen (Properties)
    Public Property Naam() As String
        Get
            Return mNaam
	End Get
	Set(ByVal value as String)
	    mNaam = value
	End Set
    End Property
    Public Property GeboorteJaar() As Integer
        Get
	    Return mGebJaar
	End Get
	Set(ByVal value as Integer)
	    mGebJaar = value
        End Set
    End Property
 
    'Publieke functies (Methods)
    Public Shared Function GetLeeftijd(Jaar) As Integer
        Return DateTime.Now.Year - Jaar
    End Function
 
End Class
 

Ontani - 21/01/2009 00:34
-1		De visie van je leerkracht is gebaseerd op Java waarin geen Properties bestaan en alles waar private variabele moeten worden opgevuld gedaan wordt met een Set en alles wat opgehaald moet worden met een Get. Maar in VB.Net zoals titjes hierboven al aanhaald zijn daar Properties voor voorzien.

Ontani - 21/01/2009 00:36
-1		De visie van je leerkracht is gebaseerd op Java waarin geen Properties bestaan en alles waar private variabele moeten worden opgevuld gedaan wordt met een Set en alles wat opgehaald moet worden met een Get. Maar in VB.Net zoals titjes hierboven al aanhaald zijn daar Properties voor voorzien.

Abbas - 21/01/2009 00:37
Crew .NET		Gaan we een beetje dubbelposten? ^^

Ontani - 21/01/2009 08:11
-1		Lekker timeouten, dan gebeurd zoiets wel eens

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten