Übungsaufgabe FlipFlop

Amelie · 22. Februar 2022, 10:30

Moin moin

System.Timers.Timer habe ich nun benutzt, weil ich gelesen habe das der im vergleich zu dem anderen asyncron bzw in einem extra Task läuft, was ein "einfrieren" verhindern soll..???
Habe da erstmal den NumericUp weggelassen.

ListofLEDs() und ListofColors() erfüllen dieses Kriterium nicht. Nicht, warum nicht??

Das mit der ledNr habe ich gemacht, weil es für mich einfach ist das nachzuvollziehen. Wenn da überall zähler oder was auch immer steht verwirrt mich das.
OK, das mit dem Random macht Sinn.
Das mit dem Farbwechsel ist mir so garnicht aufgefallen.

VaporiZed · 22. Februar 2022, 10:41

Amelie schrieb:

warum nicht?

Weil ein Sub-Name mit einem Verb beginnen sollte, damit ein Imperativ/Befehlssatz in der gesprochenen Sprache (deutsch/englisch) rauskommt. List ist zwar (auch) ein englisches Verb, dann ergibt aber der Sub-Name keinen Sinn. ListOfLEDs würde ich mit "LED-Liste" übersetzen. Oder (eine) Liste von LEDs. Das ist kein Befehl. Ein Befehlssatz im Deutschen wäre "Erstelle eine LED-Liste" -> CreateListOfLEDs. Oder "Liste mir LEDs auf". Aber letzteres führt 1. im Englischen m.E. (!) zu Verwirrung (ListLEDs), weil man dann nicht mehr sagen kann, ob List nun ein Verb oder ein Substantiv ist. Zum anderen wird der Name dem Inhalt der Methode nicht mehr ganz gerecht. Es wird eine Liste erstellt oder befüllt, also Dinge zusammengesammelt. Ich würde das persönlich nicht als "auflisten" bezeichnen. Ein Auflisten verbinde ich mit der Anzeige derselbigen.

ErfinderDesRades · 22. Februar 2022, 12:27

BitteSehr.

Der bahnbrechende Code:

VB.NET-Quellcode

Public Class frm_lauflicht
Private LED_Leiste As List(Of Panel) = Nothing
Private LED_Colors As Color() = {Color.Red, Color.Lime, Color.DodgerBlue, Color.Magenta, Color.Orange, Color.SpringGreen, Color.Yellow}
Private Random As New Random
Private _IsRunning As Boolean = False
Public Property IsRunning() As Boolean
Get
Return _IsRunning
End Get
Set(ByVal value As Boolean)
If _IsRunning = value Then Return
_IsRunning = value
btn_OnOff.BackColor = If(_IsRunning, Color.Red, Color.Green)
If _IsRunning Then Run()
End Set
End Property
Private Sub btn_OnOff_Click(sender As Object, e As EventArgs) Handles btn_OnOff.Click
IsRunning = Not IsRunning
End Sub
Private Async Sub Run()
Dim iPnl = 0
Dim stp = 1
Do ' Endlos-Schleife
Dim col = LED_Colors(Random.Next(0, LED_Colors.Length))
For i = 0 To LED_Leiste.Count - 2
'innere Schleife: Ein Durchlauf - je nach stp vorwärts oder rückwärts
LED_Leiste(iPnl).BackColor = col ' färben
Await Task.Delay(200)
LED_Leiste(iPnl).BackColor = Color.DimGray ' entfärben
If Not IsRunning Then Exit Do ' Abbruch
iPnl += stp
Next
stp = -stp ' Richtungswechsel
Loop
End Sub
Private Sub frm_lauflicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LED_Leiste = New List(Of Panel) From {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}
End Sub
End Class

oder noch besser:

Spoiler anzeigen

VB.NET-Quellcode

