Public Class cBMI
 
    Public Enum enuGeschlecht
        mask = 0
        fem = 1
    End Enum
 
    Private _enuGeschlecht As enuGeschlecht
    Private _intAlter As Integer = 0
    Private _dblGewicht As Double
    Private _dblKörpergröße As Double
 
    Public Property Alter() As Integer
        Get
            Return _intAlter
        End Get
        Set(ByVal value As Integer)
            _intAlter = value
        End Set
    End Property
 
    Public Property Geschlecht() As enuGeschlecht
        Get
            Return _enuGeschlecht
        End Get
        Set(ByVal value As enuGeschlecht)
            _enuGeschlecht = value
        End Set
    End Property
 
    Public Property Gewicht() As Double
        Get
            Return _dblGewicht
        End Get
        Set(ByVal value As Double)
            _dblGewicht = value
        End Set
    End Property
 
    Public Property Körpergröße() As Double
        Get
            Return _dblKörpergröße
        End Get
        Set(ByVal value As Double)
            _dblKörpergröße = value
        End Set
    End Property
 
    Public Sub New()
 
    End Sub
 
    Public Sub New(ByVal gewicht As Double, ByVal körpergröße As Double, ByVal _
      geschlecht As enuGeschlecht, ByVal alter As Integer)
 
        Me.Gewicht = gewicht
        Me.Körpergröße = körpergröße
        Me.Geschlecht = geschlecht
        Me.Alter = alter
 
 
    End Sub
 
    Public Function BMI() As Double
 
        Dim result As Double = 0
 
        'Hier noch eventuelle Korrekturen fürs Alter
        Select Case Geschlecht
            Case enuGeschlecht.fem
                result = Gewicht / ((Körpergröße / 100) ^ 2)
 
            Case enuGeschlecht.mask
                result = Gewicht / ((Körpergröße / 100) ^ 2)
 
        End Select
 
        Return result
 
 
 
    End Function
 
 
    Public Function BMI_Text() As String
 
        Dim result As String = String.Empty
 
        'Altersbehandlung ;-)
 
            If Alter < 17 Then
            Select Case Geschlecht
                Case enuGeschlecht.fem
                    'Es sei denn Adipositas
                    If BMI() < 30 Then
                        Return "Mädchen im Alter von " & Alter.ToString & "" & _
                          "sollten sich mit BMI nicht beschäftigen..."
                    Else
                        Return "TU WAS!!! - Noch hast Du Zeit!"
                    End If
                Case enuGeschlecht.mask
                    If BMI() < 30 Then
                        Return "Für Jungen im Alter von " & Alter.ToString & "" & _
                          "ist eine BMI-Berechnung nicht sinnvoll!"
                    Else
                        Return "TU WAS!!! - Noch hast Du Zeit!"
                    End If
            End Select
 
        End If
 
        Select Case BMI()
            Case Is < 19
                result = "Untergewicht"
            Case Is < 25
                result = "Normalgewicht"
            Case Is < 30
                result = "Übergewicht"
            Case Is < 35
                result = "Adipositas (Grad 1)"
            Case Is < 40
                result = "Adipositas (Grad 2)"
            Case Else
                result = "Adipositas (Grad 3)"
        End Select
 
        Return "Sie haben einen BMI von " & BMI.ToString("##.00") & " und haben" & _
          "" & result
 
    End Function
 
End Class

Dim bmi As New cBMI(110, 186, cBMI.enuGeschlecht.fem, 12)
MsgBox(bmi.BMI_Text)

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]