[VB]comment recupérer la valeur d'une variable ?

Version imprimable

bonjour

je suis entrain de realiser une application indus. l'utilisateur doit parametrer des sonde de tempé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é entrée.

Au lieu de faire ca j'aimerai faire quelque chose de plus propre

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
      '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 .

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
    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écisé 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

20/02/2006, 14h20
zazaraignée
Salut

Utilise la propriété Index pour créer des groupes d'options. Tu pourra ensuite les appeler avec leur numéro d'index. Tu peux aussi utiliser l'événement click des options pour récupérer la veleur de l'index et retourner le format binaire de la valeur d'index dans une string de longueur de deux caractères.
Code:

1 2 Private Sub OptSonde1_Click(Index As Integer) Sonde_1_Resol = Format (binaire(Index), "format")
où binaire est le nom de la fonction qui retourne la valeur d'Index en binaire et "format" est la chaine de formatage désirée, probablement "00". Je ne peux vérifier d'avantage car je n'ai pas VB disponible en ce moment.
20/02/2006, 14h23
SfJ5Rpw8

pour cela tu dois créer un groupe de contrôle pour cela créé une case à option :
Option_Temp_Resol_1

copie la 3 fois en acceptant le fait de créer un groupe de contrôle.. tu aura ensuite accés au 4 bouton option par

Code:

Option_Temp_Resol_1(i)

avec i variant de 0 à 4....
20/02/2006, 14h27
zazaraignée

Citation:

Envoyé par bbil

avec i variant de 0 à 4....

0 à 3
20/02/2006, 14h35
budylove

http://www.image-dream.com/membre/up...ce0582fa4c.jpg

voici a quoi ressemble le panneau de config .

comment en utilisant un index soit un boutton pour une sonde je peux savoir qu'elle valeur l'utilisateur a selectionné ?