| Umsetzen einer mathematischen Formel (e-Funktion) |
| |
| |
| Private Halbwertszeit As Single | |
| Private Anfangshöhe As Single | |
| Const h_ende = 0.0002 | Konstanten für die (fiktive) Halbwertszeit, in der die |
| Const HalbwertszeitDunkelbier = 1.25 | Schaumkrone verschiedener Biersorten zerplatzt. |
| Const HalbwertszeitWeißbier = 1.5 | |
| Const HalbwertszeitPils = 1.75 | |
| |
| Private Sub cmdBerechnen_Click() | |
| Dim Minuten As Single | |
| If optDunkelbier = True Then | Welcher OptionButton wurde gewählt? |
| Halbwertszeit = HalbwertszeitDunkelbier | |
| ElseIf optPils = True Then | |
| Halbwertszeit = HalbwertszeitPils | |
| Else | |
| Halbwertszeit = HalbwertszeitWeißbier | |
| End If | |
| Minuten = -Halbwertszeit * (Log(h_ende) - Log(Anfangshöhe)) / Log(2) | Formel (e-Funktion). |
| lblErgebnis.Caption = Format(Minuten, "0.00") & " Minuten" | Ergebnis wird im Label ausgedruckt. |
| End Sub | |
| |
| Private Sub txtAnfangshöhe_Change() | |
| If IsNumeric(txtAnfangshöhe.Text) = True Then | Wenn sich der Inhalt des Textfeldes ändert, wird der |
| Anfangshöhe = CSng(txtAnfangshöhe.Text) | Wert in die Variable übertragen. |
| End If | |
| End Sub | |
| |
| Private Sub txtAnfangshöhe_KeyPress(KeyAscii As Integer) |
| Select Case Chr(KeyAscii) | Nur bestimmte Tasten zulassen: |
| Case "0" To "9" | es sind nur Zahlen (0 bis 9), Komma und Backspace |
| Case "," | erlaubt. |
| If InStr(txtAnfangshöhe.Text, ".") <> 0 Then |  |
| KeyAscii = 0 | |
| End If | |
| Case Chr(vbKeyBack) | |
| Case Else | |
| KeyAscii = 0 | |
| End Select | |
| End Sub | |
| . |
| |
zurück