Randomize Zufallszahlen Problem

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von MisterRieus.

    Randomize Zufallszahlen Problem

    Quellcode

    1. Randomize()
    2. Dim r1 As Random = New Random()
    3. Dim generated1 As Integer = r1.Next(63, 101)
    4. Label74.Text = generated1
    6. Randomize()
    7. Dim r2 As Random = New Random()
    8. Dim generated2 As Integer = r2.Next(37, 101)
    9. Label75.Text = generated2


    Warum ist die erste Zufallszahl in dem Fall also r1 immer größer als die Zufallszahl r2?
    Es müsste doch auch vorkommen, dass r2 größer ist als r1 oder nicht?
    Wenn ich jeweils 10 Zufallszahlen generieren lasse ist r1 immer größer als r2

    Label korrigiert. ~Thunderbolt

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

    @MisterRieus VB6 oder VB.NET?
    Randomize() vs. New Random()
    Dann Option Strict On.
    Und dann so:

    VB.NET-Quellcode

    1. Dim r1 As Random = New Random()
    2. Dim generated1 As Integer = r1.Next(63, 101)
    3. Label74.Text = generated1.ToString()
    4. Dim generated2 As Integer = r1.Next(37, 101)
    5. Label75.Text = generated2.ToString()
    Nimm nur einen Generator, dann ist der Output ordentlich verteilt.
    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!

    Ich benutze Visual Basic 2010 und kein Option Strict On.

    Mach ich das:

    Quellcode

    1. ​Randomize()
    2. Dim r1 As Random = New Random()
    3. Dim generated1 As Integer = r1.Next(63, 101)
    4. Label74.Text = generated1
    6. Randomize()
    7. Dim r2 As Random = New Random()
    8. Dim generated2 As Integer = r2.Next(37, 101)
    9. Label75.Text = generated2

    Und klicke 8mal auf den Button dann bekomme ich jeweils 8 unterschiedliche Zahlen

    Mach ich aber das:

    Quellcode

    1. ​Dim tor2 As Integer
    2. For tor2 = 1 To Label85.Text
    3. Label87.Text = Label87.Text + 1
    4. Randomize()
    5. Dim r11 As Random = New Random()
    6. Dim generated11 As Integer = r11.Next(1, (Val(Team1Off.Text) + 1))
    7. Label93.Text = Val(generated11)
    8. Dim generated12 As Integer = r11.Next(1, (Val(Team2Def.Text) + 1))
    9. Label94.Text = Val(generated12)
    10. If Val(Label93.Text) > Val(Label94.Text) Then
    11. Label90.Text = Label90.Text + 1
    13. End If
    14. My.Computer.FileSystem.WriteAllText("Team1.txt", Label93.Text & vbNewLine & Label94.Text & vbNewLine & vbNewLine, True)
    15. Next


    Dann bekomme ich 8mal die gleichen Zahlen.

    Bei dem hier auch:

    Quellcode

    1. ​Do Until Label86.text = 8
    2. Label87.Text = Label87.Text + 1
    3. Randomize()
    4. Dim r11 As Random = New Random()
    5. Dim generated11 As Integer = r11.Next(1, (Val(Team1Off.Text) + 1))
    6. Label93.Text = Val(generated11)
    7. Dim generated12 As Integer = r11.Next(1, (Val(Team2Def.Text) + 1))
    8. Label94.Text = Val(generated12)
    9. If Val(Label93.Text) > Val(Label94.Text) Then
    10. Label90.Text = Label90.Text + 1
    11. loop
    12. End If
    13. My.Computer.FileSystem.WriteAllText("Team1.txt", Label93.Text & vbNewLine & Label94.Text & vbNewLine & vbNewLine, True)
    14. Next


    Gibt es nicht was wo ich nur einmal auf den Btton klicke und ich dann trotzdem immer unterschiedliche Zahlen bekomme?
    Ist nicht Sinn der Sache, dass ich z.B. 8mal auf einen Button klicke, damit ich unterschiedliche Zahlen bekomme.
    Danke schonmal im Vorraus.

    MisterRieus schrieb:

    Mach ich aber das:
    Der Fehler sitzt 30 cm vor dem Bildschirm.
    Du hast eine falsche Problemstellung gepostet!
    Pack die Instanziierung des Zufallszahlengenerators aus der Schleife in die Klasse!

    VB.NET-Quellcode

    1. Dim r11 As Random = New Random()

    Es darf nur eine geben!
    Schmeoß das Randomize() raus!
    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!

    Danke für die Hilfe und Frohes Neues Jahr wünsche ich.
    Kleine Sache, aber große Auswirkung.

    Jetzt verzweifel ich an folgendem:
    Spoiler anzeigen

    Quellcode

    1. Do Until Label87.Text = Label90.Text
    2. Label87.Text = Label87.Text + 1
    3. Call torchance()
    4. Loop
    6. Loop


    Jetzt müsste der Sub torchance doch 8mal ausgeführt werden, wenn Label90.text = 8 oder?
    Das passiert auch, aber in der Sub werden auch immer wieder die gleichen Zahlen generiert.
    Es werden 11 Zahlen generiert und das 8mal und jedes Mal sind es die gleichen Zahlen
    Das ist der Sub torchance:

    Quellcode

    1. [code] Dim torchance As New Random
    2. Dim Zahl1, Zahl2, Zahl3, Zahl4, Zahl5, Zahl6, Zahl7, Zahl8, Zahl9, Zahl10, Zahl11 As Integer
    3. Zahl1 = CStr(torchance.Next(Team1Spieler1Stärke.Text, Team1Spieler1Stärke.Text * 3))
    4. Zahl2 = CStr(torchance.Next(Team1Spieler2Stärke.Text, Team1Spieler2Stärke.Text * 3))
    5. Zahl3 = CStr(torchance.Next(Team1Spieler3Stärke.Text, Team1Spieler3Stärke.Text * 3))
    6. Zahl4 = CStr(torchance.Next(Team1Spieler4Stärke.Text, Team1Spieler4Stärke.Text * 3))
    7. Zahl5 = CStr(torchance.Next(Team1Spieler5Stärke.Text, Team1Spieler5Stärke.Text * 3))
    8. Zahl6 = CStr(torchance.Next(Team1Spieler6Stärke.Text, Team1Spieler6Stärke.Text * 3))
    9. Zahl7 = CStr(torchance.Next(Team1Spieler7Stärke.Text, Team1Spieler7Stärke.Text * 3))
    10. Zahl8 = CStr(torchance.Next(Team1Spieler8Stärke.Text, Team1Spieler8Stärke.Text * 3))
    11. Zahl9 = CStr(torchance.Next(Team1Spieler9Stärke.Text, Team1Spieler9Stärke.Text * 3))
    12. Zahl10 = CStr(torchance.Next(Team1Spieler10Stärke.Text, Team1Spieler10Stärke.Text * 3))
    13. Zahl11 = CStr(torchance.Next(Team1Spieler11Stärke.Text, Team1Spieler11Stärke.Text * 3))
    15. If Team1Spieler1Position.Text = "TW" Then
    16. Zahl1 = Zahl1 * 0.2
    17. ElseIf Team1Spieler1Position.Text = "ABW" Then
    18. Zahl1 = Zahl1 * 0.8
    19. ElseIf Team1Spieler1Position.Text = "MIT" Then
    20. Zahl1 = Zahl1 * 1.2
    21. ElseIf Team1Spieler1Position.Text = "ANG" Then
    22. Zahl1 = Zahl1 * 1.4
    23. End If
    25. If Team1Spieler2Position.Text = "TW" Then
    26. Zahl2 = Zahl2 * 0.2
    27. ElseIf Team1Spieler2Position.Text = "ABW" Then
    28. Zahl2 = Zahl2 * 0.8
    29. ElseIf Team1Spieler2Position.Text = "MIT" Then
    30. Zahl2 = Zahl2 * 1.2
    31. ElseIf Team1Spieler2Position.Text = "ANG" Then
    32. Zahl2 = Zahl2 * 1.4
    33. End If
    35. If Team1Spieler3Position.Text = "TW" Then
    36. Zahl3 = Zahl3 * 0.2
    37. ElseIf Team1Spieler3Position.Text = "ABW" Then
    38. Zahl3 = Zahl3 * 0.8
    39. ElseIf Team1Spieler3Position.Text = "MIT" Then
    40. Zahl3 = Zahl3 * 1.2
    41. ElseIf Team1Spieler3Position.Text = "ANG" Then
    42. Zahl3 = Zahl3 * 1.4
    43. End If
    45. If Team1Spieler4Position.Text = "TW" Then
    46. Zahl4 = Zahl4 * 0.2
    47. ElseIf Team1Spieler4Position.Text = "ABW" Then
    48. Zahl4 = Zahl4 * 0.8
    49. ElseIf Team1Spieler4Position.Text = "MIT" Then
    50. Zahl4 = Zahl4 * 1.2
    51. ElseIf Team1Spieler4Position.Text = "ANG" Then
    52. Zahl4 = Zahl4 * 1.4
    53. End If
    55. If Team1Spieler5Position.Text = "TW" Then
    56. Zahl5 = Zahl5 * 0.2
    57. ElseIf Team1Spieler5Position.Text = "ABW" Then
    58. Zahl5 = Zahl5 * 0.8
    59. ElseIf Team1Spieler5Position.Text = "MIT" Then
    60. Zahl5 = Zahl5 * 1.2
    61. ElseIf Team1Spieler5Position.Text = "ANG" Then
    62. Zahl5 = Zahl5 * 1.4
    63. End If
    65. If Team1Spieler6Position.Text = "TW" Then
    66. Zahl6 = Zahl6 * 0.2
    67. ElseIf Team1Spieler6Position.Text = "ABW" Then
    68. Zahl6 = Zahl6 * 0.8
    69. ElseIf Team1Spieler6Position.Text = "MIT" Then
    70. Zahl6 = Zahl6 * 1.2
    71. ElseIf Team1Spieler6Position.Text = "ANG" Then
    72. Zahl6 = Zahl6 * 1.4
    73. End If
    75. If Team1Spieler7Position.Text = "TW" Then
    76. Zahl7 = Zahl7 * 0.2
    77. ElseIf Team1Spieler7Position.Text = "ABW" Then
    78. Zahl7 = Zahl7 * 0.8
    79. ElseIf Team1Spieler7Position.Text = "MIT" Then
    80. Zahl7 = Zahl7 * 1.2
    81. ElseIf Team1Spieler7Position.Text = "ANG" Then
    82. Zahl7 = Zahl7 * 1.4
    83. End If
    85. If Team1Spieler8Position.Text = "TW" Then
    86. Zahl8 = Zahl8 * 0.2
    87. ElseIf Team1Spieler8Position.Text = "ABW" Then
    88. Zahl8 = Zahl8 * 0.8
    89. ElseIf Team1Spieler8Position.Text = "MIT" Then
    90. Zahl8 = Zahl8 * 1.2
    91. ElseIf Team1Spieler8Position.Text = "ANG" Then
    92. Zahl8 = Zahl8 * 1.4
    93. End If
    95. If Team1Spieler9Position.Text = "TW" Then
    96. Zahl9 = Zahl9 * 0.2
    97. ElseIf Team1Spieler9Position.Text = "ABW" Then
    98. Zahl9 = Zahl9 * 0.8
    99. ElseIf Team1Spieler9Position.Text = "MIT" Then
    100. Zahl9 = Zahl9 * 1.2
    101. ElseIf Team1Spieler9Position.Text = "ANG" Then
    102. Zahl9 = Zahl9 * 1.4
    103. End If
    105. If Team1Spieler10Position.Text = "TW" Then
    106. Zahl10 = Zahl10 * 0.2
    107. ElseIf Team1Spieler10Position.Text = "ABW" Then
    108. Zahl10 = Zahl10 * 0.8
    109. ElseIf Team1Spieler10Position.Text = "MIT" Then
    110. Zahl10 = Zahl10 * 1.2
    111. ElseIf Team1Spieler10Position.Text = "ANG" Then
    112. Zahl10 = Zahl10 * 1.4
    113. End If
    115. If Team1Spieler11Position.Text = "TW" Then
    116. Zahl11 = Zahl11 * 0.2
    117. ElseIf Team1Spieler11Position.Text = "ABW" Then
    118. Zahl11 = Zahl11 * 0.8
    119. ElseIf Team1Spieler11Position.Text = "MIT" Then
    120. Zahl11 = Zahl11 * 1.2
    121. ElseIf Team1Spieler11Position.Text = "ANG" Then
    122. Zahl11 = Zahl11 * 1.4
    123. End If
    124. Dim a1() = {Zahl1, Zahl2, Zahl3, Zahl4, Zahl5, Zahl6, Zahl7, Zahl8, Zahl9, Zahl10, Zahl11}
    125. Dim max, k As Single
    126. max = 0
    127. k = 0
    128. Do
    129. If a1(k) > max Then
    130. max = a1(k)
    131. End If
    132. k = k + 1
    133. Loop Until k > a1.Length - 1
    134. Dim tor As String
    135. tor = max
    136. Label80.Text = k
    137. Dim versuch As New Random
    138. If max = Zahl1 Then
    139. tor = Team1Spieler1Name.Text
    141. Dim Team1Schütze, Team2TW As String
    142. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler1Stärke.Text + 1)))
    143. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    144. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    145. Label82.Text = Team1Schütze
    146. Label83.Text = Team2TW
    147. If Team1Schütze < Val(Team1Spieler1Stärke.Text) * 0.5 Then
    148. Team1Daneben.Text = Team1Daneben.Text + 1
    149. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    150. Else
    151. If Val(Label82.Text) > Val(Label83.Text) Then
    152. Team1Tore.Text = Val(Team1Tore.Text) + 1
    153. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    155. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    156. End If
    157. End If
    158. ElseIf max = Zahl2 Then
    159. tor = Team1Spieler2Name.Text
    160. Dim Team1Schütze, Team2TW As String
    161. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler2Stärke.Text + 1)))
    162. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    163. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    164. Label82.Text = Team1Schütze
    165. Label83.Text = Team2TW
    166. If Team1Schütze < Val(Team1Spieler2Stärke.Text) * 0.5 Then
    167. Team1Daneben.Text = Team1Daneben.Text + 1
    168. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    169. Else
    170. If Val(Label82.Text) > Val(Label83.Text) Then
    171. Team1Tore.Text = Val(Team1Tore.Text) + 1
    172. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    173. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    174. End If
    175. End If
    176. ElseIf max = Zahl3 Then
    177. tor = Team1Spieler3Name.Text
    178. Dim Team1Schütze, Team2TW As String
    179. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler9Stärke.Text + 3)))
    180. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    181. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    182. Label82.Text = Team1Schütze
    183. Label83.Text = Team2TW
    184. If Team1Schütze < Val(Team1Spieler3Stärke.Text) * 0.5 Then
    185. Team1Daneben.Text = Team1Daneben.Text + 1
    186. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    187. Else
    188. If Val(Label82.Text) > Val(Label83.Text) Then
    189. Team1Tore.Text = Val(Team1Tore.Text) + 1
    190. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    191. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    192. End If
    193. End If
    194. ElseIf max = Zahl4 Then
    195. tor = Team1Spieler4Name.Text
    196. Dim Team1Schütze, Team2TW As String
    197. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler4Stärke.Text + 1)))
    198. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    199. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    200. Label82.Text = Team1Schütze
    201. Label83.Text = Team2TW
    202. If Team1Schütze < Val(Team1Spieler4Stärke.Text) * 0.5 Then
    203. Team1Daneben.Text = Team1Daneben.Text + 1
    204. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    205. Else
    206. If Val(Label82.Text) > Val(Label83.Text) Then
    207. Team1Tore.Text = Val(Team1Tore.Text) + 1
    208. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    209. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    210. End If
    211. End If
    212. ElseIf max = Zahl5 Then
    213. tor = Team1Spieler5Name.Text
    214. Dim Team1Schütze, Team2TW As String
    215. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler5Stärke.Text + 1)))
    216. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    217. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    218. Label82.Text = Team1Schütze
    219. Label83.Text = Team2TW
    220. If Team1Schütze < Val(Team1Spieler5Stärke.Text) * 0.5 Then
    221. Team1Daneben.Text = Team1Daneben.Text + 1
    222. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    223. Else
    224. If Val(Label82.Text) > Val(Label83.Text) Then
    225. Team1Tore.Text = Val(Team1Tore.Text) + 1
    226. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    227. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    228. End If
    229. End If
    230. ElseIf max = Zahl6 Then
    231. tor = Team1Spieler6Name.Text
    232. Dim Team1Schütze, Team2TW As String
    233. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler6Stärke.Text + 1)))
    234. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    235. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    236. Label82.Text = Team1Schütze
    237. Label83.Text = Team2TW
    238. If Team1Schütze < Val(Team1Spieler6Stärke.Text) * 0.5 Then
    239. Team1Daneben.Text = Team1Daneben.Text + 1
    240. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    241. Else
    242. If Val(Label82.Text) > Val(Label83.Text) Then
    243. Team1Tore.Text = Val(Team1Tore.Text) + 1
    244. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    245. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    246. End If
    247. End If
    248. ElseIf max = Zahl7 Then
    249. tor = Team1Spieler7Name.Text
    250. Dim Team1Schütze, Team2TW As String
    251. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler7Stärke.Text + 1)))
    252. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    253. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    254. Label82.Text = Team1Schütze
    255. Label83.Text = Team2TW
    256. If Team1Schütze < Val(Team1Spieler7Stärke.Text) * 0.5 Then
    257. Team1Daneben.Text = Team1Daneben.Text + 1
    258. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    259. Else
    260. If Val(Label82.Text) > Val(Label83.Text) Then
    261. Team1Tore.Text = Val(Team1Tore.Text) + 1
    262. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    263. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    264. End If
    265. End If
    266. ElseIf max = Zahl8 Then
    267. tor = Team1Spieler8Name.Text
    268. Dim Team1Schütze, Team2TW As String
    269. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler8Stärke.Text + 1)))
    270. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    271. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    272. Label82.Text = Team1Schütze
    273. Label83.Text = Team2TW
    274. If Team1Schütze < Val(Team1Spieler8Stärke.Text) * 0.5 Then
    275. Team1Daneben.Text = Team1Daneben.Text + 1
    276. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    277. Else
    278. If Val(Label82.Text) > Val(Label83.Text) Then
    279. Team1Tore.Text = Val(Team1Tore.Text) + 1
    280. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    281. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    282. End If
    284. End If
    285. ElseIf max = Zahl9 Then
    286. tor = Team1Spieler9Name.Text
    287. Dim Team1Schütze, Team2TW As String
    288. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler9Stärke.Text + 1)))
    289. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    290. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    291. Label82.Text = Team1Schütze
    292. Label83.Text = Team2TW
    293. If Team1Schütze < Val(Team1Spieler9Stärke.Text) * 0.5 Then
    294. Team1Daneben.Text = Team1Daneben.Text + 1
    295. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    296. Else
    297. If Val(Label82.Text) > Val(Label83.Text) Then
    298. Team1Tore.Text = Val(Team1Tore.Text) + 1
    299. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    300. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    301. End If
    302. End If
    303. ElseIf max = Zahl10 Then
    304. tor = Team1Spieler10Name.Text
    305. Dim Team1Schütze, Team2TW As String
    306. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler10Stärke.Text + 1)))
    307. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    308. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    309. Label82.Text = Team1Schütze
    310. Label83.Text = Team2TW
    311. If Team1Schütze < Val(Team1Spieler10Stärke.Text) * 0.5 Then
    312. Team1Daneben.Text = Team1Daneben.Text + 1
    313. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    314. Else
    315. If Val(Label82.Text) > Val(Label83.Text) Then
    316. Team1Tore.Text = Val(Team1Tore.Text) + 1
    317. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    318. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    319. End If
    320. End If
    321. ElseIf max = Zahl11 Then
    322. tor = Team1Spieler11Name.Text
    323. Dim Team1Schütze, Team2TW As String
    324. Team1Schütze = CStr(versuch.Next(0, (Team1Spieler11Stärke.Text + 1)))
    325. Team2TW = CStr(versuch.Next(0, Team2Spieler1Stärke.Text * 1.5))
    326. My.Computer.FileSystem.WriteAllText("Schütze.txt", Team1Schütze & vbNewLine & Team2TW & vbNewLine & vbNewLine, True)
    327. Label82.Text = Team1Schütze
    328. Label83.Text = Team2TW
    329. If Team1Schütze < Val(Team1Spieler11Stärke.Text) * 0.5 Then
    330. Team1Daneben.Text = Team1Daneben.Text + 1
    331. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - DANEBEN!")
    332. Else
    333. If Val(Label82.Text) > Val(Label83.Text) Then
    335. Team1Tore.Text = Val(Team1Tore.Text) + 1
    336. ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - TOR!")
    337. Else : ListBox1.Items.Add(Spielzeit.Text + "min. Torchance für " + tor + " (" + Team1.Text + ") - GEHALTEN!")
    338. End If
    339. End If
    340. End If
    342. [/code][/spoiler]


    Wahrscheinlich wieder eine einfache Sache, aber ich finde den Fehler nicht.
    Bin für jede Hilfe dankbar.

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

    MisterRieus schrieb:

    VB.NET-Quellcode

    1. Label87.Text = Label87.Text + 1
    Hör sofort mit diesem Unfug auf :!:
    Was, wenn in dem Label "Roulade mit Klößen" steht? Soll da als Ergebnis eine Roulade oder ein Kloß oder eine Kelle Soße dazu kommen?
    Mach Option Strict On!
    Trenne Daten und GUI!
    Daten sind angepasste numerische Werte, mit denen gerechnet werden kann, GUI-Elemente dienen der Anzeige und dem Editieren dieser Daten.
    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!

    MisterRieus schrieb:

    VB.NET-Quellcode

    1. Zahl1 = CStr(torchance.Next(Team1Spieler1Stärke.Text, Team1Spieler1Stärke.Text * 3))
    Solch Zeugs sehe ich mir nicht an, weil Option Strict Off.
    Du musst das zunächst in Strict On konvertieren und überprüfen, ob da der Effekt immer noch auftaucht.
    Sorry.
    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!

    1. Bitte in Post#5 nen Spoiler verwenden (das Augensymbol).

    ca. 400 Zeilen Code durchzuscrollen, um an den nächsten Post zu kommen, ist unschön.
    2. bitte den VB.Net-Button für den Code verwenden (rechts) und NICHT den allgemeinen Codebutton (links rot durchgestrichen). Damit Syntax-Highlighting aktiv ist.
    3. Was war an Post#4 nicht zu verstehen?
    "Das ist der Sub torchance:" Die Codezeile#1 wird bei jedem Aufruf der Sub ausgeführt. Also mehrfach. Das.Darf.Nicht.Sein. Diese Zeile darf im gesamten Code nur ein einziges Mal überhaupt aufgerufen werden, sonst kannst Du Zufallszahlen vergessen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Nabend,
    hab den langen Beitrag als Spoiler gemacht.
    Werde in Zukunft den richtigen Button benutzen.
    Hab es jetzt verstanden und umgesetzt und siehe da es funktioniert. Vielen Dank

    VB.NET-Quellcode

    1. ​ If Spielart.Text = "Liga" Then
    2. My.Computer.FileSystem.WriteAllText(".\Statistiken\Liga\Tore.txt", tor + " (" + Team1.Text + ")" & vbNewLine, True)
    3. ElseIf Spielart.Text = "Pokal" Then
    4. My.Computer.FileSystem.WriteAllText(".\Statistiken\Pokal\Tore.txt", tor + " (" + Team1.Text + ")" & vbNewLine, True)
    5. ElseIf Spielart.Text = "Kaltza-Kup" Then
    6. My.Computer.FileSystem.WriteAllText(".\Statistiken\Kaltza-Kup\Tore.txt", tor + " (" + Team1.Text + ")" & vbNewLine, True)
    7. ElseIf Spielart.Text = "Kalle-Kup" Then
    8. My.Computer.FileSystem.WriteAllText(".\Statistiken\Kalle-Kup\Tore.txt", tor + " (" + Team1.Text + ")" & vbNewLine, True)
    9. ElseIf Spielart.Text = "Deathmatch" Then
    10. My.Computer.FileSystem.WriteAllText(".\Statistiken\Deathmatch\Tore.txt", tor + " (" + Team1.Text + ")" & vbNewLine, True)
    11. ElseIf Spielart.Text = "Hallenmasters" Then
    12. My.Computer.FileSystem.WriteAllText(".\Statistiken\Pokal\Tore.txt", tor + " (" + Team1.Text + ")" & vbNewLine, True)
    13. Else
    14. End If


    Mit diesem Code wird der Torschütze in diesem Fall die Variable "tor" in die entsprechende txt Datei gespeichert. Wenn der gleiche Spieler nochmal ein Tor schießt, dann steht der Spieler 2x in der txt Datei.
    Wenn der Spieler noch ein Tor schießt steht dieser dann 3x in der txt Datei.
    So sieht dann die txt Datei aus:
    Ohzora (Barcelona Strikers)
    Schneider (Barcelona Strikers)
    Ohzora (Barcelona Strikers)
    Schester (Barcelona Strikers)
    Bunnaku (Barcelona Strikers)
    Schneider (Barcelona Strikers)

    Wie ist es am einfachsten möglich, dass der Spieler nur 1x in der Liste vorkommt, dafür dann hinter oder eine Zeile tiefer die entsprechende Anzahl Tore steht?

    MisterRieus schrieb:

    Wie ist es am einfachsten möglich
    Merke Dir die Daten nicht in einer Datei sondern in je einer Klasse, die Du dann am Ende XML-Serialisierst, dann kannst Du sie wieder einlesen und weiterspielen.
    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!

    Dann frage ich mal lieber anders,da ich mich mit XML nicht auseinandergesetzt habe. Wie ist es mit einer txt am einfachsten zu lösen?
    Sagen wir mal die txt datei hat 60 Einträge:
    Spoiler anzeigen
    Reus
    Reus
    Müller
    Kroos
    Özil
    Kroos
    Özil
    Gomez
    Gomez
    Reus
    Müller
    Reus
    Reus
    Müller
    Kroos
    Özil
    Kroos
    Özil
    Gomez
    Gomez
    Reus
    Müller
    Reus
    Reus
    Müller
    Kroos
    Özil
    Kroos
    Özil
    Gomez
    Gomez
    Reus
    Müller
    Reus
    Reus
    Müller
    Kroos
    Özil
    Kroos
    Özil
    Gomez
    Gomez
    Reus
    Müller
    Reus
    Reus
    Müller
    Kroos
    Özil
    Kroos
    Özil
    Gomez
    Gomez
    Reus
    Müller
    Reus
    Reus
    Müller
    Kroos
    Özil


    Jetzt möchte ich wissen wie viele verschiedene Einträge in der Liste sind und auch wie oft die einzelnen Einträge in der Liste sind so dass am Ende eine Liste wie folgt entsteht:
    Reus 23
    Müller 21
    Kroos 13
    Özil 9
    Gomez 4

    Es kann auch gerne eine neue txt Datei sein.

    eine Gruppierung also.

    VB.NET-Quellcode

    1. strings = "Reus Reus Müller Kroos Özil Kroos Özil Gomez Gomez Reus Müller Reus Reus Müller Kroos Özil Kroos Özil Gomez Gomez Reus Müller Reus Reus Müller Kroos Özil Kroos Özil Gomez Gomez Reus Müller Reus Reus Müller Kroos Özil Kroos Özil Gomez Gomez Reus Müller Reus Reus Müller Kroos Özil Kroos Özil Gomez Gomez Reus Müller Reus Reus Müller Kroos Özil".Split
    3. Dim groups2 = From s In strings Group s By s Into Count()
    5. For Each gr In groups2
    6. MessageBox.Show(String.Format("{0}: {1}", gr.s, gr.Count))
    7. Next

    @MisterRieus Ich sehe jetzt keinen Zusammenhang zwischen dem Group-Problem und dem Thread-Titel.
    Falls das zusammengehört, solltest Du mal eine umfassende Problembeschreibung / Aufgabenstelung formulieren.
    Falls nicht, wäre ein separater Thread angebracht.
    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!

Facebook
Telefonspende