Warte-Funktion??

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von nikeee13.

    Warte-Funktion??

    Hallo ich hab folgende Frage:
    Ich will das mein Programm an einer Stellle 5 Sekunden wartet und dann weiter macht!!!
    System.Threading.Thread.Sleep(5000)
    Funktioniert zwar super, aber dabei friert halt das ganze Programm ein!!
    Das soll es eben nicht....

    Ja was erwartest du denn, wenn du den Thread für 5 Sekunden einfrierst? Außerdem macht es eigentlich nie Sinn, den Thread zu blockieren.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Dim Counter As Integer
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Label1.Text = "0" 'Anfangs Zahl
    8. End Sub
    10. 'Timer mit einstellung starten !
    11. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. If ComboBox1.Text = "" Then
    13. MsgBox("Bitte Zeit einstellen", MsgBoxStyle.Critical, "Fehler")
    14. Else
    15. Button1.BackColor = Color.Red
    16. Button2.BackColor = Color.Gray
    17. Timer1.Start()
    18. Timer1.Interval = ComboBox1.Text & "000"
    19. End If
    20. End Sub
    21. 'Timer stop
    22. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    23. Button2.BackColor = Color.Red
    24. Button1.BackColor = Color.Gray
    25. Timer1.Stop()
    26. End Sub
    28. 'Timer und die Funktion die alle x Secunden ausgelöst wirt und die nächste Zeile list
    29. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    31. Counter = Counter + 1 ' bei jedem Click um eins erhöhen
    32. Label1.Text = Counter
    34. Dim sr As StreamReader = New StreamReader("C:\Users\zeus\Desktop\1.txt") 'Hier die auszulesende Datei angeben !
    35. Dim line As String
    36. Dim i As Integer
    38. For i = 1 To Label1.Text ' Im Label1 angegebene Zeile auslesen
    39. line = sr.ReadLine()
    40. lblzeile.Text = line
    41. Next
    42. If Label1.Text = "10" Then 'Bis wo hin wird gezählt bevor es von neuem beginnt - Anpassen !
    43. Counter = "0"
    44. End If
    45. End Sub
    46. End Class


    LG Andre....

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „TVX“ ()

    @TVX: ;(
    Option Strict hast Du wohl Off.
    Timer1.Interval = ComboBox1.Text & "000"
    WTF?
    For i = 1 To Label1.Text
    WTF?
    Controls werden nicht verwendet, um Daten zwischenzuspeichern. Sie werden verwendet, um Daten anzuzeigen ExklusivOder Daten vom Benutzer anzunehmen. Der Spezialfall ist das Binding, bei dem können Daten angezeigt und gleichzeitig entgegengenommen werden. Abe da greift man auch nicht auf das Control zu, sondern auf die gebundene Datenquelle.

    Nope, so darf das nicht sein.


    @lol34lol34: Wofür willst Du denn warten? Was möchtest Du damit bezwecken.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    @Samus Aran:
    Das stimmt, allerdings muss man sich im klaren sein, was man damit macht. Schließlich reicht es nicht einfach, await davor zu schreiben, sondern das Design (nicht UI-Design) des Programmes muss auch auf das neue Async-Pattern ausgelegt sein. Schließlich muss man auch der Funktion auch den async-Modifier hinzufügen. Was das genau macht, ist vielen nicht ganz klar, was am Ende zu Spaghetticode führt, bei dem einfach überall await, Task(Of T) und async steht (und der Entwickler selber denkt nur: "Ka, geht schon und VS sagt, dass das da hin soll"). Man muss schon wissen, was man tut.
    Mehr dazu, siehe hier:
    [Allgemein] Async Verständnis
    Von meinem iPhone gesendet

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nikeee13“ ()

Facebook
Telefonspende