MainMenu

#include <Misc.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <GUIConstants.au3>


Local $hGUI = GUICreate("Пульт для пульта",280,250)
Local $start =          GUICtrlCreateButton("Предпусковая подготовка",10,10,200,25)
Local $calibrating =                 GUICtrlCreateButton("Калибровка",10,45,200,25)
Local $goFar =                         GUICtrlCreateButton("Туда",220,10,50,50)
Local $prepear =             GUICtrlCreateButton("Подготовка детали",10,80,200,25)
Local $SketchUpList =             GUICtrlCreateButton("HotKeys SketchUP",10,115,200,25)
Local $goToZero =                      GUICtrlCreateButton("Сюда",220,70,50,50)
Local $goToSoplo =                     GUICtrlCreateButton("Смена сопла" ,220,130,50,50,$BS_MULTILINE)
Local $LongCut =              GUICtrlCreateButton("Длинный рез",10,150,200,25)

Local $TopLeft =              GUICtrlCreateButton("",10,180,15,15)
Local $Top =                      GUICtrlCreateButton("",30,180,15,15)
Local $TopRight =             GUICtrlCreateButton("",50,180,15,15)
Local $MidLeft =              GUICtrlCreateButton("",10,200,15,15)
Local $Center =               GUICtrlCreateButton("",30,200,15,15)
Local $MidRight =             GUICtrlCreateButton("",50,200,15,15)
Local $BottLeft =             GUICtrlCreateButton("",10,220,15,15)
Local $Bottom =                   GUICtrlCreateButton("",30,220,15,15)
Local $BottRight =            GUICtrlCreateButton("",50,220,15,15)


Func TopLeft()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 521,478 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func Top()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 585,478 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func TopRight()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 660 ,478 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func MidLeft()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 514,498 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func Center()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 600,500 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func MidRight()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 670,500 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func BottLeft()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 520,520 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func Bottom()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 600,520 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc

Func BottRight()
    WinActivate ("[CLASS:TfrmCypCut]","")
    MouseClick("left", 87,47 ,1,1)
    MouseClick("left", 370,100 ,1,1)
    MouseClick("left", 670,520 ,1,1)
    Sleep(50)
    Send("{ENTER}")
EndFunc


GUISetState(@SW_SHOW,$hGUI)
Sleep(5)
WinMove("Пульт для пульта","",980,680)
Sleep(5)
WinSetOnTop("Пульт для пульта","",1)
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
        ExitLoop

        Case $start
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/SatrtWork.exe")

        Case $calibrating
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/Calebraiting.exe")

        Case $goFar
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/GoToFarPosition.exe")

        Case $prepear
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/PredCutSettings.exe")

        Case $goToZero
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/GoToZeroPosition.exe")

        Case $SketchUpList
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/HotKeysList.exe")

        Case $LongCut
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/LongCutImpruved.exe")

        Case $goToSoplo
        Run("C:\Program Files (x86)\AutoIt3\ScriptsForLaser\exe/GoTo ChangeSoplo.exe")

        Case $TopLeft
            TopLeft()

        Case $Top
            Top()

        Case $TopRight
            TopRight()

        Case $MidLeft
            MidLeft()

        Case $Center
            Center()

        Case $MidRight
            MidRight()

        Case $BottLeft
            BottLeft()

        Case $Bottom
            Bottom()

        Case $BottRight
            BottRight()




    EndSwitch
WEnd