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
| Imports System.Math
Class MainWindow
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
'Lors du clic sur le bouton, on crée donc une instance de CalculRac à l'aide des valeurs encodées dans les contrôles de types TextBox.
'Il faudrait ajouter de quoi vérifier que ces contrôles contiennent bien une valeur numérique. Sinon, des problèmes sont à prévoir.
Dim calculresultat As New CalculRac(CSng(TextBoxVolumeBac.Text), CSng(TextBoxKhBac.Text), CSng(TextBoxConsoKh.Text), CSng(TextBoxDebitRac.Text)
'Une fois l'objet créé, je peux lui demander de calculer le "résultat". Je l'arrondis à une décimale à la volée et dans la foulée, je le transforme en String pour l'afficher dans un contrôle de type TextBox.
TextBoxresultatKhRac.Text = Round(calculresultat.Resultat(), 1).ToString
End Sub
End Class
Public Class CalculRac 'Ici, je déclare une nouveau type d'objet dont le nom du type est CalculRec
'Les 4 lignes suivantes servent à dire que possède 4 propriétés qui sont celles ci-dessous. Tout comme un contrôle TextBox possède une propriété Text par exemple.
Public Property VolumeInstallation As Single
Public Property KhBac As Single
Public Property KhConso As Single
Public Property DebitReacteur As Single
'La méthode ci-dessous est le constructeur. C'est cette méthode qui est appelée lorsqu'on fait New CalculRac dans le code de MainWindow. Cette méthode sert à créer une instance de la classe. Est-ce que le mot instance est suffisamment claire ??
Public Sub New(volume As Single, khb As Single, khc As Single, debit As Single) 'Vu qu'il est absolument nécessaire d'avoir ces 4 valeurs de bases pour pouvoir calculer le résultat et que c'est pour le moment la seule utilité de cette classe, les demander en paramètre du constructeur oblige celui qui utilisera cette classe à les fournir. Sans quoi, la fonction Resultat serait inutilisable.
Me.VolumeInstallation = volume
Me.KhBac = khb
Me.KhConso = khc
Me.DebitReacteur = debit
End Sub
'Ci-dessous, une fonction tout ce qu'il y a de plus classique qui retourne un objet de type Single. Je te conseille fortement de lui trouver un meilleur nom.
Public Function Resultat() As Single
Return (((VolumeInstallation * KhConso) / 24) / DebitReacteur) + KhBac
End Function
End Class |
Partager