auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Halbwertszeit berechnen

Halbwertszeit berechnen: Umsetzen einer mathematischen Formel (e-Funktion programmieren)
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
.

Mehr Tipps: Umlaute zählen

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