[es] - Mastermind igrica

GluppiUsername

Član broj: 284329
Poruke: 6
*.crnagora.net.

Profil

^{04.05.2011. u 16:53 - pre 158 meseci}

U igrici treba da "donosim" kuglice sa polja ponudjenih boja (lblColor0, ... lblColor7; koje su u nizu PicColors) do niza tipa PictureBox, i da sačuvam tu sliku gdje već korisnik dovuče.
Pošto mi prvo rešenje(1.rar) ne pravi kopiju već pomjera kliknutu labelu po prozoru (a to mi ne treba), to rešenje je malo modifikovano tako da prvo napravi kopiju te odabrane labele pa onda nju pomjera po prozoru. Ali mi kompajler javlja grešku :
Error 1 Handles clause requires a WithEvents variable defined in the containing type or one of its base types. (u 321. i 337 liniji koda)

Može li neko da mi kaže u čemu je problem?

Link za igricu

Odgovor na temu

GluppiUsername

Član broj: 284329
Poruke: 6
*.crnagora.net.

Profil

Re: Mastermind igrica

^{15.05.2011. u 19:24 - pre 157 meseci}

Ovaj problem odozgo je riješen, postaviću igricu kad je završim. Imam još jedno pitanje.
Treba da napravim program koji ce sam resavati kombinaciju kuglica za mastermind. Uglavnom, u svim algoritmima prvo treba da generisem sve permutacije(u mom slucaju sa ponavljanjem jer je moguce da se ponovi boja kuglice). I moje rešenje je bilo da napravim listu tipa List of Array i redom unosim generisane permutacije u listu. Ali ako koristim funkciju Insert(br,list) svi stari elementi liste dobiju vrijednost novog koji je umetnut.Evo kod:

Code:

    Function GenerateNextPermutation(ByRef order() As Integer)
        Dim i As Integer

        order(0) += 1

        For i = 0 To numColons - 1
            If order(i) < numColons Then
                Exit For
            Else
                If i = numColons - 1 Then
                    Return False
                End If

                order(i) = 0
                order(i + 1) += 1
            End If
        Next i

        Return True

    End Function

    Private Sub CreatePermutations(ByRef list As List(Of Array))

        ' Sve permutacije sa ponavljanjem ce se cuvati u jednoj listi
        ' lista je tipa Array of Integer

        Dim perm(), order(), init(), i As Integer
        ReDim init(numColons - 1)
        ReDim order(numColons - 1)
        ReDim perm(numColons - 1)

        For i = 0 To order.Length - 1
            order(i) = 0
        Next

        For i = 0 To perm.Length - 1
            init(i) = i
        Next

        Dim br As Integer

        For i = 0 To order.Length - 1
            perm(i) = init(order(i))
        Next
        list.Insert(br, perm)

        br += 1

        While GenerateNextPermutation(order)
            For i = 0 To order.Length - 1
                perm(i) = init(order(i))
            Next
            list.Insert(br, perm)
            br += 1
        End While

    End Sub

Odgovor na temu