[Problem] Problem z pętlą

.old · 5 Października 2013

Siema. Robię programik i niestety, ale natknąłem się na pewien problem. Zrobiłem GUI i w nim są checkboxy. Zaczynam dopiero przypisywać pod nie funkcje więc na razie zrobiłem tylko pod pierwszy checkbox. Mniej więcej tak przypisuje funkcje chackboxowi:

Case $msg = $checkbox1

While 1

..mój kod..

WEnd

Tych checkboxów mam 20 i gdy wybiorę inny, to program nadal robi to, co jest przypisane $checkbox1, czyli ..mój kod.. :/ Mi chodzi o to, że jeżeli zaznaczę np. checkbox 1 to kod przypisywany checkbox 1 będzie cały czas działać (jak while 1) a gdy wybiorę np. checkbox nr. 17 to wtedy ten checkbox 1 zatrzymuje się i zaczyna działać ten checkbox 17. I potem zaznaczam np. 14 i "wyłącza się" checkbox 17 a włącza się 14 itp. Nie wiem jak to zrobić dlatego potrzebuje pomocy :P

kaje11 · 5 Października 2013

Użyj guiCtrlCreateRadio i w pętli daj if guiCtrlRead( $radio ) Then.

.old · 5 Października 2013

@UP: Zmieniłem i teraz wyskakuje mi błąd "Variable used without being declared." i pokazało, że błąd jest w $radio [if GUICtrlRead($radio) Then].

Jak coś mam 20 checkboxów i każdy ma inną cyfrę (bo będę pod nie robić każdy Case z osobna) $checkbox[cyfra] np. $checkbox1 = GUICtrl..

kaje11 · 5 Października 2013

... Zamiast checkboxów zrób radio. Radio to wybór JEDNEJ opcji, a checkbox wielu.

Zamień guiCtrlCreateCheckbox na guiCtrlCreateRadio i potem pod GUI, w loopie, pod switchem (usuń tamto case z checkboxem) dodaj coś takiego:

if guiCtrlRead( $radio1 ) Then

cos tam cos tam

elseif guiCtrlRead( $radio2 ) Then

cos tam cos tam

endIf

.old · 5 Października 2013

Ups.. Jednak od początku miałem tam GUICtrlCreateRadio ^_^ Nie o to mi chodziło ponieważ mój kod gdy wkleję go pod case wymaga pętli. Bez pętli po prostu zwyczajnie nic się nie dzieje. Zrobiłem to tak jak napisałeś i działa to jakby nie było pętli.

Oto wycinek jednego z Case:

Case $msg = $radio1
While 1
Sleep(120)
If _IsPressed(54, $DLL) Then
Sleep(50)
Send("tekst")
EndIf
WEnd

I każdy inny case, który stworze to po prostu inny tekst w
Send. w/w kod wymaga pętli niestety i przez tą pętle reszta programu
"laguje się" a wykonywana jest tylko pętla. A mi chodzi, że jak zaznaczę
GUICtrlCreateRadio, to wtedy działa to jak powinno a gdy zaznaczę inny GUICtrlCreateRadio to wykona się przypisany mu skrypt.

kaje11 · 5 Października 2013

Mówiłem, żebyś nie używał case dla radio.

while 1
    guigetmsg..
    switch..
        case..
    endswitch


    if guiCtrlRead( $radio1 ) Then
        while guiCtrlRead( $radio1 )
            ...
            send( "shiet" )
            ...
        wEnd
    elseif guiCtrlRead( $radio2 ) Then
        while...


    endIf
wend

.old · 5 Października 2013

Zrobiłem to tak teraz:

	If GUICtrlRead($radio1) Then
			While GUICtrlRead($radio1)
		Sleep(120)
		If _IsPressed(54, $DLL) Then
		Sleep(50)
		Send("tekst1")
		EndIf
			WEnd
	
	ElseIf GUICtrlRead($radio2) Then
			While GUICtrlRead($radio2)
		Sleep(120)
		If _IsPressed(54, $DLL) Then
		Sleep(50)
		Send("tekst2")
		EndIf
			WEnd
    EndIf

I gdy nawet nie zaznaczę żadnego radio, to wpisuje się tekst "tekst1". Gdy zaznaczę inne radio, to też bez zmian chociaż przypisałem również pod niego. A może znów błąd mam? I jak coś jeszcze w tym kodzie co podałem jest While 1

kaje11 · 5 Października 2013

Zamień: GUICtrlRead
Na:_IsChecked
I dodaj gdzieś niżej:

Func _IsChecked($control)
    return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

.old · 5 Października 2013

Teraz działa ^_^ Wielkie THX !!! Zrobiłem to pod wszystkie radia i wszystko poprawnie działa Tematu proszę jeszcze nie zamykać ponieważ nigdy nie wiadomo czy w późniejszym czasie z czymś sobie nie poradzę

.old · 8 Października 2013

Pojawił się kolejny problem :/ Wszystko w programie już fajnie działa (po mojej myśli) ale:

Gdy zaznaczę jakiś checkbox, to wtedy cały program "laguje się" tzn. Zaznaczę checkbox i nic poza zaznaczeniem kolejnego checkboxa nic nie mogę zrobić. Chciałbym, aby program działał przez cały czas, a nie jeśli zaznaczę jakiś checkbox to muszę wyłączać go przez Menedżer zadań :C

hehe7 · 8 Października 2013

Nie wiem jak teraz wygląda twój kod ale może to być spowodowane tym że program nie wraca do podstawowej pętli = ten który obsługuje buttony,checkboxy i przycisk wyjścia. Lub zapętla się gdzieś.

.old · 8 Października 2013

@UP: Z pewnością dlatego. Wiesz może jak zrobić by skrypt wracał do tej podstawowej pętli? Może bardziej to opisze:

Gdy zaznaczę checkbox, a jego kod to:

	If _IsChecked($radio1) Then
			While GUICtrlRead($radio1)
		Sleep(120)
		If _IsPressed(54, $DLL) Then
		Sleep(50)
		Send("tekst1")
		EndIf
			WEnd

To po kliknięciu na checkbox mogę również kliknąć inny checkbox (bo kod do innego checkboxa jest identyczny jak powyżej), ale gdy chcę na coś innego kliknąć (w sumie reszta programu z wyjątkiem checkboxów [np. kliknąć button, wyłączyć program z X]) to tego już nie mogę. Program muszę wyłączać przez Menedżera zadań bo inaczej po prostu się nie da.

hehe7 · 8 Października 2013

Tak to ciężko coś zrobić. Checkboxy są "blokadą"?

Takie coś? Trudno jest mi coś zrobić nie wiedząc jak to ma wyglądać i jak to ma działać- jaką funkcje pełnić.

	If _IsChecked($radio1) And _IsPressed(54, $DLL) Then
		Send("tekst1")
			EndIf

If _IsPressed(54, $DLL) Then
If IsChecked($radio1) Then
        Send("tekst1")
            EndIf
            EndIf

W sumie to co napisałem jest bezsensu.

.old · 9 Października 2013

Więc tak:

Poprzedni skrypt:

	If _IsChecked($radio1) Then
			While _IsChecked($radio1)
		Sleep(120)
		If _IsPressed(54, $DLL) Then
		Sleep(50)
		Send("tekst1")
		EndIf

Zmieniłem dzięki Tobie na:

	If _IsChecked($radio1) And _IsPressed(54, $DLL) Then
			While _IsChecked($radio1)
		Sleep(170)
		Send("tekst1")
			WEnd

I teraz: Gdy kliknę na checkbox to tak, mogę normalnie klikać inne elementy GUI. Ale gdy wpiszę klawisz T (funkcja _IsPressed) to wtedy tekst1 wpisuje się w kółko i nic nie mogę kliknąć na GUI. A jeszcze to co napisałeś drugie to przerobiłem na:

If _IsPressed(54, $DLL) Then
If IsChecked($radio1) Then
        Send("tekst1")
            EndIf
            EndIf

I gdy zaznaczę checkbox i kliknę T, to wyskakuje error.

Amfetaminek · 9 Października 2013

AdlibRegister - poszukaj sobie info
A laguje gdyż usypiasz całą główną pętle
Do tej pętli raczej sleep nie pasuję

Ewentualnie proponuję zrobić kilka funkcji z pętlami a w głównej pętli tylko

IF szotamkombinujemy then
adlibregister lub func ?
endif

kaje11 · 9 Października 2013

Najprostszy fix - zamień Sleep między while _isChecked, a wend na iSleep dodając po przecinku dane $radio (isleep( 100, $radio1)) i dodaj na dole:

Func iSleep( $iDelay, $Radio )
    Local $iBegin = TimerInit()
    Do
        Sleep(10)
        
        If _IsChecked( $Radio )  <> 1 Then Return False
        
    Until TimerDiff($iBegin) > $iDelay
    Return True
endFunc

Amfetaminek · 9 Października 2013

Najprostszy fix - zamień Sleep między while _isChecked, a wend na iSleep dodając po przecinku dane $radio (isleep( 100, $radio1)) i dodaj na dole:
Func iSleep( $iDelay, $Radio )
    Local $iBegin = TimerInit()
    Do
        Sleep(10)
        
        If _IsChecked( $Radio )  <> 1 Then Return False
        
    Until TimerDiff($iBegin) > $iDelay
    Return True
