[Pomoc] Gui

tk371 · 23 Grudnia 2010

Chciałbym aby w moim GUI po zaznaczeniu jakiejś opcji ($Radio) pojawiała się kolejna i tak dalej, ale żeby także opcje znikały po zaznaczeniu innego pola $Radio.

Prosiłbym o link do tutorialu, napisanie jakiegoś przykładowego kodu (prościej - edytować spoiler) lub chociaż napisanie przykładu co mam dopisać.

Jak można to też chciałbym wiedzieć jak pobrać jako zmienną do programu to co wpisałem w jakimś inpucie.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("xxx", 625, 443, 192, 124)
$Label1 = GUICtrlCreateLabel("yyy", 8, 8, 128, 17)
$Radio1 = GUICtrlCreateRadio("1", 16, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("2", 16, 40, 113, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
EndSwitch
WEnd

lokuxd · 23 Grudnia 2010

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("xxx", 625, 443, 192, 124)
$Label1 = GUICtrlCreateLabel("yyy", 8, 8, 100, 17)
$Radio1 = GUICtrlCreateRadio("1", 16, 24, 100, 17)
$Radio2 = GUICtrlCreateRadio("2", 16, 40, 100, 17)
$butek = GUICtrlCreateButton("pokazal sie:P", 16, 60, 113, 17)
GUICtrlSetState($butek, $GUI_HIDE)
$inp = GUICtrlCreateInput("text", 120, 20, 100, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Radio1
		GUICtrlSetState($butek, $GUI_SHOW)
	Case $Radio2
		GUICtrlSetState($butek, $GUI_HIDE)

EndSwitch
ToolTip(GUICtrlRead($inp))
WEnd

bedzie +?:P

tk371 · 23 Grudnia 2010

Będzie nawet 5* - dzięki

Rand: 5* na profilu -.-

Rand · 23 Grudnia 2010

5 raz minus ?

tk371 · 29 Grudnia 2010

Ale pojawił się problem:

Czemu nie tworzy mi się pole input?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kalkulator Fizyczny - Gimnazjum", 402, 466, 200, 126)
$Group1 = GUICtrlCreateGroup("Wybierz co masz policzyć:", 8, 8, 385, 168)
$Radio1 = GUICtrlCreateRadio("Prędkość - V", 16, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("Droga - s", 16, 40, 113, 17)
$Radio3 = GUICtrlCreateRadio("Czas - t", 136, 24, 113, 17)
$Radio4 = GUICtrlCreateRadio("Przyspieszenie - a", 136, 40, 113, 17)
$Radio5 = GUICtrlCreateRadio("Okres - T", 16, 56, 113, 17)
$Radio6 = GUICtrlCreateRadio("Siła - F", 136, 56, 113, 17)
$Radio7 = GUICtrlCreateRadio("Masa - m", 16, 72, 113, 17)
$Radio8 = GUICtrlCreateRadio("Pęd - p", 136, 72, 113, 17)
$Radio9 = GUICtrlCreateRadio("Siła ciężkosci - Q", 16, 88, 113, 17)
$Radio10 = GUICtrlCreateRadio("Praca - W", 136, 88, 113, 17)
$Radio11 = GUICtrlCreateRadio("Moc - P", 16, 104, 113, 17)
$Radio12 = GUICtrlCreateRadio("Gęstosc - d", 136, 104, 113, 17)
$Radio13 = GUICtrlCreateRadio("Napięcie el. - U", 256, 72, 113, 17)
$Radio14 = GUICtrlCreateRadio("Natężenie el. - I", 256, 88, 113, 17)
$Radio15 = GUICtrlCreateRadio("Siła Coulumba", 256, 40, 113, 17)
$Radio16 = GUICtrlCreateRadio("Opór el. - R", 256, 56, 113, 17)
$Radio17 = GUICtrlCreateRadio("Długość fali", 256, 24, 113, 17)
$Radio18 = GUICtrlCreateRadio("", 256, 104, 113, 17)
$Radio19 = GUICtrlCreateRadio("", 16, 120, 113, 17)
$Radio20 = GUICtrlCreateRadio("", 136, 120, 113, 17)
$Radio21 = GUICtrlCreateRadio("", 256, 120, 113, 17)
$Radio22 = GUICtrlCreateRadio("", 16, 136, 113, 17)
$Radio23 = GUICtrlCreateRadio("", 136, 136, 113, 17)
$Radio24 = GUICtrlCreateRadio("", 256, 136, 113, 17)
$Radio25 = GUICtrlCreateRadio("", 16, 152, 113, 17)
$Radio26 = GUICtrlCreateRadio("", 136, 152, 113, 17)
$Radio27 = GUICtrlCreateRadio("", 256, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Wybierz wzór:", 8, 176, 385, 105)
$Group3 = GUICtrlCreateGroup("Wprowadź dane:", 8, 288, 385, 113)
$Button1 = GUICtrlCreateButton("Wynik!", 8, 408, 387, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Radio1
		fRadio1()
EndSwitch
WEnd
Func fRadio1()
$Radio28 = GUICtrlCreateRadio("v=s/t", 16, 192, 113, 17)
		GUICtrlSetState($Radio28, $GUI_SHOW)
		Switch $nMsg
			Case $Radio28
				$Label1 = GUICtrlCreateLabel("s", 16, 304, 100, 17)
				$Input1 = GUICtrlCreateInput("0", 120, 304, 65, 21)
				$Label2 = GUICtrlCreateLabel("t", 216, 304, 100, 17)
				$Input2 = GUICtrlCreateInput("0", 320, 304, 65, 21)
				GUICtrlSetState($Label1, $GUI_SHOW)
				GUICtrlSetState($Input1, $GUI_SHOW)
				GUICtrlSetState($Label2, $GUI_SHOW)
				GUICtrlSetState($Input2, $GUI_SHOW)
			Case Not $Radio28
				GUICtrlSetState($Label1, $GUI_HIDE)
				GUICtrlSetState($Input1, $GUI_HIDE)
				GUICtrlSetState($Label2, $GUI_HIDE)
				GUICtrlSetState($Input2, $GUI_HIDE)
		EndSwitch
EndFunc

I wersja mniej obkrojona:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kalkulator Fizyczny - Gimnazjum", 402, 466, 200, 126)
$Group1 = GUICtrlCreateGroup("Wybierz co masz policzyć:", 8, 8, 385, 168)
$Radio1 = GUICtrlCreateRadio("Prędkość - V", 16, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("Droga - s", 16, 40, 113, 17)
$Radio3 = GUICtrlCreateRadio("Czas - t", 136, 24, 113, 17)
$Radio4 = GUICtrlCreateRadio("Przyspieszenie - a", 136, 40, 113, 17)
$Radio5 = GUICtrlCreateRadio("Okres - T", 16, 56, 113, 17)
$Radio6 = GUICtrlCreateRadio("Siła - F", 136, 56, 113, 17)
$Radio7 = GUICtrlCreateRadio("Masa - m", 16, 72, 113, 17)
$Radio8 = GUICtrlCreateRadio("Pęd - p", 136, 72, 113, 17)
$Radio9 = GUICtrlCreateRadio("Siła ciężkosci - Q", 16, 88, 113, 17)
$Radio10 = GUICtrlCreateRadio("Praca - W", 136, 88, 113, 17)
$Radio11 = GUICtrlCreateRadio("Moc - P", 16, 104, 113, 17)
$Radio12 = GUICtrlCreateRadio("Gęstosc - d", 136, 104, 113, 17)
$Radio13 = GUICtrlCreateRadio("Napięcie el. - U", 256, 72, 113, 17)
$Radio14 = GUICtrlCreateRadio("Natężenie el. - I", 256, 88, 113, 17)
$Radio15 = GUICtrlCreateRadio("Siła Coulumba", 256, 40, 113, 17)
$Radio16 = GUICtrlCreateRadio("Opór el. - R", 256, 56, 113, 17)
$Radio17 = GUICtrlCreateRadio("Długość fali", 256, 24, 113, 17)
$Radio18 = GUICtrlCreateRadio("", 256, 104, 113, 17)
$Radio19 = GUICtrlCreateRadio("", 16, 120, 113, 17)
$Radio20 = GUICtrlCreateRadio("", 136, 120, 113, 17)
$Radio21 = GUICtrlCreateRadio("", 256, 120, 113, 17)
$Radio22 = GUICtrlCreateRadio("", 16, 136, 113, 17)
$Radio23 = GUICtrlCreateRadio("", 136, 136, 113, 17)
$Radio24 = GUICtrlCreateRadio("", 256, 136, 113, 17)
$Radio25 = GUICtrlCreateRadio("", 16, 152, 113, 17)
$Radio26 = GUICtrlCreateRadio("", 136, 152, 113, 17)
$Radio27 = GUICtrlCreateRadio("", 256, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Wybierz wzór:", 8, 176, 385, 105)
$Radio28 = GUICtrlCreateRadio("", 16, 192, 113, 17)
$Radio29 = GUICtrlCreateRadio("", 136, 192, 113, 17)
$Radio30 = GUICtrlCreateRadio("", 256, 192, 113, 17)
$Radio31 = GUICtrlCreateRadio("", 16, 224, 113, 17)
$Radio32 = GUICtrlCreateRadio("", 136, 224, 113, 17)
$Radio33 = GUICtrlCreateRadio("", 256, 224, 113, 17)
$Radio34 = GUICtrlCreateRadio("", 16, 256, 113, 17)
$Radio35 = GUICtrlCreateRadio("", 136, 256, 113, 17)
$Radio36 = GUICtrlCreateRadio("", 256, 256, 113, 17)
GUICtrlSetState($Radio28, $GUI_HIDE)
GUICtrlSetState($Radio29, $GUI_HIDE)
GUICtrlSetState($Radio30, $GUI_HIDE)
GUICtrlSetState($Radio31, $GUI_HIDE)
GUICtrlSetState($Radio32, $GUI_HIDE)
GUICtrlSetState($Radio33, $GUI_HIDE)
GUICtrlSetState($Radio34, $GUI_HIDE)
GUICtrlSetState($Radio35, $GUI_HIDE)
GUICtrlSetState($Radio36, $GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Wprowadź dane:", 8, 288, 385, 113)
$Label1 = GUICtrlCreateLabel("", 16, 304, 100, 17)
$Input1 = GUICtrlCreateInput("", 120, 304, 65, 21)
$Label2 = GUICtrlCreateLabel("", 216, 304, 100, 17)
$Input2 = GUICtrlCreateInput("", 320, 304, 65, 21)
$Input3 = GUICtrlCreateInput("", 120, 336, 65, 21)
$Input4 = GUICtrlCreateInput("", 320, 336, 65, 21)
$Input5 = GUICtrlCreateInput("", 120, 368, 65, 21)
$Input6 = GUICtrlCreateInput("", 320, 368, 65, 21)
$Label3 = GUICtrlCreateLabel("", 16, 336, 100, 17)
$Label4 = GUICtrlCreateLabel("", 216, 336, 100, 17)
$Label5 = GUICtrlCreateLabel("", 16, 368, 100, 17)
$Label6 = GUICtrlCreateLabel("", 216, 368, 100, 17)
GUICtrlSetState($Label1, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Label2, $GUI_HIDE)
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Label3, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_HIDE)
GUICtrlSetState($Input4, $GUI_HIDE)
GUICtrlSetState($Label5, $GUI_HIDE)
GUICtrlSetState($Input5, $GUI_HIDE)
GUICtrlSetState($Label6, $GUI_HIDE)
GUICtrlSetState($Input6, $GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Wynik!", 8, 408, 387, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Radio1
		fRadio1()
	Case Not $Radio1
		GUICtrlSetState($Radio28, $GUI_HIDE)
EndSwitch
WEnd
Func fRadio1()
$Radio28 = GUICtrlCreateRadio("v=s/t", 16, 192, 113, 17)
		GUICtrlSetState($Radio28, $GUI_SHOW)
		Switch $nMsg
			Case $Radio28
				$Label1 = GUICtrlCreateLabel("s", 16, 304, 100, 17)
				$Input1 = GUICtrlCreateInput("0", 120, 304, 65, 21)
				$Label2 = GUICtrlCreateLabel("t", 216, 304, 100, 17)
				$Input2 = GUICtrlCreateInput("0", 320, 304, 65, 21)
				GUICtrlSetState($Label1, $GUI_SHOW)
				GUICtrlSetState($Input1, $GUI_SHOW)
				GUICtrlSetState($Label2, $GUI_SHOW)
				GUICtrlSetState($Input2, $GUI_SHOW)
			Case Not $Radio28
				GUICtrlSetState($Label1, $GUI_HIDE)
				GUICtrlSetState($Input1, $GUI_HIDE)
				GUICtrlSetState($Label2, $GUI_HIDE)
				GUICtrlSetState($Input2, $GUI_HIDE)
		EndSwitch
EndFunc

Chcę się zabrać za kalkulator fizyczny (z uwagi na święta wstrzymałem prace)

C.J · 29 Grudnia 2010

Heh po co ci tyle tego ?? Opcja' For...to ' jest lepsza niż robienie 30 $radio...

4ggr35510n · 29 Grudnia 2010

Masz źle napisany kod.

GuiGetMsg() powinieneś stosować w jednym i tylko _wyłącznie_ jednym miejscu w całym programie, mianowicie w głównej pętli.

Funkcja fRadio1() tworzy przycisk radio, i od razu sprawdza, czy użytkownik nie podjął żadnej akcji nad nim.

Odstęp między stworzeniem a sprawdzeniem MSG z tego radio to jakieś kilka milisekund. Nikt nie podejmie akcji w takim odstępie.

Zresztą już nigdy więcej akcja na Radio28 nie zostanie sprawdzona.

Musisz Case $Radio28 dorzucić do głównej pętli.

Pozatym, MSG do gui są wysyłane co jakieś 30 milisekund. Łatwo to sprawdzić za pomocą

GuiCreate()
GuiSetState()
While True 
ConsoleWrite(GuiGetMsg() & @CRLF)
WEnd

Więc wszelkie case'y typu

Case Not $zmienna

w głównej pętli GuIGetMsg() są całkowicie bezsensowne, bo co chwila dostarczane jest tysiące notyfikacji ( o myszy wewnętrz gui, o przejściu myszy poza gui, o utracie focusa, o odzyskaniu focusa, o kliknięciu w część NonClient okna... i tak dalej i tym podobnej ), że praktycznie co chwila zostanie wykonany warunek i wszystko zniknie.

tk371 · 29 Grudnia 2010

No dobrze, ale te zaprzeczenie wg. mnie jest potrzebne - chodzi mi o to, aby w kolejnych grupach wyświetlało się to dopóki będzie zaznaczone w grupie nadrzędnej.

Ale dzięki za pomoc z tym wrzuceniem do głównej pętli - jak czytam to co napisałeś wydaje się logiczne

MrDeska: Ale for nie będzie mi zmieniał pozycji w gui - no chyba, że jest jakaś wyższa szkoła jazdy do tej pętli.

@EDIT:

Tak po głębszym przemyśleniu to jeśli zaprzeczenia dotyczące 3-ciej grupy (te labele i inputy) wrzucę do pętli głównej to będę miał problem, bo to co pisał 4ggr3550r okazało się prawdą (z tym wysyłaniem msg do gui). Wpadło coś komuś do głowy jak rozwiązać ten problem (chcę, aby po zaznaczeniu innej opcji w dolnych grupach "odpowiedzi" związanie z poprzednią znikały, ale także pozwalały na pojawienie się kolejnych)? Zmiany nazw zmiennych i dodanie nowych rozwiązałyby problem, ale czy jest coś innego? Nie chcę zamulić programu.

C.J · 29 Grudnia 2010

Jednak większość pozycji się powtarza więc można by było dodać zmienną np $pozycja +20 do każdej pętli..Taka moja hipoteza

edit:

po otworzeniu twojego skryptu zuważyłem, że stworzyłeś 3 kolumny z tych $radio.Zrobienie ich w for..to jest moim zdaniem bułką z masłem :P chociaż zrobienie skryptu w Kod'a jest łatwiejsze, dlatego myśle, że i tak tego nie zmienisz..

4ggr35510n · 29 Grudnia 2010

Jeśli...

$zmienna_0 = GuiCtrlCreate...
$zmienna_1 = GuiCtrlCreate...
$zmienna_2 = GuiCtrlCreate...
 ..........................
$zmienna_n = GuiCtrlCreate...

To $zmienna_n będzie miała wartość dokładnie $zmienna_0 + n ( będzie większa od $zmienna_0 o dokładnie n ).

$zmienna_0 może się bardzo wachać.

Ale każda następna zmienna przechowująca wartość zwracaną przez funkcję GuiCtrlEdit... jest dokładnie o jeden większa niż ostatnia wartość zwrócona przez taką funkcję.

Czyli jeśli otworzysz elementy dokładnie po sobie - ich wartości są dokładnie w takim samym przedziale. A więc

$nMsg = GuiGetMsg()
Select
  Case $nMsg = 23
            MsgBox(0,'','4ggr35510n')
  Case $nMsg < $zmienna_n AND $nMsg > $zmienna_1
           ConsoleWrite('ID: ' $nMsg & @CRLF)
EndSelect

- - -

to co pisał 4ggr3550r okazało się prawdą

To, co pisze 4ggr35510n zawsze jest prawdą.

Chyba, że jest inaczej.

tk371 · 30 Grudnia 2010

Dzięki - macie po +

@EDIT:

$nMsg = GuiGetMsg()
Select
  Case $nMsg = 23
            MsgBox(0,'','4ggr35510n')
  Case $nMsg < $zmienna_n AND $nMsg > $zmienna_1
           ConsoleWrite('ID: ' $nMsg & @CRLF)
EndSelect

Wpisałem to, ale ze swoimi zmiennymi i co dziwne te "ID" zawsze wynosiło 0, a i tak spełniało warunek $nMsg = 23. Coś tu chyba nie tak

4ggr35510n · 30 Grudnia 2010

No to coś źle wpisałęś :}

Pokombinuj na krótszym kodzie ( mniejsza liczba elementów gui ).

tk371 · 30 Grudnia 2010

Znalazłem coś takiego jak GUICtrlGetState - tylko nie wiem jak przewidzieć jaką wartość będzie mi zwracać (na przykładzie w helpie jest wartość liczbowa... ale skąd ona?).

4ggr35510n · 30 Grudnia 2010

As opposed to GUICtrlRead this function returns ONLY the state of a control enabled/disabled/hidden/show/dropaccepted

Makra @SW_

tk371 · 31 Grudnia 2010

Ale jako wartości liczbowe...

Widoczne - 80

Ukryte - 96

Pokombinuję i zobaczę - dzięki.

4ggr35510n · 31 Grudnia 2010

No to przyrównuj do makr...

Makra to też wartości liczbowe!!

MsgBox(0,'',@SW_HIDE)

Switch $gui_element_status

Case @SW_SHOW

ConsoleWrite("Is visible!")

Case @SW_HIDE

ConsoleWrite("Is hidden!")

EndSwitch

tk371 · 31 Grudnia 2010

Dobra już wszystko jest w miarę ok, ale jak mam np. dodać znak pi, aby wyglądał tak samo jak w alfabecie greckim? Jak kopiuje z jakiegoś edytora tekstu to mi SciTE nie chce tego przejąć (tzn. nie ma nadal tego symbolu). Jest no to jakaś rada?

4ggr35510n · 31 Grudnia 2010

MsgBox(0, '', ChrW(960))

Ale lepiej wyjdziesz na

_GUICtrlButton_SetImage

tk371 · 31 Grudnia 2010

Możliwe - masz gdzieś listę jaka wartość odpowiada za dany symbol?

Bo jeśli użyłbym obrazka to musiałbym przebudowywać program, a ja poszedłem bardziej w stronę symboli i znaków.

@EDIT:

http://www.interklasa.pl/portal/dokumenty/kurs_html/t/znaki.php

Eureka!

4ggr35510n · 31 Grudnia 2010

google.pl/search?q=unicode%20charachters

Interesuje cię kod dziesiętny ( Dec / Decimal ) kodowania UTF - 16

- - -

Nie wiem jak jest skonstruowany, więc nie wiem, czy będziesz musiał przebudowywać, ale jeśli chodzi o obrazki na buttonach, to możesz je dodać w dowolnym momencie, nawet na te buttony stworzone za pomocą GuiCtrlCreateButton ( zamiast _GuiCtrlButton_Create ) --> wystarczy ci tylko zdobyć 'handle' do nich za pomocą GuiCtrlGetHandle. Bo to z handlem, a nie id będziesz pracował z _GuiCtrlButton_SetImage.

( id jest zwracane przez GuiCtrlCreate... i to najczęściej integery [l. całkowite] z zakresu 0 - 255. Handle jest w formacie Hex i wygląda mniej więcej '0x000703F6' )

@Edit:

Zauważ jeszcze, że symbole wcale nie są konieczne. Na przykład na windowsowym kalkulatorze, button z liczbą pi jest opisany po prostu jako 'pi'. Bez żadnego znaczka.

tk371 · 31 Grudnia 2010

Konieczne nie są, ale zawsze to jakoś wygląda.

@EDIT:

Owoc Waszej pomocy możecie zobaczyć pod:

http://www.mpcforum.pl/topic/269543-downloadkalkulator-fizyczny/

Zaloguj się

👋 Witaj na MPCForum!

[Pomoc] Gui

Rekomendowane odpowiedzi

Zarchiwizowany