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
Partager