Gewichtsberechnung II

Gewichtsberechnung Programmierung, frmXYZ.Print, frmXYZ.CurrentX, Format$
Dim height1%, igewicht As Single, ngewicht As Single Variablen für Körpergröße, Ideal- und Normalgewicht.
Sub Start()
On Error Resume Next
height1 = Val(txtHeight.Text)
End Sub
Sub cmdDame_Click() Wenn die CommandButtons aktiviert werden, wird gerechnet.
Call Start
Call loeschen Löschen der alten Werte.
If height1 >= 150 And height1 <= 250 Then
igewicht = (height1 - 100) * 0.85 Die Variablen igewicht und ngewicht werden berechnet
ngewicht = (height1 - 100) * 0.95 und auf dem Formular ausgegeben.
achse1 Koordinaten auf dem Formular aufrufen.
frmWeight2.Print "Idealgewicht (fem) " & Format$(igewicht, "##0.00") & " kg"
achse2
frmWeight2.Print "Normalgewicht (fem) " & Format$(ngewicht, "##0.00") & " kg"
Else
Call fehler
End If
End Sub
Sub cmdHerr_Click() Dasselbe Spiel für die Herren.
Call Start
Call loeschen
If height1 >= 150 And height1 <= 250 Then
igewicht = (height1 - 100) * 0.9
ngewicht = (height1 - 100)
achse1
frmWeight2.Print "Idealgewicht (masc) " & Format$(igewicht, "##0.00") & " kg"
achse2
frmWeight2.Print "Normalgewicht (masc) " & Format$(ngewicht, "##0.00") & " kg"
Else
Call fehler
End If
End Sub
Sub achse1() Positionierte Textausgabe auf dem Formular.
With frmWeight2
.CurrentX = 1350
.CurrentY = 900
End With
End Sub
Sub achse2() Positionierte Textausgabe auf dem Formular.
With frmWeight2
.CurrentX = 1350
.CurrentY = 1150
End With
End Sub
Sub fehler()
MsgBox "Unzulässige Eingabe", 48, "Vorsicht"
End Sub
Sub txtHeight_Click() Wenn man in die TextBox klickt oder die TextBox den
loeschen Fokus erhält (durch Tabulatorsprung), wird der Inhalt
End Sub der TextBox sowie die Daten auf dem Formular gelöscht.
Sub txtheight_GotFocus()
txtHeight.Text = ""
End Sub
Sub loeschen()
frmWeight2.Cls
End Sub
Sub cmdEnde_Click() Ende des Programms.
Unload frmWeight2
End Sub

Mehr Tipps: Wahr- oder Falschwert ausgeben

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt