NASA-Messdaten schreiben

NASA-Messdaten schreiben. Programmierung via 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 nichts.
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

Mehr Tipps: Passwort-Abfrage mit Array

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