Übung List of

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Übung List of

    Es geht um eine Übung und ich komme einfach nicht weiter.

    Habe es mit For I To .... etc versucht...
    Die Liste soll einfach nur im TimerTick ausgegeben werden.

    lbl_zahl zählt hoch aber
    lbl_wort spring sofort auf "Neun" ... Im Debusfenster stehen aller Werte der Liste

    VB.NET-Quellcode

    1. Public Class frm_main
    3. Dim zahlwort As New List(Of String) From {"Null", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
    4. Dim zaehler As Integer = 0
    6. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Timer1.Start()
    8. End Sub
    10. Private Sub ausgabezahler()
    11. For Each item As String In zahlwort
    12. lbl_wort.Text = item
    13. Debug.Write(item & " ")
    14. Next
    15. zaehler = zaehler + 1
    16. lbl_zahl.Text = zaehler.ToString
    17. End Sub
    19. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    20. ausgabezahler()
    21. End Sub
    22. End Class
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Ich finde es sehr gut, dass Du Dich mit Übungsaufgaben befasst und nicht nur mit "größeren" Projekten. :thumbup:
    Innerhalb einer Prozedur kannst Du 1000 Worte in ein Label eintragen, angezeigt wird aber nur das letzte, da zwischendurch das Label nicht upgedatet wird.
    Update die Label und bremse die GUI etwas aus, dann geht es (Sleep() ist allerdings in diesem Kontext ein NoGo :!: ):

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim zahlwort As New List(Of String) From {"Null", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
    3. Dim zaehler As Integer = 0
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Timer1.Start()
    7. End Sub
    8. Private Sub ausgabezahler()
    9. For Each item As String In zahlwort
    10. lbl_wort.Text = item
    11. lbl_wort.Update()
    12. 'Debug.Write(item & " ")
    13. Threading.Thread.Sleep(20)
    14. Next
    15. zaehler = zaehler + 1
    16. lbl_zahl.Text = zaehler.ToString
    17. lbl_zahl.Update()
    18. End Sub
    19. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    20. ausgabezahler()
    21. End Sub
    22. End Class

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Geht es nicht darum, bei jedem Tic den aktuellen Zähler um eins zu erhöhen?

    Falls ja, brauchst keine Schleife. Deklariere eine Klassenvariable „index“ (integer). Nimm im Tic event den jeweiligen Eintrag innerhalb der Liste und gib dessen Wert im Label aus. Dann erhöhe den Index um 1.

    Label.Text = MeineListe(index)
    index += 1

    Zudem immer prüfen, ob das Item mit dem index überhaupt vorhanden ist. Falls nicht, entsprechend reagieren.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @RodFromGermany
    @mrMo

    Habe nun 2 funktionierende Varianten.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_main
    3. Dim zahlwort As New List(Of String) From {"Null", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
    4. Dim zaehler As Integer = -1
    6. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Timer1.Start()
    8. ausgabezahlerwort()
    9. End Sub
    10. Private Sub ausgabezahler()
    11. If zaehler < zahlwort.Count - 1 Then
    12. zaehler = zaehler + 1
    13. lbl_zahl.Text = zaehler.ToString
    14. lbl_wort2.Text = zahlwort(zaehler)
    15. Else
    16. lbl_info.Text = "Fertig"
    17. Timer1.Stop()
    18. Exit Sub
    19. End If
    20. End Sub
    21. Private Async Sub ausgabezahlerwort()
    22. For Each item As String In zahlwort
    23. Await Task.Delay(1000)
    24. lbl_wort.Text = item
    25. Next
    26. End Sub
    27. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    28. ausgabezahler()
    29. End Sub
    30. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    Habe nun 2 Varianten.
    Fein!

    ...

    ...

    Und - welche funktioniert, und welche nicht, und inwiefern nicht?
    Oder warum teilst du das überhaupt mit?

    Du könntest auch den Thread-Titel ändern, weil dein Problem hat nix mit List(Of T) zu tun, sondern betrifft periodische Änderungen der Anzeige (GUI-Updates).

    Amelie schrieb:

    Habe nun 2 funktionierende Varianten.
    OK.
    Nun formuliere eine Aufgabenstellung und überprüfe, welche Lösung sie erfüllt.
    Und:
    Beim nächsten Mal formulierst Du die Aufgabe bzw. das Problem im Eröffnungs-Post. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Amelie schrieb:

    Ich möchte das ggf noch ausbauen.
    Ah - verstehe.

    Imo gibts da kaum noch was zum Ausbauen.
    Deine Varianten sind im wesentlichen die beiden Grund-Varianten, die's gibt. :thumbup:
    • Variante 1: Eine Art "State-Machine", die je Timer-Tick jeweils einen Zustand weiter-rückt.
      Dieses erfordert Klassen-weit gültige Objekte. Mindestens eines - meist sogar mehrere (Timer, Wortliste, Aktueller WortIndex).
      (Mich deucht, hier fliessen Erfahrungen aus deinem Ampelsteuerung-Projekt ein)
    • Variante 2: Async.
      Hiermit kann man den gesamten Vorgang innerhalb einer Methode lokal abhandeln - "Ausbau":

      VB.NET-Quellcode

      1. Public Class frm_main[/list]
      2. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      3. ausgabezahlerwort()
      4. End Sub
      6. Private Async Sub ausgabezahlerwort()
      7. Dim zahlwort = {"Null", "Ein", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun"}
      8. For Each item In zahlwort
      9. lbl_wort.Text = item
      10. Await Task.Delay(1000)
      11. Next
      12. End Sub
      14. End Class


    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Ich find das gut wie @Amelie das macht. So eignet man sich langsam solides Grundwissen an das langfristigen zum Erfolg führt. Da können sich die meisten hier eine ordentliche Scheibe abschneiden.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

Facebook
Telefonspende