Also... bei dem Code hier. Soll er eigentlich je nach dem wie der Wert ist in der txtblub.text den jeweiligen Text ausgeben.
Er gibt aber immer nur Txtblub.Text = "Mäßiges Untergewicht" den Part aus. Ich hoffe ihr versteht was ich meine^^
Edit by LaMa5:
- VB-Tag eingefügt
- Titel angepasst
VB.NET-Quellcode
- Private Sub cmdBerechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdBerechnen.Click
- Dim größe As Single = Txtgröße.Text
- Dim gewicht As Integer = Txtgewicht.Text
- Dim BMI As Single = gewicht / (größe * größe)
- Txtbmi.Text = BMI
- Select Case BMI
- Case Is < 16
- Txtblub.Text = "Stark Untergewichtig"
- Case Is >= 16, Is <= 17
- Txtblub.Text = "Mäßiges Untergewicht"
- Case Is >= 17, Is <= 18
- Txtblub.Text = "Leichtes Untergewicht"
- Case Is >= 18, Is <= 25
- Txtblub.Text = "Normalgewicht"
- Case Is >= 25, Is <= 30
- Txtblub.Text = "Leichtes Übergewicht"
- Case Is >= 30
- Txtblub.Text = "Übergewicht"
- End Select
- End Sub
- End Class
Er gibt aber immer nur Txtblub.Text = "Mäßiges Untergewicht" den Part aus. Ich hoffe ihr versteht was ich meine^^
Edit by LaMa5:
- VB-Tag eingefügt
- Titel angepasst
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „LaMa5“ ()