| 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 = "" | |
 | |
| |
| |
| |
| |
| |
| |
| Sub loeschen() | |
| frmWeight2.Cls | |
| End Sub | |
| |
| Sub cmdEnde_Click() | Ende des Programms. |
| Unload frmWeight2 | |
| End Sub | |
| |
zurück