Public Class frm_lauflicht
Private _IsRunning As Boolean = False
Private Property IsRunning() As Boolean
Get
Return _IsRunning
End Get
Set(ByVal value As Boolean)
If _IsRunning = value Then Return
_IsRunning = value
btn_OnOff.BackColor = If(_IsRunning, Color.Red, Color.Green)
If _IsRunning Then Run()
End Set
End Property
Private Sub btn_OnOff_Click(sender As Object, e As EventArgs) Handles btn_OnOff.Click
IsRunning = Not IsRunning
End Sub
Private Async Sub Run()
Dim LED_Leiste = {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}
Dim LED_Colors = {Color.Red, Color.Lime, Color.DodgerBlue, Color.Magenta, Color.Orange, Color.SpringGreen, Color.Yellow}
Dim rnd As New Random
Dim iPnl = 0
Dim stp = 1
Do ' Endlos-Schleife
Dim col = LED_Colors(rnd.Next(0, LED_Colors.Length))
For i = 0 To LED_Leiste.Length - 2
'läuft je nach stp vorwärts oder rückwärts
LED_Leiste(iPnl).BackColor = col ' färben
Await Task.Delay(200)
LED_Leiste(iPnl).BackColor = Color.DimGray ' entfärben
If Not IsRunning Then Exit Do ' Abbruch
iPnl += stp
Next
stp = -stp ' Richtungswechsel
Loop
End Sub
End Class

Amelie · 22. Februar 2022, 12:49

OK. wieder gaaaaanz anders

Mit dem System.Timers.Timer lag ich also falsch?
Muss mir jetzt gleich mal dein Code genauer ansehen was da im einzelnen passiert aber auf den ersten Blick

Danke für die Mühe

Habe da gleich mal eine Frage:
Kann man mit einem Timer oder einem Task.Delay je nachdem was ich verwende ohne viel Aufwand etwas aus einer ListOf auslesen.
Beispiel:

VB.NET-Quellcode

Dim LED_Leiste = {Panel0, Panel1, Panel2, Panel3, Panel4, Panel5, Panel6}

Panel1 nach 2 Sekunden, dann nach weiteren 4 Sekunden Panel2 usw....

Ich denke ich muss die TimeTicks irgendwie zählen, dann den Zwischenstand irgendwo speichern und am Ende der ListOf alles wieder auf NUll...???

ErfinderDesRades · 22. Februar 2022, 13:21

Der Async/Await-Ansatz ist vom Timer-Ansatz grundverschieden.
Wenn du den Code mal anguckst: Timer kommen da nicht mehr vor.
Man kann nicht unbedingt sagen "Mit Timer liegst du falsch" - sondern es ist ein anderer Ansatz.
(Aber man kann sagen mit System.Timers.Timer liegst du falsch, weil dessen Tick kommt im NebenThread raus, was norrmalerweise im Gui Probleme macht. Nun zufällig nicht - ich weiss auch nicht, warum man eine BackColor scheinbar nebenläufig ändern darf - alle möglichen anderen Control-Properties quittieren sowas mit einer InvalidOperation-Exception.
Also wenn Timer dann den WinForms.Timer)

Mittels Await Task.Delay(200) ist einfach eine Ausführungs-Pause gecodet, in einer Schleife, die andernfalls mit irrsinniger Geschwindigkeit durchrasen würde.

Ist eine Besonderheit von Async/Await, dass damit geht, was Anfänger normalerweise mit Thread.Sleep() versuchen (was nicht geht).

Amelie · 22. Februar 2022, 18:52

OK Habe ich verstanden.
EDIT:
@ErfinderDesRades @VaporiZed

So habe noch einige "gelernt" und dann mal ein altes Übungsproject neu umgesetzt.

EDIT 17:08
Kleine Verbesserungen habe ich noch gemacht aber noch nicht neu hochgeladen.

Amelie · 24. Februar 2022, 17:17

@VaporiZed

Hallo

Eine Frage zu meiner Abfrage. Zeiten werden in 2 MaskTb eingegeben. Eine Abfrage für ein Zeitraum zum Beispiel: 17:00 - 18:00 Uhr.

Die erste Bedingung If NZb >= CDate(TB_NZbegin.Text) funktioniert.
Die zweite Bedingung Or NZe >= CDate(TB_NZende.Text) nicht.
Egal ob mit OrElse / And oder AndAlso.
Wo lieg denn da der Fehler?

VB.NET-Quellcode

Dim MyDate As Date = Date.Now
Dim NZb As DateTime 'Begin
Dim NZe As DateTime 'Ende
NZb = CDate(MyDate.ToString("HH:mm:ss"))
NZe = CDate(MyDate.ToString("HH:mm:ss"))
If NZb >= CDate(TB_NZbegin.Text) Or NZe >= CDate(TB_NZende.Text) Then NZ = True
If NachtBetrieb = True And NZ = True Then
Betriebsphase = "Nachtphase"
phaseNacht()

VaporiZed · 24. Februar 2022, 21:02

