Discussion :

[budylove]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Option_Temp_Resol_1(i)

avec i variant de 0 à 4....

[zazaraignée]

avec i variant de 0 à 4....

0 à 3

[budylove]

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