Discussion :

[Attila54]

Bonjour,

Voici mon souci
Dans un formulaire, j'ai une listbox appellée listQ comprenant des valeurs que j'appelle "nombre" allant de +1.00 à -2.00 au pas de 1/100 (donc, 1.00; 0.99; 0.98; ...; -2.00)
lorsque je clique sur une valeur de la listbox, ceci declenche une sub calcul ayant pour fonction de trouver et d'afficher dans une textbox appelée TS une valeur decimale au 1/100.
Ce calcul fonctionne tres bien et on voit donc que "nombre" et valTS sont liés par la sub "calcul" et si l'un bouge, l'autre bouge aussi.

J'ai parallèlement, et issue d'une autre sub "calculadjust", une textbox appelée TSA qui affiche une valeur decimale au 1/100

Mon but final est que ValTS et ValTSA soient egaux ou au pire les plus proches possibles, c'est à dire que ValTS varie pour s'approcher de ValTSA (qui, elle, ne bouge pas)
Jusque maintenant, je procède manuellement, a savoir :
exemple : j'ai ValTS = -2.04 et ValTSA = -2.69
- je clique sur "nombre" de la listbox, ce qui fait varier ValTS jusqu'à avoir les deux valeurs au plus proche.
- Je regarde alors la valeur de "nombre" dans la listbox et j'affiche celle ci dans une textbox resultat

Je voudrais faire cela de maniere automatique via un button "calculate" qui declencherait l'operation

j'ai essaye ceci en introduisant la notion d'ecart (pour l'instant sans afficher le resultat dans une textbox):

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Automatique()
        Dim i As Integer, trouve As Boolean
        Dim ecartqfmin As Double ' plus petit écart
        Dim ecartqfactuel As Double  ' ecart actuel
        Dim indexecart As Integer ' index de l'écart dans ListQ
 
        ListQ.Visible = False
        trouve = False
        For i = 0 To ListQ.Items.Count - 1
            nombre = Convert.ToDouble(ListQ.Items(i).ToString)
            If Convert.ToDouble(TS.Text) = Convert.ToDouble(TSA.Text) Then
                trouve = True
                ListQ.TopIndex = i
                ListQ.SelectedIndex = i
                Exit For
            Else
                ' on calcule l'écart entre TS et TSA
                ecartqfactuel = Math.Abs(Math.Abs(Convert.ToDouble(TS.Text)) - Math.Abs(Convert.ToDouble(TSA.Text)))
                If i = 0 Then
                    ' on calcule l'écart actuel en valeur  absolue. Comme c'est le premier écart il est automatiquement l'écart minimum
                    ecartqfmin = ecartqfactuel
                    indexecart = 0
                Else
                    ' si ecartqfactuel < ecartqfmin alors ecartqfactuel devient ecartqfmin
                    If ecartqfactuel < ecartqfmin Then
                        ecartqfmin = ecartqfactuel
                        indexecart = i
                    End If
                End If
            End If
        Next
        If trouve = False Then
            ' on n'a pas trouvé TS = TSA donc on prend au plus proche
            ListQ.TopIndex = indexecart
            ListQ.SelectedIndex = indexecart
            ' on relance le calcul avec la valeur de ListQ pointée par indexecart ( c'est le plus petit écart)
           calcul()            
nombre = Convert.ToDouble(ListQ.Items(indexecart).ToString)
            End If
        ListQ.Visible = True
          End Sub
 
 Private Sub Buttoncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalculate.Click
Automatique()
End Sub

mais rien ne fonctionne ni ne bouge,
que pensez vous du code ????

Merci bien

[asmduty]

Bonjour,

essaye déjà d'y aller en mode pas à pas voir ce qui se passe. (F10/F11)

[chrismonoye]

Bonjour,
l'idée est de parcourir les objets de la listBox dans l'ordre et de comparer l'écart au précédent.
Tant qu'il diminue, on incrémente le numéro d'index et on stoppe dès l'inverse.
Le dernier index est donc celui de l'élément cherché que l'on sélectionne dans la ListBox :

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
 Private Sub Automatique()
        'calcul de l'écart précédent en initialisant à sa valeur la plus grande.
        nombre = 1
        Dim ecartPrev As Double = calcul() - CDbl(TSA.Text)
        Dim indx As Integer = 0
 
        For Each it In ListQ.Items
            nombre = CDbl(it)
            Dim ecart As Double = calcul() - CDbl(TSA.Text)
            If Math.Abs(ecart) <= Math.Abs(ecartPrev) Then
                indx += 1
            Else
                Exit For
            End If
            ecartPrev = ecart
        Next
 
        ListQ.SelectedIndex = indx - 1
 
    End Sub

[Attila54]

merci beaucoup, je teste cela demain et reviens .....

[Attila54]

Bonjour a tousJe viens de tester en creant donc la sub "automatique" et en lancant cette sur depuis un button calculate2

Rien de rien ne bouge, valTS ne bouge pas, et ma listbox ne bouge pas non plus de fait.

Bien evidemment, le code n'accepte pas la sub calcul dans l'expression

Code :

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

Dim ecart As Double = calcul() - CDbl(TSA.Text)

mais même en remplacant par

Code :

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

Dim ecart As Double = CDbl(TS.Text) - CDbl(TSA.Text)

