;;;;;;;;;;;;;;;;;;;;;;;;ENTER HERE INPUTS;;;;;;;;;;;;;;;;;;;;;;;;;;;

;BFIELD #1 (bits!!!)
CyH := -8
P2P3H := 773
C4xH := -143

;BFIELD #2 (bits!!!)
CyC := -17
P2P3C := 775
C4xC := -142
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

LastBfield := 2

;Start Acquisiton when run the program
ControlClick, Start Acquisition, NanoSIMS 50 - ANALYSIS - IMAGE ACQUISITION, , LEFT ;Click on start aquisition

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Loop;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Loop {

;Read Acquisiton status
ControlGetText, SetBfield, Static11, NanoSIMS 50 - ANALYSIS - IMAGE ACQUISITION

;If analysis ended brak the loop
IfInString, SetBfield, Analysis completed
{
MsgBox, %SetBfield%
break ;break the loop
}

;If any Bfield is shown
IfInString, SetBfield, Set B field
{

;Detect when Bfield1 is applied
IfInString, SetBfield, Set B field #1
{
Bfield := 1
}

;Detect when Bfield2 is applied
IfInString, SetBfield, Set B field #2
{
Bfield := 2
}

;send instrucions for Bfield1
if (Bfield = 1 and LastBfield != Bfield)
{

;Change Cy
WinActivate, KeyboardN50
ControlClick, LF2, KeyboardN50, , LEFT ;Click on LF2
Sleep, 2000
WinActivate, KeyboardN50
ControlClick, Edit3, KeyboardN50, , LEFT ;Clik on Cy inputbox
ControlSend, Edit3, KeyboardN50
Send {BackSpace 4}
Send %CyH%
Send {Enter}
Sleep, 1000

;Change P2P3
WinActivate, KeyboardN50
ControlClick, P2P3, KeyboardN50, , LEFT ;Click on P2P3
Sleep, 3000
WinActivate, KeyboardN50
ControlClick, Def2, KeyboardN50, , LEFT ;Click on Def2
Sleep, 3000
WinActivate, KeyboardN50
ControlClick, Edit2, KeyboardN50, , LEFT ;Clik on P3b inputbox
Sleep, 2000
WinActivate, KeyboardN50
Send {BackSpace 4}
Send %P2P3H%
Send {Enter}
Sleep, 1000

;Change C4x
WinActivate, KeyboardN50
ControlClick, LF4, KeyboardN50, , LEFT ;Click on LF4
Sleep, 1000
WinActivate, KeyboardN50
ControlClick, Edit2, KeyboardN50, , LEFT ;Clik on C4x inputbox
ControlSend, Edit3, KeyboardN50
Send {BackSpace 4}
Send %C4xH%
Send {Enter}
Sleep, 1000

LastBfield := Bfield

}

;send instrucions for Bfield2
if (Bfield = 2 and LastBfield != Bfield)
{

;Change Cy
WinActivate, KeyboardN50
ControlClick, LF2, KeyboardN50, , LEFT ;Click on LF2
Sleep, 2000
WinActivate, KeyboardN50
ControlClick, Edit3, KeyboardN50, , LEFT ;Clik on Cy inputbox
ControlSend, Edit3, KeyboardN50
Send {BackSpace 4}
Send %CyC%
Send {Enter}
Sleep, 1000

;Change P2P3
WinActivate, KeyboardN50
ControlClick, P2P3, KeyboardN50, , LEFT ;Click on P2P3
Sleep, 3000
WinActivate, KeyboardN50
ControlClick, Def2, KeyboardN50, , LEFT ;Click on Def2
Sleep, 3000
WinActivate, KeyboardN50
ControlClick, Edit2, KeyboardN50, , LEFT ;Clik on P3b inputbox
Sleep, 2000
WinActivate, KeyboardN50
Send {BackSpace 4}
Send %P2P3C%
Send {Enter}
Sleep, 1000

;Change C4x
WinActivate, KeyboardN50
ControlClick, LF4, KeyboardN50, , LEFT ;Click on LF4
Sleep, 1000
WinActivate, KeyboardN50
ControlClick, Edit2, KeyboardN50, , LEFT ;Clik on C4x inputbox
ControlSend, Edit3, KeyboardN50
Send {BackSpace 4}
Send %C4xC%
Send {Enter}
Sleep, 1000


LastBfield := Bfield

}

}
sleep, 100
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;END Loop;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Return

esc::ExitApp