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
Partager