AdlibRegister for 2 Func

[johnmcloud]

Hi guys,

I'dl like to use the same AdlibRegister for to different function. That's an example:

expandcollapse popup

#include <GUIConstantsEx.au3>

Global $hButton3 = 9999, $Increase = 0, $hGUI1

gui1()

Func gui1()
$hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
$hButton1 = GUICtrlCreateButton("Adlib1", 10, 10, 80, 30)
$hButton2 = GUICtrlCreateButton("Show Gui 2", 10, 60, 80, 30)
GUISetState()

While 1
  Switch GUIGetMsg()
   Case $GUI_EVENT_CLOSE
    ExitLoop
   Case $hButton1
    AdlibRegister("Test", 400)
    Sleep(2000)
    AdlibUnRegister("Test")
    WinSetTitle($hGUI1, "", "Gui 1")
   Case $hButton2
    GUICtrlSetState($hButton2, $GUI_DISABLE)
    gui2()
   Case $hButton3
    AdlibRegister("Test", 400)
    Sleep(2000)
    AdlibUnRegister("Test")
    WinSetTitle($hGUI1, "", "Gui 1")
  EndSwitch
WEnd
EndFunc   ;==>gui1

Func gui2()
$hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
$hButton3 = GUICtrlCreateButton("Adlib2", 10, 10, 80, 30)
GUISetState()
EndFunc   ;==>gui2

Func Test()
Switch Mod($Increase, 4)
  Case 0
   WinSetTitle($hGUI1, "", "... A")
  Case 1
   WinSetTitle($hGUI1, "", "... B")
  Case 2
   WinSetTitle($hGUI1, "", "... C")
  Case 3
   WinSetTitle($hGUI1, "", "... D")
EndSwitch
$Increase += 1
EndFunc   ;==>Test

I have try to make an handle like:

Func Test($handle)
Switch Mod($Increase, 4)
  Case 0
   WinSetTitle($handle, "", "... A")
  Case 1
   WinSetTitle($handle, "", "... B")
  Case 2
   WinSetTitle($handle, "", "... C")
  Case 3
   WinSetTitle($handle, "", "... D")
EndSwitch
$Increase += 1
EndFunc   ;==>Test
[autoit]

and make:
[autoit] 
AdlibRegister("Test(" & $hGUI1 & ")",400)

But not work, some advice?

Thanks

[water]

You can't pass parameters to Adlibregister. Hence

AdlibRegister("Test(" & $hGUI1 & ")",400)

won't work.

The way you use AdLibRegister (register, wait a few seconds and unregister in a loop) I would simply call test as a function.

[johnmcloud]

So, if i have understad well, i can't call the same Test() for two different function?

I need to create two different like:

Func Test_GUI1()
Switch Mod($Increase, 4)
Case 0
WinSetTitle($hGUI1, "", "... A")
Case 1
WinSetTitle($hGUI1 "", "... B")
Case 2
WinSetTitle($hGUI1, "", "... C")
Case 3
WinSetTitle($hGUI1, "", "... D")
EndSwitch
$Increase += 1
EndFunc
 
Func Test_GUI2()
Switch Mod($Increase, 4)
Case 0
WinSetTitle($hGUI2, "", "... A")
Case 1
WinSetTitle($hGUI2, "", "... B")
Case 2
WinSetTitle($hGUI2, "", "... C")
Case 3
WinSetTitle($hGUI2, "", "... D")
EndSwitch
$Increase += 1
EndFunc

There isn't a workaround?

Edited October 12, 2012 by johnmcloud

[water]

You can use AdLibRegister for two different functions. But the way you use AdLibRegister doesn't make sense. Simply call Test() and pass parameters if needed.

AdLibRegister is used to call a function every x milliseconds while the main script keeps on processing.

You register the function, Sleep and then unregister the function. That's not what AdLibRegister should be used for.

Is this a real life problem you try to solve or do you just play around?

[johnmcloud]

No, that's a real life problem.

I have posted an example script, but the goal is the same...so i need to create 2 separate but same function because i can't make handle to adblibregister.

[water]

You don't need two functions, just drop AdLiBRegister.

expandcollapse popup

#include <GUIConstantsEx.au3>

Global $hButton3 = 9999, $Increase = 0, $hGUI1

gui1()

Func gui1()
    $hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
    $hButton1 = GUICtrlCreateButton("Adlib1", 10, 10, 80, 30)
    $hButton2 = GUICtrlCreateButton("Show Gui 2", 10, 60, 80, 30)
    GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $hButton1
                Test($hGUI1)
                Sleep(2000)
                WinSetTitle($hGUI1, "", "Gui 1")
            Case $hButton2
                GUICtrlSetState($hButton2, $GUI_DISABLE)
                gui2()
            Case $hButton3
                Test($hGUI1)
                Sleep(2000)
                WinSetTitle($hGUI1, "", "Gui 1")
        EndSwitch
    WEnd
EndFunc   ;==>gui1

Func gui2()
    $hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
    $hButton3 = GUICtrlCreateButton("Adlib2", 10, 10, 80, 30)
    GUISetState()
EndFunc   ;==>gui2

Func Test($hGUI)
    Switch Mod($Increase, 4)
        Case 0
            WinSetTitle($hGUI, "", "... A")
        Case 1
            WinSetTitle($hGUI, "", "... B")
        Case 2
            WinSetTitle($hGUI, "", "... C")
        Case 3
            WinSetTitle($hGUI, "", "... D")
    EndSwitch
    $Increase += 1
EndFunc   ;==>Test