Public Class Dateneingabe
 
 
 
    Private Sub Dateneingabe_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        'Beim Laden des Formular den Radiobutton auf Männlich setzen
        '(damit gleich am Anfang ein sinnvoller Wert vorausgewählt ist)
        Me.RadioButton_Mann.Checked = True
    End Sub
 
    Private Sub TextBox_Name_TextChanged( ByVal sender As System.Object,  ByVal _
      e As System.EventArgs) Handles TextBox_Name.TextChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub TextBox_Gewicht_TextChanged( ByVal sender As System.Object,  _
      ByVal e As System.EventArgs) Handles TextBox_Gewicht.TextChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub TextBox_Size_TextChanged( ByVal sender As System.Object,  ByVal _
      e As System.EventArgs) Handles TextBox_Size.TextChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub RadioButton_Mann_CheckedChanged( ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles RadioButton_Mann.CheckedChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub RadioButton_Frau_CheckedChanged( ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles RadioButton_Frau.CheckedChanged
        'Button_Calculate einstellen
        Validierung.CheckAndSetButton_Calculate()
    End Sub
 
    Private Sub Button_Calculate_Click( ByVal sender As System.Object,  ByVal e _
      As System.EventArgs) Handles Button_Calculate.Click
        Dim dblLength                   As Double = Nothing
        Dim dblGewicht                  As Double = Nothing
        Dim dblFaktor                   As Double = Nothing
        Dim dblIdealgewicht             As Double = Nothing
        Dim dblDifference               As Double = Nothing
        Dim strTextErgebnisGewicht      As String = Nothing
        Dim strTextGewicht              As String = Nothing
        Const FAKTOR_MANN               As Double = 0.9
        Const FAKTOR_FRAU               As Double = 0.85
 
 
        If Me.RadioButton_Mann.Checked = True Then
            'Wenn der RadioButton für männlich ausgewäht ist,
            'dann den Wert für männlich zuweisen
            dblFaktor = FAKTOR_MANN
        Else
            'Andernfalls den Wert für weiblich zuweisen
            dblFaktor = FAKTOR_FRAU
        End If
 
        'Wert aus der TextBox für Größe nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Size.Text, dblLength) = False _
          Then Goto ErrorExit
            '--->>
            '--->>
 
        'Wert aus der TextBox für Gewicht nach Double konvertieren
        'Sollte ein Konvertierungsfehler auftreten (was eigentlich nicht sein 
        ' sollte),
        'dann sofort zum Fehlerausgang.
        If Helper.ConvertTextToDouble(Me.TextBox_Gewicht.Text, dblGewicht) = _
          False Then Goto ErrorExit
            '--->>
            '--->>
 
        'Idealgewicht berechnen
        dblIdealgewicht = Berechnung.Calculate_Idealgewicht(dblLength, _
          dblFaktor)
 
        'Differenz zwischen Gewicht und Idealgewicht ausrechnen
        dblDifference = dblGewicht - dblIdealgewicht
 
        'Text für Gewicht zusammensetzen
        strTextGewicht = "Hallo " & "Ihr Idealgewicht: " & CStr( _
          dblIdealgewicht) & " kg" & " - Ihr " & _
              "Gewicht: " & CStr(dblGewicht.ToString) & " kg"
 
        Select Case dblDifference
            Case Is < -0.5
                strTextErgebnisGewicht = "Sie haben Untergewicht."
            Case Is > 0.5
                strTextErgebnisGewicht = "Sie haben Übergewicht."
            Case Else
                strTextErgebnisGewicht = "Sie haben Normalgewicht."
        End Select
 
        'Formular anzeigen und Werte einfüllen.
        Me.ShowErgebnis(strTextGewicht, strTextErgebnisGewicht)
 
    'Muss rein, damit nicht in den Fehlerausgang reingelaufen wird.
    Exit Sub
 
    'Fehlerausgang
    ErrorExit:
    'Hier kann noch eine Meldung eingebaut werden, falls benötigt.
    End Sub
 
    Private Sub ShowErgebnis(ByVal strTextGewicht As String, ByVal _
      strTextErgebnisGewicht As String)
 
        Ergebnis.Show()
 
        Ergebnis.Label_Gewicht.Text             = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Close()
 
    End Sub
End Class