Dodatkowe okno

rychu321 · 9 Lipca 2017

Siema, da się w autoit zrobić dodatkowe okno z opcjami, które można przypisać do tego pierwszego? W sensie w pierwszym oknie byłby checkbox i po zaznaczeniu go wysuwa się dodatkowe okno.

Pawellek · 9 Lipca 2017

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Opt("GUIOnEventMode", 1)

Global $g_hGUI2, $g_idButton2 ; Predeclare these variables

gui1()

Func gui1()
	Local $hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked
	Local $idCheckBox1 = GUICtrlCreateCheckbox("Checkbox 1", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Checkbox1")
	GUISetState()

	While 1
		Sleep(10)
	WEnd
EndFunc   ;==>gui1

Func gui2()
	Local $g_hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary") ; Run this function when the secondary GUI [X] is clicked
	Local $idButton3 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Button3")
	GUISetState()
EndFunc   ;==>gui2

Func On_Close_Main()
	Exit
EndFunc   ;==>On_Close_Main

Func On_Close_Secondary()
	GUIDelete($g_hGUI2)
	GUICtrlSetState($g_idButton2, $GUI_ENABLE)
EndFunc   ;==>On_Close_Secondary

Func On_Checkbox1()
	If _IsChecked(@GUI_CtrlId) Then
		GUICtrlSetState($g_idButton2, $GUI_DISABLE)
		gui2()
	EndIf
EndFunc   ;==>On_Button2

Func On_Button3()
	MsgBox($MB_OK, "MsgBox 2", "Test from Gui 2")
EndFunc   ;==>On_Button3

Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

rychu321 · 9 Lipca 2017

4 godziny temu, Pawellek napisał:


#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Opt("GUIOnEventMode", 1)

Global $g_hGUI2, $g_idButton2 ; Predeclare these variables

gui1()

Func gui1()
	Local $hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked
	Local $idCheckBox1 = GUICtrlCreateCheckbox("Checkbox 1", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Checkbox1")
	GUISetState()

	While 1
		Sleep(10)
	WEnd
EndFunc   ;==>gui1

Func gui2()
	Local $g_hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary") ; Run this function when the secondary GUI [X] is clicked
	Local $idButton3 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Button3")
	GUISetState()
EndFunc   ;==>gui2

Func On_Close_Main()
	Exit
EndFunc   ;==>On_Close_Main

Func On_Close_Secondary()
	GUIDelete($g_hGUI2)
	GUICtrlSetState($g_idButton2, $GUI_ENABLE)
EndFunc   ;==>On_Close_Secondary

Func On_Checkbox1()
	If _IsChecked(@GUI_CtrlId) Then
		GUICtrlSetState($g_idButton2, $GUI_DISABLE)
		gui2()
	EndIf
EndFunc   ;==>On_Button2

Func On_Button3()
	MsgBox($MB_OK, "MsgBox 2", "Test from Gui 2")
EndFunc   ;==>On_Button3

Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Wszystko spoko tylko da się jakoś zrobić by po odznaczeniu checkboxa to okienko znikalo? Bo aktualnie mozna spamic checkboxem i sie pelno tych okienek odpala.

Pawellek · 9 Lipca 2017

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Opt("GUIOnEventMode", 1)

Global $g_hGUI2, $g_idButton2 ; Predeclare these variables

gui1()

Func gui1()
	Local $hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked
	Local $idCheckBox1 = GUICtrlCreateCheckbox("Checkbox 1", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Checkbox1")
	GUISetState()

	While 1
		Sleep(10)
	WEnd
EndFunc   ;==>gui1

Func gui2()
	$g_hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary") ; Run this function when the secondary GUI [X] is clicked
	Local $idButton3 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Button3")
	GUISetState()
EndFunc   ;==>gui2

Func On_Close_Main()
	Exit
EndFunc   ;==>On_Close_Main

Func On_Close_Secondary()
	GUIDelete($g_hGUI2)
	GUICtrlSetState($g_idButton2, $GUI_ENABLE)
EndFunc   ;==>On_Close_Secondary

Func On_Checkbox1()
	If _IsChecked(@GUI_CtrlId) Then
		GUICtrlSetState($g_idButton2, $GUI_DISABLE)
		gui2()
	Else
		On_Close_Secondary()
	EndIf
EndFunc   ;==>On_Button2

Func On_Button3()
	MsgBox($MB_OK, "MsgBox 2", "Test from Gui 2")
EndFunc   ;==>On_Button3

Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

rychu321 · 9 Lipca 2017

31 minut temu, Pawellek napisał:


#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

Opt("GUIOnEventMode", 1)

Global $g_hGUI2, $g_idButton2 ; Predeclare these variables

gui1()

Func gui1()
	Local $hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked
	Local $idCheckBox1 = GUICtrlCreateCheckbox("Checkbox 1", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Checkbox1")
	GUISetState()

	While 1
		Sleep(10)
	WEnd
EndFunc   ;==>gui1

Func gui2()
	$g_hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
	GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary") ; Run this function when the secondary GUI [X] is clicked
	Local $idButton3 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30)
	GUICtrlSetOnEvent(-1, "On_Button3")
	GUISetState()
EndFunc   ;==>gui2

Func On_Close_Main()
	Exit
EndFunc   ;==>On_Close_Main

Func On_Close_Secondary()
	GUIDelete($g_hGUI2)
	GUICtrlSetState($g_idButton2, $GUI_ENABLE)
EndFunc   ;==>On_Close_Secondary

Func On_Checkbox1()
	If _IsChecked(@GUI_CtrlId) Then
		GUICtrlSetState($g_idButton2, $GUI_DISABLE)
		gui2()
	Else
		On_Close_Secondary()
	EndIf
EndFunc   ;==>On_Button2

Func On_Button3()
	MsgBox($MB_OK, "MsgBox 2", "Test from Gui 2")
EndFunc   ;==>On_Button3

Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Dzięki, zaraz sprawdzę.

Ale mam jeszcze jedno pytanie mianowicie przekleiłem skrypt pod te gui wszystkie i dodałem normalnie wszystkie inputy/combosy do gui 1 i gdy odpalam skrypt wywala mi

"C:\Users\rychu\Desktop\test.au3"(273,27) : warning: $Combo1: possibly used before declaration.
                GUICtrlSetData($Combo1,
                ~~~~~~~~~~~~~~~~~~~~~~^

A na czysto wszystko działa, o co może chodzić?

Pawellek · 10 Lipca 2017

Masz napisane czarno na białym. Musisz zadeklarować zmienne, w tym wypadku zmienna "$combo1".

rychu321 · 10 Lipca 2017

2 godziny temu, Pawellek napisał:

Masz napisane czarno na białym. Musisz zadeklarować zmienne, w tym wypadku zmienna "$combo1".

No właśnie chodzi o to, że na czysto to działa tylko jak doklejam do tego gui wywala ten błąd, zmienne $combo1-12 są zdeklarowane.

@Pawellek już wiem co było źle, po prostu te $COmbo trzeba było zdeklarować w tej zmiennej u góry ALe teraz mam inny problem mianowicie, żeby działało to wszystko musiałem przenieść while 1 i cały kod z pod tego pod te gui i teraz cały czas naparza mi okienkami z MSGBOX nie da się wyłączyć programu bo okienka same się odpalają co wyłączysz to nowe okienko się odpala. TUtaj kod:

	#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <WinAPIFiles.au3>
	Opt("GUIOnEventMode", 1)
	Global $g_hGUI2, $Button1, $Group1, $Combo1, $Combo2, $Combo3, $Combo4, $Combo5, $Combo6, $Combo7, $Combo8, $Combo9, $Combo10, $Combo11, $Combo12, $ap, $bp, $xp; Predeclare these variables
	gui1()
	Func gui1()
    Local $hGUI1 = GUICreate("SymStat", 215, 650, 100, 45)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked
    Local $Group1 = GUICtrlCreateGroup("Statystyki", 8, 8, 201, 265)
Local $ap = GUICtrlCreateInput("200", 90, 40, 105, 21)
Local $bp = GUICtrlCreateInput("200", 90, 72, 105, 21)
Local $xp = GUICtrlCreateInput("200", 90, 104, 105, 21)
$Label1 = GUICtrlCreateLabel("AP", 16, 48, 70, 17)
$Label2 = GUICtrlCreateLabel("BP", 16, 80, 70, 17)
$Label3 = GUICtrlCreateLabel("XP", 16, 112, 70, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Ekwipunek", 8, 280, 201, 313)
Local $Combo1 = GUICtrlCreateCombo("Wybierz Item", 88, 296, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo2 = GUICtrlCreateCombo("Wybierz Item", 88, 320, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Label8 = GUICtrlCreateLabel("HELM", 16, 304, 70, 17)
$Label9 = GUICtrlCreateLabel("ZBROJA", 16, 328, 70, 17)
Local $Combo3 = GUICtrlCreateCombo("Wybierz Item", 88, 344, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo4 = GUICtrlCreateCombo("Wybierz Item", 88, 368, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo5 = GUICtrlCreateCombo("Wybierz Item", 88, 392, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo6 = GUICtrlCreateCombo("Wybierz Item", 88, 416, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo7 = GUICtrlCreateCombo("Wybierz Item", 88, 440, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo8 = GUICtrlCreateCombo("Wybierz Item", 88, 464, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo9 = GUICtrlCreateCombo("Wybierz Item", 88, 488, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo10 = GUICtrlCreateCombo("Wybierz Item", 88, 512, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo11 = GUICtrlCreateCombo("Wybierz Item", 88, 536, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Local $Combo12 = GUICtrlCreateCombo("Wybierz Item", 88, 560, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Label10 = GUICtrlCreateLabel("SPODNIE", 16, 352, 70, 17)
Local $Button1 = GUICtrlCreateButton("KALKULUJ", 16, 600, 75, 41, $WS_GROUP)
    Local $idCheckBox1 = GUICtrlCreateCheckbox("Sklepowki", 120, 600, 75, 41)
    GUICtrlSetOnEvent(-1, "On_Checkbox1")
    GUISetState()
	EndFunc   ;==>gui1
	Func gui2()
    $g_hGUI2 = GUICreate("Sklepowe Przedmioty", 624, 629, 330, 55)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary") ; Run this function when the secondary GUI [X] is clicked
    $Helmet = GUICtrlCreateLabel(">> Helm <<", 8, 32, 100, 17)
$Input1 = GUICtrlCreateInput("0", 8, 56, 49, 21)
$ZYCIE = GUICtrlCreateLabel("AP", 16, 8, 35, 17, $SS_CENTER)
$Label1 = GUICtrlCreateLabel("BP", 72, 8, 35, 17, $SS_CENTER)
$Input2 = GUICtrlCreateInput("0", 64, 56, 49, 21)
$KONDA = GUICtrlCreateLabel("XP", 120, 8, 42, 17, $SS_CENTER)
$Input3 = GUICtrlCreateInput("0", 120, 56, 49, 21)
$Input4 = GUICtrlCreateInput("0", 176, 56, 49, 21)
$Input5 = GUICtrlCreateInput("0", 232, 56, 49, 21)
$Input6 = GUICtrlCreateInput("0", 288, 56, 49, 21)
$Input7 = GUICtrlCreateInput("0", 344, 56, 49, 21)
$Input8 = GUICtrlCreateInput("0", 400, 56, 49, 21)
$Input9 = GUICtrlCreateInput("0", 456, 56, 49, 21)
$Input10 = GUICtrlCreateInput("0", 512, 56, 49, 21)
$Input11 = GUICtrlCreateInput("0", 568, 56, 49, 21)
$Input12 = GUICtrlCreateInput("0", 8, 104, 49, 21)
$Label10 = GUICtrlCreateLabel(">> Zbroja <<", 8, 80, 100, 17)
$Input13 = GUICtrlCreateInput("0", 64, 104, 49, 21)
$Input14 = GUICtrlCreateInput("0", 120, 104, 49, 21)
$Input15 = GUICtrlCreateInput("0", 176, 104, 49, 21)
$Input16 = GUICtrlCreateInput("0", 232, 104, 49, 21)
$Input17 = GUICtrlCreateInput("0", 288, 104, 49, 21)
$Input18 = GUICtrlCreateInput("0", 344, 104, 49, 21)
$Input19 = GUICtrlCreateInput("0", 400, 104, 49, 21)
$Input20 = GUICtrlCreateInput("0", 456, 104, 49, 21)
$Input21 = GUICtrlCreateInput("0", 512, 104, 49, 21)
$Input22 = GUICtrlCreateInput("0", 568, 104, 49, 21)
$Input23 = GUICtrlCreateInput("0", 8, 152, 49, 21)
$Label11 = GUICtrlCreateLabel(">> Spodnie <<", 8, 128, 100, 17)
$Input24 = GUICtrlCreateInput("0", 64, 152, 49, 21)
$Input25 = GUICtrlCreateInput("0", 120, 152, 49, 21)
$Input26 = GUICtrlCreateInput("0", 176, 152, 49, 21)
$Input27 = GUICtrlCreateInput("0", 232, 152, 49, 21)
$Input28 = GUICtrlCreateInput("0", 288, 152, 49, 21)
$Input29 = GUICtrlCreateInput("0", 344, 152, 49, 21)
$Input30 = GUICtrlCreateInput("0", 400, 152, 49, 21)
$Input31 = GUICtrlCreateInput("0", 456, 152, 49, 21)
$Input32 = GUICtrlCreateInput("0", 512, 152, 49, 21)
$Input33 = GUICtrlCreateInput("0", 568, 152, 49, 21)
$Input34 = GUICtrlCreateInput("0", 8, 200, 49, 21)
    GUISetState()
EndFunc   ;==>gui2
	While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            calculate()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
	
Func On_Close_Main()
    Exit
EndFunc   ;==>On_Close_Main
	Func On_Close_Secondary()
    GUIDelete($g_hGUI2)
	EndFunc   ;==>On_Close_Secondary
	Func On_Checkbox1()
    If _IsChecked(@GUI_CtrlId) Then
        gui2()
    Else
        On_Close_Secondary()
    EndIf
EndFunc   ;==>On_Button2
	Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked
Func calculate()
    Local $calcAP = GUICtrlRead($ap)
    Local $calcBP = GUICtrlRead($bp)
    Local $calcXP = GUICtrlRead($xp)
	
    Local $f
    Local $arr[12] = ["helm", "zbroja", "spodnie"]
	    For $i = 0 To UBound($arr) - 1
        $f = @ScriptDir & "\eq\" & $arr[$i] & ".ini"
	        Switch $arr[$i]
            Case "helm"
                $readcombo = GUICtrlRead($Combo1)
            Case "zbroja"
                $readcombo = GUICtrlRead($Combo2)
            Case "spodnie"
                $readcombo = GUICtrlRead($Combo3)
        EndSwitch
	        $calcHP = Execute($calcAP & IniRead($f, $readcombo, "AP", "+0"))
        $calcMP = Execute($calcBP & IniRead($f, $readcombo, "BP", "+0"))
        $calcXP = Execute($calcXP & IniRead($f, $readcombo, "XP", "+0"))
	    Next
	    MsgBox(0, "Calculated", "AP: " & $calcHP & @CRLF & _
                            "BP: " & $calcMP & @CRLF & _
                            "XP: " & $calcXP )
	EndFunc   ;==>calculate

wasta · 12 Lipca 2017

Masz dwa poważne błędy, więc nie może ci to zadziałać prawidłowo.

1. W funkcji gui1() deklarujesz uchwyty kontrolek jako lokalne, a potem próbujesz użyć tych uchwytów na zewnątrz funkcji. Pamiętaj, że zmienne zadeklarowane wewnątrz funkcji jako lokalne, są widoczne tylko wewnątrz tej funkcji!

https://pl.wikibooks.org/wiki/AutoIt/Zmienne_w_AutoIt#Zakres_wa.C5.BCno.C5.9Bci_.28zasi.C4.99g.29_zmiennych_i_sta.C5.82ych

2. Ma początku skryptu użyłeś dyrektywy Opt("GUIOnEventMode", 1). Niestety dyrektywa ta blokuje działanie funkcji GUIGetMsg() i nie można rozpoznać wciśnięcia przycisków. Popatrz tu:

https://pl.wikibooks.org/wiki/AutoIt/Dyrektywy_i_funkcje_konfiguracyjne_translatora#Opt.28.22GUIOnEventMode.22.2C_par.29

i tu:

https://pl.wikibooks.org/wiki/AutoIt/GUI#Ustalenie_.28rejestrowanie.29_jaka_funkcja_u.C5.BCytkownika_ma_by.C4.87_wywo.C5.82ana.2C_je.C5.BCeli_zostanie_wci.C5.9Bni.C4.99ty_jaki.C5.9B_przycisk_systemowy_okna

Musisz nieco przerobić skrypt i pozbyć się funkcji GUICtrlSetOnEvent, bo albo działają one, albo GUIGetMsg(). Razem nie będą działać.

rychu321 · 12 Lipca 2017

15 minut temu, wasta napisał:

Masz dwa poważne błędy, więc nie może ci to zadziałać prawidłowo.

1. W funkcji gui1() deklarujesz uchwyty kontrolek jako lokalne, a potem próbujesz użyć tych uchwytów na zewnątrz funkcji. Pamiętaj, że zmienne zadeklarowane wewnątrz funkcji jako lokalne, są widoczne tylko wewnątrz tej funkcji!

https://pl.wikibooks.org/wiki/AutoIt/Zmienne_w_AutoIt#Zakres_wa.C5.BCno.C5.9Bci_.28zasi.C4.99g.29_zmiennych_i_sta.C5.82ych

2. Ma początku skryptu użyłeś dyrektywy Opt("GUIOnEventMode", 1). Niestety dyrektywa ta blokuje działanie funkcji GUIGetMsg() i nie można rozpoznać wciśnięcia przycisków. Popatrz tu:

https://pl.wikibooks.org/wiki/AutoIt/Dyrektywy_i_funkcje_konfiguracyjne_translatora#Opt.28.22GUIOnEventMode.22.2C_par.29

i tu:

https://pl.wikibooks.org/wiki/AutoIt/GUI#Ustalenie_.28rejestrowanie.29_jaka_funkcja_u.C5.BCytkownika_ma_by.C4.87_wywo.C5.82ana.2C_je.C5.BCeli_zostanie_wci.C5.9Bni.C4.99ty_jaki.C5.9B_przycisk_systemowy_okna

Musisz nieco przerobić skrypt i pozbyć się funkcji GUICtrlSetOnEvent, bo albo działają one, albo GUIGetMsg(). Razem nie będą działać.

Tylko, że ja tego nie ogarniam Skorzystałem z kodu, który dał @Pawellek i wszystko działało oprócz tego msgbox nie sądziłem, że tylko przez takiego małego boxa może wszystko się walić.

wasta · 12 Lipca 2017

To nie przez małego MsgBox'a. @Pawellek nie wsadził ci całego GUI do funkcji. W formie jaką on ci podał wszystko było OK. Całą obsługę GUI miał zrobioną w paradygmacie zdarzeniowym (jako reakcję na zdarzenia: https://pl.wikibooks.org/wiki/AutoIt/O_języku_AutoIt), więc wszystko było zadeklarowane wewnątrz funkcji i działało jak trzeba.

Ty dopisałeś do wnętrza funkcji dodatkowe kontrolki deklarując ich uchwyty jako lokalne, a potem próbujesz korzystać z tych uchwytów na zewnątrz funkcji.

Następnie mieszasz paradygmaty zderzeniowy i imperatywny. W Autoit można używać obu paradygmatów do obsługi GUI, ale nie równocześnie. Można tylko się między nimi przełączać.

W poniższym kodzie zrezygnowałem z obsługi zdarzeniowej, na rzecz imperatywnej. Usunąłem oczywiście także te deklaracje Local. Teraz to jakoś działa:

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <WinAPIFiles.au3>

;Opt("GUIOnEventMode", 1)

Global $g_hGUI2, $Button1, $Group1, $Combo1, $Combo2, $Combo3, $Combo4, $Combo5, $Combo6, $Combo7, $Combo8, $Combo9, $Combo10, $Combo11, $Combo12, $ap, $bp, $xp; Predeclare these variables
Global $idCheckBox1

gui1()

While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
		Case $Button1
            calculate()
		Case $idCheckBox1
			On_Checkbox1()
        Case $GUI_EVENT_CLOSE
            Exit
	EndSwitch

WEnd

;------------------------------------------------------------------------------------------
Func gui1()
	$hGUI1 = GUICreate("SymStat", 215, 650, 100, 45)
;    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked
	$Group1 = GUICtrlCreateGroup("Statystyki", 8, 8, 201, 265)
	$ap = GUICtrlCreateInput("200", 90, 40, 105, 21)
	$bp = GUICtrlCreateInput("200", 90, 72, 105, 21)
	$xp = GUICtrlCreateInput("200", 90, 104, 105, 21)
	$Label1 = GUICtrlCreateLabel("AP", 16, 48, 70, 17)
	$Label2 = GUICtrlCreateLabel("BP", 16, 80, 70, 17)
	$Label3 = GUICtrlCreateLabel("XP", 16, 112, 70, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$Group2 = GUICtrlCreateGroup("Ekwipunek", 8, 280, 201, 313)
	$Combo1 = GUICtrlCreateCombo("Wybierz Item", 88, 296, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo2 = GUICtrlCreateCombo("Wybierz Item", 88, 320, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Label8 = GUICtrlCreateLabel("HELM", 16, 304, 70, 17)
	$Label9 = GUICtrlCreateLabel("ZBROJA", 16, 328, 70, 17)
	$Combo3 = GUICtrlCreateCombo("Wybierz Item", 88, 344, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo4 = GUICtrlCreateCombo("Wybierz Item", 88, 368, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo5 = GUICtrlCreateCombo("Wybierz Item", 88, 392, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo6 = GUICtrlCreateCombo("Wybierz Item", 88, 416, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo7 = GUICtrlCreateCombo("Wybierz Item", 88, 440, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo8 = GUICtrlCreateCombo("Wybierz Item", 88, 464, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo9 = GUICtrlCreateCombo("Wybierz Item", 88, 488, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo10 = GUICtrlCreateCombo("Wybierz Item", 88, 512, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo11 = GUICtrlCreateCombo("Wybierz Item", 88, 536, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Combo12 = GUICtrlCreateCombo("Wybierz Item", 88, 560, 105, 25, BitOR($CBS_DROPDOWNLIST, $CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	$Label10 = GUICtrlCreateLabel("SPODNIE", 16, 352, 70, 17)
	$Button1 = GUICtrlCreateButton("KALKULUJ", 16, 600, 75, 41, $WS_GROUP)
	$idCheckBox1 = GUICtrlCreateCheckbox("Sklepowki", 120, 600, 75, 41)
 ;   GUICtrlSetOnEvent(-1, "On_Checkbox1")
    GUISetState()
EndFunc   ;==>gui1


Func gui2()
    $g_hGUI2 = GUICreate("Sklepowe Przedmioty", 624, 629, 330, 55)
    GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary") ; Run this function when the secondary GUI [X] is clicked
    $Helmet = GUICtrlCreateLabel(">> Helm <<", 8, 32, 100, 17)
	$Input1 = GUICtrlCreateInput("0", 8, 56, 49, 21)
	$ZYCIE = GUICtrlCreateLabel("AP", 16, 8, 35, 17, $SS_CENTER)
	$Label1 = GUICtrlCreateLabel("BP", 72, 8, 35, 17, $SS_CENTER)
	$Input2 = GUICtrlCreateInput("0", 64, 56, 49, 21)
	$KONDA = GUICtrlCreateLabel("XP", 120, 8, 42, 17, $SS_CENTER)
	$Input3 = GUICtrlCreateInput("0", 120, 56, 49, 21)
	$Input4 = GUICtrlCreateInput("0", 176, 56, 49, 21)
	$Input5 = GUICtrlCreateInput("0", 232, 56, 49, 21)
	$Input6 = GUICtrlCreateInput("0", 288, 56, 49, 21)
	$Input7 = GUICtrlCreateInput("0", 344, 56, 49, 21)
	$Input8 = GUICtrlCreateInput("0", 400, 56, 49, 21)
	$Input9 = GUICtrlCreateInput("0", 456, 56, 49, 21)
	$Input10 = GUICtrlCreateInput("0", 512, 56, 49, 21)
	$Input11 = GUICtrlCreateInput("0", 568, 56, 49, 21)
	$Input12 = GUICtrlCreateInput("0", 8, 104, 49, 21)
	$Label10 = GUICtrlCreateLabel(">> Zbroja <<", 8, 80, 100, 17)
	$Input13 = GUICtrlCreateInput("0", 64, 104, 49, 21)
	$Input14 = GUICtrlCreateInput("0", 120, 104, 49, 21)
	$Input15 = GUICtrlCreateInput("0", 176, 104, 49, 21)
	$Input16 = GUICtrlCreateInput("0", 232, 104, 49, 21)
	$Input17 = GUICtrlCreateInput("0", 288, 104, 49, 21)
	$Input18 = GUICtrlCreateInput("0", 344, 104, 49, 21)
	$Input19 = GUICtrlCreateInput("0", 400, 104, 49, 21)
	$Input20 = GUICtrlCreateInput("0", 456, 104, 49, 21)
	$Input21 = GUICtrlCreateInput("0", 512, 104, 49, 21)
	$Input22 = GUICtrlCreateInput("0", 568, 104, 49, 21)
	$Input23 = GUICtrlCreateInput("0", 8, 152, 49, 21)
	$Label11 = GUICtrlCreateLabel(">> Spodnie <<", 8, 128, 100, 17)
	$Input24 = GUICtrlCreateInput("0", 64, 152, 49, 21)
	$Input25 = GUICtrlCreateInput("0", 120, 152, 49, 21)
	$Input26 = GUICtrlCreateInput("0", 176, 152, 49, 21)
	$Input27 = GUICtrlCreateInput("0", 232, 152, 49, 21)
	$Input28 = GUICtrlCreateInput("0", 288, 152, 49, 21)
	$Input29 = GUICtrlCreateInput("0", 344, 152, 49, 21)
	$Input30 = GUICtrlCreateInput("0", 400, 152, 49, 21)
	$Input31 = GUICtrlCreateInput("0", 456, 152, 49, 21)
	$Input32 = GUICtrlCreateInput("0", 512, 152, 49, 21)
	$Input33 = GUICtrlCreateInput("0", 568, 152, 49, 21)
	$Input34 = GUICtrlCreateInput("0", 8, 200, 49, 21)
    GUISetState()
EndFunc   ;==>gui2


Func On_Close_Main()
    Exit
EndFunc   ;==>On_Close_Main


Func On_Close_Secondary()
    GUIDelete($g_hGUI2)
EndFunc   ;==>On_Close_Secondary


Func On_Checkbox1()
    If _IsChecked($idCheckBox1) Then
        gui2()
    Else
        On_Close_Secondary()
    EndIf
EndFunc   ;==>On_Button2


Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked


Func calculate()
    Local $calcAP = GUICtrlRead($ap)
    Local $calcBP = GUICtrlRead($bp)
    Local $calcXP = GUICtrlRead($xp)
    Local $f
    Local $arr[12] = ["helm", "zbroja", "spodnie"]

	For $i = 0 To UBound($arr) - 1
		$f = @ScriptDir & "\eq\" & $arr[$i] & ".ini"
	    Switch $arr[$i]
			Case "helm"
				$readcombo = GUICtrlRead($Combo1)
			Case "zbroja"
				$readcombo = GUICtrlRead($Combo2)
			Case "spodnie"
				$readcombo = GUICtrlRead($Combo3)
		EndSwitch
	    $calcHP = Execute($calcAP & IniRead($f, $readcombo, "AP", "+0"))
		$calcMP = Execute($calcBP & IniRead($f, $readcombo, "BP", "+0"))
		$calcXP = Execute($calcXP & IniRead($f, $readcombo, "XP", "+0"))
	Next
	MsgBox(0, "Calculated", "AP: " & $calcHP & @CRLF & _
							"BP: " & $calcMP & @CRLF & _
							"XP: " & $calcXP )
EndFunc   ;==>calculate

Sprawdź to, czy nie ma jeszcze jakiś problemów.

rychu321 · 12 Lipca 2017

Dzięki.

Zaloguj się

👋 Witaj na MPCForum!

Dodatkowe okno

Rekomendowane odpowiedzi

rychu321

rychu321

Pawellek

Pawellek

rychu321

rychu321

Pawellek

Pawellek

rychu321

rychu321

Pawellek

Pawellek

rychu321

rychu321

wasta

wasta

rychu321

rychu321

wasta

wasta

rychu321

rychu321

Zarchiwizowany