#include <GUIConstantsEx.au3>
#include <Math.au3>
GUICreate("Coscell's calculator")
$in = GUICtrlCreateInput("­pºâ¦¡: ", 10, 10, 120, 20)
$ok = GUICtrlCreateButton("½T©w", 150, 10, 20)
GUICtrlSetState($ok, $GUI_DEFBUTTON)
GUISetState()

While 1
  $msg = GUIGetMsg()
  Select
    Case $msg = $GUI_EVENT_CLOSE
      Exit
    Case $msg = $ok
      $exp = GUICtrlRead($in)
      $exp1 = StringRegExpReplace($exp, "(tan|sin|cos)\((\d+)", "$1(_Radian($2)")
      $exp1 = StringRegExpReplace($exp1, '\)\"(\d+)', "+$1/60)")
      $exp1 = StringRegExpReplace($exp1, "(log\(\d+\))", "($1/log(10))")
      MsgBox(0,$exp,Execute($exp1))
      GUICtrlSetData($in, "")
  EndSelect
WEnd