PictureBox und Ressourcen brauchen viel auslastung

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von Gurke258.

    PictureBox und Ressourcen brauchen viel auslastung

    Hallo zusammen,

    ich bastel gerade an einer "kleinen" Slotmaschine und hatte vorher alles mit Labels gemacht. Jetzt bin ich umgestiegen auf PictureBox um Früchte anzeigen zu lassen.

    Allerings habe ich nun das Problem, das mein Programm fast 10% Prozessorauslastung hat und fast 600MB Arbeitsspeicher benötigt. Vorher kaum etwas vielleicht 30-40MB Arbeitsspeicher.

    GIbt es eine Möglichkleit dies "Schlanker" hinzubekommen?

    Hier mal der Ausschnitt von der "drehen" Sub:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Drehen()
    3. Feld1 = Int(Rnd() * 10)
    4. Feld2 = Int(Rnd() * 10)
    5. Feld3 = Int(Rnd() * 10)
    6. Feld4 = Int(Rnd() * 10)
    7. Feld5 = Int(Rnd() * 10)
    8. Feld6 = Int(Rnd() * 10)
    9. Feld7 = Int(Rnd() * 10)
    10. Feld8 = Int(Rnd() * 10)
    11. Feld1 = Int(Rnd() * 10)
    13. If Feld1 = 1 Then
    14. Haupt.PBFeld_1.Image = My.Resources.kiwi_2673038_1920
    15. ElseIf Feld1 = 2 Then
    16. Haupt.PBFeld_1.Image = My.Resources.coconuts_575780
    17. ElseIf Feld1 = 3 Then
    18. Haupt.PBFeld_1.Image = My.Resources.pineapple_300038
    19. ElseIf Feld1 = 4 Then
    20. Haupt.PBFeld_1.Image = My.Resources.cherry_105141
    21. ElseIf Feld1 = 5 Then
    22. Haupt.PBFeld_1.Image = My.Resources.apple_336015
    23. ElseIf Feld1 = 6 Then
    24. Haupt.PBFeld_1.Image = My.Resources.bananas_311788
    25. ElseIf Feld1 = 7 Then
    26. Haupt.PBFeld_1.Image = My.Resources.citron_154449
    27. ElseIf Feld1 = 8 Then
    28. Haupt.PBFeld_1.Image = My.Resources.strawberry_34066
    29. ElseIf Feld1 = 9 Then
    30. Haupt.PBFeld_1.Image = My.Resources.pears_1990797_1920
    31. Else
    32. Haupt.PBFeld_1.Image = My.Resources.favorite_153144
    33. End If
    35. If Feld2 = 1 Then
    36. Haupt.PBFeld_2.Image = My.Resources.kiwi_2673038_1920
    37. ElseIf Feld2 = 2 Then
    38. Haupt.PBFeld_2.Image = My.Resources.coconuts_575780
    39. ElseIf Feld2 = 3 Then
    40. Haupt.PBFeld_2.Image = My.Resources.pineapple_300038
    41. ElseIf Feld2 = 4 Then
    42. Haupt.PBFeld_2.Image = My.Resources.cherry_105141
    43. ElseIf Feld2 = 5 Then
    44. Haupt.PBFeld_2.Image = My.Resources.apple_336015
    45. ElseIf Feld2 = 6 Then
    46. Haupt.PBFeld_2.Image = My.Resources.bananas_311788
    47. ElseIf Feld2 = 7 Then
    48. Haupt.PBFeld_2.Image = My.Resources.citron_154449
    49. ElseIf Feld2 = 8 Then
    50. Haupt.PBFeld_2.Image = My.Resources.strawberry_34066
    51. ElseIf Feld2 = 9 Then
    52. Haupt.PBFeld_2.Image = My.Resources.pears_1990797_1920
    53. Else
    54. Haupt.PBFeld_2.Image = My.Resources.favorite_153144
    55. End If
    57. If Feld3 = 1 Then
    58. Haupt.PBFeld_3.Image = My.Resources.kiwi_2673038_1920
    59. ElseIf Feld3 = 2 Then
    60. Haupt.PBFeld_3.Image = My.Resources.coconuts_575780
    61. ElseIf Feld3 = 3 Then
    62. Haupt.PBFeld_3.Image = My.Resources.pineapple_300038
    63. ElseIf Feld3 = 4 Then
    64. Haupt.PBFeld_3.Image = My.Resources.cherry_105141
    65. ElseIf Feld3 = 5 Then
    66. Haupt.PBFeld_3.Image = My.Resources.apple_336015
    67. ElseIf Feld3 = 6 Then
    68. Haupt.PBFeld_3.Image = My.Resources.bananas_311788
    69. ElseIf Feld3 = 7 Then
    70. Haupt.PBFeld_3.Image = My.Resources.citron_154449
    71. ElseIf Feld3 = 8 Then
    72. Haupt.PBFeld_3.Image = My.Resources.strawberry_34066
    73. ElseIf Feld3 = 9 Then
    74. Haupt.PBFeld_3.Image = My.Resources.pears_1990797_1920
    75. Else
    76. Haupt.PBFeld_3.Image = My.Resources.favorite_153144
    77. End If
    79. If Feld4 = 1 Then
    80. Haupt.PBFeld_4.Image = My.Resources.kiwi_2673038_1920
    81. ElseIf Feld4 = 2 Then
    82. Haupt.PBFeld_4.Image = My.Resources.coconuts_575780
    83. ElseIf Feld4 = 3 Then
    84. Haupt.PBFeld_4.Image = My.Resources.pineapple_300038
    85. ElseIf Feld4 = 4 Then
    86. Haupt.PBFeld_4.Image = My.Resources.cherry_105141
    87. ElseIf Feld4 = 5 Then
    88. Haupt.PBFeld_4.Image = My.Resources.apple_336015
    89. ElseIf Feld4 = 6 Then
    90. Haupt.PBFeld_4.Image = My.Resources.bananas_311788
    91. ElseIf Feld4 = 7 Then
    92. Haupt.PBFeld_4.Image = My.Resources.citron_154449
    93. ElseIf Feld4 = 8 Then
    94. Haupt.PBFeld_4.Image = My.Resources.strawberry_34066
    95. ElseIf Feld4 = 9 Then
    96. Haupt.PBFeld_4.Image = My.Resources.pears_1990797_1920
    97. Else
    98. Haupt.PBFeld_4.Image = My.Resources.favorite_153144
    99. End If
    101. If Feld5 = 1 Then
    102. Haupt.PBFeld_5.Image = My.Resources.kiwi_2673038_1920
    103. ElseIf Feld5 = 2 Then
    104. Haupt.PBFeld_5.Image = My.Resources.coconuts_575780
    105. ElseIf Feld5 = 3 Then
    106. Haupt.PBFeld_5.Image = My.Resources.pineapple_300038
    107. ElseIf Feld5 = 4 Then
    108. Haupt.PBFeld_5.Image = My.Resources.cherry_105141
    109. ElseIf Feld5 = 5 Then
    110. Haupt.PBFeld_5.Image = My.Resources.apple_336015
    111. ElseIf Feld5 = 6 Then
    112. Haupt.PBFeld_5.Image = My.Resources.bananas_311788
    113. ElseIf Feld5 = 7 Then
    114. Haupt.PBFeld_5.Image = My.Resources.citron_154449
    115. ElseIf Feld5 = 8 Then
    116. Haupt.PBFeld_5.Image = My.Resources.strawberry_34066
    117. ElseIf Feld5 = 9 Then
    118. Haupt.PBFeld_5.Image = My.Resources.pears_1990797_1920
    119. Else
    120. Haupt.PBFeld_5.Image = My.Resources.favorite_153144
    121. End If
    123. If Feld6 = 1 Then
    124. Haupt.PBFeld_6.Image = My.Resources.kiwi_2673038_1920
    125. ElseIf Feld6 = 2 Then
    126. Haupt.PBFeld_6.Image = My.Resources.coconuts_575780
    127. ElseIf Feld6 = 3 Then
    128. Haupt.PBFeld_6.Image = My.Resources.pineapple_300038
    129. ElseIf Feld6 = 4 Then
    130. Haupt.PBFeld_6.Image = My.Resources.cherry_105141
    131. ElseIf Feld6 = 5 Then
    132. Haupt.PBFeld_6.Image = My.Resources.apple_336015
    133. ElseIf Feld6 = 6 Then
    134. Haupt.PBFeld_6.Image = My.Resources.bananas_311788
    135. ElseIf Feld6 = 7 Then
    136. Haupt.PBFeld_6.Image = My.Resources.citron_154449
    137. ElseIf Feld6 = 8 Then
    138. Haupt.PBFeld_6.Image = My.Resources.strawberry_34066
    139. ElseIf Feld6 = 9 Then
    140. Haupt.PBFeld_6.Image = My.Resources.pears_1990797_1920
    141. Else
    142. Haupt.PBFeld_6.Image = My.Resources.favorite_153144
    143. End If
    145. If Feld7 = 1 Then
    146. Haupt.PBFeld_7.Image = My.Resources.kiwi_2673038_1920
    147. ElseIf Feld7 = 2 Then
    148. Haupt.PBFeld_7.Image = My.Resources.coconuts_575780
    149. ElseIf Feld7 = 3 Then
    150. Haupt.PBFeld_7.Image = My.Resources.pineapple_300038
    151. ElseIf Feld7 = 4 Then
    152. Haupt.PBFeld_7.Image = My.Resources.cherry_105141
    153. ElseIf Feld7 = 5 Then
    154. Haupt.PBFeld_7.Image = My.Resources.apple_336015
    155. ElseIf Feld7 = 6 Then
    156. Haupt.PBFeld_7.Image = My.Resources.bananas_311788
    157. ElseIf Feld7 = 7 Then
    158. Haupt.PBFeld_7.Image = My.Resources.citron_154449
    159. ElseIf Feld7 = 8 Then
    160. Haupt.PBFeld_7.Image = My.Resources.strawberry_34066
    161. ElseIf Feld7 = 9 Then
    162. Haupt.PBFeld_7.Image = My.Resources.pears_1990797_1920
    163. Else
    164. Haupt.PBFeld_7.Image = My.Resources.favorite_153144
    165. End If
    167. If Feld8 = 1 Then
    168. Haupt.PBFeld_8.Image = My.Resources.kiwi_2673038_1920
    169. ElseIf Feld8 = 2 Then
    170. Haupt.PBFeld_8.Image = My.Resources.coconuts_575780
    171. ElseIf Feld8 = 3 Then
    172. Haupt.PBFeld_8.Image = My.Resources.pineapple_300038
    173. ElseIf Feld8 = 4 Then
    174. Haupt.PBFeld_8.Image = My.Resources.cherry_105141
    175. ElseIf Feld8 = 5 Then
    176. Haupt.PBFeld_8.Image = My.Resources.apple_336015
    177. ElseIf Feld8 = 6 Then
    178. Haupt.PBFeld_8.Image = My.Resources.bananas_311788
    179. ElseIf Feld8 = 7 Then
    180. Haupt.PBFeld_8.Image = My.Resources.citron_154449
    181. ElseIf Feld8 = 8 Then
    182. Haupt.PBFeld_8.Image = My.Resources.strawberry_34066
    183. ElseIf Feld8 = 9 Then
    184. Haupt.PBFeld_8.Image = My.Resources.pears_1990797_1920
    185. Else
    186. Haupt.PBFeld_8.Image = My.Resources.favorite_153144
    187. End If
    189. If Feld9 = 1 Then
    190. Haupt.PBFeld_9.Image = My.Resources.kiwi_2673038_1920
    191. ElseIf Feld9 = 2 Then
    192. Haupt.PBFeld_9.Image = My.Resources.coconuts_575780
    193. ElseIf Feld9 = 3 Then
    194. Haupt.PBFeld_9.Image = My.Resources.pineapple_300038
    195. ElseIf Feld9 = 4 Then
    196. Haupt.PBFeld_9.Image = My.Resources.cherry_105141
    197. ElseIf Feld9 = 5 Then
    198. Haupt.PBFeld_9.Image = My.Resources.apple_336015
    199. ElseIf Feld9 = 6 Then
    200. Haupt.PBFeld_9.Image = My.Resources.bananas_311788
    201. ElseIf Feld9 = 7 Then
    202. Haupt.PBFeld_9.Image = My.Resources.citron_154449
    203. ElseIf Feld9 = 8 Then
    204. Haupt.PBFeld_9.Image = My.Resources.strawberry_34066
    205. ElseIf Feld9 = 9 Then
    206. Haupt.PBFeld_9.Image = My.Resources.pears_1990797_1920
    207. Else
    208. Haupt.PBFeld_9.Image = My.Resources.favorite_153144
    209. End If
    211. 'Haupt.Lbl_Feld1.Text = CType(Feld1, String)
    212. 'Haupt.Lbl_Feld2.Text = CType(Feld2, String)
    213. 'Haupt.Lbl_Feld3.Text = CType(Feld3, String)
    214. 'Haupt.Lbl_Feld4.Text = CType(Feld4, String)
    215. 'Haupt.Lbl_Feld5.Text = CType(Feld5, String)
    216. 'Haupt.Lbl_Feld6.Text = CType(Feld6, String)
    217. 'Haupt.Lbl_Feld7.Text = CType(Feld7, String)
    218. 'Haupt.Lbl_Feld8.Text = CType(Feld8, String)
    219. 'Haupt.Lbl_Feld9.Text = CType(Feld9, String)
    221. End Sub


    Vielleicht habt ihr ja ne Idee :)

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

    ein punkt ist, dass das Abrufen eines Resourcen-Bildes immer ein neues Bild generiert.
    Dieselbe Resource also 2mal abzurufen generiert den doppelten Speicherverbrauch.
    Besser, die Resourcen einmalig in Bitmaps überführen, und die Bitmaps dann mehrfach verwenden.

    Aber das reicht eiglich noch nicht, um den riesigen Speicherverbrauch zu erklären.
    Da würde ich vermuten, dass deine Methode öfter aufgerufen wird, und die entstehenden Bitmaps nicht disposed werden.

    Jo, da wäre das mit dem einmaligen Überführen in wiederverwendbare Bitmaps ja auch eine Lösung - die wiederverwendbaren Bitmaps sind ja grade nicht zu disposen.

    (ansonsten weiss ich leider nicht, was eine "SlotMaschine" eiglich ist)

    Okay das wäre ein Lösungsansatz dem ich aufjeden fall mal nach gehe wenn ich weiß wie das mit den Bitmaps funktioniert ^^

    Eine Slotmaschine ist ein kleiner Spielautomat :)

    Hier mal ein kleines Bild:


    Noch in der Alpha-Phase ^^


    Edit:
    Habs jetzt so gelöst und hab aktuell nur 170-180MB Arbeitsspeicher auslastung und ca. 2% Prozessorleistung.

    VB.NET-Quellcode

    1. Public Kiwi As Bitmap = My.Resources.kiwi_2673038_1920
    2. Public Banane As Bitmap = My.Resources.bananas_311788
    3. Public Kokusnuss As Bitmap = My.Resources.coconuts_575780
    4. Public Kirsche As Bitmap = My.Resources.cherry_105141
    5. Public Stern As Bitmap = My.Resources.favorite_153144
    6. Public Zitrone As Bitmap = My.Resources.citron_154449
    7. Public Birne As Bitmap = My.Resources.pears_1990797_1920
    8. Public Erdbeere As Bitmap = My.Resources.strawberry_34066
    9. Public Ananas As Bitmap = My.Resources.pineapple_300038
    10. Public Apfel As Bitmap = My.Resources.apple_336015


    Hier nochmal der Sub:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Drehen()
    3. Feld1 = Int(Rnd() * 10)
    4. Feld2 = Int(Rnd() * 10)
    5. Feld3 = Int(Rnd() * 10)
    6. Feld4 = Int(Rnd() * 10)
    7. Feld5 = Int(Rnd() * 10)
    8. Feld6 = Int(Rnd() * 10)
    9. Feld7 = Int(Rnd() * 10)
    10. Feld8 = Int(Rnd() * 10)
    11. Feld1 = Int(Rnd() * 10)
    13. If Feld1 = 1 Then
    14. Haupt.PBFeld_1.Image = Kiwi
    15. ElseIf Feld1 = 2 Then
    16. Haupt.PBFeld_1.Image = Kokusnuss
    17. ElseIf Feld1 = 3 Then
    18. Haupt.PBFeld_1.Image = Ananas
    19. ElseIf Feld1 = 4 Then
    20. Haupt.PBFeld_1.Image = Kirsche
    21. ElseIf Feld1 = 5 Then
    22. Haupt.PBFeld_1.Image = Apfel
    23. ElseIf Feld1 = 6 Then
    24. Haupt.PBFeld_1.Image = Banane
    25. ElseIf Feld1 = 7 Then
    26. Haupt.PBFeld_1.Image = Zitrone
    27. ElseIf Feld1 = 8 Then
    28. Haupt.PBFeld_1.Image = Erdbeere
    29. ElseIf Feld1 = 9 Then
    30. Haupt.PBFeld_1.Image = Birne
    31. Else
    32. Haupt.PBFeld_1.Image = Stern
    33. End If
    35. If Feld2 = 1 Then
    36. Haupt.PBFeld_2.Image = Kiwi
    37. ElseIf Feld2 = 2 Then
    38. Haupt.PBFeld_2.Image = Kokusnuss
    39. ElseIf Feld2 = 3 Then
    40. Haupt.PBFeld_2.Image = Ananas
    41. ElseIf Feld2 = 4 Then
    42. Haupt.PBFeld_2.Image = Kirsche
    43. ElseIf Feld2 = 5 Then
    44. Haupt.PBFeld_2.Image = Apfel
    45. ElseIf Feld2 = 6 Then
    46. Haupt.PBFeld_2.Image = Banane
    47. ElseIf Feld2 = 7 Then
    48. Haupt.PBFeld_2.Image = Zitrone
    49. ElseIf Feld2 = 8 Then
    50. Haupt.PBFeld_2.Image = Erdbeere
    51. ElseIf Feld2 = 9 Then
    52. Haupt.PBFeld_2.Image = Birne
    53. Else
    54. Haupt.PBFeld_2.Image = Stern
    55. End If
    57. If Feld3 = 1 Then
    58. Haupt.PBFeld_3.Image = Kiwi
    59. ElseIf Feld3 = 2 Then
    60. Haupt.PBFeld_3.Image = Kokusnuss
    61. ElseIf Feld3 = 3 Then
    62. Haupt.PBFeld_3.Image = Ananas
    63. ElseIf Feld3 = 4 Then
    64. Haupt.PBFeld_3.Image = Kirsche
    65. ElseIf Feld3 = 5 Then
    66. Haupt.PBFeld_3.Image = Apfel
    67. ElseIf Feld3 = 6 Then
    68. Haupt.PBFeld_3.Image = Banane
    69. ElseIf Feld3 = 7 Then
    70. Haupt.PBFeld_3.Image = Zitrone
    71. ElseIf Feld3 = 8 Then
    72. Haupt.PBFeld_3.Image = Erdbeere
    73. ElseIf Feld3 = 9 Then
    74. Haupt.PBFeld_3.Image = Birne
    75. Else
    76. Haupt.PBFeld_3.Image = Stern
    77. End If
    79. If Feld4 = 1 Then
    80. Haupt.PBFeld_4.Image = Kiwi
    81. ElseIf Feld4 = 2 Then
    82. Haupt.PBFeld_4.Image = Kokusnuss
    83. ElseIf Feld4 = 3 Then
    84. Haupt.PBFeld_4.Image = Ananas
    85. ElseIf Feld4 = 4 Then
    86. Haupt.PBFeld_4.Image = Kirsche
    87. ElseIf Feld4 = 5 Then
    88. Haupt.PBFeld_4.Image = Apfel
    89. ElseIf Feld4 = 6 Then
    90. Haupt.PBFeld_4.Image = Banane
    91. ElseIf Feld4 = 7 Then
    92. Haupt.PBFeld_4.Image = Zitrone
    93. ElseIf Feld4 = 8 Then
    94. Haupt.PBFeld_4.Image = Erdbeere
    95. ElseIf Feld4 = 9 Then
    96. Haupt.PBFeld_4.Image = Birne
    97. Else
    98. Haupt.PBFeld_4.Image = Stern
    99. End If
    101. If Feld5 = 1 Then
    102. Haupt.PBFeld_5.Image = Kiwi
    103. ElseIf Feld5 = 2 Then
    104. Haupt.PBFeld_5.Image = Kokusnuss
    105. ElseIf Feld5 = 3 Then
    106. Haupt.PBFeld_5.Image = Ananas
    107. ElseIf Feld5 = 4 Then
    108. Haupt.PBFeld_5.Image = Kirsche
    109. ElseIf Feld5 = 5 Then
    110. Haupt.PBFeld_5.Image = Apfel
    111. ElseIf Feld5 = 6 Then
    112. Haupt.PBFeld_5.Image = Banane
    113. ElseIf Feld5 = 7 Then
    114. Haupt.PBFeld_5.Image = Zitrone
    115. ElseIf Feld5 = 8 Then
    116. Haupt.PBFeld_5.Image = Erdbeere
    117. ElseIf Feld5 = 9 Then
    118. Haupt.PBFeld_5.Image = Birne
    119. Else
    120. Haupt.PBFeld_5.Image = Stern
    121. End If
    123. If Feld6 = 1 Then
    124. Haupt.PBFeld_6.Image = Kiwi
    125. ElseIf Feld6 = 2 Then
    126. Haupt.PBFeld_6.Image = Kokusnuss
    127. ElseIf Feld6 = 3 Then
    128. Haupt.PBFeld_6.Image = Ananas
    129. ElseIf Feld6 = 4 Then
    130. Haupt.PBFeld_6.Image = Kirsche
    131. ElseIf Feld6 = 5 Then
    132. Haupt.PBFeld_6.Image = Apfel
    133. ElseIf Feld6 = 6 Then
    134. Haupt.PBFeld_6.Image = Banane
    135. ElseIf Feld6 = 7 Then
    136. Haupt.PBFeld_6.Image = Zitrone
    137. ElseIf Feld6 = 8 Then
    138. Haupt.PBFeld_6.Image = Erdbeere
    139. ElseIf Feld6 = 9 Then
    140. Haupt.PBFeld_6.Image = Birne
    141. Else
    142. Haupt.PBFeld_6.Image = Stern
    143. End If
    145. If Feld7 = 1 Then
    146. Haupt.PBFeld_7.Image = Kiwi
    147. ElseIf Feld7 = 2 Then
    148. Haupt.PBFeld_7.Image = Kokusnuss
    149. ElseIf Feld7 = 3 Then
    150. Haupt.PBFeld_7.Image = Ananas
    151. ElseIf Feld7 = 4 Then
    152. Haupt.PBFeld_7.Image = Kirsche
    153. ElseIf Feld7 = 5 Then
    154. Haupt.PBFeld_7.Image = Apfel
    155. ElseIf Feld7 = 6 Then
    156. Haupt.PBFeld_7.Image = Banane
    157. ElseIf Feld7 = 7 Then
    158. Haupt.PBFeld_7.Image = Zitrone
    159. ElseIf Feld7 = 8 Then
    160. Haupt.PBFeld_7.Image = Erdbeere
    161. ElseIf Feld7 = 9 Then
    162. Haupt.PBFeld_7.Image = Birne
    163. Else
    164. Haupt.PBFeld_7.Image = Stern
    165. End If
    167. If Feld8 = 1 Then
    168. Haupt.PBFeld_8.Image = Kiwi
    169. ElseIf Feld8 = 2 Then
    170. Haupt.PBFeld_8.Image = Kokusnuss
    171. ElseIf Feld8 = 3 Then
    172. Haupt.PBFeld_8.Image = Ananas
    173. ElseIf Feld8 = 4 Then
    174. Haupt.PBFeld_8.Image = Kirsche
    175. ElseIf Feld8 = 5 Then
    176. Haupt.PBFeld_8.Image = Apfel
    177. ElseIf Feld8 = 6 Then
    178. Haupt.PBFeld_8.Image = Banane
    179. ElseIf Feld8 = 7 Then
    180. Haupt.PBFeld_8.Image = Zitrone
    181. ElseIf Feld8 = 8 Then
    182. Haupt.PBFeld_8.Image = Erdbeere
    183. ElseIf Feld8 = 9 Then
    184. Haupt.PBFeld_8.Image = Birne
    185. Else
    186. Haupt.PBFeld_8.Image = Stern
    187. End If
    189. If Feld9 = 1 Then
    190. Haupt.PBFeld_9.Image = Kiwi
    191. ElseIf Feld9 = 2 Then
    192. Haupt.PBFeld_9.Image = Kokusnuss
    193. ElseIf Feld9 = 3 Then
    194. Haupt.PBFeld_9.Image = Ananas
    195. ElseIf Feld9 = 4 Then
    196. Haupt.PBFeld_9.Image = Kirsche
    197. ElseIf Feld9 = 5 Then
    198. Haupt.PBFeld_9.Image = Apfel
    199. ElseIf Feld9 = 6 Then
    200. Haupt.PBFeld_9.Image = Banane
    201. ElseIf Feld9 = 7 Then
    202. Haupt.PBFeld_9.Image = Zitrone
    203. ElseIf Feld9 = 8 Then
    204. Haupt.PBFeld_9.Image = Erdbeere
    205. ElseIf Feld9 = 9 Then
    206. Haupt.PBFeld_9.Image = Birne
    207. Else
    208. Haupt.PBFeld_9.Image = Stern
    209. End If
    211. 'Kiwi.Dispose()
    212. 'Banane.Dispose()
    213. 'Kokusnuss.Dispose()
    214. 'Kirsche.Dispose()
    215. 'Stern.Dispose()
    216. 'Zitrone.Dispose()
    217. 'Birne.Dispose()
    218. 'Erdbeere.Dispose()
    219. 'Ananas.Dispose()
    220. 'Apfel.Dispose()
    222. 'Haupt.Lbl_Feld1.Text = CType(Feld1, String)
    223. 'Haupt.Lbl_Feld2.Text = CType(Feld2, String)
    224. 'Haupt.Lbl_Feld3.Text = CType(Feld3, String)
    225. 'Haupt.Lbl_Feld4.Text = CType(Feld4, String)
    226. 'Haupt.Lbl_Feld5.Text = CType(Feld5, String)
    227. 'Haupt.Lbl_Feld6.Text = CType(Feld6, String)
    228. 'Haupt.Lbl_Feld7.Text = CType(Feld7, String)
    229. 'Haupt.Lbl_Feld8.Text = CType(Feld8, String)
    230. 'Haupt.Lbl_Feld9.Text = CType(Feld9, String)
    232. End Sub

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Gurke258“ ()

    @Gurke258 Um das vielleicht etwas eleganter zu machen:
    Mach Dir ein Array, in dem Du die Bilder der Reihenfolge nach ablegst.
    Dann musst Du nur noch den Index generieren und mit diesem das korrekte Bild abgreifen.
    Da fallen fast 90% Deines Codes weg und Du kannst ihn selbst pflegen. ;)
    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 weiß nicht genau, ob das helfen kann.
    Speichere deine Bilder nicht in die Ressource, sondern lade Sie als Datei.
    Dadurch wird das Programm kleiner, und benötigt weniger Systemressourcen.

    VB.NET-Quellcode

    1. Me.PictureBox1.Image = Image.FromFile(pfad)
    Visual Basic.NET 8o
    MS-SQL     8o

    *unnötiges Vollzitat entfernt*

    Ich wollte eig die beiliegenden Dateien so schlank wie möglich halten und hatte mich jetzt nur auf die .exe beschränkt, die man zum spielen benötigt :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Gurke258 In welchem Format liegen die Dateien denn vor?
    BMP frisst viel Platz.
    PNG ist kleiner und komprimiert verlustfrei,
    JPG ist noch kleiner und komprimiert verlustbehaftet.
    Und:
    Pack um Deinen Code im Post einen
    Spoiler
    Spoiler.
    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!

    So, und jetzt mal was wirklich wichtiges: Du solltest unbedingt die Visual Studio - Empfohlene Einstellungen tätigen.
    Dein Code an einer Stelle ein Beispiel, wie der Microsoft.VisualBasic - GeneralImport verhindert, dass du die .Net-Power kennenlernst.
    Weil in .Net sollte man die olle Rnd-Funktion nicht benutzen - stattdessen steht das elegantere System.Random-Objekt zur Verfügung.

    Also Option Strict on habe ich ja schon gelernt und habe mir auch deinen dazu angesehen. Allerdings kann ich die Microsoft.VisualBasic.ControlChars bei mir nicht finden und auch die Microsoft.VisualBasic kann ich nicht abhaken, da der Haken direkt wieder rein springt.

    Bei:

    RodFromGermany schrieb:

    Mach Dir ein Array, in dem Du die Bilder der Reihenfolge nach ablegst.
    Dann musst Du nur noch den Index generieren und mit diesem das korrekte Bild abgreifen.


    Stell ich mich grad schwer glaub ich.. das Array habe ich erstellt aber was meinst du genau mit Index?

    Hatte es jetzt so im Kopf:

    VB.NET-Quellcode

    1. Public slotbilder(10) As Bitmap
    2. slotbilder(1) = My.Resources.kiwi_2673038_1920
    3. If Feld1 = 1 Then
    4. Haupt.PBFeld_1.Image = slotbilder(1)
    5. ElseIf Feld1 = 2 Then
    6. Haupt.PBFeld_1.Image = Kokusnuss
    7. 'etc...


    Edit:

    Rnd() rausgeschmissen und System.Random wird jetzt verwendet :)

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

    Gurke258 schrieb:

    auch die Microsoft.VisualBasic kann ich nicht abhaken, da der Haken direkt wieder rein springt.
    Das kann nicht sein, oder du bist der Einzige mir bekannte, bei dem das so ist.
    Schau die Videos im Tut nochmal genau an - irgendwas wirst du anders machen, als da gezeigt.

    Microsoft.VisualBasic.ControlChars wird nicht zum Aussuchen angeboten, sondern man musses selbst hinschreiben, und dann "Import hinzufügen" klicksen.
    Jo - sorry, ist dort nicht erklärt. Komisch dass du der erste bist, dem's auffällt.

    @Gurke258 So was:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Images() As Bitmap = {My.Resources.Banane, My.Resources.Citrone, My.Resources.Cocos, My.Resources.Kiwi}
    3. Private Rnd As New Random
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim index = Me.Rnd.Next(Me.Images.Length)
    6. Me.PictureBox1.Image = Me.Images(index)
    7. End Sub
    8. End Class
    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!

    Vielen Dank für eure Antworten und Hilfe :)

    Mein Sub ist wesentlich kleiner und die Speicherauslastung geringer :D

    VB.NET-Quellcode

    1. Public Sub Drehen()
    3. Dim Rnd As New Random
    5. Feld1 = Rnd.Next(Slotbilder.Length)
    6. Feld2 = Rnd.Next(Slotbilder.Length)
    7. Feld3 = Rnd.Next(Slotbilder.Length)
    8. Feld4 = Rnd.Next(Slotbilder.Length)
    9. Feld5 = Rnd.Next(Slotbilder.Length)
    10. Feld6 = Rnd.Next(Slotbilder.Length)
    11. Feld7 = Rnd.Next(Slotbilder.Length)
    12. Feld8 = Rnd.Next(Slotbilder.Length)
    13. Feld9 = Rnd.Next(Slotbilder.Length)
    15. Haupt.PBFeld_1.Image = Slotbilder(Feld1)
    16. Haupt.PBFeld_2.Image = Slotbilder(Feld2)
    17. Haupt.PBFeld_3.Image = Slotbilder(Feld3)
    18. Haupt.PBFeld_4.Image = Slotbilder(Feld4)
    19. Haupt.PBFeld_5.Image = Slotbilder(Feld5)
    20. Haupt.PBFeld_6.Image = Slotbilder(Feld6)
    21. Haupt.PBFeld_7.Image = Slotbilder(Feld7)
    22. Haupt.PBFeld_8.Image = Slotbilder(Feld8)
    23. Haupt.PBFeld_9.Image = Slotbilder(Feld9)
    25. End Sub

    Ein Random pro Klasse ist genug. Befördere Zeile#3 aus der Sub raus.
    Wenn Du Deine PicBoxen in einer List(Of PictureBox) hättest, könntest Du sogar schreiben:

    VB.NET-Quellcode

    1. For Each PicBox In DeinePicBoxList
    2. DeinePicBoxList.Image = Slotbilder(Rnd.Next(Slotbilder.Length))
    3. Next

    Aber Moment mal. Was ist denn bitte Haupt? Ist das etwa der Name eines Formulars? Dann hoffentlich einer Instanz und nicht einer Klasse.
    Schau mal zur Sicherheit hier rein, um sicher zu gehen: Dialoge richtig instanziieren
    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.

    @Gurke258 In Deinem Code ist nicht gesichert, dass aller Bilder vorkommen!
    Feld1 ... Feld9 könnten im Prinzip alle identisch sein.
    Mach Dir ein Array mit den Werten 0...9 und hol Dir zufällig den nächsten Index raus (ist ein wenig tricky).
    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!

    RodFromGermany schrieb:

    In Deinem Code ist nicht gesichert, dass aller Bilder vorkommen!
    Muss ja auch nicht. Wie in Post#2 zu sehen ist, darf es Duplikationen geben. Nur innerhalb der drei Walzen jeweils nicht. Zumindest ist es m.E. bei "normalen" Spielautomaten so. Allerdings ist das wohl auch von des TEs Spielmodell abhängig, wo es Duplikationen geben darf und wo nicht. Denn das zufällige Auswählen von Bildern in einer Sub namens "Drehen" impliziert eine nichtkonstante Reihenfolge der Bilder auf einer Walze.
    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.

    VaporiZed schrieb:

    nichtkonstante Reihenfolge
    ist klar, aber Dubletten auf einer Walze darf es nicht geben.
    So wäre es ja möglich, dass ein "Dreier" nicht vorkommen kann, wenn die Bilder auf zwei Walzen disjunkt sind, und das wäre Betrug :!:
    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!

    Dafür gibt es ja den "Stern" der als "Platzhalter" dient... das heißt habe ich 2 Bananen und 1 Stern so habe ich trotzdem gewonnen, genauso wie 2 sterne und 1 Banane :) Bei 3 sternen in einer Reihe gibts nen Bonus :D

Facebook
Telefonspende