Berechnung - Sollgewicht

Erstellen Sie ein Formular zur Gewichtsberechnung



Nach der Eingabe könnte das Formular so aussehen.


























Das erste kleine Programm wird erstellt.
1.Stufe:
Private Sub Cmdberechnen_Click()
ergebnis = (((Txtcm.Text - 100) * 0.9) * x)
lblausgabe.Caption = ergebnis & " KG Sollgewicht"
y = Txtkg.Text - ergebnis
lblausgabe2.Caption = " Sie weichen " & y & " KG "
& Chr(13) & " vom Idelalgewicht ab."
End Sub





























2.Stufe:
Private Sub Cmdberechnen_Click()
If TXTcm.Text = "" Then GoTo keinwert
If TXTkg.Text = "" Then GoTo keinwert
If Optman.Value = True Then x = 0.95
If Optweib.Value = True Then x = 1
ergebnis = (((Txtcm.Text - 100) * 0.9) * x)
lblausgabe.Caption = ergebnis & " KG Sollgewicht"
y = Txtkg.Text - ergebnis
lblausgabe2.Caption = " Sie weichen " & y & " KG "
& Chr(13) & " vom Idelalgewicht ab."
GoTo ende:
keinwert:
Txtcm.Text = "0"
Txtkg.Text = "0"
lblausgabe.Caption = "Bitte Werte eingeben !!! "
ende:
End Sub






























3.Stufe:
Private Sub Cmdberechnen_Click()
If Opt1.Value = True Then x = 0.95
If Opt2.Value = True Then x = 1
If Txtcm.Text = " " Or Txtkg.Text = " " Then
lblausgabe.Caption = " Werte eingeben !!! "
Else
ergebnis = (((Val(Txtcm.Text) - 100) * 0.9) * x)
lblausgabe.Caption = ergebnis & " KG Sollgewicht"
y = Val(Txtkg.Text) - ergebnis
lblausgabe2.Caption = " Sie weichen " & y & " KG " & _
Chr(13) & " vom Idelalgewicht ab."
End If
End Sub