probleme index tableau

Version imprimable

Bonjour

Je commence par mon bout de code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 For i = 0.0 To 7.0 Step 0.1 Kbut(i) = 3 * coeffA * (i ^ 2) + 2 * coeffB * i + coeffC Force(i) = KRess * i ForceBS(i) = (KRess + Kbut(i)) * i Forceeq(i) = ForceBS(i) - Force(i) Next For Each item As Object In Forceeq If ecart > item Then ind = Array.FindIndex(Forceeq, item) MsgBox(ind) End If Next item
Problème: dans la première boucle for je lui demande un step de 0,1 donc je devrais avoir 70 valeurs dans mes tableaux or ca ne m'en affiche que 7. Je me demande donc si les index d'un tableau peuvent etre autre qu'un integer? Il est clair que du coup ma deuxième boucle for me donne pas le bon index vu qu'il y en a que 7 dans mon tableau.Si quelqu'un peut m'éclairer je suis preneur.

Merci d'avance

10/12/2009, 09h41
Pol63

un index de tableau est en effet un entier

sinon ton code a l'air d'etre pas POO donc je te conseille de faire des classes et des collections plutot que des tableaux pour chaque valeur !
10/12/2009, 09h46
kuligan

Ok je vais essayer j'en ai jamais fait encore mais je devrais trouver rapidement comment faire!

Merci

merci Pol63 pour m'avoir guidé!Voila la solution ( peut etre amélioré largement!)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        Dim dic As New Dictionary(Of Double, Double)
        Dim lst As New List(Of Double)
        Dim lst1 As New List(Of Double)
        Dim lst2 As New List(Of Double)
        Dim lst3 As New List(Of Double)
        Dim i As Double
 
        For i = 0.0 To 7.0 Step 0.001
 
            lst.Add(3 * coeffA * (i ^ 2) + 2 * coeffB * i + coeffC)
            lst1.Add(KRess * i)
            lst2.Add((KRess + lst(i * 1000)) * i)
            lst3.Add(lst2(i * 1000) - lst1(i * 10))
            dic.Add(lst3(i * 1000), i)
 
        Next
        For Each kvp As KeyValuePair(Of Double, Double) In dic
             If (ecart - kvp.Key > 0.04) And (ecart - kvp.Key < 0.05) Then
                     dic.TryGetValue(kvp.Key, ind)
             End If
        Next kvp

10/12/2009, 11h39
Pol63
c'est pas plus joli

je ne sais pas ce que tu mets dans les collections, et d'ailleurs si quelqu'un doit modifier ton code dans quelques mois il ne le saura pas non plus !

avec des exemples nommés si dans list1 tu mets un coefficient, dans list2 une température etc...

il serait déjà mieux au lieu de mettre list1 de mettre listCoeff et list2 deviendrait listTemperatures, déjà le code est plus lisible

si en plus on passe par des classes ca devient encore plus simple
Code:

1 2 3 4 public class element public coefficient as double public température as double end class
Code:

1 2 3 4 5 dim l as new list(of element) dim e as new element e.coefficient = ... e.température = ... l.add(e)
parce que tu verras meme toi dans 6 mois tu n'arriveras pas à relire ton code sinon
10/12/2009, 13h39
kuligan

malheureusement je suis débutant et en plus j'ai appris sur le tas donc je sais que mon code est pas très joli et donc j'apprécis tes remarques. Je vais essayer de rectifier ca dans le futur.
10/12/2009, 13h46
Pol63

http://plasserre.developpez.com/cours/vb-net/

Merci pour le lien ( j'avais déja regardé ce cours mais vite fait). Voila mes modifications :

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
27
28
29
 
Public Class Element
 
        Public LstForceRessort As List(Of Double)
        Public LstForceRessortButee As List(Of Double)
        Public LstForceEq As List(Of Double)
        Public DicButee As Dictionary(Of Double, Double)
        Public DispButee As Double
End Class
 
Dim e As New Element
For i = 0.0 To 7.0 Step 0.001
 
    e.LstForceRessort.Add(KRess * i)
    e.LstForceRessortButee.Add((KRess + (3 * coeffA * (i ^ 2) + 2 * coeffB * i + coeffC)) * i)
    e.LstForceEq.Add(e.LstForceRessortButee(i * 1000) -  e.LstForceRessort(i * 1000))
    e.DicButee.Add(e.LstForceEq(i * 1000), i)
 
Next
 
For Each kvp As KeyValuePair(Of Double, Double) In e.DicButee
 
     If (ecart - kvp.Key > 0.04) And (ecart - kvp.Key < 0.05) Then
 
         e.DicButee.TryGetValue(kvp.Key, e.DispButee)
 
     End If
 
Next kvp