Fehler im Programm...

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von daUser.

    Fehler im Programm...

    hi

    ich dachte eigentlich es sei simpel 4 zufallszahlen zwischen 1 und 10 ausspucken zu lassen die 3 bedingungen erfüllen... erstens:es soll eine zahl unter den 4 geben die einen mindestwert hat
    zweitens:die summe der 4 zahlen soll kleiner als ein wert sein
    drittens:die summe der 4 zahlen soll größer als ein wert sein

    nun habe ich das so geschrieben wie ich es mir vorgestellt habe(bitte nicht zu hart bewerten...hab heute mit vb angefangen...)

    Quellcode

    1. Public Class Form1
    2. Function Zufallszahl(ByVal min, ByVal max)
    3. Zufallszahl = Int(Rnd(1) * 10) + 1
    4. End Function
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Dim rand1 As Integer
    9. Dim rand2 As Integer
    10. Dim rand3 As Integer
    11. Dim rand4 As Integer
    12. Dim checkminnum As Boolean
    13. Dim checkminsum As Boolean
    14. Dim checkmaxsum As Boolean
    15. Dim checker As Integer
    16. Dim check As Boolean
    18. While check = False
    19. checkminsum = False
    20. checkmaxsum = False
    21. checkminnum = False
    22. rand1 = Zufallszahl(1, 10)
    23. Label1.Text = rand1
    25. rand2 = Zufallszahl(1, 10)
    26. Label2.Text = rand2
    28. rand3 = Zufallszahl(1, 10)
    29. Label3.Text = rand3
    31. rand4 = Zufallszahl(1, 10)
    32. Label4.Text = rand4
    35. checker = (rand1 + rand2 + rand3 + rand4)
    38. If checker <= TextBox1.Text Then
    39. checkmaxsum = True
    40. End If
    42. If checker >= TextBox1.Text Then
    43. checkminsum = True
    44. End If
    46. If rand1 >= TextBox2.Text Then
    47. checkminnum = True
    48. Else
    49. If rand2 >= TextBox2.Text Then
    50. checkminnum = True
    51. Else
    52. If rand3 >= TextBox2.Text Then
    53. checkminnum = True
    54. Else
    55. If rand4 >= TextBox2.Text Then
    56. checkminnum = True
    57. End If
    58. End If
    59. End If
    60. End If
    62. If checkminsum = True Then
    63. If checkmaxsum = True Then
    64. If checkminnum Then
    65. check = True
    66. End If
    67. End If
    68. End If
    70. End While
    74. End Sub
    75. End Class


    nun bilden die 4 zahlen die ausgegeben werden aber IMMER eine summe in höhe des mindestwertes...und ich weiß nicht warum...kann mir jemand helfen?