virtuellen würfel erstellen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von .Phil.

    virtuellen würfel erstellen

    HEY

    will nen virtuellen würfel erstellen :D

    dabei soll wenn ich die taste wüfeln drücke auf dem wüfel die augen 1-6 zufällig erscheinen (per zufallgenerator)
    und unten sollen die einzelnen zahlen die gewürfelt worden sind mitgezählt werden

    ich hab das ganze schon ma so ähnlich in vb6 gemacht aber des funzt garnich in 08 iwie
    Bilder

    • 11.JPG

      33,18 kB, 598×524, 411 mal angesehen

    sowas hat ich bei vb 6



    VB.NET-Quellcode

    1. Dim a
    3. Private Sub beenden_Click()
    4. End
    5. End Sub
    7. Private Sub druecken_Click()
    8. Cls
    9. Randomize
    11. Let a = Int(Rnd() * 6) + 1
    12. Print a
    13. If a = 1 Then
    15. w1.Visible = True
    16. w2.Visible = False
    17. w3.Visible = False
    18. w4.Visible = False
    19. w5.Visible = False
    20. w6.Visible = False
    21. w7.Visible = False
    22. t1.Text = t1.Text + 1
    24. ElseIf a = 2 Then
    26. w1.Visible = True
    27. w2.Visible = True
    28. w3.Visible = False
    29. w4.Visible = False
    30. w5.Visible = False
    31. w6.Visible = False
    32. w7.Visible = False
    33. t2.Text = t2.Text + 1
    35. ElseIf a = 3 Then
    37. w1.Visible = True
    38. w2.Visible = False
    39. w3.Visible = False
    40. w4.Visible = False
    41. w5.Visible = False
    42. w6.Visible = True
    43. w7.Visible = True
    44. t3.Text = t3.Text + 1
    46. ElseIf a = 4 Then
    48. w1.Visible = True
    49. w2.Visible = True
    50. w3.Visible = False
    51. w4.Visible = False
    52. w5.Visible = True
    53. w6.Visible = True
    54. w7.Visible = False
    55. t4.Text = t4.Text + 1
    57. ElseIf a = 5 Then
    59. w1.Visible = True
    60. w2.Visible = True
    61. w3.Visible = False
    62. w4.Visible = False
    63. w5.Visible = True
    64. w6.Visible = True
    65. w7.Visible = True
    66. t5.Text = t5.Text + 1
    68. ElseIf a = 6 Then
    70. w1.Visible = True
    71. w2.Visible = True
    72. w3.Visible = True
    73. w4.Visible = True
    74. w5.Visible = True
    75. w6.Visible = True
    76. w7.Visible = False
    77. t6.Text = t6.Text + 1
    79. End If
    84. End Sub
    87. Private Sub Text1_Change()
    89. End Sub

    hallo psychrunner,

    nicht sehr elegant - aber das ist hier ja nicht das problem.

    normalerweise verwendet man unter vb.net die random-klasse.
    randomize sollte aber auch funktionieren.

    sehe auf anhieb nichts was nicht gehen könnte.

    was genau macht dein prog denn falsch ?

    gruss

    mikeb69

    habs jetzt so für alle dies auch machen wollen is zwar n wenig umständlich aber geht ^^

    VB.NET-Quellcode

    1. Public Class Würfel
    2. Dim dice As Integer
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. dice = (Int(6 * Rnd()) + 1)
    7. If dice = 1 Then
    8. w1.Visible = False
    9. w2.Visible = False
    10. w3.Visible = False
    11. w5.Visible = False
    12. w6.Visible = False
    13. w7.Visible = False
    14. w4.Visible = True
    15. t1.Text = t1.Text + 1
    16. ElseIf dice = 2 Then
    17. w2.Visible = False
    18. w3.Visible = False
    19. w4.Visible = False
    20. w5.Visible = False
    21. w6.Visible = False
    22. w1.Visible = True
    23. w7.Visible = True
    24. t2.Text = t2.Text + 1
    25. ElseIf dice = 3 Then
    26. w2.Visible = False
    27. w3.Visible = False
    28. w5.Visible = False
    29. w6.Visible = False
    30. w1.Visible = True
    31. w4.Visible = True
    32. w7.Visible = True
    33. t3.Text = t3.Text + 1
    34. ElseIf dice = 4 Then
    35. w3.Visible = False
    36. w4.Visible = False
    37. w5.Visible = False
    38. w1.Visible = True
    39. w2.Visible = True
    40. w6.Visible = True
    41. w7.Visible = True
    42. t4.Text = t4.Text + 1
    43. ElseIf dice = 5 Then
    44. w3.Visible = False
    45. w5.Visible = False
    46. w1.Visible = True
    47. w2.Visible = True
    48. w4.Visible = True
    49. w6.Visible = True
    50. w7.Visible = True
    51. t5.Text = t5.Text + 1
    52. ElseIf dice = 6 Then
    53. w4.Visible = False
    54. w1.Visible = True
    55. w2.Visible = True
    56. w3.Visible = True
    57. w5.Visible = True
    58. w6.Visible = True
    59. w7.Visible = True
    60. t6.Text = t6.Text + 1
    62. End If
    63. End Sub
    65. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    66. Timer1.Enabled = True
    68. End Sub
    70. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    71. Timer1.Enabled = False
    73. End Sub
    75. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    76. t1.Text = "0"
    77. t2.Text = "0"
    78. t3.Text = "0"
    79. t4.Text = "0"
    80. t5.Text = "0"
    81. t6.Text = "0"
    82. w1.Visible = False
    83. w2.Visible = False
    84. w3.Visible = False
    85. w4.Visible = False
    86. w5.Visible = False
    87. w6.Visible = False
    89. End Sub
    91. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    92. dice = (Int(6 * Rnd()) + 1)
    94. If dice = 1 Then
    95. w1.Visible = False
    96. w2.Visible = False
    97. w3.Visible = False
    98. w5.Visible = False
    99. w6.Visible = False
    100. w7.Visible = False
    101. w4.Visible = True
    102. t1.Text = t1.Text + 1
    103. ElseIf dice = 2 Then
    104. w2.Visible = False
    105. w3.Visible = False
    106. w4.Visible = False
    107. w5.Visible = False
    108. w6.Visible = False
    109. w1.Visible = True
    110. w7.Visible = True
    111. t2.Text = t2.Text + 1
    112. ElseIf dice = 3 Then
    113. w2.Visible = False
    114. w3.Visible = False
    115. w5.Visible = False
    116. w6.Visible = False
    117. w1.Visible = True
    118. w4.Visible = True
    119. w7.Visible = True
    120. t3.Text = t3.Text + 1
    121. ElseIf dice = 4 Then
    122. w3.Visible = False
    123. w4.Visible = False
    124. w5.Visible = False
    125. w1.Visible = True
    126. w2.Visible = True
    127. w6.Visible = True
    128. w7.Visible = True
    129. t4.Text = t4.Text + 1
    130. ElseIf dice = 5 Then
    131. w3.Visible = False
    132. w5.Visible = False
    133. w1.Visible = True
    134. w2.Visible = True
    135. w4.Visible = True
    136. w6.Visible = True
    137. w7.Visible = True
    138. t5.Text = t5.Text + 1
    139. ElseIf dice = 6 Then
    140. w4.Visible = False
    141. w1.Visible = True
    142. w2.Visible = True
    143. w3.Visible = True
    144. w5.Visible = True
    145. w6.Visible = True
    146. w7.Visible = True
    147. t6.Text = t6.Text + 1
    148. End If
    150. End Sub
    151. End Class

    Hallo,
    hab jetzt nurmal so schnell drübergeschaut.
    Du könntest die If-Abfragen in eine eigene Sub packen und diese dann beim Button-Klick bzw Timer-Tick aufrufen. Das wäre wenigestens etwas übersichtlicher und weniger Code...
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Moin sehr zu empfehlen wäre auch das Setzten der Sichtbarkeit in eine eigene Sub zu verschieben, die dann 7 boolean Parameter erwartet, das spart eine menge Schreiberei:

    VB.NET-Quellcode

    1. private sub SetVis (ByVal bVis1 as Boolean ...)
    2. ' Hier deine Sichtbarkeit hinkopieren ala
    3. w1.Visible = bVis1
    4. end sub


    Grüße
    Phil

    edit: Statt ElseIf würde ich ein Select Staement verwenden, ist übersichtlicher

    Liest du eigentlich Beiträg nicht ganz durch?
    Schau mal was ich genau obendran geschrieben habe...
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Sorry, aber was kann man da anders verstehen? ^^
    Was hast du es denn gedacht das ich meine?
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Du könntest die If-Abfragen in eine eigene Sub packen und diese dann beim Button-Klick bzw Timer-Tick aufrufen.
    ->

    VB.NET-Quellcode

    1. sub Abfragen ()
    2. dice = (Int(6 * Rnd()) + 1)
    3. If dice = 1 Then
    4. '...
    5. ElseIf dice = 2 Then
    6. '...
    7. ElseIf dice = 3 Then
    8. '...
    9. ElseIf dice = 4 Then
    10. '...
    11. ElseIf dice = 5 Then
    12. '...
    13. ElseIf dice = 6 Then
    14. '...
    15. End If
    16. end sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. '...
    20. Abfragen ()
    21. End Sub
    23. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    24. Abfragen ()
    25. End Sub


    Sowas zum Beispiel.

    Bring immerhin eine Codeersparnis von ~50%. Ist definitiv nicht die cleverste Lösung, war aber das was ich beim Überfliegen deines Posts verstanden habe :).

    Grüße
    Phil

Facebook
Telefonspende