Verdoppeln von Zahlen in einer Schleife

Verdoppeln von Zahlen in einer Schleife. ScrollBalken, KeyAscii, CByte
Private Sub Form_Load()
txtTage.MaxLength = 2 Beim Laden des Formulars wird die maximale Anzahl
txtTage.Text = 0 an Zeichen im Textfeld auf 2 gesetzt.
vscTage.Min = 0 Min- und Max-Werte für den Scrollbalken.
vscTage.Max = 50 Limitierung der Tage verhindert Überlauf.
End Sub
Private Sub txtTage_Change() Ändert sich der Inhalt des Textfeldes, soll der Betrag
Dim Tage As Byte, Preis As Currency neu berechnet werden.
Preis = 0.01
If Len(txtTage.Text) = 0 Or txtTage.Text = "" Or _ Fehler abfangen (Überlauf, sowie das Löschen des
txtTage.Text > "50" Then Textfeldes verhindern).
txtTage.Text = "0" Wichtig ist das Setzen aller Werte in "".
For Tage = 1 To CByte(txtTage.Text)
Preis = Preis * 2 Der Preis wird immer wieder verdoppelt.
Next
lblDM.Caption = Format(Preis, "Currency")
End Sub
Private Sub txtTage_KeyPress(KeyAscii As Integer) Bei manueller Eingabe kann es einen Überlauf geben.
Select Case KeyAscii Dieser Fehler wird weiter oben abgefangen.
Case 48 To 57 Es sollen nur die Zifferntasten 0 bis 9 benutzt werden können.
Case vbKeyBack Backspace-Taste ist aktiviert. Das Textfeld kann aber
Case Else nicht gelöscht werden (siehe: Fehler abfangen).
KeyAscii = 0 KeyAscii=0: Alle anderen Tasten werden zurückgewiesen.
End Select
End Sub
Private Sub vscTage_Change() Ändert sich die Höhe der Bildlaufleiste, wird der aktuelle
txtTage.Text = vscTage.Value Wert der Value- Eigenschaft dem Textfeld zugewiesen -
End Sub das löst dort ein Change-Ereignis aus.
.
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