endFunc
 

Troszkę mu zakręcisz w głowię

kaje11 · 9 Października 2013

Troszkę mu zakręcisz w głowię

Najłatwiejsze rozwiązanie. AdlibRegister jest najlepszym wyjściem, ale to flagi + funkcje do nauki, a sądząc po poprzednich postach, ten użytkownik jest początkującym.

Szybko zerkając do góry:

If _IsPressed(54, $DLL) Then
If IsChecked($radio1) Then
        Send("tekst1")
            EndIf
            EndIf

Pokazuje błąd jednoznacznie stwierdzający brak funkcji IsChecked. Jak ona brzmi w oryginale? _IsChecked. Pamiętaj o tym.

Amfetaminek · 9 Października 2013

Najłatwiejsze rozwiązanie. AdlibRegister jest najlepszym wyjściem, ale to flagi + funkcje do nauki, a sądząc po poprzednich postach, ten użytkownik jest początkującym.

Szybko zerkając do góry:
If _IsPressed(54, $DLL) Then
If IsChecked($radio1) Then
Send("tekst1")
EndIf
EndIf
Pokazuje błąd jednoznacznie stwierdzający brak funkcji IsChecked. Jak ona brzmi w oryginale? _IsChecked. Pamiętaj o tym.

Więc właśnie o tym samym mówimy
Tylko nie rzucaj mu takiej ilości materiału post za postem
Niechaj podrasuje swoje umiejętności w jednym

Co do samego autora
google + autoit +wikibook
To co piszę kaje11 lub inni jest dobre.
To że ty to robisz źle jest tylko błędem źle zinterpretowanych informacji jakie posiadasz
Gdyż my podsuwamy opcje jakie możesz wykorzystać...
Nie będziemy Ci pisać całego skryptu bo to się mija z celem tego działu
Wiec skoro masz info o " AdlibRegister " poszukaj sobie..
Autoit wikibook jest po polsku więc nie ma żadnych przeciwwskazań byś sobie tam zaglądnął.

Nie staraj się zrobić !
Postaraj się zrozumieć

.old · 9 Października 2013

No dobrze - Macie rację, że jestem początkującym (od 2 lat?). Po prostu prosty programik z jakimś GUI, funkcjami podstawowymi umiem zrobić, ale "głębiej" to niestety nie umiem :/ Niedawno temu też wróciłem więc niedługo popróbuję poczytać, metodą prób i błędów (jak i na logikę) umieścić w skrypcie podane przez was przykłady. Wiem też, że muszę prędzej czy później się tego pouczyć, ale teraz zabrałem się (według siebie) za największy projekt, program jaki w ogóle zrobiłem. Wcześniej to tylko jakieś GUI, coś pod Case lub Func i tyle.

Także dzięki, że próbujecie mi pomóc i popróbuje za niedługo ulepszyć skrypt

Amfetaminek · 9 Października 2013

Porady dla Cb:)
Metoda prób i błędów 100% racji. Lubię to
Wrzuć może cały skrypt z komentarzami wyglądającymi tak:

Msgbox <------------Co to kur jest ?

Coś w tym stylu a później weź nasze rady.

Wstaw je zobacz jak działa.
Jeżeli dużo się nie zmieniło to wstaw tylko ten element.
Jeżeli zmieniłeś sporo lepiej wrzuć całość

Wikibook jak mówiłem po polsku sam się na tym szkolę.
Mimo że nie jestem profesjonalistą myślę że te rady na pewno ułatwią tobie naukę

.old · 10 Października 2013

Najłatwiejsze rozwiązanie. AdlibRegister jest najlepszym wyjściem, ale to flagi + funkcje do nauki, a sądząc po poprzednich postach, ten użytkownik jest początkującym.

Szybko zerkając do góry:
If _IsPressed(54, $DLL) Then
If IsChecked($radio1) Then
        Send("tekst1")
            EndIf
            EndIf
Pokazuje błąd jednoznacznie stwierdzający brak funkcji IsChecked. Jak ona brzmi w oryginale? _IsChecked. Pamiętaj o tym.

Masz rację Dodałem _ i teraz Send("tekst1") wpisuje się tylko wtedy, gdy kliknę T, to ten tekst "tekst1" się wpisuje i programem już da się obsługiwać (o to właśnie chodziło) jesteś wielki! Niedługo również podszkolę swoje umiejętności, bo stoję na zrobieniu GUI i podstawowych funkcji.

Zaloguj się

👋 Witaj na MPCForum!

[Problem] Problem z pętlą

Rekomendowane odpowiedzi

Zarchiwizowany