j'ai un petit problème pour définir une propriété:
Private p_Epaisseur As String = "non définie"
Public ReadOnly Property Epaisseur() As String
'depuis l'extérieur de l'objet on ne peut que lire
'on en profite aussi pour lire depuis l'intérieur
Get
Return p_Epaisseur
End Get
End Property
Private WriteOnly Property Epaisseur() As String
Set(ByVal value As String)
p_Epaisseur = value
End Set
End Property
message d'erreur:
les 2 prop ne peuvent pas se surcharger mutuellement car seul readonly
oui writeonly les différencie.
Je voudrais pouvoir lire de l'extérieur de l'objet sans pouvoir
modifier, tout en pouvant modifier dans l'objet (un traitement au
moment de cette modif est possible)
J'ai une autre propriété similaire qui ne m'affiche aucune erreur:
Private p_Coordonnees() As PointF = Nothing
Public ReadOnly Property Coordonnees() As PointF()
Get
Return p_Coordonnees
End Get
End Property
Private WriteOnly Property Coordonnes() As PointF()
Set(ByVal value As PointF())
p_Coordonnees = value
End Set
End Property
je ne vois pas où est la différence et pourquoi ça ne marche pas pour
la prop 1.
merci si vous avez des pistes, peut-être que je m'y prens mal
d'ailleurs, n'héistez pas :-)
--
L'histoire est une perpétuelle quête au bouc-émissaire. (Réflexion)
tranquille.xav@gmail.com
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tr
*Ecrit* *par* **:
Bonjour à tous,
j'ai un petit problème pour définir une propriété: Private p_Epaisseur As String = "non définie"
Public ReadOnly Property Epaisseur() As String 'depuis l'extérieur de l'objet on ne peut que lire 'on en profite aussi pour lire depuis l'intérieur Get Return p_Epaisseur End Get End Property
Private WriteOnly Property Epaisseur() As String Set(ByVal value As String) p_Epaisseur = value End Set End Property
message d'erreur: les 2 prop ne peuvent pas se surcharger mutuellement car seul readonly oui writeonly les différencie. Je voudrais pouvoir lire de l'extérieur de l'objet sans pouvoir modifier, tout en pouvant modifier dans l'objet (un traitement au moment de cette modif est possible)
J'ai une autre propriété similaire qui ne m'affiche aucune erreur: Private p_Coordonnees() As PointF = Nothing Public ReadOnly Property Coordonnees() As PointF() Get Return p_Coordonnees End Get End Property
Private WriteOnly Property Coordonnes() As PointF() Set(ByVal value As PointF()) p_Coordonnees = value End Set End Property
je ne vois pas où est la différence et pourquoi ça ne marche pas pour la prop 1.
merci si vous avez des pistes, peut-être que je m'y prens mal d'ailleurs, n'héistez pas :-)
bon j'ai trouvé: Public Property Epaisseur() As String 'depuis l'extérieur de l'objet on ne peut que lire 'on en profite aussi pour lire depuis l'intérieur Get Return p_Epaisseur End Get *Private* Set(ByVal value As String) p_Epaisseur = value End Set End Property
-- C'est le passage à l'acte qui fait le fou. (Conclusion)
*Ecrit* *par* *Tr@nquille*:
Bonjour à tous,
j'ai un petit problème pour définir une propriété:
Private p_Epaisseur As String = "non définie"
Public ReadOnly Property Epaisseur() As String
'depuis l'extérieur de l'objet on ne peut que lire
'on en profite aussi pour lire depuis l'intérieur
Get
Return p_Epaisseur
End Get
End Property
Private WriteOnly Property Epaisseur() As String
Set(ByVal value As String)
p_Epaisseur = value
End Set
End Property
message d'erreur:
les 2 prop ne peuvent pas se surcharger mutuellement car seul
readonly oui writeonly les différencie.
Je voudrais pouvoir lire de l'extérieur de l'objet sans pouvoir
modifier, tout en pouvant modifier dans l'objet (un traitement au
moment de cette modif est possible)
J'ai une autre propriété similaire qui ne m'affiche aucune erreur:
Private p_Coordonnees() As PointF = Nothing
Public ReadOnly Property Coordonnees() As PointF()
Get
Return p_Coordonnees
End Get
End Property
Private WriteOnly Property Coordonnes() As PointF()
Set(ByVal value As PointF())
p_Coordonnees = value
End Set
End Property
je ne vois pas où est la différence et pourquoi ça ne marche pas pour
la prop 1.
merci si vous avez des pistes, peut-être que je m'y prens mal
d'ailleurs, n'héistez pas :-)
bon j'ai trouvé:
Public Property Epaisseur() As String
'depuis l'extérieur de l'objet on ne peut que lire
'on en profite aussi pour lire depuis l'intérieur
Get
Return p_Epaisseur
End Get
*Private* Set(ByVal value As String)
p_Epaisseur = value
End Set
End Property
--
C'est le passage à l'acte qui fait le fou. (Conclusion)
tranquille.xav@gmail.com
j'ai un petit problème pour définir une propriété: Private p_Epaisseur As String = "non définie"
Public ReadOnly Property Epaisseur() As String 'depuis l'extérieur de l'objet on ne peut que lire 'on en profite aussi pour lire depuis l'intérieur Get Return p_Epaisseur End Get End Property
Private WriteOnly Property Epaisseur() As String Set(ByVal value As String) p_Epaisseur = value End Set End Property
message d'erreur: les 2 prop ne peuvent pas se surcharger mutuellement car seul readonly oui writeonly les différencie. Je voudrais pouvoir lire de l'extérieur de l'objet sans pouvoir modifier, tout en pouvant modifier dans l'objet (un traitement au moment de cette modif est possible)
J'ai une autre propriété similaire qui ne m'affiche aucune erreur: Private p_Coordonnees() As PointF = Nothing Public ReadOnly Property Coordonnees() As PointF() Get Return p_Coordonnees End Get End Property
Private WriteOnly Property Coordonnes() As PointF() Set(ByVal value As PointF()) p_Coordonnees = value End Set End Property
je ne vois pas où est la différence et pourquoi ça ne marche pas pour la prop 1.
merci si vous avez des pistes, peut-être que je m'y prens mal d'ailleurs, n'héistez pas :-)
bon j'ai trouvé: Public Property Epaisseur() As String 'depuis l'extérieur de l'objet on ne peut que lire 'on en profite aussi pour lire depuis l'intérieur Get Return p_Epaisseur End Get *Private* Set(ByVal value As String) p_Epaisseur = value End Set End Property
-- C'est le passage à l'acte qui fait le fou. (Conclusion)
Mon Groupe
Bonjour à tous et à toutes
J'ai un total de seconde. Exemple 1343571 seconde
Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de secondes ? J'obtiens bien un chrono par cette formule
Mais ce n'est valable que pour les temps inférieurs à 24 Heure...
Merci
bonjour, Dim SEC as long: SEC43571 'les secondes Dim MINU as long: MINU = int(SEC / 60) 'les minutes SEC = SEC -(MINU * 60) 'le rab de secondes<1mn Dom HEUR as long: HEUR = int(MINU / 60) ' les heures MINU = MINU - (MINU * 60) 'le rab de minutes<60mn Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) & " heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes" A affiner sans doute voire à compliquer avec modulo. --
Jacques dit Jacquouille
Mon Groupe a écrit :
Bonjour à tous et à toutes
J'ai un total de seconde. Exemple 1343571 seconde
Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de
secondes ?
J'obtiens bien un chrono par cette formule
Mais ce n'est valable que pour les temps inférieurs à 24 Heure...
Merci
bonjour,
Dim SEC as long: SEC43571 'les secondes
Dim MINU as long: MINU = int(SEC / 60) 'les minutes
SEC = SEC -(MINU * 60) 'le rab de secondes<1mn
Dom HEUR as long: HEUR = int(MINU / 60) ' les heures
MINU = MINU - (MINU * 60) 'le rab de minutes<60mn
Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours
HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour
Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) &
" heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes"
A affiner sans doute voire à compliquer avec modulo.
--
Mais ce n'est valable que pour les temps inférieurs à 24 Heure...
Merci
bonjour, Dim SEC as long: SEC43571 'les secondes Dim MINU as long: MINU = int(SEC / 60) 'les minutes SEC = SEC -(MINU * 60) 'le rab de secondes<1mn Dom HEUR as long: HEUR = int(MINU / 60) ' les heures MINU = MINU - (MINU * 60) 'le rab de minutes<60mn Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) & " heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes" A affiner sans doute voire à compliquer avec modulo. --
Jacques dit Jacquouille
Patrice
Ou voir éventuellement : http://msdn.microsoft.com/fr-fr/library/system.timespan(VS.80).aspx qui permet de gérer les durées..
-- Patrice
"Jacquouille14" a écrit dans le message de groupe de discussion : 4b29145e$0$30466$
Mon Groupe a écrit :
Bonjour à tous et à toutes
J'ai un total de seconde. Exemple 1343571 seconde
Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de secondes ? J'obtiens bien un chrono par cette formule
Mais ce n'est valable que pour les temps inférieurs à 24 Heure...
Merci
bonjour, Dim SEC as long: SEC43571 'les secondes Dim MINU as long: MINU = int(SEC / 60) 'les minutes SEC = SEC -(MINU * 60) 'le rab de secondes<1mn Dom HEUR as long: HEUR = int(MINU / 60) ' les heures MINU = MINU - (MINU * 60) 'le rab de minutes<60mn Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) & " heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes" A affiner sans doute voire à compliquer avec modulo. --
Jacques dit Jacquouille
Ou voir éventuellement :
http://msdn.microsoft.com/fr-fr/library/system.timespan(VS.80).aspx
qui permet de gérer les durées..
--
Patrice
"Jacquouille14" <lameme@free.fr> a écrit dans le message de groupe de
discussion : 4b29145e$0$30466$426a34cc@news.free.fr...
Mon Groupe a écrit :
Bonjour à tous et à toutes
J'ai un total de seconde. Exemple 1343571 seconde
Comment puis-je en extraire le nombre de Jours, d'heures de Mn et de
secondes ?
J'obtiens bien un chrono par cette formule
Mais ce n'est valable que pour les temps inférieurs à 24 Heure...
Merci
bonjour,
Dim SEC as long: SEC43571 'les secondes
Dim MINU as long: MINU = int(SEC / 60) 'les minutes
SEC = SEC -(MINU * 60) 'le rab de secondes<1mn
Dom HEUR as long: HEUR = int(MINU / 60) ' les heures
MINU = MINU - (MINU * 60) 'le rab de minutes<60mn
Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours
HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour
Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) & "
heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes"
A affiner sans doute voire à compliquer avec modulo.
--
Mais ce n'est valable que pour les temps inférieurs à 24 Heure...
Merci
bonjour, Dim SEC as long: SEC43571 'les secondes Dim MINU as long: MINU = int(SEC / 60) 'les minutes SEC = SEC -(MINU * 60) 'le rab de secondes<1mn Dom HEUR as long: HEUR = int(MINU / 60) ' les heures MINU = MINU - (MINU * 60) 'le rab de minutes<60mn Dim LESJOURS as interger: LESJOURS = int(HEUR / 24) 'les jours HEUR = HEUR - (LESJOURS * 24) 'le rab d'heures<1jour Dim Chrono as string: Chrono = cstr(LESJOURS) & " jours " & cstr(HEUR) & " heures " & cstr(MINU) & " minutes " & cstr(SEC) & " secondes" A affiner sans doute voire à compliquer avec modulo. --