Setz einen Haltepunkt in Zeile#7 und zeig (nicht klicken) mit der Maus auf NZe. Dann siehst Du den sich ergebenden Wert für NZe und weißt, was schiefläuft.

btw: NZb, NZe? Wenn Du selber schon einen Kommentar schreiben musst, um zu wissen, was das bedeutet, solltest Du die Variablen entsprechend (um)benennen.

Amelie · 25. Februar 2022, 09:49

Moin moin

Bzgl der Kommis im Code habe ich nur wegen des Forums gemacht.

Verstehe diese Logik nicht. Habe nun eine Funktion von @petaod gefunden aber die macht auch nicht das was ich möchte.
In den beiden TB gebe ich meine Zeiten ein und NZ soll nur True sein wenn die Uhrzeit zwischen diesen liegt.
Jetzt verhält es sich so das entweder der Linke Teil oder der Rechte Teil des AndAlso / OrElse ausgefürht wird. Kopfraucht.
Return RefTime > StartTime AndAlso RefTime < EndTime besagt doch:

Wenn Uhrzeit größer als StartTime und Uhrzeit kleiner als EndTime dann True ???

StartTime: 09:45 EndTime 09:46
Bei 09:45 wurde es True aber bei 09:46 / 09:47 war es immer noch True

EDIT Code 11:10Uhr
So funktioniert das nun.

Return RefTime >= StartTime AndAlso RefTime <= EndTime Aber das passt doch von der Logik nicht; zumindest von meiner Kopfraucht

VB.NET-Quellcode

Function IsInTime(ByVal StartTimestamp As String, ByVal EndTimestamp As String) As Boolean
Dim StartTime, EndTime, RefTime As DateTime
RefTime = DateTime.Now
If DateTime.TryParse(StartTimestamp, StartTime) AndAlso DateTime.TryParse(EndTimestamp, EndTime) Then
If StartTime > EndTime Then
If RefTime > StartTime Then EndTime = EndTime.AddDays(1) Else StartTime = StartTime.AddDays(-1)
End If
Return RefTime >= StartTime AndAlso RefTime <= EndTime
End If
Return False
End Function
Private Sub Timer_Ampelphasen_Tick(sender As Object, e As EventArgs) Handles Timer_Ampelphasen.Tick
........
..
If IsInTime(CStr(TB_NZbegin.Text), CStr(TB_NZende.Text)) AndAlso CB_nachtbetrieb.Checked Then
Betriebsphase = "Nachtphase"
phaseNacht()
Else
........
....

VaporiZed · 25. Februar 2022, 11:09

Schade. Hättest Du mal gemacht, ~~worum ich Dich gebeten habe~~ was ich vorgeschlagen habe, hättest Du gesehen, dass das Datum falsch ist und deswegen der Datumsvergleich scheitert.

Amelie · 25. Februar 2022, 11:18

Schade. Hättest Du mal gemacht,

Das habe ich und ich habs nicht kappiert warum das nicht klappte.
Habe auch nicht verstanden warum das Return RefTime >= StartTime AndAlso RefTime <= EndTime nun funktioniert.
RefTime <= EndTime ist doch KLEINER als???
und als Beispiel 11:10 ist doch größer als 11:09

VaporiZed · 25. Februar 2022, 11:33

ok, der bisherige Text war Blödsinn von mir. Mein Fehler. Tut mir leid.

##########

RefTime = Jetzt, also 11:42
StartTime = 11:30
EndTime = 11:50
-> RefTime liegt zwischen StartTime und EndTime. Dann passt doch der Vergleich RefTime >= StartTime AndAlso RefTime <= EndTime

Amelie · 25. Februar 2022, 11:53

der bisherige Text war

Kein Problem.
Ich "befolge" immer wenn jemand Tips gibt nur leider... siehe meine Sig..
-----------------
Ich bin immer davon ausgegangen, das dass Result aus dem Vergleich größer sein muss, so meine Logik.

Das mit dem And / AndAlso und Or / OrElse macht mir auch noch Kopfzerbrechen..

VaporiZed · 25. Februar 2022, 12:29

Amelie schrieb:

Ich bin immer davon ausgegangen, das dass Result aus dem Vergleich größer sein muss

Größer als was?

Amelie schrieb:

Das mit dem And / AndAlso und Or / OrElse macht mir auch noch Kopfzerbrechen..

