| Funktion Mittelwert |
| |
| |
| Private Sub cmdEinfügen_Click() | |
| With txtZahl | |
| If IsNumeric(.Text) = True Then | Wenn der Inhalt der Eingabe-TextBox nummerisch ist, |
| lstZahlen.AddItem txtZahl.Text | dann wird der Eintrag in die ListBox (links) übernommen. |
| .SelStart = 0 | |
| .SelLength = Len(.Text) | |
| End If | |
| .SetFocus | TextBox erhält Fokus zurück. |
| End With | |
| End Sub | |
| |
| Private Sub cmdKopieren_Click() | |
| If lstZahlen.ListIndex >= 0 Then | Ein selektierter Eintrag aus der ListBox kann wiederholt |
| txtZahl.Text = lstZahlen.List(lstZahlen.ListIndex) | kopiert werden. |
| End If | |
| txtZahl.SetFocus | |
| End Sub | |
| |
| Private Sub cmdMittelwert_Click() | |
| Dim n As Long, Summe As Single | |
| If lstZahlen.ListCount > 0 Then | Wenn die ListBox Einträge enthält, dann |
| For n = 0 To lstZahlen.ListCount - 1 | durchläuft eine Schleife die ListBox, |
| Summe = Summe + lstZahlen.List(n) | addiert alle Zahlen, und... |
| Next | |
| lblErgebnis.Caption = Format(Summe / n, "0.00") | ...teilt das Ergebnis durch die Anzahl der Einträge. |
| Else | |
| lblErgebnis.Caption = "Kein Ergebnis" | Wenn keine Einträge in der ListBox, dann gebe Hinweis- |
| txtZahl.SetFocus | text aus und setze den Fokus in die TextBox zurück. |
| End If | |
| End Sub | |
| |
| Private Sub cmdLöschen_Click() | |
| lstZahlen.Clear | Diese Ereignisprozedur löscht den Inhalt der ListBox. |
| txtZahl.SetFocus | |
| End Sub | |
|
| Private Sub txtZahl_Click() |
| txtZahl.Text = "" |
| End Sub |
|
|
|
|
|
|
| . |
| |
zurück