Die 4 Button in einen oder mind. 2 aber wie ?

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

    Die 4 Button in einen oder mind. 2 aber wie ?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Timer1.Enabled = True
    5. Timer4.Enabled = True
    6. Timer7.Enabled = True
    7. End Sub
    9. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    10. Label1.Text = 3
    11. Label2.Text = 1
    12. Label3.Text = 2
    14. Timer1.Enabled = False
    15. Timer2.Enabled = True
    16. End Sub
    18. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    19. Label1.Text = 2
    20. Label2.Text = 3
    21. Label3.Text = 1
    23. Timer2.Enabled = False
    24. Timer3.Enabled = True
    25. End Sub
    27. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    28. Label1.Text = 1
    29. Label2.Text = 2
    30. Label3.Text = 3
    32. Timer3.Enabled = False
    33. Timer1.Enabled = True
    34. End Sub
    36. Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
    37. Label4.Text = 3
    38. Label5.Text = 1
    39. Label6.Text = 2
    41. Timer4.Enabled = False
    42. Timer5.Enabled = True
    43. End Sub
    45. Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
    46. Label4.Text = 2
    47. Label5.Text = 3
    48. Label6.Text = 1
    50. Timer5.Enabled = False
    51. Timer6.Enabled = True
    52. End Sub
    54. Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
    55. Label4.Text = 1
    56. Label5.Text = 2
    57. Label6.Text = 3
    59. Timer6.Enabled = False
    60. Timer4.Enabled = True
    61. End Sub
    63. Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
    64. Label7.Text = 3
    65. Label8.Text = 1
    66. Label9.Text = 2
    68. Timer7.Enabled = False
    69. Timer8.Enabled = True
    70. End Sub
    72. Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
    73. Label7.Text = 2
    74. Label8.Text = 3
    75. Label9.Text = 1
    77. Timer8.Enabled = False
    78. Timer9.Enabled = True
    79. End Sub
    81. Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
    82. Label7.Text = 1
    83. Label8.Text = 2
    84. Label9.Text = 3
    86. Timer9.Enabled = False
    87. Timer7.Enabled = True
    88. End Sub
    90. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    91. Timer1.Enabled = False
    92. Timer2.Enabled = False
    93. Timer3.Enabled = False
    94. End Sub
    96. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    97. Timer4.Enabled = False
    98. Timer5.Enabled = False
    99. Timer6.Enabled = False
    100. End Sub
    102. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    103. Timer7.Enabled = False
    104. Timer8.Enabled = False
    105. Timer9.Enabled = False
    106. End Sub
    107. End Class




    Das ist der Code aber dafür brauche ich 4 Button .
    Einen zum Starten und 3 zum Anhalten für jede Reihe einen.

    Wie müssen aber herrausfinden wie man die 3 Stop Button in einen Macht ODER wie alle 4 Button zusammen kommen :))

    Freue mich über jede Hilfe

    Ps: Das ist ein Glücksspiel, das wir machen. :)

    Edit by der_Kurt:
    * VB-Tags eingefügt *

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

    Sorry
    Das ist ein Glücksspiel.

    Ein Bild :




    Jeden Tag kommt etwas dazu und nun müssen wir die 4 Button in 1nen machen.
    Die Zahlen sind in 3 Reihen geteilt (oben nach unten) in jeder Reihe gibt es die Zaheln 1/2 und 3.
    Die bewegen sich immer. Wenn man auf Stop 1 klick bleibt die erste Reihe stehen.
    Auf Stop 2 bleibt die 2 Reihe stehen etc.


    (Bild anschauen)

    Mach das mit einer Variable und Select Case.

    VB.NET-Quellcode

    1. Dim Zähler As Integer = 1

    Danach machst du 4 Case's.
    In den ersten "Playbutton", in den zweiten der Code vom Button, in den dritten den Code von Nummer 2 und der Code von Button3 in den vierten Case.
    Dann zählst du mit der Zählervariable einfach mti:

    VB.NET-Quellcode

    1. Private Sub Button1_Click (...) Handles Button1.Click
    2. Select Case Zähler
    3. Case 1
    4. 'Play - Code
    5. Zähler += 1
    6. Case 2
    7. 'Button1 - Code
    8. Zähler += 1
    9. Case 3
    10. 'Button2 - Code
    11. Zähler += 1
    12. Case 4
    13. 'Button3 - Code
    14. Zähler = 1
    15. End Case
    16. End Sub


    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Was meinest du mit die 4 buttons in einen machen?
    Ein Button, der immer die Passende Funktion ausführt?
    Oder ein Button, der in mehrere Abschnitte geteilt ist?
    Das solltest du genauer erklären ;)



    Mfg, jmb.96 :)
    "People assume that time is a strict progression of cause to effect, but actually, from a non-linear, non-subjective viewpoint, it's more like a big ball of wibbly wobbly, ...timey wimey ...stuff."

    Hallo Sharynlee,

    vermutlich gibt es eine bestimmte Reihenfolge.

    1. Starten
    2. Reihe 1
    3. Reihe 2
    4. Reihe 3

    Wenn dem so ist, ist der Code von Dancger genau das richtige.

    Damit definierst du die Funktion des Buttons immer neu (Variable hochzählen und per Select Case auswerten)

    Ist dem nicht so - wird es mit NUR einem Button nicht gehen.

    Gruss

    mikeb69

    Wenn ich das was Dancger geschrieben hat,
    beim ersten Buton (Button1 (Start/Stop Button) einfüge passiert nicht.






    Genau so :




    VB.NET-Quellcode

    1. Select Case Zähler
    2. Case 1
    3. 'Play - Code
    4. Zähler += 1
    5. Case 2
    6. 'Button1 - Code
    7. Zähler += 1
    8. Case 3
    9. 'Button2 - Code
    10. Zähler += 1
    11. Case 4
    12. 'Button3 - Code
    13. Zähler = 1
    14. End Case




    Hab ich das eingefügt bei Button 1, wo liegt dann der Fehler.




    Es soll nur ein Stop und Start Button geben (Button 1).
    Beim ersten klick drehen sich alle, beim 2 hält die ersten Reihe an.
    Beim dritten klick hält die 2 Reihe an und beim 4 klick hält die 3 Reihe an.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ () aus folgendem Grund: Code-Tags eingefügt

    Versteh ich dich richtig ?

    Du willst auf den ersten Klick alle starten und mit einem weiteren Klick alle nacheinander stoppen ?

    Dann so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Zähler As Integer = 1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Select Case Zähler
    6. Case 1
    7. 'Code alle Räder zum drehen bleibem (Play)
    8. MessageBox.Show("Alle Räder drehen")
    9. Zähler += 1
    10. Case 2
    11. Rad1()
    12. End Select
    13. End Sub
    15. Private Sub Rad1()
    16. 'Radcode 1
    17. MessageBox.Show("Rad 1 stoppt")
    18. Rad2()
    19. End Sub
    21. Private Sub Rad2()
    22. 'Radcode 2
    23. MessageBox.Show("Rad 2 stoppt")
    24. Rad3()
    25. End Sub
    27. Private Sub Rad3()
    28. 'Radcode 3
    29. MessageBox.Show("Rad 3 stoppt")
    30. Zähler = 1
    31. End Sub
    33. End Class

    Ich weiss jetzt nicht ob das optimal gelöst ist, aber es funktioniert 100%ig.
    Oder du machst es einfacher:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Zähler As Integer = 1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Select Case Zähler
    6. Case 1
    7. MessageBox.Show("Alle drehen") 'Alle Räder drehen-Code
    8. Zähler += 1
    9. Case 2
    10. MessageBox.Show("Rad 1 stoppt") 'Rad 1 Stop-Code
    11. MessageBox.Show("Rad 2 stoppt") 'Rad 2 Stop-Code
    12. MessageBox.Show("Rad 3 stoppt") 'Rad 3 Stop-Code
    13. End Select
    14. End Sub
    15. End Class

    Falls ich dich falsch verstanden habe, erklär mir das nochmals udn ich helf dir.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

Facebook