Inwieweit?
AndAlso und OrElse können doch quasi so auch im Deutschen verwendet werden: Wenn ich hungrig bin und nichts zu essen habe, dann kaufe ich ein -> IF IAmHungry AndAlso FoodAtHome Is Nothing* Then IBuyFood.
Ich kaufe also nur ein, wenn beide Bedingungen zutreffen, sonst nicht.
oder
Wenn ich müde bin oder erschöpft, dann geh ich schlafen -> If IAmTired OrElse IHaveNoEnergy Then IGoToSleep*. Ich geh also ins Bett, wenn mindestens eine Bedingung zutrifft, sonst eben nicht.

*nur sinngemäße Übersetzungen

exc-jdbi · 25. Februar 2022, 12:57

Ich versuchs auch noch kurz. ist nähmlich gar nicht so schwer um es zu verstehen.

'And' und 'Or' sind Bitwise (auf Bit-Ebene) Operationen, also mathematische Operationen wie z.B. "-", "+", "*" und "/".

Hier gibts weiteres zu Lesen.
tutorialspoint.com/vb.net/vb.net_operators.htm
docs.microsoft.com/en-us/dotne…nce/operators/or-operator
docs.microsoft.com/en-us/dotne…ce/operators/and-operator

AndAlso und OrElse werden vielfach in den Vergleichsoperationen eingesetzt, wie z.B.

Hier wird zuerst geprüft, ob x gleich ist wie y. Ist das nicht der Fall, wird die Zweite Prüfung gar nicht erst gemacht.

VB.NET-Quellcode

If x = y AndAlso x mod 2 = 0 Then
EndIf

Darum kann es ganz gut auch für Objekte eingesetzt werden, wie z.B.

VB.NET-Quellcode

If mybytearray isnot nothing AndAlso mybytearray.Length > 0 Then
' Versagt die erste Prüfung, muss die Zweite erst gar nicht gemacht werden.
' Ansonste würde es nähmlich zu einer Exception führen.
End If

docs.microsoft.com/en-us/dotne…ce/operators/and-operator

OrElse funktioniert sehr ähnlich. Kann z.B. eingesetzt werden, um eine Zahl zu
Prüfen, ob sie in einem bestimmten Bereich ist. Hier zweischen 10 und 100,
Währe x kleiner als 10, wird die Zweite Prüfung wird die Zweite Prüfung auch noch gemacht.
Währe x grösser gleich 10 wird die Zweite Prüfung gar nicht gemacht.

VB.NET-Quellcode

If x >= 10 OrElse x <= 100 Then
End If

Natürlich kann es auch für Objekte eingesetzt werden. Auch hier wird zuerst geprüft,
ob 'str' überhaupt instanziert oder Werte besitzt, ist das nicht der Fall wird die
Zweite Prüfung erst gar nicht gemacht, und die Exception wird gleich aufgerufen.

VB.NET-Quellcode

If String.IsNullOrEmpty(str) OrElse str.Length > 10000 Then
Throw New ArgumentOutOfRangeException(....)
End If

docs.microsoft.com/en-us/dotne…operators/orelse-operator

Spoiler anzeigen

VB.NET-Quellcode

