comment recupérer la valeur d'une variable ?

Question

bonjour 



je suis entrain de realiser une application indus. l'utilisateur doit parametrer des sonde de temp&#233;rature.



J'ai quattre sonde et quattre type de reglage par sonde



J'ai donc diviser en  4 groupe de 4 options



je recupere ainsi la sensibilit&#233; entr&#233;e.



Au lieu de faire ca j'aimerai faire quelque chose de plus propre



      'sonde1

      If Option_Temp_1_Resol_1 Then Sonde_1_Resol = "00"

      If Option_Temp_1_Resol_2 Then Sonde_1_Resol = "01"

      If Option_Temp_1_Resol_3 Then Sonde_1_Resol = "10"

      If Option_Temp_1_Resol_4 Then Sonde_1_Resol = "11"

      Sonde_1_Type = Left(Right(Combo_Type_Sonde_1.Text, 5), 4)

      'sonde2

      If Option_Temp_2_Resol_1 Then Sonde_2_Resol = "00"

      If Option_Temp_2_Resol_2 Then Sonde_2_Resol = "01"

      If Option_Temp_2_Resol_3 Then Sonde_2_Resol = "10"

      If Option_Temp_2_Resol_4 Then Sonde_2_Resol = "11"

      Sonde_2_Type = Left(Right(Combo_Type_Sonde_2.Text, 5), 4)

      'sonde3

      If Option_Temp_3_Resol_1 Then Sonde_3_Resol = "00"

      If Option_Temp_3_Resol_2 Then Sonde_3_Resol = "01"

      If Option_Temp_3_Resol_3 Then Sonde_3_Resol = "10"

      If Option_Temp_3_Resol_4 Then Sonde_3_Resol = "11"

      Sonde_3_Type = Left(Right(Combo_Type_Sonde_3.Text, 5), 4)

      'sonde4

      If Option_Temp_4_Resol_1 Then Sonde_4_Resol = "00"

      If Option_Temp_4_Resol_2 Then Sonde_4_Resol = "01"

      If Option_Temp_4_Resol_3 Then Sonde_4_Resol = "10"

      If Option_Temp_4_Resol_4 Then Sonde_4_Resol = "11"

      Sonde_4_Type = Left(Right(Combo_Type_Sonde_4.Text, 5), 4)







genre ca  :



je voudrais qu'a chaque changement de ma valeur "I" il scrute automatiquement les valeur .



    Dim I As Long

    Dim Sonde_Resol(1 To 4) As Long

    

  

        

    For I = 1 To 4

     If Option_Temp_"I"_Resol_1.Value = True Then

         Sonde_Resol(I) = "00"

     Else

         If Option_Temp_"I"_Resol_2.Value = True Then

            Sonde_Resol(I) = "01"

         Else

            If Option_Temp_"I"_Resol_3.Value = True Then

                Sonde_Resol(I) = "10"

            Else

               If Option_Temp_"I"_Resol_4.Value = True Then

                  
Sonde_Resol(I) = "11"

               Else

                  
MsgBox ("vous n'avez pas pr&#233;cis&#233; les informations pour la sonde" &
Str(I))

               End If

            End If

         End If

     End If

   ' Sonde_% I_Type = Left(Right(Combo_Type_Sonde_%I.Text, 5), 4)

    MsgBox Sonde_Resol(I)

    Next

    

    



Ceci est ma premiere application en vb alors excusez moi si c'est confut.



amicalement

jrivet · Answer

Salut,

Ce que tu souhaite faire n'est pas possible (que les experts me corrigent si je me trompe)

En revanche ce que tu peux faire c'est creer des matrices de controles qui te permettront de jouer avec les index comme tu le desires

@+
Julien 
____________________________
Ne pas oublier:
 - le Moteur de recherche
 - le "r&#233;ponse accept&#233;e" &nbs

Utilisateur anonyme · Answer

Bonjour,

Si c'est possible: Me.Controls("LeNomDuControle")

Dim I As Long
Dim Sonde_Resol(1 To 4) As Long
      
For I = 1 To 4
  Dim Option_Temp_X_Resol_1 As OptionButton
  Set Option_Temp_X_Resol_1 = Me.Controls("Option_Temp_" & I & "_Resol_1")
  If Option_Temp_X_Resol_1.Value = True Then
    Sonde_Resol(I) = "00"
  Else
    Dim Option_Temp_X_Resol_2 As OptionButton
    Set Option_Temp_X_Resol_2 = Me.Controls("Option_Temp_" & I & "_Resol_2")
    If Option_Temp_X_Resol_2.Value = True Then
      Sonde_Resol(I) = "01"
    Else
      Dim Option_Temp_X_Resol_3 As OptionButton
      Set Option_Temp_X_Resol_3 = Me.Controls("Option_Temp_" & I & "_Resol_3")
      If Option_Temp_X_Resol_3.Value = True Then
        Sonde_Resol(I) = "10"
      Else
        Dim Option_Temp_X_Resol_4 As OptionButton
        Set Option_Temp_X_Resol_4 = Me.Controls("Option_Temp_" & I & "_Resol_4")
        If Option_Temp_X_Resol_4.Value = True Then
          Sonde_Resol(I) = "11"
        Else
          MsgBox ("vous n'avez pas pr&#233;cis&#233; les informations pour la sonde" & Str(I))
        End If
      End If
    End If
  End If
  ' Sonde_% I_Type = Left(Right(Combo_Type_Sonde_%I.Text, 5), 4)
  MsgBox Sonde_Resol(I)
Next

Mais la m&#233;thode des index est pr&#233;f&#233;rable. Ca rendra le code beaucoup plus simple.

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

jrivet · Answer

Re,

Oups je suis confut, c est une methode que j oublie tout le temps.

Desole pour la fausse information.

@+
Julien 
____________________________
Ne pas oublier:
 - le Moteur de recherche 
 - le "r&

cs_budylove · Answer

merci de vos reponses je veux bien essayer si c'est mieux d'utiliser la matrice avec les index mais je ne sais pas comment ..



je debute reelement en vb

cs_budylove · Answer

voila a quoi ca ressemble.



comment faire puisque j'ai besion de savoir qu'elle option il a choisit ? puisque les options on le meme nom ?

domsig · Answer

je ne comprends pas l'utilit&#233; de la liste d&#233;roulante dans chacun des 4 frames ? il y a du code derri&#232;re ?


disons que dans le frame1 tu as 4 options, opt_01C_1, opt_1C_1, opt_01F_1, opt_1F_1, dans le frame2 opt_01C_2, opt_1C_2, opt_01F_2, opt_1F_2, etc
il te suffit de tester lequel a la valeur true pour savoir ce qui a &#233;t&#233; choisi non ?

Comment recupérer la valeur d'une variable ?

6 réponses

Discussions similaires