Discussion :

[Gualino]

Bonjour à tous,

Voilà, je fais un programme en essayant de suivre les règles de la programmation object.

J'ai une classe 1 avec des champs et des propriétés.

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
46
47
48
49
50
51
52
53
54
55
56
 
 
'CHamps Class1
        Protected _TotalMass As Double             'Total mass
 
        Protected _NSM_LF As Double                'Non suspended mass
        Protected _NSM_RF As Double
        Protected _NSM_LR As Double
        Protected _NSM_RR As Double
 
'Propriété Classe 1
        Public Property TotalMass As Double
            Get
                Return _TotalMass
            End Get
            Set(ByVal value As Double)
                _TotalMass = value
            End Set
        End Property
 
        'NSM [kg]
        Public Property NSM_LF As Double
            Get
                Return _NSM_LF
            End Get
            Set(ByVal value As Double)
                _NSM_LF = value
            End Set
        End Property
 
        Public Property NSM_RF As Double
            Get
                Return _NSM_RF
            End Get
            Set(ByVal value As Double)
                _NSM_RF = value
            End Set
        End Property
 
        Public Property NSM_LR As Double
            Get
                Return _NSM_LR
            End Get
            Set(ByVal value As Double)
                _NSM_LR = value
            End Set
        End Property
 
        Public Property NSM_RR As Double
            Get
                Return _NSM_RR
            End Get
            Set(ByVal value As Double)
                _NSM_RR = value
            End Set
        End Property

Puis une classe 2 avec des propriétés calculé à partir de fonctions qui ont pour paramètres des "variables" de la classe 1.

Code :

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

1
2
3
4
5
6
7
8
9
 
 
'Fonction classe 2
 Private Function CalculateSM(ByVal p_TotalMass As Double, ByVal p_NSM_LF As Double, ByVal p_NSM_RF As Double,
                                 ByVal p_NSM_LR As Double, ByVal p_NSM_RR As Double) As Double
 
            Return p_TotalMass - (p_NSM_LF + p_NSM_RF + p_NSM_LR + p_NSM_RR)
 
        End Function

Pour cela, j'avais crée une héritage entre la classe 1 et 2, ainsi les paramètres des fonctions de la classe 2 était les champs de la classe 1.

Code :

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

1
2
3
4
5
6
7
8
 
 
'Function classe2 sans paramètres...?
        Public ReadOnly Property SM As Double
            Get
                Return CalculateSM()
            End Get
        End Property

Or quelqu'un qui me suit, me dis que c'est une mauvaise utilisation de l'héritage, et que je devrais (d'après ce que je comprend), communiquer entre les 2 classes grâce à une fonction...

Seulement là, je ne vois vraiment pas comment faire...

[tomlev]

