#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <winapifiles.au3>
#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiScrollBars.au3>
#include <ColorConstants.au3>
#include <StaticConstants.au3>
#include <WinAPIGdi.au3>
#include <APIGdiConstants.au3>
#include <ButtonConstants.au3>
#include <array.au3>





;_____________________________________________________________
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
Opt("GUICloseOnESC", 0) ;1=ESC  closes, 0=ESC won't close
;__________________________________________________________


Global $maingui = GUICreate("myCalculator",500,400,-1,-1)

Global $bcalc = GUICtrlCreateButton("CALCULATE",360,200,100,30)

Global $input1 = GUICtrlCreateInput("",180,50,80,22)

Global $iRead1 = GUICtrlRead($input1)

GUICtrlSetOnEvent($bcalc,"myfunction")


GUISetOnEvent($GUI_EVENT_CLOSE,"sclose")

GUISetState(@SW_SHOW)
While 1
    Sleep(100) ; Sleep to reduce CPU usage
WEnd
;_______________________________________________


func sclose()
	Exit
EndFunc


Func myfunction()
	MsgBox(0,"",$iRead1)
	EndFunc