[Problem] GUI się psuje

MrKris7100 · 1 Grudnia 2013

Witam zrobiłem sobie gierkę a raczej robię ją cały czas typu "slot machine" i mam z nią mały problemik.

Otóż po 65 (około) naciśnięciach guzika "start" (uruchamia losowanie) gui się "zacina" to znaczy obrazki się nie zmieniają, psują i pasek gui też się psuje? Nie wiem o co chodzi z tym prosiłbym o pomoc w załączniku gra z kodem. Jak by błąd nie wystąpił bo 65 kliknięciach niech ktoś klika dalej.

777.rar

Phoenix_PL · 2 Grudnia 2013

Po pierwsze to ten kod jest kompletnie do dupy. Tablice i pętle się kłaniają. Uporządkuj go to będzie działać, bo podejrzewam że problem tkwi w przeładowaniu pamięci. Zresztą, mała szansa że ci ktoś pomoże z tak pojebanym kodem w którym deklarujesz zmienne $xx1 do $xx20 zamiast zrobić tablic i używać pętli.

MrKris7100 · 2 Grudnia 2013

ohh przepraszam drogi hrabio za to że jestem początkujący i nie umiem robić innaczej i zacznij kurwa pomagać a nie hejtować...

hehe7 · 2 Grudnia 2013

Najlepiej jakbyś dodał kod do tematu w code i spojler jeśli długi bo tak to zniechęcasz trochę.

MrKris7100 · 2 Grudnia 2013

dałem w załączniku kod z pliczkami graficznymi tam 2/4 kodu zajmuje sprawdzanie i wyświetlanie wygranej lini więc każdy powinien się połapać...

Phoenix_PL · 2 Grudnia 2013

Jakbyś nie zauważył to właśnie ci pomogłem. Nie ma sensu pisania większych programów bez znajomości PODSTAWOWYCH rzeczy. Taka prawda.

Więc skończ hejtować, i naucz się czegoś. Nie zaszkodzi.

@down wszcząłbym flamewar i pośmiał z bólu dupska ale mam jakąś kulturę. I staram się przestrzegać regulaminu.

Tak więc trochę kultury w internetach. Nie wiesz kto siedzi po drugiej stronie.

A tak swoją drogą to i tak ktoś by ci to prędzej czy później powiedział, więc nie spinaj się tylko czasami posłuchaj mądrzejszych.

MrKris7100 · 3 Grudnia 2013

Jakbyś nie zauważył to właśnie ci pomogłem. Nie ma sensu pisania większych programów bez znajomości PODSTAWOWYCH rzeczy. Taka prawda.

Więc skończ hejtować, i naucz się czegoś. Nie zaszkodzi.

Ty sie nie udzielaj bo ciebie o zdanie nie pytam tylko pytam hehe7

MrKris7100 · 3 Grudnia 2013

Phoenix_PL Przepraszam za moje zachowanie ale trochę się zirytowałem... Co do swojej hipotezy miałeś rację. Z każdym kliknięciem start wzrasta użycie pamięci ram aż nie starcza ramu... czy pomógłbyś mi zoptymalizować skrypt żeby działał normalnie?

Na razie dałem na początek:

Local $slot[16]
Local $random[16]

I pozamieniałem wszystkie $rand-1-15 na $random[1-15] oraz $slot1-15 na $slot[1-15]

Co mam robić dalej??

hehe7 · 3 Grudnia 2013

$rand-1-15 na $random[1-15] oraz $slot1-15 na $slot[1-15]

Raczej chodziło o

For $x = 1 To 15

$rand[$x] =blabla

MrKris7100 · 3 Grudnia 2013

nie ma takiej opcji bo cały skrypt losowania wygląda tak żeby była szansa na powtórzenie się liczby (częstsze losowanie takiej samej):