La question à se poser avant d'utiliser l'héritage est la suivante : y a-t-il une relation "est un" entre les deux classes ?
Autrement dit, est-ce qu'on peut dire qu'un Class2 est un Class1 ? (au passage, j'espère que tes classes ont des vrais noms...)

Par exemple, si tu as une classe Fruit et une classe Banane, on peut clairement dire qu'une banane est un fruit, donc l'héritage a un sens.

Après, je ne connais pas le contexte de ton application, donc c'est difficile de dire si ton choix est le bon dans ce cas précis... que représentent tes objets ?

[Gualino]

Bonsoir Tomlev,

Oui mes classes ont bien des nom, et effectivement ma classe 2 n'est pas "un" classe 1.
En fait, les champs et propriété de ma classe 1 sont relatif aux réglages d'une voiture de course. J'ai appeler cette classe "Setup"

Et ma classe 2, calculs des valeurs qui découlent des réglages de la voiture. J'ai appelé cette classe "Result".

Donc Maintenant je suis d'accord avec le fait de ne pas devoir utiliser l'héritage, mais sans cette héritage ma classe "Result" ne "voit pas" les paramètre qui lui sont nécessaire et rangé dans la classe "Setup".

On m'a donc dit "You could do a function somewhere that having a chassis returns a result."

????

[tomlev]

ma classe "Result" ne "voit pas" les paramètre qui lui sont nécessaire et rangé dans la classe "Setup".

Bah si, puisqu'ils sont exposés via des propriétés...
Ta classe Result a juste besoin d'une instance de Setup, et c'est bon

[Pol63]

vu comme c'est exposé, je ne suis pas convaincu que l'héritage soit en effet judicieux

tu peux aussi faire une classe setting, et une classe calcul static qui demande une instance de setting dans ses fonctions pour faire les calculs et retourner le résultat

ou alors sur faire une classe calcul non static qui demande une instance de setting dans le constructeur que tu gardes en référence, et éventuellement une variable de l'instance calcul dans la classe setting

[Gualino]

Bah si, puisqu'ils sont exposés via des propriétés...
Ta classe Result a juste besoin d'une instance de Setup, et c'est bon

J'ai fais:

Code :

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

1
2
3
4
5
6
7
Dim result As New chassis.setup
 
  Public ReadOnly Property SM As Double
            Get
                Return CalculateSM(car.TotalMass, car.NSM_LF, car.NSM_RF, car.NSM_LR, car.NSM_RR)
            End Get
        End Property

Ici je suis obligé d'utilisé les propriétés. Alors je ne comprend pas à quoi servent mes champs de la class "1" ou "Setup", puisque je ne les utilisent pas.

Et on m'avait préconisé:

Why dont we define a parameter car on Result?

property myCar as car

also,

sub new (aCar as car){
mycar=acar
}

So, you can access all properties in acar by doing myCar.nameofproperty, and you can use this for anything.

Mais sur ce dernier je comprend rien...

[Pol63]

c'est à peu près ce que je dis, à un moment donné tu as besoin des infos des 2 classes, une fonction d'une classe ayant besoin des infos sur une autre
au lieu de faire de l'héritage, il suffit que 2 instances soient reliées
certes d'un côté tu auras accès à des choses surement inutiles mais tu aurais surtout accès aux choses utiles

après si tu ne comprends pas, je ne vois pas trop comment t'expliquer plus, le message en anglais me parrait clair, il explicite ce que je disais ...

par exemple tu pourrais faire une fonction qui demande 2 int en paramètre pour faire un calcul avec, ou si les 2 int sont des propriétés d'une même classe et que le calcul est spécifique à cette classe demander une instance de la classe plutot que les 2 int, tu pourras tout de même faire le calcul et ca reste de la POO

[Gualino]

par exemple tu pourrais faire une fonction qui demande 2 int en paramètre pour faire un calcul avec, ou si les 2 int sont des propriétés d'une même classe et que le calcul est spécifique à cette classe demander une instance de la classe plutot que les 2 int, tu pourras tout de même faire le calcul et ca reste de la POO

Ok, çà ma fait avancé dans la comprehension des instances de classes....

après si tu ne comprends pas, je ne vois pas trop comment t'expliquer plus, le message en anglais me parrait clair, il explicite ce que je disais ...

J'ai commence le.net avec la POO il y a 2sem, avant j'avais fait quelque macro sur VBA....

Je m'explique:

Code :

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

property myCar as car

'On crée un propriété appelé "myCar", et de type "car", je sais que c'est possible, mais pour moi c'est encore étrange....d'avoir un type different de single, double, integer....

Code :

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

sub new (aCar as car)

'La on crée une procedurede paramètre "aCar as car" Comprend pas

Code :

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

1
2
3
{
mycar=acar 
}

'La propriété mycar prend la valeur de..."acar"

'Que sont ces { } ?

[Pol63]

les { } c'est en c#, langage similaire à vb.net sauf sur la syntaxe ^^

je te conseille de lire un cours, qui doit surement expliquer la poo :
http://plasserre.developpez.com/cours/vb-net/


une variable c'est un espace mémoire, c'est typé

Code :

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

1
2
3
4
5
6
7
dim a as integer
a = 5
 
dim b as button
b = new button 
'équivaut à dim b as new button
b.left = 50 ' b est une propriété as integer sur la classe button

pour les classes, il faut le mot clé new pour créer l'objet ; integer, date, boolean et autres sont des types par valeur et n'ont pas besoin de new


pour le paramètre de la méthode :

Code :

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

1
2
3
public shared sub ChangeTexteBouton (byval b as button)
  b.Text = "texte modifié"
end sub

ca permet juste de pouvoir accéder à b tout comme on accèderait à un integer en paramètre

donc au final si une classe doit connaitre une instance d'une autre comme dans ton cas :

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
public class class2
 
  public sub new  (c1 as classe1) 'ici on force donc à fournir une instance de c1 à la création
     _instanceC1 = c1 ' dans la variable déclarée ci après on stocke c1
  end sub
 
  private _instanceC1 as c1 ' ici pas de new car on ne veut pas en créer un mais en stocker un
 
  public function calcul as integer
   return _instanceC1.une_propriété + _instanceC1.une_autre_propriété
  end function
 
end class
 
 
public class c1
 
  public sub new
     dim c2 as new classe2(me) ' ici on fournit une instance de c1, soi même
     ' le dim ne rend la variable qu'utilisable localement, il faut la mettre sur la classe pour qu'elle soit utilisable dans tous les membres
     dim r as integer = c2.calcul
  end sub
 
 
    public property une_propriété as integer
    (...)
 
    public property une_autre_propriété as integer
    (...)
 
 
end class

[tomlev]

Ici je suis obligé d'utilisé les propriétés. Alors je ne comprend pas à quoi servent mes champs de la class "1" ou "Setup", puisque je ne les utilisent pas.

Bas les champs servent à stocker les valeurs ; les propriétés sont juste des accesseurs pour permettre à d'autres classes accéder à ces champs sans les exposer directement (encapsulation)

En fait dans les versions récentes de VB.NET, tu n'es pas obligé de déclarer explicitement les champs, tu peux faire des propriétés "auto-implémentées". Donc au lieu de ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
        Private _TotalMass As Double
 
        Public Property TotalMass As Double
            Get
                Return _TotalMass
            End Get
            Set(ByVal value As Double)
                _TotalMass = value
            End Set
        End Property

Tu peux écrire juste ça :

Code :

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

        Public Property TotalMass As Double

Le champ correspondant est créé automatiquement par le compilateur.

Par contre ça n'a d'intérêt que si tu ne fais rien dans le Get et le Set à part accéder au champ...

[Gualino]

Code :

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

1
2
3
4
5
6
7
dim a as integer
a = 5
 
dim b as button
b = new button 
'équivaut à dim b as new button
b.left = 50 ' b est une propriété as integer sur la classe button

Est ce que cela suppose qu'il y ait quelque part :

Code :

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

1
2
3
Public class button
 
End class

Est ce que ce n'est pas plutot "left" qui est une propriété as integer de valeur 50?

Code :

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

1
2
3
4
5
public class class2
 
  public sub new  (c1 as classe1) 'ici on force donc à fournir une instance de c1 à la création
     _instanceC1 = c1 ' dans la variable déclarée ci après on stocke c1
  end sub

Si je comprends bien tu utilises le contructeur "new" pour initialiser le champ "_instanceC1" à la valeur de l'objet c1?

Code :

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

  private _instanceC1 as c1 ' ici pas de new car on ne veut pas en créer un mais en stocker un

Ici on crée un champ _instanceC1 de type c1?

Code :

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

1
2
3
4
5
  public function calcul as integer
   return _instanceC1.une_propriété + _instanceC1.une_autre_propriété
  end function
 
end class

Est ce que "_instanceC1.une_propriété" est de la forme champ.propriété? la propriété d'un champ? ou est ce que _instanceC1 est un objet.


En tous cas merci, cela m'aide beaucoup à comprendre.

[Gualino]

Bas les champs servent à stocker les valeurs ; les propriétés sont juste des accesseurs pour permettre à d'autres classes accéder à ces champs sans les exposer directement (encapsulation)

En fait dans les versions récentes de VB.NET, tu n'es pas obligé de déclarer explicitement les champs, tu peux faire des propriétés "auto-implémentées". Donc au lieu de ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
        Private _TotalMass As Double
 
        Public Property TotalMass As Double
            Get
                Return _TotalMass
            End Get
            Set(ByVal value As Double)
                _TotalMass = value
            End Set
        End Property

Tu peux écrire juste ça :

Code :

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

        Public Property TotalMass As Double

Le champ correspondant est créé automatiquement par le compilateur.

Par contre ça n'a d'intérêt que si tu ne fais rien dans le Get et le Set à part accéder au champ...

oui, on m'a deja dit çà, et aussi que dans le cas où le champs est automatique crée, il n'est pas accessible?

Je comprend le principe de l'encapsulation, mais pas l'avantage qui en découle, quelle est l'inconvénient à exposer des champs, propriétés et méthodes?

[tomlev]

oui, on m'a deja dit çà, et aussi que dans le cas où le champs est automatique crée, il n'est pas accessible?

Non, mais tu n'as pas besoin d'y accéder, tu peux toujours passer par la propriété...

Je comprend le principe de l'encapsulation, mais pas l'avantage qui en découle, quelle est l'inconvénient à exposer des champs, propriétés et méthodes?

Il n'y a pas d'inconvénient à exposer des propriétés et méthodes, tant que tu exposes seulement celles qui ont besoin de l'être.

Par contre, il est fortement déconseillé d'exposer directement des champs. Le problème quand tu exposes un champ, c'est que tu n'as aucun contrôle dessus, n'importe quel code externe peut le modifier sans que tu puisses l'empêcher ou même le savoir. Le fait d'encapsuler l'accès au champ avec une propriété te permet de personnaliser le comportement lors de l'accès au champ. Par exemple :
- propriété en lecture seule : tu fais seulement un Get, pas de Set ; le code externe qui utilise la classe ne peut pas modifier la valeur de la propriété
- initialisation tardive (lazy initialization) : dans le Get, tu vérifies si le champ est initialisé, si ce n'est pas le cas tu l'initialises et tu renvoies sa valeur.
- validation de la nouvelle valeur : dans le Set, tu déclenches une exception si la nouvelle valeur est incorrecte
- notification de changement : dans le Set, tu déclenches un évènement (PropertyChanged par exemple)

Cette liste n'est pas exhaustive bien sûr...

Après, dans un cas simple où le Get et le Set se contentent de renvoyer ou modifier la valeur du champ, ça peut sembler inutile de créer une propriété ; mais il vaut mieux le faire quand même, parce qu'il est possible qu'à l'avenir tu aies besoin de personnaliser le comportement. Si tu as déjà une propriété, tu peux modifier son implémentation sans toucher à l'interface publique, alors que sinon, tu dois cacher ton champ et créer une propriété, ce qui va casser la compatibilité binaire (autrement dit, si un autre assembly utilise ta classe, il faudra le recompiler pour qu'il puisse utiliser la nouvelle version). C'est donc particulièrement important si tu crées une librairie de classes réutilisable

[Pol63]

Est ce que cela suppose qu'il y ait quelque part :

Code :

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

1
2
3
Public class button
 
End class

oui, le framework .net est en grande partie codé en .net, donc il y a bien une classe Button dans une des dll du framework
il est possible de voir le code du framework via des décompilateurs tels JustDecompile ou Reflector
Il y a biensur une partie de .net qui n'est pas en .net, mais seulement les bases et les choses de bas niveau (le fonctionnement d'un integer par exemple)

Est ce que ce n'est pas plutot "left" qui est une propriété as integer de valeur 50?

oui désolé, erreur en tapant ...

on crée un champ _instanceC1 de type c1?

Code :

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

1
2
3
4
5
  public function calcul as integer
   return _instanceC1.une_propriété + _instanceC1.une_autre_propriété
  end function
 
end class

Est ce que "_instanceC1.une_propriété" est de la forme champ.propriété? la propriété d'un champ? ou est ce que _instanceC1 est un objet.

_instanceC1 est un champ d'un type objet, et c'est champ.propriété car ce champ est objet et a des propriétés



l'utilité des propriétés, comme le dit tomlev c'est le controle
dans la classe button du framework, Text est une propriété as string
dans le get ca retourne le champ (surement nommé _Text, c'est une de conventions possibles de nommage)
et dans le set ca écrit le champ et ca redéssine le controle, le texte ayant changé
s'il n'y avait qu'un champ Text, comment le bouton saurait qu'il faut qu'il se redéssine ne sachant pas que le champ a été modifié ...
et l'affichage d'un bouton est codé en .net, il y a des méthodes de dessins dans le framework, et c'est presque un simple DrawRectangle avec un DrawString ; sur le MouseDown il se redéssine différement

[Gualino]

- validation de la nouvelle valeur : dans le Set, tu déclenches une exception si la nouvelle valeur est incorrecte

Justement je viens de supprimer tous mes champs de la class setup (ou 1), alors que je dois m'assurer que les valeur entré ne sont pas aberrantes.
Par l'exeption on entends quelque chose comme çà:

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
   'Total mass [kg]
        Public Property TotalMass As Double
            Get
                Return _TotalMass
            End Get
            Set(ByVal value As Double)
 
                If IsNumeric(value) = True Then
 
                    If value > 50 And value < 2000 Then
                        _TotalMass = value
                    Else
                        value = ""
                        MessageBox.Show("la mass totla est incorrect")
                    End If
 
                Else
                    MessageBox.Show("la valeur entré n'est pas numérique")
                End If
 
            End Set
        End Property

Je dois aussi m'assurer que seulement des valeurs numériques seront placés dans les textbox, donc j'ai ajouté une condition avec la fonction "isnumeric"

Mais je dois faire la même chose pour une trentaine de valeur, la meilleur manière est elle d'appeler une fonction qui contrôle si la valeur est numérique et une autre qui contrôle si elle est aberrante tous çà dans le set ?

Dans tous les cas j'aurai besoin de creer explicitement le champ _TotalMass, c'est bien çà?

[Nathanael Marchand]

Vu que le type est un Double, il n'y a aucune chance que ta valeur ne soit pas numérique!

[Pol63]

c'est pas trop ca ...

que tu vérifies les bornes ok, et si ce n'est pas bon déclencher une exception c'est throw new applicationexception("message")
il faut alors que cette exception soit catchée

enfin ceci n'est pas toujours utile, si tu es seul sur le projet et que c'est un petit projet ce n'est pas utile

par contre sur le form où il y a les textbox, là avant de faire la moindre chose il convient de vérifier le contenu de tous les textbox (isnumeric et range) ; si pas ok => message



sinon le code

Code :

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

1
2
3
4
 
Set(ByVal value As Double)
 
                If IsNumeric(value) = True

est une abération
isnumeric(untextbox.text) est judicieux car la propriété text est un string, et un string n'est pas forcément un nombre
par contre value est déclarée as double, donc forcément un nombre et si tu mets un string dans ta propriété, c'est le compilateur qui ne voudra même pas créer l'exe (du moins si tu option strict on dans les propriétés du projet, ce qui est conseillé)

[Gualino]

Vu que le type est un Double, il n'y a aucune chance que ta valeur ne soit pas numérique!

Je ne comprend pas...
c'est une valeur entrée par l'utilisateur.

J'ai entré "un" au lieu de "1" et le programme a crashé...

[Pol63]

si tu as écrit
TotalMass = textbox.text
c'est là que ca cloche
totalmass est un double, et textbox.Text un string
par défaut vb (qui s'adresse entre autres aux débutants) laisse écrire ca, mais en cochant option strict, il interdit d'écrire ca
parce que ton code ne plante pas au niveau de isnumeric, mais avant l'appel du setter par une conversion implicite

je le redis mais tu devrais lire ca :
http://plasserre.developpez.com/cours/vb-net/
on ne va pas pouvoir t'expliquer toutes les bases, ca risquerait d'être long ...

[Gualino]

Je me suis plongé dans ce cour Pol63.
Il est plutôt bien fait et accessible aux débutants.

J'ai beau avoir creer une instance de setup dans result mon application ne fonctionne pas...mais je sais pourquoi...en revanche je ne sais pas comment remédier au problème de manière élégante.

avec l'instance "car" de la classe "setup" dans la classe "result", j'ai accès aux propriétés de "setup", que j'introduis dans les paramètres des méthodes de "result". Les bon paramètres sont présents mais tous nuls car les valeur de ses propriétés se trouvent dans une autre classe, celle d'un userform : "SetupForm" de la manière suivante:

Code :

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

chassis.TotalMass = Double.Parse(TotalMass_tbox.Text)

J'ai bien trouver le moyen d'accéder à ces valeur en envoyant le getter des propriété de la classe setup vers les textbox, mais çà devient un bordel sans nom...

Je n'ai pas encore l'expérience pour comprendre comment organiser mon code..

Pour donner un état des lieux, je met le code des trois classe principales de mon programme:


Classe SetupForm

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
Option Explicit On
Option Strict On
 
Imports System.Math
 
Public Class SetupForm
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim chassis As New chassis.setup
 
        'Wheel base
        chassis.Wheelbase_Left = Double.Parse(Wheelbase_Left_tbox.Text)
        chassis.Wheelbase_Right = Double.Parse(Wheelbase_Right_tbox.Text)
 
        'Track
        chassis.HalfTrack_LF = Double.Parse(HalfTrack_LF_tbox.Text)
        chassis.HalfTrack_RF = Double.Parse(HalfTrack_RF_tbox.Text)
        chassis.HalfTrack_LR = Double.Parse(HalfTrack_LR_tbox.Text)
        chassis.HalfTrack_RR = Double.Parse(HalfTrack_RR_tbox.Text)
 
        'Total mass
        chassis.TotalMass = Double.Parse(TotalMass_tbox.Text)
        chassis.TotalMassWeightDistribution = Double.Parse(TotalMassWeightDistribution_tbox.Text)
        chassis.TotalMassCenterOfGravityHeight = Double.Parse(TotalMassCenterOfGravityHeight_tbox.Text)
 
        'NSM 
        chassis.NSM_LF = Double.Parse(NSM_LF_tbox.Text)
        chassis.NSM_RF = Double.Parse(NSM_RF_tbox.Text)
        chassis.NSM_LR = Double.Parse(NSM_LR_tbox.Text)
        chassis.NSM_RR = Double.Parse(NSM_RR_tbox.Text)
 
        chassis.NSMCenterOfGravityHeight_LF = Double.Parse(NSMCenterOfGravityHeight_LF_tbox.Text)
        chassis.NSMCenterOfGravityHeight_RF = Double.Parse(NSMCenterOfGravityHeight_RF_tbox.Text)
        chassis.NSMCenterOfGravityHeight_LR = Double.Parse(NSMCenterOfGravityHeight_LR_tbox.Text)
        chassis.NSMCenterOfGravityHeight_RR = Double.Parse(NSMCenterOfGravityHeight_RR_tbox.Text)
 
        'Pitch center
        chassis.PitchCenterHeight_Left = Double.Parse(PitchCenterHeight_Left_tbox.Text)
        chassis.PitchCenterHeight_Right = Double.Parse(PitchCenterHeight_Right_tbox.Text)
        chassis.PitchCenterLongitudinalPosition_Left = Double.Parse(PitchCenterLongitudinalPosition_Left_tbox.Text)
        chassis.PitchCenterLongitudinalPosition_Right = Double.Parse(PitchCenterLongitudinalPosition_Right_tbox.Text)
 
        'Roll center
        chassis.RollCenterHeight_Front = Double.Parse(RollCenterHeight_Front_tbox.Text)
        chassis.RollCenterHeight_Rear = Double.Parse(RollCenterHeight_Rear_tbox.Text)
 
        'Spring
        chassis.SpringStiffness_LF = Double.Parse(SpringStiffness_LF_tbox.Text)
        chassis.SpringStiffness_RF = Double.Parse(SpringStiffness_RF_tbox.Text)
        chassis.SpringStiffness_LR = Double.Parse(SpringStiffness_LR_tbox.Text)
        chassis.SpringStiffness_RR = Double.Parse(SpringStiffness_RR_tbox.Text)
 
        chassis.SpringMotionRatio_LF = Double.Parse(SpringMotionRatio_LF_tbox.Text)
        chassis.SpringMotionRatio_RF = Double.Parse(SpringMotionRatio_RF_tbox.Text)
        chassis.SpringMotionRatio_LR = Double.Parse(SpringMotionRatio_LR_tbox.Text)
        chassis.SpringMotionRatio_RR = Double.Parse(SpringMotionRatio_RR_tbox.Text)
 
        'ARB
        chassis.ARBStiffness_Front = Double.Parse(ARBStiffness_Front_tbox.Text)
        chassis.ARBStiffness_Rear = Double.Parse(ARBStiffness_Rear_tbox.Text)
 
        chassis.ARBMotionRatio_Front = Double.Parse(ARBMotionRatio_Front_tbox.Text)
        chassis.ARBMotionRatio_Rear = Double.Parse(ARBMotionRatio_Rear_tbox.Text)
 
        'Tire
        chassis.TireStiffness_LF = Double.Parse(TireStiffness_LF_tbox.Text)
        chassis.TireStiffness_RF = Double.Parse(TireStiffness_LR_tbox.Text)
        chassis.TireStiffness_LR = Double.Parse(TireStiffness_LR_tbox.Text)
        chassis.TireStiffness_RR = Double.Parse(TireStiffness_RR_tbox.Text)
 
        'Ackermann
        chassis.AckermannRatio = Double.Parse(AckermannRatio_tbox.Text)
        chassis.AckermannPro = AckermannPro_radbut.Checked
        chassis.AckermannAnti = AcermannAnti_radbut.Checked
 
        'Rim
        chassis.RimDiameter_Front = Double.Parse(RimDiameter_Front_tbox.Text)
        chassis.RimDiameter_Rear = Double.Parse(RimDiameter_Rear_tbox.Text)
 
        'Camber input in mm
        chassis.Camber_mm_LF = Double.Parse(Camber_mm_LF_tbox.Text)
        chassis.Camber_mm_RF = Double.Parse(Camber_mm_RF_tbox.Text)
        chassis.Camber_mm_LR = Double.Parse(Camber_mm_LR_tbox.Text)
        chassis.Camber_mm_RR = Double.Parse(Camber_mm_RR_tbox.Text)
 
        'ToeOut input in mm
        chassis.ToeOut_mm_LF = Double.Parse(ToeOut_mm_LF_tbox.Text)
        chassis.ToeOut_mm_RF = Double.Parse(ToeOut_mm_RF_tbox.Text)
        chassis.ToeOut_mm_LR = Double.Parse(ToeOut_mm_LR_tbox.Text)
        chassis.ToeOut_mm_RR = Double.Parse(ToeOut_mm_RR_tbox.Text)
 
 
        'OUTPUTS
 
        'Camber in deg
        Camber_deg_LF_tbox.Text = (Round(chassis.Camber_deg_LF, 2) & "°").ToString
        Camber_deg_RF_tbox.Text = (Round(chassis.Camber_deg_RF, 2) & "°").ToString
        Camber_deg_LR_tbox.Text = (Round(chassis.Camber_deg_LR, 2) & "°").ToString
        Camber_deg_RR_tbox.Text = (Round(chassis.Camber_deg_RR, 2) & "°").ToString
 
        'Toe in deg
        ToeOut_deg_LF_tbox.Text = (Round(chassis.ToeOut_deg_LF, 2) & "°").ToString
        ToeOut_deg_RF_tbox.Text = (Round(chassis.ToeOut_deg_RF, 2) & "°").ToString
        ToeOut_deg_LR_tbox.Text = (Round(chassis.ToeOut_deg_LR, 2) & "°").ToString
        ToeOut_deg_RR_tbox.Text = (Round(chassis.ToeOut_deg_RR, 2) & "°").ToString
 
 
        Dim myresult As New chassis.result
 
        NSMWeightDistribution_tbox.Text = (Round(myresult.NSMWeightDistribution * 100, 2) & "%").ToString
 
        SM_tbox.Text = (Round(myresult.SM, 1) & "kg").ToString
        SMWeightDistribution_tbox.Text = (Round(myresult.SMWeightDistribution * 100, 2) & "%").ToString
        SMCenterOfGravityHeight_tbox.Text = (Round(myresult.SMCenterOfGravityHeight) & "mm").ToString
 
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!!!!!!!! Ce sont ces textbox qui reçoivent une valeur fausse
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    End Sub
 
End Class

Classe setup

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
Option Explicit On
Option Strict On
 
 
Imports System.Math
 
 
Namespace chassis 'Chassis tab of the setup form
 
 
    Public Class setup 'Match to the inputs that are entered by the user on the setup spread sheet
 
#Region "Usual function & constant"
 
        Public Const g As Double = 9.81
 
        Public Function deg(ByVal angle As Double) As Double
            Return angle * 180 / PI
        End Function
 
        Public Function rad(ByVal angle As Double) As Double
            Return angle * PI / 180
        End Function
 
#End Region
 
 
#Region "Fields"
 
        'Protected _Wheelbase_Right As Double
        'Protected _Wheelbase_Left As Double
        'Protected _HalfTrack_LF As Double
        'Protected _HalfTrack_RF As Double
        'Protected _HalfTrack_LR As Double
        'Protected _HalfTrack_RR As Double
 
        'Protected _TotalMass As Double             'Total mass
        'Protected _TotalMassCenterOfGravityHeight As Double
 
        'Protected _NSM_LF As Double                'Non suspended mass
        'Protected _NSM_RF As Double
        'Protected _NSM_LR As Double
        'Protected _NSM_RR As Double
 
        'Protected _NSMCenterOfGravityHeight_LF As Double      'Non suspended mass center of gravity height
        'Protected _NSMCenterOfGravityHeight_RF As Double
        'Protected _NSMCenterOfGravityHeight_LR As Double
        'Protected _NSMCenterOfGravityHeight_RR As Double
 
        'Protected _PitchCenterHeight_Left As Double        'Pitch center
        'Protected _PitchCenterHeight_Right As Double
 
        'Protected _PitchCenterLongitudinalPosition_Left As Double
        'Protected _PitchCenterLongitudinalPosition_Right As Double
 
        'Protected _RollCenterHeight_Front As Double            'Roll center
        'Protected _RollCenterHeight_Rear As Double
 
        'Protected _SpringStiffness_LF As Double         'Springs stiffness
        'Protected _SpringStiffness_RF As Double
        'Protected _SpringStiffness_LR As Double
        'Protected _SpringStiffness_RR As Double
 
        'Protected _SpringMotionRatio_LF As Double          'Spring motion ratio
        'Protected _SpringMotionRatio_RF As Double
        'Protected _SpringMotionRatio_LR As Double
        'Protected _SpringMotionRatio_RR As Double
 
        'Protected _ARBStiffness_Front As Double        'ARB stiffness
        'Protected _ARBStiffness_Rear As Double
 
        'Protected _ARBMotionRatio_Front As Double      'ARB motion ratio
        'Protected _ARBMotionRatio_Rear As Double
 
        'Protected _AckermannRatio As Double      'Ackermann
        'Protected _AckermannAnti As Boolean      'True or false
        'Protected _AckermannPro As Boolean       'True or false
        'Protected _AckermannTrend As Boolean     'Pro or Anti
 
        'Protected _TireStiffness_LF As Double       'Tire stiffness
        'Protected _TireStiffness_RF As Double
        'Protected _TireStiffness_LR As Double
        'Protected _TireStiffness_RR As Double
 
        'Protected _RimDiameter_Front As Double          'Rim diameter
        'Protected _RimDiameter_Rear As Double
 
        'Protected _Camber_mm_LF As Double        'Camber in mm
        'Protected _Camber_mm_RF As Double
        'Protected _Camber_mm_LR As Double
        'Protected _Camber_mm_RR As Double
 
        'Protected _ToeOut_mm_LF As Double       'Toe-out in mm
        'Protected _ToeOut_mm_RF As Double
        'Protected _ToeOut_mm_LR As Double
        'Protected _ToeOut_mm_RR As Double
 
#End Region
 
 
#Region "Properties"
 
#Region "Wheel base and half track"
        Public Property Wheelbase_Right As Double
        Public Property Wheelbase_Left As Double
 
        Public Property HalfTrack_LF As Double
        Public Property HalfTrack_RF As Double
        Public Property HalfTrack_LR As Double
        Public Property HalfTrack_RR As Double
#End Region
 
#Region "Total mass [kg]"
        Public Property TotalMass As Double
 
        Private _TotalMassWeightDistribution As Double
        Public Property TotalMassWeightDistribution As Double
            Get
                Return _TotalMassWeightDistribution / 100
            End Get
            Set(ByVal value As Double)
                _TotalMassWeightDistribution = value
            End Set
        End Property
 
        Public Property TotalMassCenterOfGravityHeight As Double
#End Region
 
#Region "NSM [kg]"
        Public Property NSM_LF As Double
        Public Property NSM_RF As Double
        Public Property NSM_LR As Double
        Public Property NSM_RR As Double
 
        Public Property NSMCenterOfGravityHeight_LF As Double
        Public Property NSMCenterOfGravityHeight_RF As Double
        Public Property NSMCenterOfGravityHeight_LR As Double
        Public Property NSMCenterOfGravityHeight_RR As Double
#End Region
 
#Region "Pitch center"
        Public Property PitchCenterHeight_Left As Double
        Public Property PitchCenterHeight_Right As Double
        Public Property PitchCenterHeight_Average As Double
            Get
                Return CalculatePitchCenterHeight_Average(PitchCenterHeight_Right, PitchCenterHeight_Left)
            End Get
            Set(ByVal value As Double)
                _PitchCenterHeight_Average = value
            End Set
        End Property
 
        Public Property PitchCenterLongitudinalPosition_Left As Double
        Public Property PitchCenterLongitudinalPosition_Right As Double
#End Region
 
#Region "Roll center"
        Public Property RollCenterHeight_Front As Double
        Public Property RollCenterHeight_Rear As Double
#End Region
 
#Region "Spring [N/mm]"
        Public Property SpringStiffness_LF As Double
        Public Property SpringStiffness_RF As Double
        Public Property SpringStiffness_LR As Double
        Public Property SpringStiffness_RR As Double
 
        Public Property SpringMotionRatio_LF As Double
        Public Property SpringMotionRatio_RF As Double
        Public Property SpringMotionRatio_LR As Double
        Public Property SpringMotionRatio_RR As Double
#End Region
 
#Region "Anti roll bar [N.m/deg]"
        Public Property ARBStiffness_Front As Double
        Public Property ARBStiffness_Rear As Double
        Public Property ARBMotionRatio_Front As Double
        Public Property ARBMotionRatio_Rear As Double
#End Region
 
#Region "Tires [N/mm]"
        Public Property TireStiffness_LF As Double
        Public Property TireStiffness_RF As Double
        Public Property TireStiffness_LR As Double
        Public Property TireStiffness_RR As Double
#End Region
 
#Region "Rims"
        Public Property RimDiameter_Front As Double
        Public Property RimDiameter_Rear As Double
#End Region
 
#Region "Camber [mm]"
        Public Property Camber_mm_LF As Double
        Public Property Camber_mm_RF As Double
        Public Property Camber_mm_LR As Double
        Public Property Camber_mm_RR As Double
#End Region
 
#Region "Toe [mm]"
        Public Property ToeOut_mm_LF As Double
        Public Property ToeOut_mm_RF As Double
        Public Property ToeOut_mm_LR As Double
        Public Property ToeOut_mm_RR As Double
#End Region
 
#Region "Ackermann"
        Public Property AckermannRatio As Double
        Public Property AckermannPro As Boolean
        Public Property AckermannAnti As Boolean
 
        Private _AckermannTrend As Nullable(Of Boolean)
        Public Property AckermannTrend As Nullable(Of Boolean)
            Get
                Return CalculateAckermannTrend(AckermannPro, AckermannAnti)
            End Get
            Set(ByVal value As Nullable(Of Boolean))
                _AckermannTrend = value
            End Set
        End Property
#End Region
 
#Region "Pitch Center Height Average"
        Private _PitchCenterHeight_Average As Double
        Public Property PitchCenterLongitudinalPosition_Average As Double
            Get
                Return CalculatePitchCenterLongitudinalPosition_Average(PitchCenterLongitudinalPosition_Right,
                                                                         PitchCenterLongitudinalPosition_Left)
            End Get
            Set(ByVal value As Double)
                _PitchCenterHeight_Average = value
            End Set
        End Property
#End Region
 
#Region "camber [deg]"
        Private _Camber_deg_LF As Double
        Public Property Camber_deg_LF As Double
            Get
                Return CalculateCamberInDegree(Camber_mm_LF, RimDiameter_Front)
            End Get
            Set(ByVal value As Double)
                _Camber_deg_LF = value
            End Set
        End Property
 
        Private _Camber_deg_RF As Double
        Public Property Camber_deg_RF As Double
            Get
                Return CalculateCamberInDegree(Camber_mm_RF, RimDiameter_Front)
            End Get
            Set(ByVal value As Double)
                _Camber_deg_RF = value
            End Set
        End Property
 
        Private _Camber_deg_LR As Double
        Public Property Camber_deg_LR As Double
            Get
                Return CalculateCamberInDegree(Camber_mm_LR, RimDiameter_Rear)
            End Get
            Set(ByVal value As Double)
                _Camber_deg_LR = value
            End Set
        End Property
 
        Private _Camber_deg_RR As Double
        Public Property Camber_deg_RR As Double
            Get
                Return CalculateCamberInDegree(Camber_mm_RR, RimDiameter_Rear)
            End Get
            Set(ByVal value As Double)
                _Camber_deg_RR = value
            End Set
        End Property
#End Region
 
#Region "ToeOut [deg]"
 
        Private _ToeOut_deg_LF As Double
        Public Property ToeOut_deg_LF As Double
            Get
                Return CalculateToeOutInDegree(ToeOut_mm_LF, RimDiameter_Front)
            End Get
            Set(ByVal value As Double)
                _ToeOut_deg_LF = value
            End Set
        End Property
 
        Private _ToeOut_deg_RF As Double
        Public Property ToeOut_deg_RF As Double
            Get
                Return CalculateToeOutInDegree(ToeOut_mm_RF, RimDiameter_Front)
            End Get
            Set(ByVal value As Double)
                _ToeOut_deg_RF = value
            End Set
        End Property
 
        Private _ToeOut_deg_LR As Double
        Public Property ToeOut_deg_LR As Double
            Get
                Return CalculateToeOutInDegree(ToeOut_mm_LR, RimDiameter_Rear)
            End Get
            Set(ByVal value As Double)
                _ToeOut_deg_LR = value
            End Set
        End Property
 
        Private _ToeOut_deg_RR As Double
        Public Property ToeOut_deg_RR As Double
            Get
                Return CalculateToeOutInDegree(ToeOut_mm_RR, RimDiameter_Rear)
            End Get
            Set(ByVal value As Double)
                _ToeOut_deg_RR = value
            End Set
        End Property
#End Region
 
#End Region 'Properties
 
 
#Region "Methods"
 
        'Private Sub FilterIncorrectInput(ByVal p_value As VariantType)
 
 
        Private Function CalculateAckermannTrend(ByVal p_AckermannPro As Boolean, ByVal p_AckermannAnti As Boolean) As Boolean
            If _AckermannPro = True Then
                Return True
            ElseIf _AckermannAnti = True Then
                Return False
            Else
                Return Nothing
 
                MessageBox.Show("Please, specify the Ackermann Trend")
            End If
        End Function
 
        ''' <summary>
        ''' Function that convert camber angle from mm to degrees
        ''' </summary>
        ''' <param name="p_Camber_mm"></param>
        ''' <param name="p_RimSize"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Private Function CalculateCamberInDegree(ByVal p_Camber_mm As Double, ByVal p_RimSize As Double) As Double
 
            Return deg(Asin(p_Camber_mm / p_RimSize))
 
        End Function
 
        Private Function CalculateToeOutInDegree(ByVal p_ToeOut_mm As Double, ByVal p_RimSize As Double) As Double
 
            Return deg(Asin(p_ToeOut_mm / p_RimSize))
 
        End Function
 
        Private Function CalculatePitchCenterHeight_Average(ByVal p_PitchCenterHeight_Right As Double, ByVal p_PitchCenterHeigt_Left As Double) As Double
 
            Return (p_PitchCenterHeight_Right + p_PitchCenterHeigt_Left) / 2
 
        End Function
 
        Private Function CalculatePitchCenterLongitudinalPosition_Average(ByVal p_PitchCenterLongitudinalPosition_Right As Double, ByVal p_PitchCenterLongitudinalposition_Left As Double) As Double
 
            Return (p_PitchCenterLongitudinalposition_Left + p_PitchCenterLongitudinalPosition_Right) / 2
 
        End Function
 
#End Region
 
    End Class
 
End Namespace

Classe result

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
Option Explicit On
Option Strict On
 
 
Imports System.Math
 
Namespace chassis 'Chassis tab of the setup form
 
    Public Class result 'Match to the outputs of the chassis tab on the setut spread sheet
 
#Region "Usual function & constant"
 
        Public Const g As Double = 9.81
 
        Public Function deg(ByVal angle As Double) As Double
            Return angle * 180 / PI
        End Function
 
        Public Function rad(ByVal angle As Double) As Double
            Return angle * PI / 180
        End Function
 
#End Region
 
        Dim car As New chassis.setup
 
 
 
#Region "Properties"
 
#Region "NSM"
        Public ReadOnly Property NSMWeightDistribution As Double
            Get
                Return CalculateNSMWeightDistribution(car.NSM_LF, car.NSM_RF, car.NSM_LR, car.NSM_RR)
            End Get
        End Property
#End Region
 
#Region "SM"
        Public ReadOnly Property SM As Double
            Get
                Return CalculateSM(car.TotalMass, car.NSM_LF, car.NSM_RF, car.NSM_LR, car.NSM_RR)
            End Get
        End Property
 
        Public ReadOnly Property SMCenterOfGravityHeight As Double
            Get
                Return CalculateSMCenterOfgravityHeight(SM, car.TotalMass, car.NSM_LF, car.NSM_RF, car.NSM_LR, car.NSM_RR,
                                                        car.NSMCenterOfGravityHeight_LF, car.NSMCenterOfGravityHeight_RF,
                                                        car.NSMCenterOfGravityHeight_LR, car.NSMCenterOfGravityHeight_RR,
                                                        car.TotalMassCenterOfGravityHeight)
            End Get
        End Property
 
        Public ReadOnly Property SMWeightDistribution As Double
            Get
                Return CalculateSMWeightDistribution(car.TotalMass, car.TotalMassWeightDistribution,
                                                     car.NSM_LF, car.NSM_RF, car.NSM_LR, car.NSM_RR,
                                                     NSMWeightDistribution, SM)
            End Get
        End Property
#End Region
 
#Region "Moment arm in Roll"
        Public ReadOnly Property MomentArmInRoll_Front As Double
            Get
                Return CalculateMomentArmInRollPerAxle(SMCenterOfGravityHeight, car.RollCenterHeight_Front)
            End Get
        End Property
 
        Public ReadOnly Property MomentArmInRoll_Rear As Double
            Get
                Return CalculateMomentArmInRollPerAxle(SMCenterOfGravityHeight, car.RollCenterHeight_Rear)
            End Get
        End Property
 
        Public ReadOnly Property MomentArmInRoll_Average As Double
            Get
                Return CalculateMomentArmInRollAverage(car.WheelBase_Right, car.WheelBase_Left, SMWeightDistribution,
                                                       car.RollCenterHeight_Front, car.RollCenterHeight_Rear, SMCenterOfGravityHeight)
            End Get
        End Property
#End Region
 
#Region "Moment arm in Pitch"
        Public ReadOnly Property MomentArmInPitch_Left As Double
            Get
                Return CalculateMomentArmInPitchPerAxle(SMCenterOfGravityHeight, car.PitchCenterHeight_Left)
            End Get
        End Property
 
        Public ReadOnly Property MomentArmInPitch_Right As Double
            Get
                Return CalculateMomentArmInPitchPerAxle(SMCenterOfGravityHeight, car.PitchCenterHeight_Right)
            End Get
        End Property
 
        Public ReadOnly Property MomentArmInPitch_Average As Double
            Get
                Return CalculateMomentArmInPitchAverage(SMCenterOfGravityHeight, car.PitchCenterHeight_Average)
            End Get
        End Property
#End Region
 
#Region "Frequency"
        Public ReadOnly Property NSMFrequency_LF As Double
            Get
                Return CalculateNSMFrequency(car.TireStiffness_LF, car.NSM_LF)
            End Get
        End Property
 
        Public ReadOnly Property NSMFrequency_RF As Double
            Get
                Return CalculateNSMFrequency(car.TireStiffness_RF, car.NSM_RF)
            End Get
        End Property
 
        Public ReadOnly Property NSMFrequency_LR As Double
            Get
                Return CalculateNSMFrequency(car.TireStiffness_LR, car.NSM_LR)
            End Get
        End Property
 
        Public ReadOnly Property NSMFrequency_RR As Double
            Get
                Return CalculateNSMFrequency(car.TireStiffness_RR, car.NSM_RR)
            End Get
        End Property
 
        Public ReadOnly Property NSMCriticalDamping_LF As Double
            Get
                Return CalculateNSMCriticalDamping(car.TireStiffness_LF, car.NSM_LF)
            End Get
        End Property
 
        Public ReadOnly Property NSMCriticalDamping_RF As Double
            Get
                Return CalculateNSMCriticalDamping(car.TireStiffness_RF, car.NSM_RF)
            End Get
        End Property
 
        Public ReadOnly Property NSMCriticalDamping_LR As Double
            Get
                Return CalculateNSMCriticalDamping(car.TireStiffness_LR, car.NSM_LR)
            End Get
        End Property
 
        Public ReadOnly Property NSMCriticalDamping_RR As Double
            Get
                Return CalculateNSMCriticalDamping(car.TireStiffness_RR, car.NSM_RR)
            End Get
        End Property
 
        Public ReadOnly Property SMFrequency_LF As Double
            Get
                Return CalculateSMFrequency(car.TireStiffness_LF, car.SpringStiffness_LF,
                                            car.SpringMotionRatio_LF, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMFrequency_RF As Double
            Get
                Return CalculateSMFrequency(car.TireStiffness_RF, car.SpringStiffness_RF,
                                            car.SpringMotionRatio_RF, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMFrequency_LR As Double
            Get
                Return CalculateSMFrequency(car.TireStiffness_LR, car.SpringStiffness_LR,
                                            car.SpringMotionRatio_LR, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMFrequency_RR As Double
            Get
                Return CalculateSMFrequency(car.TireStiffness_RR, car.SpringStiffness_RR,
                                            car.SpringMotionRatio_RR, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMCriticalDamping_LF As Double
            Get
                Return CalculateSMCriticalDamping(car.TireStiffness_LF, car.SpringStiffness_LF,
                                            car.SpringMotionRatio_LF, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMCriticalDamping_RF As Double
            Get
                Return CalculateSMCriticalDamping(car.TireStiffness_RF, car.SpringStiffness_RF,
                                            car.SpringMotionRatio_RF, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMCriticalDamping_LR As Double
            Get
                Return CalculateSMCriticalDamping(car.TireStiffness_LR, car.SpringStiffness_LR,
                                            car.SpringMotionRatio_LR, SM, SMWeightDistribution)
            End Get
        End Property
 
        Public ReadOnly Property SMCriticalDamping_RR As Double
            Get
                Return CalculateSMCriticalDamping(car.TireStiffness_RR, car.SpringStiffness_RR,
                                            car.SpringMotionRatio_RR, SM, SMWeightDistribution)
            End Get
        End Property
#End Region
 
#Region "Wheel rate"
        Public ReadOnly Property WheelRate_LF As Double
            Get
                Return CalculateWheelRate(car.SpringStiffness_LF, car.SpringMotionRatio_LF, car.TireStiffness_LF)
            End Get
        End Property
 
        Public ReadOnly Property WheelRate_RF As Double
            Get
                Return CalculateWheelRate(car.SpringStiffness_RF, car.SpringMotionRatio_RF, car.TireStiffness_RF)
            End Get
        End Property
 
        Public ReadOnly Property WheelRate_LR As Double
            Get
                Return CalculateWheelRate(car.SpringStiffness_LR, car.SpringMotionRatio_LR, car.TireStiffness_LR)
            End Get
        End Property
 
        Public ReadOnly Property WheelRate_RR As Double
            Get
                Return CalculateWheelRate(car.SpringStiffness_RR, car.SpringMotionRatio_RR, car.TireStiffness_RR)
            End Get
        End Property
#End Region
 
#Region "Roll moment for 1 g "
        Public ReadOnly Property RollMoment_Front As Double
            Get
                Return CalculateRollMomentPerAxle(SM, SMWeightDistribution, MomentArmInRoll_Front)
            End Get
        End Property
 
        Public ReadOnly Property RollMoment_Rear As Double
            Get
                Return CalculateRollMomentPerAxle(SM, (1 - SMWeightDistribution), MomentArmInRoll_Rear)
            End Get
        End Property
 
        Public ReadOnly Property RollMoment_Average As Double
            Get
                Return CalculateRollMomentAverage(SM, MomentArmInRoll_Average)
            End Get
        End Property
#End Region
 
#Region "Pitch moment for 1 g"
        Public ReadOnly Property PitchMoment_Right As Double
            Get
                Return CalculatePitchMomentPerSide(SM, MomentArmInPitch_Right)
            End Get
        End Property
 
        Public ReadOnly Property PitchMoment_Left As Double
            Get
                Return CalculatePitchMomentPerSide(SM, MomentArmInPitch_Left)
            End Get
        End Property
 
        Public ReadOnly Property PitchMoment_Average As Double
            Get
                Return CalculatePitchMomentAverage(SM, MomentArmInPitch_Average)
            End Get
        End Property
#End Region
 
#Region "Anti roll torque"
        Public ReadOnly Property AntiRollTorqueFromSpring_Front As Double
            Get
                Return CalculateAntiRollTorqueFromSpring(WheelRate_LF, WheelRate_RF, car.HalfTrack_LF, car.HalfTrack_RF, MomentArmInRoll_Front)
            End Get
        End Property
 
        Public ReadOnly Property AntiRollTorqueFromSpring_Rear As Double
            Get
                Return CalculateAntiRollTorqueFromSpring(WheelRate_LR, WheelRate_RR, car.HalfTrack_LR, car.HalfTrack_RR, MomentArmInRoll_Rear)
            End Get
        End Property
 
        Public ReadOnly Property AntiRollTorqueFromARB_Front As Double
            Get
                Return CalculateAntiRollTorqueFromARB(car.ARBStiffness_Front, car.ARBMotionRatio_Front)
            End Get
        End Property
 
        Public ReadOnly Property AntiRollTorqueFromARB_Rear As Double
            Get
                Return CalculateAntiRollTorqueFromARB(car.ARBStiffness_Rear, car.ARBMotionRatio_Rear)
            End Get
        End Property
 
        Public ReadOnly Property AntiRollTorqueTotal_Front As Double
            Get
                Return AntiRollTorqueFromSpring_Front + AntiRollTorqueFromARB_Front
            End Get
        End Property
 
        Public ReadOnly Property AntiRollTorqueTotal_Rear As Double
            Get
                Return AntiRollTorqueFromSpring_Rear + AntiRollTorqueFromARB_Rear
            End Get
        End Property
 
        Public ReadOnly Property AntiRollTorque_Average As Double
            Get
                Return AntiRollTorqueTotal_Front + AntiRollTorqueTotal_Rear
            End Get
        End Property
#End Region
 
#Region "Elastic weight transfer in roll for 1 lat g"
        Public ReadOnly Property SMElasticWeightTransferInRoll_Front As Double
            Get
                Return CalculateElasticWeightTransferInRoll(SM, MomentArmInRoll_Front, RollMoment_Front, RollMoment_Average, car.HalfTrack_LF, car.HalfTrack_RF)
            End Get
        End Property
 
        Public ReadOnly Property SMElasticWeightTransferInRoll_Rear As Double
            Get
                Return CalculateElasticWeightTransferInRoll(SM, MomentArmInRoll_Rear, RollMoment_Rear, RollMoment_Average, car.HalfTrack_LR, car.HalfTrack_RR)
            End Get
        End Property
#End Region
 
#Region "Anti pitch torque"
        Public ReadOnly Property AntiPitchTorque_Right As Double
            Get
                Return CalculateAntiPitchTorque(car.WheelBase_Right, car.PitchCenterLongitudinalPosition_Right, WheelRate_RF, WheelRate_RR)
            End Get
        End Property
 
        Public ReadOnly Property AntiPitchTorque_Left As Double
            Get
                Return CalculateAntiPitchTorque(car.WheelBase_Left, car.PitchCenterLongitudinalPosition_Left, WheelRate_LF, WheelRate_LR)
            End Get
        End Property
 
        Public ReadOnly Property AntiPitchTorque_Average As Double
            Get
                Return AntiPitchTorque_Left + AntiPitchTorque_Right
            End Get
        End Property
#End Region
 
#Region "Elastic weight transfer in pitch for 1 long g"
        Public ReadOnly Property SMElasticWeightTransferInPitch_Right As Double
            Get
                Return CalculateElasticWeighttransferInPitch(SM, MomentArmInPitch_Right, PitchMoment_Right, PitchMoment_Average, car.WheelBase_Right)
            End Get
        End Property
 
        Public ReadOnly Property SMElasticWeightTransferInPitch_Left As Double
            Get
                Return CalculateElasticWeighttransferInPitch(SM, MomentArmInPitch_Left, PitchMoment_Left, PitchMoment_Average, car.WheelBase_Left)
            End Get
        End Property
#End Region
 
#End Region
 
#Region "Methods"
 
#Region "NSM distribution [ratio] 0<X<1"
        Private Function CalculateNSMWeightDistribution(ByVal p_NSM_LF As Double, ByVal p_NSM_RF As Double,
                                                        ByVal p_NSM_LR As Double, ByVal p_NSM_RR As Double) As Double
 
            Return (p_NSM_LF + p_NSM_RF) / (p_NSM_LF + p_NSM_RF + p_NSM_LR + p_NSM_RR)
 
        End Function
#End Region
 
#Region "Wheel Rate"
        Private Function CalculateWheelRate(ByVal p_SpringStiffness As Double, ByVal p_SpringMotionRatio As Double, ByVal p_TireStiffness As Double) As Double '[N/mm]
 
            Return ((p_SpringStiffness / p_SpringMotionRatio ^ 2) * p_TireStiffness) / ((p_SpringStiffness / p_SpringMotionRatio ^ 2) + p_TireStiffness)
 
        End Function
#End Region
 
#Region "Frequency"
        Private Function CalculateSMCriticalDamping(ByVal p_TireStiffness As Double, ByVal p_SpringStiffness As Double, ByVal p_SpringMotionRatio As Double,
                                                    ByVal p_SM As Double, ByVal p_SMWeightDistribution As Double) As Double
 
            If p_TireStiffness = car.TireStiffness_LF Or p_TireStiffness = car.TireStiffness_RF Then 'This condition is to choose (1-weight distribution) instead of (weight distribution)
                Return 2 * Sqrt(((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) * p_TireStiffness * 1000) /
                                ((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) + p_TireStiffness * 1000) * (p_SM * p_SMWeightDistribution / 100) / 2)
            Else
                Return 2 * Sqrt(((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) * p_TireStiffness * 1000) /
                                ((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) + p_TireStiffness * 1000) * (p_SM * (1 - p_SMWeightDistribution) / 100) / 2)
            End If
 
        End Function
 
        Private Function CalculateSMFrequency(ByVal p_TireStiffness As Double, ByVal p_SpringStiffness As Double, ByVal p_SpringMotionRatio As Double,
                                      ByVal p_SM As Double, ByVal p_SMWeightDistribution As Double) As Double
 
            If p_TireStiffness = car.TireStiffness_LF Or p_TireStiffness = car.TireStiffness_LF Then 'This condition is to choose (1-weight distribution) instead of (weight distribution)
                Return 1 / (2 * PI) * Sqrt(((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) * p_TireStiffness * 1000) /
                                           ((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) + p_TireStiffness * 1000) / ((p_SM * p_SMWeightDistribution / 100) / 2))
            Else
                Return 1 / (2 * PI) * Sqrt(((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) * p_TireStiffness * 1000) /
                                           ((p_SpringStiffness * 1000 / p_SpringMotionRatio ^ 2) + p_TireStiffness * 1000) / ((p_SM * (1 - p_SMWeightDistribution) / 100) / 2))
            End If
 
        End Function
 
        Private Function CalculateNSMCriticalDamping(ByVal p_TireStiffness As Double, ByVal p_NSM As Double) As Double
 
            Return 2 * Sqrt(p_TireStiffness * 1000 * p_NSM)
 
        End Function
 
        Private Function CalculateNSMFrequency(ByVal p_TireStiffness As Double, ByVal p_NSM As Double) As Double
 
            Return 1 / (2 * PI) * (Sqrt(p_TireStiffness * 1000) / p_NSM)
 
        End Function
#End Region
 
#Region "Suspended mass"
        'Private Function CalculateSM(ByVal p_TotalMass As Double, ByVal p_NSM_LF As Double, ByVal p_NSM_RF As Double,
        '                         ByVal p_NSM_LR As Double, ByVal p_NSM_RR As Double) As Double
 
        '    Return p_TotalMass - (p_NSM_LF + p_NSM_RF + p_NSM_LR + p_NSM_RR)
 
        'End Function
 
        Private Function CalculateSM(ByVal p_TotalMass As Double, ByVal p_NSM_LF As Double, ByVal p_NSM_RF As Double,
                                ByVal p_NSM_LR As Double, ByVal p_NSM_RR As Double) As Double
 
            Return car.TotalMass - (car.NSM_LF + car.NSM_RF + car.NSM_LR + car.NSM_RR)
 
        End Function
 
        Private Function CalculateSMWeightDistribution(ByVal p_TotalMass As Double, ByVal p_TotalMassWeightDistribution As Double, ByVal p_NSM_LF As Double, ByVal p_NSM_RF As Double,
                                    ByVal p_NSM_LR As Double, ByVal p_NSM_RR As Double, ByVal p_NSMWeightDistribution As Double, ByVal p_SM As Double) As Double
 
            Return (p_TotalMass * p_NSMWeightDistribution - (p_NSM_LF + p_NSM_LR + p_NSM_RF + p_NSM_RR) * p_NSMWeightDistribution) / p_SM
 
        End Function
 
        Private Function CalculateSMCenterOfgravityHeight(ByVal p_SM As Double, ByVal p_TotalMass As Double, ByVal p_NSM_LF As Double,
                                           ByVal p_NSM_RF As Double, ByVal p_NSM_LR As Double, ByVal p_NSM_RR As Double,
                                           ByVal p_NSMCenterOfGravityHeight_LF As Double, ByVal p_NSMCenterOfGravityHeight_LR As Double,
                                           ByVal p_NSMCenterOfGravityHeight_RF As Double, ByVal p_NSMCenterOfGravityHeight_RR As Double,
                                           ByVal p_TotalMassCenterOfGravityHeight As Double) As Double
 
            Return ((p_TotalMass * p_TotalMassCenterOfGravityHeight) - (p_NSM_LF * p_NSMCenterOfGravityHeight_LF +
                                                                        p_NSM_RF * p_NSMCenterOfGravityHeight_RF +
                                                                        p_NSM_LR * p_NSMCenterOfGravityHeight_LR +
                                                                        p_NSM_RR * p_NSMCenterOfGravityHeight_RR)) / p_SM
 
        End Function
#End Region
 
#Region "Moment arm in roll"
        Private Function CalculateMomentArmInRollPerAxle(ByVal p_SMCenterOfGravityHeight As Double, ByVal p_RollCenterHeight As Double) As Double
 
            Return p_SMCenterOfGravityHeight - p_RollCenterHeight
 
        End Function
 
        Private Function CalculateMomentArmInRollAverage(ByVal p_WheelBase_Right As Double, ByVal p_WheelBase_Left As Double,
                                                         ByVal p_SMWeightDistribution As Double, ByVal p_RollCenterHeight_Front As Double,
                                                         ByVal p_RollCenterHeight_Rear As Double, ByVal p_SMCenterOfGravityHeight As Double) As Double
 
            Return p_SMCenterOfGravityHeight - ((p_RollCenterHeight_Rear - p_RollCenterHeight_Front) /
                                                ((p_WheelBase_Left + p_WheelBase_Right) / 2) * (1 - p_SMWeightDistribution)) +
                                                p_RollCenterHeight_Front
 
        End Function
#End Region
 
#Region "Roll moment"
        Private Function CalculateRollMomentPerAxle(ByVal p_SM As Double, ByVal p_SMWeightDistribution As Double, ByVal p_MomentArmPerAxle As Double) As Double
 
            Return p_SM * p_SMWeightDistribution * g * p_MomentArmPerAxle
 
        End Function
 
        Private Function CalculateRollMomentAverage(ByVal p_SM As Double, ByVal p_MomentArmAverage As Double) As Double
 
            Return p_SM * g * p_MomentArmAverage
 
        End Function
#End Region
 
#Region "Anti roll torque"
        Private Function CalculateAntiRollTorqueFromSpring(ByVal p_WheelRate_1 As Double, ByVal p_WheelRate_2 As Double, ByVal p_HalfTrack_1 As Double,
                                                 ByVal p_HalfTrack_2 As Double, ByVal p_MomentArmPerAxle As Double) As Double
 
            Return ((p_HalfTrack_1 / 1000) ^ 2 * Tan(rad(1)) * p_WheelRate_1 * 1000) +
                ((p_HalfTrack_2 / 1000) ^ 2 * Tan(rad(1)) * p_WheelRate_2 * 1000)   '[N.m/deg or roll]
 
        End Function
 
        Private Function CalculateAntiRollTorqueFromARB(ByVal p_ARBStiffness As Double, ByVal p_ARBMotionRatio As Double) As Double
 
            Return p_ARBStiffness / p_ARBMotionRatio ^ 2
 
        End Function
#End Region
 
#Region "Elastic weight transfer in roll"
        Private Function CalculateElasticWeightTransferInRoll(ByVal p_SM As Double, ByVal p_MomentArmPerAxle As Double, ByVal p_RollMomentPerAxle As Double,
                                         ByVal p_RollMomentTotal As Double, ByVal p_HalfTrack_1 As Double, ByVal p_HalfTrack_2 As Double) As Double
 
            Return (p_SM * p_MomentArmPerAxle * (p_RollMomentPerAxle / p_RollMomentTotal)) / (p_HalfTrack_1 + p_HalfTrack_2)
 
        End Function
#End Region
 
#Region "Moment arm in pitch"
        Private Function CalculateMomentArmInPitchPerAxle(ByVal p_SMCenterOfgravityHeight As Double, ByVal p_PitchCenterHeightPerSide As Double) As Double
 
            Return p_PitchCenterHeightPerSide - p_SMCenterOfgravityHeight
 
        End Function
 
        Private Function CalculateMomentArmInPitchAverage(ByVal p_SMCenterOfgravityHeight As Double, ByVal p_PitchCenterHeightAverage As Double) As Double
 
            Return p_PitchCenterHeightAverage - p_SMCenterOfgravityHeight
 
        End Function
#End Region
 
#Region "Pitch moment"
        Private Function CalculatePitchMomentPerSide(ByVal p_SM As Double, ByVal p_MomentArmPerSide As Double) As Double
 
            Return p_SM / 2 * g * p_MomentArmPerSide
 
        End Function
 
        Private Function CalculatePitchMomentAverage(ByVal p_SM As Double, ByVal p_MomentArmAverage As Double) As Double
 
            Return p_SM * g * p_MomentArmAverage
 
        End Function
#End Region
 
#Region "Anti pitch torque"
        Private Function CalculateAntiPitchTorque(ByVal p_WheelBasePerSide As Double, ByVal p_PitchCenterLongitudinalPositionPerSide As Double,
                                        ByVal p_WheelRate_Front As Double, ByVal p_WheelRate_Rear As Double) As Double 'Anti pitch torque (per side) per deg
 
            Return (p_PitchCenterLongitudinalPositionPerSide / 1000 * Tan(rad(1)) * p_WheelRate_Front * 1000 * p_PitchCenterLongitudinalPositionPerSide) +
                ((p_WheelBasePerSide - p_PitchCenterLongitudinalPositionPerSide) * Tan(rad(1)) * p_WheelRate_Rear * 1000 * (p_WheelBasePerSide - p_PitchCenterLongitudinalPositionPerSide))
 
        End Function
#End Region
 
#Region "Elastic weight transfer in pitch"
        Private Function CalculateElasticWeighttransferInPitch(ByVal p_SM As Double, ByVal p_MomentArmInPitchPerSide As Double, ByVal p_PitchMomentPerSide As Double,
                                         ByVal p_PitchMomentAverage As Double, ByVal p_WheelBasePerSide As Double) As Double
 
            Return (p_SM * p_MomentArmInPitchPerSide * (p_PitchMomentPerSide / p_PitchMomentAverage)) / (p_WheelBasePerSide)
 
        End Function
#End Region
 
 
 
 
#End Region
 
    End Class
 
End Namespace