code de choix d'une valeur

Question

Bonjours à tous.
Après avoir chercher sur plusieurs site différent et sur ce site, j'ai pas trouver d'explication pour résoudre mon problème qui est en soit pas compliqué.

En fait j'ai 2 Labels qui prennent des valeurs numérique (ex : 1.06 , 1.10 etc ...)
Et la je souhaiterais que le programme prenne en mémoire la valeur du label qui est le plus grand. donc un truc du style :
    Dim X as type
    X = Valeur la plus grande entre label1 et label2  <== ???????

Si quelqu'un à une solution Merci beaucoup

cs_Exploreur · Answer

Salut,

Private Sub Command1_Click()

Static MemLbl As Double

If Val(Label1.Caption) > Val(Label2.Caption) Then MemLbl = Val(Label1.Caption)

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

Kevin.Ory · Answer

Salut,

On est en .NET 

Dim lePlusGrand as Double = Math.Max(CLng(Label1.Text), CLng(Label2.Text))

cs_Exploreur · Answer

Salut Kevin.Ory 

Certes....certes.....mais il avait au moins le principe…à lui d’en faire la transformation…^^ 




A+
Exploreur

 Linux a un noyau, Windows un pépin

Kevin.Ory · Answer

C'est juste 
...mais puisque il ne sais pas faire un If, je doute qu'il en soit capable

PCPT · Answer

salut,
Explo -> attention à VAL qui dépend du séparateur décimal 
Kevin -> tu fais un CLNG sur des décimaux? donc pas de différence entre 1.1 et 1.2..., puisque tous les 2 ramenés à 1
il n'y a pas un Convert.ToDouble à faire? ou quelque chose dans l'idée?...

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Kevin.Ory · Answer

Oups si, je voulais mettre un CDbl effectivement 
Ou alors un Convert.ToDouble ouais...

Rectification:
Dim lePlusGrand as Double = Math.Max(CDbl(Label1.Text), CDbl(Label2.Text))

Merci PCPT

gillardg · Answer

If



 x > y 

Then

MsgBox(x.ToString & 




"est plus grand que"
 & y.ToString)


ElseIf
 x = y 

Then

MsgBox(x.ToString & 




"="
 & y.ToString)


Else

MsgBox(y.ToString & 




"est plus grand que"
 & x.ToString)


End



If

Code de choix d'une valeur

7 réponses

Votre réponse

Discussions similaires