Public Module BitwiseOrAnd
Public Sub Main()
TestAndAlso()
TestOrElse()
TestAnd()
TestOr()
End Sub
Private Sub TestAndAlso()
'Es gilt: Wenn die erste Prüfung (linke Seite) False ist,
'wird die Zweite nicht gemacht.
Dim firsttime = DateTimeOffset.Now.AddMinutes(-10)
Dim secundtime = DateTimeOffset.Now.AddMinutes(10)
Dim referencetime = DateTimeOffset.Now
'referencetime >= firsttime ergibt True
'referencetime <= firsttime ergibt auch ein True
'Zwei mal ein True ist bei AndAlso True.
If referencetime >= firsttime AndAlso referencetime <= secundtime Then
Console.WriteLine($"If-Case ist True")
Else Console.WriteLine($"If-Case ist False")
End If
'referencetime >= firsttime ergibt False
'Die Zweite Prüfung wird gar nicht mehr gemacht, daher False.
referencetime = referencetime.AddDays(-1)
If referencetime >= firsttime AndAlso referencetime <= secundtime Then
Console.WriteLine($"If-Case ist True")
Else Console.WriteLine($"If-Case ist False")
End If
End Sub
Private Sub TestOrElse()
'Es gilt: Ist die erste Prüfung True, wird die Zweite
'nicht mehr gemacht.
Dim firsttime = DateTimeOffset.Now.AddMinutes(-10)
Dim secundtime = DateTimeOffset.Now.AddMinutes(10)
Dim referencetime = DateTimeOffset.Now
'Da referencetime grösser ist als firsttime wird die zweite
'Prüfung nicht mehr gemacht.Ergebnis ist True.
If referencetime >= firsttime OrElse referencetime <= secundtime Then
Console.WriteLine($"If-Case ist True")
Else Console.WriteLine($"If-Case ist False")
End If
'Da der erste Teil False ist, wird die Zweite Prüfung auch
'noch gemacht, und die sagt dann True aus. Daher ist das
'Ergebnis True.
referencetime = referencetime.AddDays(-1)
If referencetime >= firsttime OrElse referencetime <= secundtime Then
Console.WriteLine($"If-Case ist True")
Else Console.WriteLine($"If-Case ist False")
End If
'hier mal umgekehrt
'******************
'Da die erste Prüfung True ist, wird die zweite Prüfung
'nicht mehr gemacht. Ergebnis ist True.
referencetime = DateTimeOffset.Now
If referencetime <= secundtime OrElse referencetime >= firsttime Then
Console.WriteLine($"If-Case ist True")
Else Console.WriteLine($"If-Case ist False")
End If
'Das Gleiche genau hier. Der Erste Teil ist True, daher ist
'das Ergebnis True. Die zweite Prüfung wird nicht gemacht.
referencetime = referencetime.AddDays(-1)
If referencetime <= secundtime OrElse referencetime >= firsttime Then
Console.WriteLine($"If-Case ist True")
Else Console.WriteLine($"If-Case ist False")
End If
End Sub
Private Sub TestAnd()
'Bei einer AND-Operation müssen beide Seiten True
'sein, und nur dann ist das Ergebnis True.
'Oder anders gesagt:
'Ist eine Seite False, dann ist das Ergebnis immer False.
Dim firsttime = DateTimeOffset.Now.AddMinutes(-10)
Dim secundtime = DateTimeOffset.Now.AddMinutes(10)
Dim referencetime = DateTimeOffset.Now
'Hier werden beide Seiten geprüft.
Dim interim1 = referencetime >= firsttime And referencetime <= secundtime
Dim interim2a = True And True 'True
'Wie oben beschrieben:
Dim interim2b = False And False 'False
referencetime = referencetime.AddDays(-1)
'Auch hier werden beide Seiten geprüft.
Dim interim3 = referencetime >= firsttime And referencetime <= secundtime
Dim interim4a = False And True 'False
'Nochmals zur Bestätigung. Ergebnis ist False.
Dim interim4b = True And False
End Sub
Private Sub TestOr()
'Es gilt: Ist eine Seite True, dann ist das Ergebnis immer True
'Es kann aber auch gesagt werden:
'Sind beide Seiten False, dann ist das Ergebnis immer False.
Dim firsttime = DateTimeOffset.Now.AddMinutes(-10)
Dim secundtime = DateTimeOffset.Now.AddMinutes(10)
Dim referencetime = DateTimeOffset.Now
'Hier werden beide Seiten geprüft.
Dim interim1 = referencetime >= firsttime Or referencetime <= secundtime
Dim interim2a = True Or True 'True
'Wie oben beschrieben
Dim interim2b = True Or False 'True
Dim interim2c = False Or True 'True
referencetime = referencetime.AddDays(-1)
'Auch hier werden beide Seiten geprüft.
Dim interim3 = referencetime >= firsttime Or referencetime <= secundtime
Dim interim4a = False Or True 'True
'Kein True ist vorhanden also False
Dim interim4b = False Or False
End Sub
End Module

Freundliche Grüsse

exc-jdbi

Amelie · 25. Februar 2022, 13:57

Größer als was?

Also das die Zeit größer als die ENDEZEIT sein muss.

@exc-jdbi
Danke die Seiten von MS kenne ich, verwirren mich meist mehr als sie mir helfen.

Also bei AndAlso und OrElse werden immer erst die erste Bedingung geprüft und nur wenn diese True ist wird auch die zweite Bedingung geprüft?
Und bei And / Or ?
Wenn ich hungrig bin und Kühlschrank ist leer, dann kaufe ich ein -> IF IAmHungry And FridgeIsEmpty Then IBuyFood.
Werden beide geprüft und NUR wenn beide True ist das Result auch True?

VaporiZed · 25. Februar 2022, 15:01

