Bonjour à tous,

J'ai dejà eu ce type d'erreur en essayant de modifier une instance de chart dejà existante.
Le problème était que cette instance de chart était devenu "nothing". La solution était de le déclarer en tant que Shared.


Ici déclarer l'instance MyAero serait un peu galère, mais dans le cas présent au moment du bug MyAero n'est pas "rien".

Ligne 29, MyAero.DownForce prend bien une valeure et toutes ses propriétés sont présentes.

Sauf qu'au moment de son instanciation ligne 3 il manque les propriétés calculés au travers des sub présentes lignes 26, 27.

Est ce à cause de celà?

En fait ici, la propriété DownForce ne retourne pas une function qui calcule sa valeur, mais c'est une sub qui assigne la valeur calculé à la propriété DownForce...


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
   Public Sub DownForcePlotsCalculation()
 
        MyAero = New AeroMapClass
 
        Call AeroMapClass.SetMapRideHeightsDictionaries(CZ_dataGridView) 'Reads the ride heights of the maps
        Call AeroMapClass.SetMapCoefficcentsDictionaries(CZ_dataGridView, CZMap_Dictionary) 'Reads the coefficcents of the CZ map
        Call AeroMapClass.SetMapCoefficcentsDictionaries(CZBalance_dataGridView, CZBalanceMap_Dictionary) 'Reads the coefficcents of the CZBalance map
        Call AeroMapClass.SetMapCoefficcentsDictionaries(CX_dataGridView, CXMap_Dictionary) 'Reads the coefficcents of the CX map
 
        Dim i As Integer, j As Integer
        Dim downForceIteration(2) As Double
        Dim aeroMapSpeedPlot(1) As Double
 
        MyAero.RideHeight_Front = MyAero.RideHeightStatic_Front
        MyAero.RideHeight_Rear = MyAero.RideHeightStatic_Rear
 
        downForceIteration(0) = 0
        downForceIteration(1) = 50
 
        i = 1
        j = 1
        For aeroMapSpeedPlot(i) = 10 / 3.6 To Double.Parse(Me.MaxSpeed_tbox.Text) / 3.6 Step 10
 
            MyAero.Speed = aeroMapSpeedPlot(i)
 
            Call AeroMapClass.RideHeightCloserPoints()
            Call AeroMapClass.CalculateDownForce(MyAero.Speed)
 
            DownForcePlot(j) = MyAero.DownForce
            DownForceBalancePlot(j) = MyAero.DownForce_Front / MyAero.DownForce
            DynamicRideHeightPlot_Front(j) = MyAero.RideHeight_Front
            DynamicRideHeightPlot_Rear(j) = MyAero.RideHeight_Rear
 
        Next
 
    End Sub