[VB6] aidez moi,qu'est ce qu'il cloche dans ce codeRésolu

Question

j'ai eu beau d'essayer toute les combinaisons possible , mais a chaque fois que je change les valeurs le MsgBox affiche toujours "résultat valide" !!! ----------------------------------------------------------------------------------- Private Sub VerifierAsc_Click() Asc = ASCtxt a = atxt b = btxt d = Dtxt Select Case Rect.Value Case True Bsc = a * b Select Case Asc Case Is >= (0.2 * (Bsc / 100)), Is <= (5 * (Bsc / 100)) MsgBox ("Résultat Valide ") Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100)) MsgBox ("Résultat Invalide") End Select Case False Bsc = 3.14159265358979 * (d / 2) ^ 2 Case Is >= (0.2 * (Bsc / 100)), Is <= (5 * (Bsc / 100)) MsgBox ("Résultat Valide ") Case Is <= (0.2 * (Bsc / 100)), Is >= (5 * (Bsc / 100)) MsgBox ("Résultat Invalide") End Select End Select End Sub ---------------------------------------------------------------------------------------

Gobillot · Accepted Answer

je corrige le premier Select

mais change ta variable Asc








  Select Case Asc


            


            Case Is = (5 * (Bsc / 100))



                 MsgBox ("R&#233;sultat Invalide")





            Case Else


                 MsgBox ("R&#233;sultat Valide ")


            


            


            End Select


Daniel

cs_CanisLupus · Answer

Salut,

D&#233;j&#224;, avant d'aller plus loin, il 3 choses qui clochent dans ton code et je ne comprend pas pourquoi &#231;a ne plante pas avant de t'afficher une msgbox :

1 - Asc = ASCtxt
Asc est un mot r&#233;serv&#233; donc &#224; &#233;viter en tant que nom de variable
2 - Il manque un select case apr&#232;s Bsc = 3.14159265358979 * (d / 2) ^ 2
3 - Avec tes <= et >=, &#224; ton avis &#231;a va donner quoi si Bsc  = (0.2 * (Bsc / 100)) ou (5 * (Bsc / 100)) pile-poil ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Gobillot · Answer

d'ailleurs il faut une seule des 2 conditions

ex: si Bsc = 100

sera toujours vrai: 

  Case Is >= 0.2 , Is <= 5   








Daniel

111z · Answer

oui pour la case select qui manquait je l'avais pas remarqu&#233;e parceque je testais la premi&#232;re condition, j'y avais pas arriv&#233;e encore.

[VB6] aidez moi,qu'est ce qu'il cloche dans ce code

4 réponses

Discussions similaires