Public Class Rectangle Dim _Longueur As Double Dim _Largeur As Double Public Sub New(ByVal lr As Integer, ByVal lg As Integer) _Longueur = lg _Largeur = lr End Sub Public Function Surface() As Integer Return _Longueur * _Largeur End Function Property Longueur As Integer Set(ByVal value As Integer) _Longueur = value End Set Get Return _Longueur End Get End Property Property Largeur As Integer Set(ByVal value As Integer) _Largeur = value End Set Get Return _Largeur End Get End Property Public Function EstCarre() As Boolean If Longueur = Largeur Then Return True Else Return False End If End Function Public Function longueurDiagonale() As Double Dim LongDiag As Double LongDiag = _Longueur * _Longueur + _Largeur * _Largeur LongDiag = Math.Sqrt(LongDiag) Return LongDiag End Function End Class
Dim MonRectangle as [Rectangle] = New [Rectangle](100, 200) If Not MonRectangle.EstCarre Then MonRectangle.Largeur = MonRectangle.Longueur MessageBox.Show(String.Format("Le rectangle fait maintenant {0} de largeur, {1} de longueur et {2} px² de surface", MonRectangle.Largeur, MonRectangle.Longueur, MonRectangle.Surface)) Else MessageBox.Show(String.Format("Le rectangle fait {0} de largeur, {1} de longueur et {2} px² de surface", MonRectangle.Largeur, MonRectangle.Longueur, MonRectangle.Surface)) End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question