Classes dans Visual Basic

Version imprimable

25/08/2015, 23h57
wallace27

Classes dans Visual Basic
Bonjour,

Est-ce que vous pourriez m'expliquer à quoi sert exactement la ligne "p_nom = value.ToUpper()". Je peine réellement à comprendre. Je remarque qu'apparemment elle ne sert pas à convertir toutes les lettre du nom en majuscules, ni la première lettre, ni je ne sais quoi d'autre... En fait je ne vois aucun effet concert à cette ligne du code...
Code:

1 2 3 4 5 6 7 8 Public Property nom() As String Get Return p_nom End Get Set(ByVal value As String) p_nom = value.ToUpper() End Set End Property
Voici le code lié au précédent si jamais :
Code:

1 2 3 4 5 Public Sub New(ByVal n As String, ByVal p As String, ByVal na As Date) nom = n prenom = p naissance = na End Sub
Merci pour votre aide précieuse.

ToUpper met bien en Majuscule toutes les lettres d'une chaine de caractère.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Property Nom() As [String] Get Return p_name End Get Set(ByVal value As String) p_name = value.ToUpper() End Set End Property Private p_name As String Public Sub New(name As String) Nom = name End Sub
Code:

1 2 3 4 5 6 Sub Main() Dim oui As New Class1("Bonjour") Console.WriteLine(oui.Nom) Console.Read() End Sub
http://puu.sh/jOwCb/96a9dde0cf.png

En gros chaque fois qu'on va attribuer une valeur à la proriété elle va se mettre en Majuscule.

Bonjour,

Merci beaucoup pour la réponse et pour votre exemple. Voici toutefois mon code dont les noms et prénom restent toujours qu'écrits initialement et qui ne sont jamais mutés en majuscules. C'est le cas à la fois de "jean dupont" et de "alain delon" :

La classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Class Personne
    Private p_nom As String
    Private p_prenom As String
    Private p_naissance As String
 
    Public Sub New(ByVal n As String, ByVal p As String, ByVal na As Date)
        p_nom = n
        p_prenom = p
        p_naissance = na
    End Sub
 
    Public Sub New()
        p_nom = "jean"
        p_prenom = "dupont"
 
    End Sub
 
 
    Public Property nom() As String
        Get
            Return p_nom
        End Get
 
        Set(ByVal value As String)
            p_nom = value.ToUpper()
        End Set
    End Property
 
    Public Property prenom() As String
        Get
            Return p_prenom
        End Get
        Set(ByVal value As String)
            p_prenom = value.ToUpper()
        End Set
    End Property
 
 
    Public Overrides Function ToString() As String
        Return nom & " " & prenom
    End Function
End Class

Le main :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public Class Form1
 
    Private col As List(Of Personne) = New List(Of Personne)
    Private index As Integer
    Private oui As New Personne
 
    Private Sub initCol()
        Dim p As Personne
        p = New Personne("delon", "alain", New Date(1972, 6, 12))
        col.Add(p)
 
        p = New Personne()
        col.Add(p)
    End Sub
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        initCol()
 
    End Sub
 
    Private Sub displayElt(ByVal p As Personne)
        txtNom.Text = p.nom
        txtPrenom.Text = p.prenom
 
    End Sub
 
    Private Sub btnPremier_Click(sender As Object, e As EventArgs) Handles btnPremier.Click
        index = 0
        displayElt(col.Item(index))
 
    End Sub
 
    Private Sub btnPrecedent_Click(sender As Object, e As EventArgs) Handles btnPrecedent.Click
        displayElt(col.Item(1))
    End Sub
 
    Private Sub btnSuivant_Click(sender As Object, e As EventArgs) Handles btnSuivant.Click
        displayElt(col.Item(2))
    End Sub
 
    Private Sub updateButtons()
        btnPremier.Enabled = index > 0
 
    End Sub
End Class

26/08/2015, 10h31
mactwist69
Parce que pour que l'opération Upper se situe dans la Propriété, or tu ne l'utilises jamais.

Soit dans le formulaire tu utilises la propriétés :
Code:

1 2 p = New Personne() p.Nom="alain"
Soit dans le constructeur tu utilises la propriété plutôt que la variable directement
Code:

1 2 3 4 5 Public Sub New(ByVal n As String, ByVal p As String, ByVal na As Date) Me.nom = n Me.prenom = p p_naissance = na End Sub
Sinon, tu pourrais ignorer tout ça, pour mettre le Upper dans le get....
Code:

1 2 3 Get Return p_nom.ToUpper() End Get
26/08/2015, 10h41
wallace27

Excellent, merci infiniment !

Avec autorisation, je laisse pour l'instant encore le fil ouvert au cas où j'ai une autre question sur ce même thème.

Un grand merci pour votre aide !
26/08/2015, 10h58
wallace1

Citation:

Envoyé par wallace27

Excellent, merci infiniment !

Avec autorisation, je laisse pour l'instant encore le fil ouvert au cas où j'ai une autre question sur ce même thème.

Un grand merci pour votre aide !

Si cela réponds à ta question alors comme le stipule la charte : tu passes le topic en résolu (ce n'est pas tant pour toi mais pour les autres et/ou la communauté) ;)

A+
26/08/2015, 11h00
wallace27

Résolu

Ok ça marche merci !
26/08/2015, 11h38
Sankasssss

+1 wallace1 et j'ajouterais que la règle à respecter au maximum est : Un post, une question
C'est plus facile pour les membres qui liront la question sans devoir relire ce qui a déjà été résolu. De plus avec un intitulé correspondant à la question, tes chances de réponses seront plus élevées...