Aber wieso denn größer als die Endezeit? Wenn Du festlegst: Return RefTime >= StartTime AndAlso RefTime <= EndTime, dann sagst Du doch: Gib wieder, ob RefTime größergleich StartTime und (AndAlso) kleinergleich EndTime ist. also ob RefTime zwischen StartTime und EndTime liegt. Wenn also RefTime nun hinter EndTime liegt (also später als EndTime ist, also z.B. RefTime = 15:00 und EndTime = 14:55), dann trifft die 2. Bedingung (RefTime <= EndTime) nicht zu und Du erhältst als Ergebnis für die komplette Bedingung ein False, da durch das AndAlso ja der Gesamtausdruck nur dann True ergibt, wenn alle Teilbedingungen True ergeben. Da die 2. Bedingung aber False zurückgibt, bekommst Du für den Gesamtausdruck ein False. Weil Die RefTime eben nicht IsInTime (ist).

Amelie schrieb:

Also bei AndAlso und OrElse werden immer erst die erste Bedingung geprüft und nur wenn diese True ist wird auch die zweite Bedingung geprüft?

Fast. Es wird nur dann die 2. Bedingung geprüft, wenn es noch notwendig ist und noch nicht durch das Ergebnis der 1. Bedingung eh schon feststeht. Bei AndAlso wird nur die 2. Bedingung geprüft, wenn die 1. Bedingung True ergibt. Bei OrElse wird die 2. Bedingung nur geprüft, wenn die 1. Bedingung False ergibt. Nennt sich short circuit. Ergibt eben meist keinen Sinn, die 2. Bedingung zu prüfen, wenn die 1. schon quasi das Ergebnis festlegt. Bei And und Or werden immer beide Bedingungen geprüft.

Amelie schrieb:

Wenn ich hungrig bin und Kühlschrank ist leer, dann kaufe ich ein -> IF IAmHungry And FridgeIsEmpty Then IBuyFood.
Werden beide geprüft und NUR wenn beide True ist das Result auch True?

Korrekt. Da das Ergebnis aber effektiv schon feststeht, wenn ich NICHT hungrig bin (1. Bedingung = False also ist das Ergebnis automatisch False), ich also nicht einkaufe, weil ich nicht hungrig bin, ist es überflüssig zu prüfen, ob im Kühlschrank was ist. Es beeinflusst meine Entscheidung eh nicht mehr. Daher kann ich mir den Gang zum Kühlschrank auch sparen. Und das mach ich, indem ich AndAlso statt And verwende.

Amelie · 25. Februar 2022, 16:44

OK, ich glaube ich hab das nun verstanden. Hab mir die Seite mal ausgedruckt.

Mein Prog. läuft zwar nun ( Zeiteingaben mittels Comboboxen geändert ) aber bin noch nicht so ganz zufrieden mit dem gesamten Code.
Ist noch zu durcheinander mit den ganzen Sub´s usw...

Geht das hier noch einfacher?

VB.NET-Quellcode

Private Sub Combosfuellen()
For I = 0 To 23
Dim Zeiten As String
Zeiten = "0" & I & ":00"
If I > 9 Then Zeiten = I & ":00"
CmB_Starttime.Items.Add(Zeiten)
Cmb_Endtime.Items.Add(Zeiten)
Next
End Sub

VaporiZed · 25. Februar 2022, 16:53

Ja, Du kannst schreiben:

VB.NET-Quellcode

Private Sub Combosfuellen()
For I = 0 To 23
Dim Zeiten = Date.Today.AddHours(I).ToString("HH:mm")
CmB_Starttime.Items.Add(Zeiten)
Cmb_Endtime.Items.Add(Zeiten)
Next
End Sub

Date.Today ist das heutige Datum mit dem Zeitstempel Mitternacht, also 00:00 Uhr. Zu diesem Datum-Zeit-Paket packst Du I Stunden drauf (.AddHours(I)) und lässt Dir davon die Zeit als String im 24-Format mit Stunden und Minuten geben (.ToString("HH:mm")).

Seit einiger Zeit hilft Dir Visual Studio auch noch mehr dabei, den Parameter-Teil nach ToString zu füllen, siehe Anhang.

Amelie · 25. Februar 2022, 17:32

Ah das ist cool so kurz und knapp

Seit einiger Zeit hilft Dir Visual Studio

Ich habe noch immer VS 2013

Übungsaufgabe FlipFlop

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Amelie schrieb:

Amelie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

7 Benutzer haben hier geschrieben