Hallo zusammen,
bin momentan dabei mich Programmiertechnisch umzuorientieren und habe mich für VB entschieden.
Komme soweit ganz gut damit klar, da es recht selbsterklärend ist. Habe also heute damit angefangen mein erstes mehr oder weniger sinnvolles Programm zu schreiben - einen BMI Rechner. Einfach nur weil verschiedene Aspekte des Programmierens vorkommen.
Nun zu meiner Frage: Den Code habe ich soweit komplett und auch die Form steht. Das Ergebnis der Rechnung ist auch korrekt. Allerdings zeigt er mir nichts in der Ergebnis Textbox an nachdem ich den Button gedrückt habe.
Kann es sein, dass ich einen Fehler bei den If Operatoren habe? Konnte zu dem And und Or nichts finden.
Mein Code:
Code:
Public Class Form1
Public alter As Double
Public groesse As Double
Public gewicht As Double
Public ergebnis As Double
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
alter = txtAlter.Text
groesse = txtGroesse.Text
gewicht = txtGewicht.Text
ergebnis = gewicht / (groesse * groesse)
If alter < 20 Then
If cbMannlich.Checked Then
If ergebnis < 20 Then
txtErgebnis.Text = "Sie sind Untergewichtig."
End If
If ergebnis >= 20 And ergebnis <= 25 Then
txtErgebnis.Text = "Sie sind Normalgewichtig."
End If
If ergebnis > 26 Then
txtErgebnis.Text = "Sie sind Übergewichtig!"
End If
End If
If cbWeiblich.Checked Then
If ergebnis < 19 Then
txtErgebnis.Text = "Sie sind Untergewichtig!"
End If
If ergebnis >= 19 And ergebnis <= 24 Then
txtErgebnis.Text = "Sie sind normalgewichtig."
End If
If ergebnis > 25 Then
txtErgebnis.Text = "Sie sind Übergewichtig!"
End If
End If
End If
txtAlter.Clear()
txtGewicht.Clear()
txtGroesse.Clear()
End Sub
End Class
Erstes Programm in VB - bräuchte Hilfe :)
