Hjälp med VB 2008 (Memoryspel)
Hej jag har gjort ett memoryspel, nu vill jag lösa de mindre problemen som ändå är svåra att lösa. Jag har ett Form med ett antal knappar från början. När jag klickar på en av dem knapparna som det står "Normal" på så skapar den 48 st dynamiska knappar och varandra knapp får en viss bild som styrs av en randommetod. Om man klickar på två stycken knappar med samma bild så blir dem båda visible = false. När alla dessa dynamiska knappar har försvunnit så kommer man tbx till form. När man klickar på "Normal" igen så har alla knappar samma bilder som dem hade innan.
Hur löser jag detta problem?
Ska jag skriva någon kod som stänger av och sätter på programmet direkt efter alla knappar är borta eller hur ska jag göra? Eller ska jag ändra koden i min randommetod?
Här får ni koden:
Dim nummer(48), r, o As Integer
Dim RND As New Random
Dim Avsluta As Boolean = False
Private Sub Randomfunk(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Avsluta = False Then
If nummer(r) = nummer(o) And r <> o Then
nummer(r) = Int(RND.Next(1, 49))
o = 0
Else
If o = 48 And r <> 48 Then
o = 0
r = r + 1
ElseIf o <> 48 Then
o = o + 1
ElseIf o = 48 And r = 48 Then
Avsluta = True
End If
End If
Call Randomfunk(sender, e)
End If
End Sub
