Erreur: La référence d'objet n'est pas définie à une instance d'un objet.
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:
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 |