[How To] Toggle Action?

[zone97]

My brain hurts.. I cannot seem to figure out the best way to toggle an action.. For instance..

Do action, and wait for an event , toggle the action, wait for another event. But... Don't want the event to trigger the toggle but one time..

So, say in my while statement.. I want to check to see if a location has an existing color? and if that color changes. Do something ONCE.. and wait for the color to leave. Then Do the opposite action. ONCE.  In other words if i'm looking for green and its always gray, I don't want the gray state constantly firing off the action? and likewise a green state won't keep firing the action for green.

Is this the best way? (I know you guys like to see code attempts before offering suggestions.. lol)

Local $toggle = False
While 1
    Sleep(10)
    If FileExists(@ScriptDir & "\test.txt") And Not ($Toggle = True) Then
        MsgBox(0, "title", "Toggle on!")
        $Toggle = True
    ElseIf Not FileExists(@ScriptDir & "\test.txt") And ($Toggle = True) Then
        MsgBox(0, "title", "Toggle off!")
        $Toggle = False
    EndIf  
Wend

 

Edited January 11, 2017 by zone97

[Subz]

You want to change Else to ElseIf otherwise it will continue to fire for example:

#include <GUIConstantsEx.au3>

_Example()
Func _Example()
Local $bToggle = True
GUICreate('Toggle', 200, 40)
Local $hColor = GUICtrlCreateLabel('Green', 5, 10, 100, 20)
Local $hButton = GUICtrlCreateButton('Toggle', 110, 10, 85, 20)
GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $hButton
                GUICtrlSetData($hColor, 'Grey')
        EndSwitch
        If GUICtrlRead($hColor) = 'Green' And $bToggle = True Then
            MsgBox(48,'', GUICtrlRead($hColor))
            $bToggle = False
        ElseIf GUICtrlRead($hColor) <> 'Green' And $bToggle = False Then
            MsgBox(48,'', GUICtrlRead($hColor))
            $bToggle = True
        EndIf
    WEnd
EndFunc