| Do ... Loop, ListBox |
| |
| Deklarationsteil. |
| Private StopModus As Boolean, Tage As Long, NeuesDatum As Date |
| |
| Private Sub Form_Load() | Die Ausgabe der Messwerte wird gestartet. |
| Dim StartWert As Date, Messwert1 As Single, Messwert2 As Single, x As Variant |
| Me.Show | Formular anzeigen, sonst geht nix. |
| StopModus = False | |
| Do | Schleife: |
| NeuesDatum = DateAdd("d", Now, Tage - 365) | Variable NeuesJahr erhält aktuellen Tag minus 365. |
| Tage = Tage + 1 | Dann werden die Tage hochgezählt. |
| Randomize | |
| Messwert1 = Rnd * 1000 | Messwerte mit Zufallsgenerator berechnen. |
| Messwert2 = Rnd * 1000 | |
| lstMessen.AddItem Format(NeuesDatum, "Long Date") | Zeile 1 in ListBox ausgeben (Datum). |
| lstMessen.AddItem "Geschwindigkeit: " & _ | Zeile 2 in ListBox ausgeben (Messwert 1). |
| Format(Messwert1, "0.00" & " km/h") | |
| lstMessen.AddItem "Flughöhe: " & _ | Zeile 3 in ListBox ausgeben (Messwert 2). |
| Format(Messwert2, "0.00" & " km") | |
| lstMessen.AddItem "" | Zeile 4 in ListBox ausgeben (Leerzeile). |
| lstMessen.AddItem "----------------------------------------" | Zeile 5 in ListBox ausgeben (Trennlinie). |
| lstMessen.AddItem "" | Zeile 6 in ListBox ausgeben (Leerzeile). |
| StartWert = Timer | Variable StartWert erhält Wert des Timers. |
| x = lstMessen.ListCount | Zählt die Zeilen in der ListBox. |
| lstMessen.Selected(x - 3) = True | Markiert immer die letzte Zeile in der ListBox. |
| lblAnzahlWerte.Caption = Tage * 2 & _ | Gibt Meldung im oberen Label aus. |
| " Messwerte empfangen" | |
| Do | |
| DoEvents | Das DoEvents muss in die DoLoop-Schleife, sonst |
| Loop Until Timer > StartWert + 1 | blockiert der Timer. 1 Sekunde warten. |
| Loop Until StopModus = True | Schleife läuft, bis der StopModus aktiviert wurde |
| End Sub | (Entladen des Formulars). |
| |
| Private Sub Form_Resize() | |
| With lstMessen | Wenn man die Größe des Formulars ändert, wird die |
| .Height = frmMessen.Height - 600 | Größe der ListBox ebenfalls angepasst. |
 | .Width = frmMessen.Width - 150 | | |
| End With | |
| End Sub | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| Private Sub Form_Unload(Cancel As Integer) | |
| StopModus = True | Beim Entladen des Formulars den Stop-Modus |
| Unload Me | aktivieren. |
| End Sub | |
| |
zurück