rien ne bouge.

Je n'ai pas d'erreur ni a l'execution ni en mode creation et en pas a pas, rien ne se passe

pour voir ce qui se passait, j'ai crée nue textbox contenant 'ecart' et effectivement en cliquant sur calculate2, la valeur affichée dans ecart est bonne mais ma listbox affiche -2.00 alors qu'elle devrait afficher -1.31 ce que j'obtiens en manuel

en fait le but est bien de ramener la valeur de TS le plus proche possible de celle de TSA et normalement, la valeur de 'nombre' dans la listbox devrait bouger toute seule puisque c'est ce qui se passe en manuel. Je suis carrément perdu la

[asmduty]

pour voir ce qui se passait, j'ai crée nue textbox contenant 'ecart' et effectivement en cliquant sur calculate2, la valeur affichée dans ecart est bonne mais ma listbox affiche -2.00 alors qu'elle devrait afficher -1.31 ce que j'obtiens en manuel

en fait le but est bien de ramener la valeur de TS le plus proche possible de celle de TSA et normalement, la valeur de 'nombre' dans la listbox devrait bouger toute seule puisque c'est ce qui se passe en manuel. Je suis carrément perdu la

D'où mon conseil d'aller voir ce qui se passe en pas à pas.
Tu poses un point d'arrêt au début de ta fonction et tu regarde ligne par ligne ce qui se passe (F11), et dans 99.99% des cas tu trouves pourquoi ça ne va pas.

[StringBuilder]

Je viens de tiquer sur un truc...

Dans ton programme, tu modifies effectivement l'index de ta liste, et vu vas effectivement rechercher la valeur calculée dans la textbox liée.

Outre le problème évident de performances (conversion inutiles dans tous les sens), tu te heurtes à un autre problème...

Lorsque tu modifies programmatiquement les contrôles d'une form, les événements associés sont lancés de façon asynchrone.

Ceci veut dire que :
- Si tu as un seul core, ou que ta machine est déjà chargée niveau CPU, aucun événement ne va être traité durant tes modifications (et donc la valeur contenue dans le textbox ne changera pas durant tout le traitement)
- Si tu as plusieurs cores et que ta machine n'est pas trop chargée niveau CPU, les événements vont être traités, mais avec un délai possible : quand tu arrive à la 5° ligne, alors le textbox contiendra peut-être la valeur correspondant à la 2° ligne !

Bref, ton approche n'est pas bonne.

Déclare deux variables, contenant la première et la dernière valeur de ta liste sous forme de double.

Ensuite, fait une boucle qui incrémente un compteur de la première valeur à la dernière valeur.

Et fait le calcul "manuellement" (appelle la même méthode que celle qui est appelée dans le selectedindex_changed).

Lorsque tu trouves la valeur qui donne le bon résultat, sélectionne la ligne dans ta listbox qui a la valeur correspondante.

Ainsi, ton code devrait être à la fois plus rapide... et surtout, fonctionner !

Une autre solution (pourrie) consite à mettre un DoEvents() après chaque changement d'index dans ta listbox. Ceci force le programme à exécuter les événements associés et d'attendre qu'ils aient fini.
C'est contre-performant au possible, donc à éviter !

[StringBuilder]

un truc me chagrine dans ton calcul d'écart :

abs( abs(a) - abs(b) )

=> Si tu as -2 et 1.99 alors tu auras 0.01 comme écart, ce qui est complètement faux.

Il faut faire :

abs( a - b )

[StringBuilder]

Bonjour,
l'idée est de parcourir les objets de la listBox dans l'ordre et de comparer l'écart au précédent.
Tant qu'il diminue, on incrémente le numéro d'index et on stoppe dès l'inverse.

Ça, c'est vrai pour une fonction linéaire. Pour un polynôme, ou autre fonction trigonométrique, il faudra tester l'ensemble des valeurs de l'intervalle.

A noter aussi que dans ce cas, il est possible qu'il y ait plusieurs solutions.

En tout cas, plutôt que de procéder ainsi, je re-sortirais mes cours de 1ère S afin de trouver pour quelles valeurs de X, Y prends la valeur recherchée.
Ensuite, en testant à tout de rôle la valeur précédente et suivante dans ta liste, tu trouveras les valeurs de ta liste qui sont les plus proches.
Cette approche me semble bien plus cartésienne, et permettra de continuer à utiliser ton code même si demain l'interval va de 10000000 à -10000000 avec un incrément de 0,00000001 (parce qu'actuellement, ton code mettrait plusieurs jours à trouver la réponse sur le plus gros serveur de la NASA sur un tel intervalle...)

[Attila54]

oulah stringbuilder, ce que tu dis est tres interessant mais vois tu, quand j'etais en premiere, la section S n'existait même pas cela doit faire 30 ans qu'ils sont aux oubliettes alors j'avoue avoir un peu de mal a suivre

je vais quand meme pour commencer corriger les valeurs absolues pour etre plus mathematiquement correct

[StringBuilder]

Ta méthode "calcul()" fait quoi exactement ?

(Parce que pour rechercher les valeurs en question, il faut déjà voir si on peut transformer ton code en une fonction arithmétique... genre si ça ramène le nombre de mots qui se trouve à la page X d'un livre, forcément, ça va être assez compliqué )