$random[1] = Random(1,8,1)
                If $random[1] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[1] = 8
                    Else
                        $random[1] = Random(1,8,1)
                    EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[2] = $random[1]
                Else
                    $random[2] = Random(1,8,1)
                    If $random[2] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[2] = 8
                    Else
                        $random[2] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[3] = $random[2]
                Else
                    $random[3] = Random(1,8,1)
                    If $random[3] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[3] = 8
                    Else
                        $random[3] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[4] = $random[3]
                Else
                    $random[4] = Random(1,8,1)
                    If $random[4] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[4] = 8
                    Else
                        $random[4] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[5] = $random[4]
                Else
                    $random[5] = Random(1,8,1)
                    If $random[5] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[5] = 8
                    Else
                        $random[5] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[6] = $random[5]
                Else
                    $random[6] = Random(1,8,1)
                    If $random[6] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[6] = 8
                    Else
                        $random[6] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[7] = $random[6]
                Else
                    $random[7] = Random(1,8,1)
                    If $random[7] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[7] = 8
                    Else
                        $random[7] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[8] = $random[7]
                Else
                    $random[8] = Random(1,8,1)
                    If $random[8] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[8] = 8
                    Else
                        $random[8] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[9] = $random[8]
                Else
                    $random[9] = Random(1,8,1)
                    If $random[9] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[9] = 8
                    Else
                        $random[9] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[10] = $random[9]
                Else
                    $random[10] = Random(1,8,1)
                    If $random[10] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[10] = 8
                    Else
                        $random[10] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[11] = $random[10]
                Else
                    $random[11] = Random(1,8,1)
                    If $random[11] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[11] = 8
                    Else
                        $random[11] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[12] = $random[11]
                Else
                    $random[12] = Random(1,8,1)
                    If $random[12] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[12] = 8
                    Else
                        $random[12] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[13] = $random[12]
                Else
                    $random[13] = Random(1,8,1)
                    If $random[13] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[13] = 8
                    Else
                        $random[13] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[14] = $random[13]
                Else
                    $random[14] = Random(1,8,1)
                    If $random[14] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[14] = 8
                    Else
                        $random[14] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf
                If Random(1,9,1) = 7 Then
                    $random[15] = $random[14]
                Else
                    $random[15] = Random(1,8,1)
                    If $random[15] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[15] = 8
                    Else
                        $random[15] = Random(1,8,1)
                    EndIf
                EndIf
                EndIf

Jak przerobisz to na for jesteś koks

Phoenix_PL · 4 Grudnia 2013

Wrzuć randomy z drugim parametrem '9' do fora a $random[0-15] zamień na $random[$i] ($i to zmienna z fora).

MrKris7100 · 5 Grudnia 2013

W załączniku zoptymalizowana gra usunąłem ponad 400 linii i nadal występuje ten sam problem.

Dałem też randomy w for.
Mam nadzieje Phoenix_PL że teraz pomożesz...

777.rar

MrKris7100 · 8 Grudnia 2013

@ref

Betros · 8 Grudnia 2013

24h na dodanie skanu pliku

MrKris7100 · 8 Grudnia 2013

@up boshe nie pasuje to masz kod w spoilerze:

#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If FileRead("save.777") = 0 Then
    $money = 5000
Else
    $money = FileRead("save.777")
