Werte in Progressbar anzeigen und abziehen

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von SpaceyX.

    Beim ersten mal funktionierts ja auch aber beim Zweiten mal werden irgendwelche Werte falsch einbezogen.
    Hier mal das Projekt bzw mein Code:

    VB.NET-Quellcode

    1. Public Class Progressbar
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. '********************************************
    7. 'Static, damit Variablen erhalten bleiben
    8. Dim Maxwert As Integer
    9. Static MaxwertNeu As Integer
    10. Static Wert As Integer
    11. '********************************************
    13. 'Meldung, wenn keine Eingabe in Textbox
    14. If TextBox1.Text = "" Then
    15. MsgBox("Eingabe nötig")
    16. Exit Sub
    17. End If
    18. '------------------------------
    19. If Wert = 1 Then ProgressBar1.Maximum = MaxwertNeu
    20. If Wert = 1 Then GoTo Berechnung
    21. '------------------------------
    22. Maxwert = 250
    23. ProgressBar1.Maximum = Maxwert
    24. Wert = 1 'Steuervariable, damit ab zweitem Durchlauf Maxwert nicht auf 250 gesetzt wird
    25. '********************************************
    27. Berechnung:
    28. 'Eigentliche Berechnung
    29. MaxwertNeu = ProgressBar1.Maximum - TextBox1.Text
    30. If MaxwertNeu <= 0 Then GoTo PunkteVerbraucht
    31. 'MsgBox(MaxwertNeu)
    32. 'ProgressBar1.Value = 0
    33. If Wert = 1 Then MsgBox(MaxwertNeu)
    34. ProgressBar1.Value = 0
    36. ProgressBar1.Value = MaxwertNeu
    38. 'Maxwert = MaxwertNeu
    39. TextBox1.Text = ""
    41. Exit Sub
    42. '********************************************
    44. PunkteVerbraucht:
    45. 'Punkte verbraucht, also Zahl <= 250
    46. '-----
    47. 'Varaiblen zurücksetzen, da sie sonst trotz
    48. 'schließen der Userform erhalten bleiben
    49. Maxwert = 0
    50. MaxwertNeu = 0
    51. Wert = 0
    52. '-----
    53. MsgBox("Punkte aufgebraucht")
    54. End Sub
    55. End Class
    Dateien

    • Progressbar.exe

      (23,55 kB, 110 mal heruntergeladen, zuletzt: )
    C# Developer
    Learning C++

    GOTO? Kein OPTION STRICT ON? Grauenhaft.

    Man, man, man.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

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

    Nochmal zum Verständnis. Du möchtest eine "Spielfigur" programmieren, die eine Hitpoint-Anzeige hat, oder?
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Rikudo schrieb:

    Was ist das Problem mit dem GoTo Befehl?
    Das ist ein Rudiment aus der Steinzeit.
    Der Code wird ganz schnell unübersichtlich und ist im Allgemeinen unpflegbar.
    Also:
    Nimm If oder so und nutze Unterprogramme zur Strukturierung Deines Quelltextes.
    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!

    Ja, jetzt hab ichs, ENDLICH!!
    Das Problem war das der Wert bevor er verringert wird nochmal auf 250 Gesetzt wird.
    Also der ganze Code sieht nun so aus:

    VB.NET-Quellcode

    1. Public Class Progressbar
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. '********************************************
    7. 'Static, damit Variablen erhalten bleiben
    8. Static Maxwert As Integer
    9. Static MaxwertNeu As Integer
    10. Static Wert As Integer
    11. '********************************************
    13. 'Meldung, wenn keine Eingabe in Textbox
    14. If TextBox1.Text = "" Then
    15. MsgBox("Eingabe nötig", MsgBoxStyle.Information, Title:="Info")
    16. Exit Sub
    17. End If
    18. '------------------------------
    19. If Wert = 1 Then ProgressBar1.Maximum = MaxwertNeu
    20. If Wert = 1 Then GoTo Berechnung
    21. '------------------------------
    22. Maxwert = 250
    23. ProgressBar1.Maximum = Maxwert
    24. Wert = 1 'Steuervariable, damit ab zweitem Durchlauf Maxwert nicht auf 250 gesetzt wird
    25. '********************************************
    27. Berechnung:
    28. 'Eigentliche Berechnung
    29. MaxwertNeu = ProgressBar1.Maximum - TextBox1.Text
    30. If MaxwertNeu <= 0 Then GoTo PunkteVerbraucht
    31. 'MsgBox(MaxwertNeu)
    32. 'ProgressBar1.Value = 0
    33. If Wert = 1 Then MsgBox(MaxwertNeu)
    34. ProgressBar1.Maximum = 250
    35. ProgressBar1.Value = MaxwertNeu
    37. 'Maxwert = MaxwertNeu
    38. TextBox1.Text = ""
    40. Exit Sub
    41. '********************************************
    43. PunkteVerbraucht:
    44. 'Punkte verbraucht, also Zahl <= 250
    45. '-----
    46. 'Varaiblen zurücksetzen, da sie sonst trotz
    47. 'schließen der Userform erhalten bleiben
    48. Maxwert = 0
    49. MaxwertNeu = 0
    50. Wert = 0
    51. '-----
    52. MsgBox("Punkte aufgebraucht")
    54. End Sub
    55. End Class

    Ob der Wert jetzt sauber oder unsauber ist ist mir jetzt nicht so wichtig. Er funktioniert und das ist alles.
    Danke an alle die mir geholfen haben, trotzdem! :)
    --> Thread kann geschlossen werden
    C# Developer
    Learning C++

    Und wenn nun jemand "abc" in Deine Textbox eingibt, hat es sich erledigt mit Deinem Programm. Einfach sagen: "Mir egal, ob es sauber ist", ist wohl mit das engstirnigste, was man von sich geben kann.

    Schon mal an OOP gedacht oder Dich damit auseinander gesetzt? Schon mal daran gedacht, dass GOTO in .NET überhaupt nichts mehr verloren hat? Mach es anständig und wurschtel Dir nicht irgendwas zusammen. Ich hätt einen OOP-Ansatz für Dich, wenn es Dich noch interessiert.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o