EndIf
Local $bet = 50
Local $state = "Wybierz stawkę"
Local $last_win
Local $slot[16]
Local $random[16]
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Goldent Sevens 777", 807, 568, 180, 124)
GUISetBkColor(0x000000)
$background = GUICtrlCreatePic("GFX\back.bmp", 0, 0, 806, 439)
GuiCtrlSetState(-1,$GUI_DISABLE)
$taskbar = GUICtrlCreatePic("GFX\taskbar.bmp", 0, 435, 806, 132)
GuiCtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetCursor (-1, 0)
$slot[1] = GUICtrlCreatePic("", 0, 0, 105, 105)
$slot[2] = GUICtrlCreatePic("", 176, 0, 105, 105)
$slot[3] = GUICtrlCreatePic("", 352, 0, 105, 105)
$slot[4] = GUICtrlCreatePic("", 528, 0, 105, 105)
$slot[5] = GUICtrlCreatePic("", 696, 0, 105, 105)
$slot[6] = GUICtrlCreatePic("", 0, 152, 105, 105)
$slot[7] = GUICtrlCreatePic("", 176, 152, 105, 105)
$slot[8] = GUICtrlCreatePic("", 352, 152, 105, 105)
$slot[9] = GUICtrlCreatePic("", 528, 152, 105, 105)
$slot[10] = GUICtrlCreatePic("", 696, 152, 105, 105)
$slot[11] = GUICtrlCreatePic("", 0, 304, 105, 105)
$slot[12] = GUICtrlCreatePic("", 176, 304, 105, 105)
$slot[13] = GUICtrlCreatePic("", 352, 304, 105, 105)
$slot[14] = GUICtrlCreatePic("", 528, 304, 105, 105)
$slot[15] = GUICtrlCreatePic("", 696, 304, 105, 105)
$stater = GUICtrlCreateLabel($state, 16, 448, 750, 41, $SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xE1E100)
GUICtrlSetBkColor(-1, 0x000000)
$cash = GUICtrlCreateLabel($money, 16, 528, 148, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xE1E100)
GUICtrlSetBkColor(-1, 0x000000)
$bet_plus = GUICtrlCreateButton("+", 176, 520, 33, 33)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$bet_minus = GUICtrlCreateButton("-", 328, 520, 33, 33)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$last = GUICtrlCreateLabel($last_win, 384, 528, 148, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xE1E100)
GUICtrlSetBkColor(-1, 0x000000)
$start = GUICtrlCreatePic("GFX\start_button.bmp",680,512,119,41)
GUICtrlSetCursor (-1, 0)
$better = GUICtrlCreateLabel($bet,220,528,100,17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xE1E100)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$n = 0

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $start
            ToolTip($n,0,0)
            $n += 1
            GUICtrlSetState($start,$GUI_DISABLE)
            GUICtrlSetState($bet_minus,$GUI_DISABLE)
            GUICtrlSetState($bet_plus,$GUI_DISABLE)
            $state = "Powodzenia!"
            GUICtrlSetData($stater,$state)
            If $bet > $money Then
                $state = "Masz za mało pieniędzy"
                GUICtrlSetData($stater,$state)
                GUICtrlSetState($start,$GUI_ENABLE)
                GUICtrlSetState($bet_minus,$GUI_ENABLE)
                GUICtrlSetState($bet_plus,$GUI_ENABLE)
            Else
                $money -= $bet
                $win = 0
                GUICtrlSetData($cash,$money)
                $random[1] = Random(1,8,1)
                If $random[1] = 8 Then
                    If Random(1,3,1) = 2 Then
                        $random[1] = 8
                    Else
                        $random[1] = Random(1,8,1)
                    EndIf
                EndIf
                For $i = 2 To 15
                    If Random(1,9,1) = 7 Then
                        $random[$i] = $random[$i - 1]
                    Else
                        $random[$i] = Random(1,8,1)
                        If $random[$i] = 8 Then
                            If Random(1,3,1) = 2 Then
                                $random[$i] = 8
                            Else
                                $random[$i] = Random(1,8,1)
                            EndIf
                        EndIf
                    EndIf
                Next
                For $i = 1 To 15
                    If $random[$i] = 8 Then $random[$i] = 15
                Next
                SoundPlay("SFX\slot.wav")
                For $i = 1 To 3
                    For $ii = 1 To 15
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    Sleep(70)
                Next
                GUICtrlSetImage($slot[1],"GFX\"&$random[1]&".bmp")
                GUICtrlSetImage($slot[6],"GFX\"&$random[6]&".bmp")
                GUICtrlSetImage($slot[11],"GFX\"&$random[11]&".bmp")
                For $i = 1 To 3
                    For $ii = 2 To 5
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    For $ii = 7 To 10
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    For $ii = 12 To 15
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    Sleep(70)
                Next
                GUICtrlSetImage($slot[2],"GFX\"&$random[2]&".bmp")
                GUICtrlSetImage($slot[7],"GFX\"&$random[7]&".bmp")
                GUICtrlSetImage($slot[12],"GFX\"&$random[12]&".bmp")
                For $i = 1 To 3
                    For $ii = 3 To 5
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    For $ii = 8 To 10
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    For $ii = 13 To 15
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    Sleep(70)
                Next
                GUICtrlSetImage($slot[3],"GFX\"&$random[3]&".bmp")
                GUICtrlSetImage($slot[8],"GFX\"&$random[8]&".bmp")
                GUICtrlSetImage($slot[13],"GFX\"&$random[13]&".bmp")
                For $i = 1 To 3
                    GUICtrlSetImage($slot[4],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    GUICtrlSetImage($slot[5],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    GUICtrlSetImage($slot[9],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    GUICtrlSetImage($slot[10],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    GUICtrlSetImage($slot[14],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    GUICtrlSetImage($slot[15],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Sleep(70)
                Next
                GUICtrlSetImage($slot[4],"GFX\"&$random[4]&".bmp")
                GUICtrlSetImage($slot[9],"GFX\"&$random[9]&".bmp")
                GUICtrlSetImage($slot[14],"GFX\"&$random[14]&".bmp")
                For $i = 1 To 3
                    For $ii = 5 To 15 Step 5
                        GUICtrlSetImage($slot[$ii],"GFX\"&StringReplace(Random(1,8,1),"8","15")&".bmp")
                    Next
                    Sleep(70)
                Next
                GUICtrlSetImage($slot[5],"GFX\"&$random[5]&".bmp")
                GUICtrlSetImage($slot[10],"GFX\"&$random[10]&".bmp")
                GUICtrlSetImage($slot[15],"GFX\"&$random[15]&".bmp")
                ;linia 1 -
                If $random[1] = $random[2] And $random[3] = $random[2] And $random[4] = $random[3] And $random[5] = $random[4] Then
                    $win += $random[1] * $bet * 3
                    Blink(1,2,3,4,5)
                ElseIf $random[1] = $random[2] And $random[2] = $random[3] And $random[4] = $random[3] Then
                    $win += $random[1] * $bet * 2
                    Blink(1,2,3,4)
                ElseIf $random[1] = $random[2] And $random[2] = $random[3] Then
                    $win += $random[1] * $bet
                    Blink(1,2,3)
                EndIf

                ;linia 2 -
                If $random[6] = $random[7] And $random[8] = $random[7] And $random[9] = $random[8] And $random[10] = $random[9] Then
                    $win += $random[6] * $bet * 3
                    Blink(6,7,8,9,10)
                ElseIf $random[6] = $random[7] And $random[8] = $random[7] And $random[9] = $random[8] Then
                    $win += $random[6] * $bet * 2
                    Blink(6,7,8,9)
                ElseIf $random[6] = $random[7] And $random[8] = $random[7] Then
                    $win += $random[6] * $bet
                    Blink(6,7,8)
                EndIf

                ;linia 3 -
                If $random[11] = $random[12] And $random[13] = $random[12] And $random[14] = $random[13] And $random[15] = $random[14] Then
                    $win += $random[11] * $bet * 3
                    Blink(11,12,13,14,15)
                ElseIf $random[11] = $random[12] And $random[13] = $random[12] And $random[14] = $random[13] Then
                    $win += $random[11] * $bet * 2
                    Blink(11,12,13,14)
                ElseIf $random[11] = $random[12] And $random[13] = $random[12] Then
                    $win += $random[11] * $bet
                    Blink(11,12,13)
                EndIf
                ;linia 4 \/
                If $random[1] = $random[7] And $random[13] = $random[7] And $random[9] = $random[13] And $random[5] = $random[9] Then
                    $win += $random[1] * $bet * 3
                    Blink(1,7,13,9,5)
                ElseIf $random[1] = $random[7] And $random[13] = $random[7] And $random[9] = $random[13] Then
                    $win += $random[1] * $bet * 2
                    Blink(1,7,13,9)
                ElseIf $random[1] = $random[7] And $random[13] = $random[7] Then
                    $win += $random[1] * $bet
                    Blink(1,7,13)
                EndIf
                ;linia 5 /\
                If $random[11] = $random[7] And $random[3] = $random[7] And $random[9] = $random[7] And $random[15] = $random[9] Then
                    $win += $random[11] * $bet * 3
                    Blink(11,7,3,9,15)
                ElseIf $random[11] = $random[7] And $random[3] = $random[7] And $random[9] = $random[7] Then
                    $win += $random[11] * $bet * 2
                    Blink(11,7,3,9)
                ElseIf $random[11] = $random[7] And $random[3] = $random[7] Then
                    $win += $random[11] * $bet
                    Blink(11,7,3)
                EndIf
                Sleep(200)
                If $win = 0 Then
                    $state = "Przegrałeś!"
                    GUICtrlSetData($stater,$state)
                Else
                    $state = "Wygrałeś: "&$win&"!"
                    GUICtrlSetData($stater,$state)
                    SoundPlay("SFX\win.wav")
                    $money += $win
                    $last_win = $win
                    GUICtrlSetData($last,$last_win)
                    GUICtrlSetData($cash,$money)
                EndIf
                GUICtrlSetState($start,$GUI_ENABLE)
                GUICtrlSetState($bet_minus,$GUI_ENABLE)
                GUICtrlSetState($bet_plus,$GUI_ENABLE)
                FileDelete("save.777")
                FileWrite("save.777",$money)
            EndIf
        Case $bet_plus
            $bet += 50
            GUICtrlSetData($better,$bet)
            SoundPlay("SFX\bet.wav")
        Case $bet_minus
            $bet -= 50
            If $bet = 0 Then
                $bet += 50
            Else
                SoundPlay("SFX\bet.wav")
            EndIf
            GUICtrlSetData($better,$bet)
    EndSwitch
WEnd

Func Blink($FuncLine1,$FuncLine2,$FuncLine3,$FuncLine4 = "",$FuncLine5 = "")
    If @NumParams = 5 Then
        For $i = 1 To 3
            GUICtrlSetImage($slot[$FuncLine1],"")
            GUICtrlSetImage($slot[$FuncLine2],"")
            GUICtrlSetImage($slot[$FuncLine3],"")
            GUICtrlSetImage($slot[$FuncLine4],"")
            GUICtrlSetImage($slot[$FuncLine5],"")
            Sleep(400)
            GUICtrlSetImage($slot[$FuncLine1],"GFX\"&$random[$FuncLine1]&".bmp")
            GUICtrlSetImage($slot[$FuncLine2],"GFX\"&$random[$FuncLine2]&".bmp")
            GUICtrlSetImage($slot[$FuncLine3],"GFX\"&$random[$FuncLine3]&".bmp")
            GUICtrlSetImage($slot[$FuncLine4],"GFX\"&$random[$FuncLine4]&".bmp")
            GUICtrlSetImage($slot[$FuncLine5],"GFX\"&$random[$FuncLine5]&".bmp")
            Sleep(400)
        Next
    ElseIf @NumParams = 4 Then
        For $i = 1 To 3
            GUICtrlSetImage($slot[$FuncLine1],"")
            GUICtrlSetImage($slot[$FuncLine2],"")
            GUICtrlSetImage($slot[$FuncLine3],"")
            GUICtrlSetImage($slot[$FuncLine4],"")
            Sleep(400)
            GUICtrlSetImage($slot[$FuncLine1],"GFX\"&$random[$FuncLine1]&".bmp")
            GUICtrlSetImage($slot[$FuncLine2],"GFX\"&$random[$FuncLine2]&".bmp")
            GUICtrlSetImage($slot[$FuncLine3],"GFX\"&$random[$FuncLine3]&".bmp")
            GUICtrlSetImage($slot[$FuncLine4],"GFX\"&$random[$FuncLine4]&".bmp")
            Sleep(400)
        Next
    ElseIf @NumParams = 3 Then
        For $i = 1 To 3
            GUICtrlSetImage($slot[$FuncLine1],"")
            GUICtrlSetImage($slot[$FuncLine2],"")
            GUICtrlSetImage($slot[$FuncLine3],"")
            Sleep(400)
            GUICtrlSetImage($slot[$FuncLine1],"GFX\"&$random[$FuncLine1]&".bmp")
            GUICtrlSetImage($slot[$FuncLine2],"GFX\"&$random[$FuncLine2]&".bmp")
            GUICtrlSetImage($slot[$FuncLine3],"GFX\"&$random[$FuncLine3]&".bmp")
            Sleep(400)
        Next
    EndIf
EndFunc

Phoenix_PL · 8 Grudnia 2013

Zrób konkretny debug, sprawdzaj wartości wszystkich zmiennych które się zmieniają podczas tego klikania, może tam tkwi problem

(powstawiaj msgboxy w których wyświetlisz wartości zmiennych w kluczowe części kodu)

MrKris7100 · 8 Grudnia 2013

Wszystkie dane zmiennych są prawidłowe. Nie mam pojęcia co jest nie tak...

MrKris7100 · 10 Grudnia 2013

@ref

Betros · 11 Grudnia 2013

24h na dodanie skanu pliku

Brak .

Zaloguj się

👋 Witaj na MPCForum!

[Problem] GUI się psuje

Rekomendowane odpowiedzi

Zarchiwizowany