Post by garry » 28 Jul 2020, 06:40
examplo-1
Code: Select all
Gui, add, Text,, Digite o numero do empenho:
Gui, Add, Edit, vEmp1
Gui, add, Text,, Ou...
Gui, add, Text,, A natureza da despesa, para uma consulta geral:
Gui, Add, Edit, vNd1
Gui, Add, Button, Default w80 gA1, OK
Gui, Show
GuiControl, Focus,Emp1
return
GuiClose:
exitapp
A1:
Gui, Submit,nohide
if (Emp1 != "")
MsgBox %Emp1%
else
MsgBox %Nd1%
return
;===================================
exemplo-2 com cálculo
Code: Select all
#warn
#noenv
name1:="MATHE-TEST"
setworkingdir,%a_scriptdir%
Gui,1:default
Gui,1: +AlwaysOnTop -DPIScale -Theme
Gui,1:Color,Black,Black ; GUI Black / EDIT is BLACK
Gui,1:Font,CYellow s12,Lucida Console ; EDIT-TEXT is Yellow
;-------
A:=20
B:=60
Gui,1:add,Text, x10 y10 cWhite,A=
Gui,1:add,Edit, x140 y10 w120 h40 right vA1 , %a%
Gui,1:add,Text, x10 y70 cWhite,B=
Gui,1:add,Edit, x140 y70 w120 h40 right vB1 , %b%
Gui,1:add,Text, x10 y130 cRED,RESULT=
Gui,1:add,Edit, x140 y130 w120 h40 right vResult readonly cWhite,
;- normal button
;Gui,1: Add, Button, x20 y350 w250 h37 gCALC,CALCULATE
;- or color button
Gui,1: Add, Progress, x20 y350 w250 h37 Disabled Background87CEEB
Gui,1: Add, Text, xp yp wp hp BackgroundTrans 0x201 cBlack vText +Border gCALC,CALCULATE
;--
Gui,1: Add, Button, x300 y350 w150 h37 gClear,CLEAR
;--------
Gui,1:Show,x1 y1 w800 h420 ,%name1%
GuiControl, Focus,A1 ;- set focus to the first field
send,{end}
Return
;-------------
Guiclose:
exitapp
;-------------
CALC:
Gui,1:submit,nohide
if (a1="" or B1="")
return
c:=a1+b1
Guicontrol,1:,Result,%c%
msgbox, 262208,TEST-MATHE,You clicked button = CALCULATE`n----------------`nThe result is %c%,2 ;- msgbox for 2 seconds
GuiControl, Focus,A1 ;- set focus to the first field
send,{end}
return
;-------------
CLEAR:
Guicontrol,1:,A1
Guicontrol,1:,B1
Guicontrol,1:,Result,
return
;======================== END SCRIPT ====================
examplo-1
[code]Gui, add, Text,, Digite o numero do empenho:
Gui, Add, Edit, vEmp1
Gui, add, Text,, Ou...
Gui, add, Text,, A natureza da despesa, para uma consulta geral:
Gui, Add, Edit, vNd1
Gui, Add, Button, Default w80 gA1, OK
Gui, Show
GuiControl, Focus,Emp1
return
GuiClose:
exitapp
A1:
Gui, Submit,nohide
if (Emp1 != "")
MsgBox %Emp1%
else
MsgBox %Nd1%
return
;===================================
[/code]
exemplo-2 com cálculo
[code]#warn
#noenv
name1:="MATHE-TEST"
setworkingdir,%a_scriptdir%
Gui,1:default
Gui,1: +AlwaysOnTop -DPIScale -Theme
Gui,1:Color,Black,Black ; GUI Black / EDIT is BLACK
Gui,1:Font,CYellow s12,Lucida Console ; EDIT-TEXT is Yellow
;-------
A:=20
B:=60
Gui,1:add,Text, x10 y10 cWhite,A=
Gui,1:add,Edit, x140 y10 w120 h40 right vA1 , %a%
Gui,1:add,Text, x10 y70 cWhite,B=
Gui,1:add,Edit, x140 y70 w120 h40 right vB1 , %b%
Gui,1:add,Text, x10 y130 cRED,RESULT=
Gui,1:add,Edit, x140 y130 w120 h40 right vResult readonly cWhite,
;- normal button
;Gui,1: Add, Button, x20 y350 w250 h37 gCALC,CALCULATE
;- or color button
Gui,1: Add, Progress, x20 y350 w250 h37 Disabled Background87CEEB
Gui,1: Add, Text, xp yp wp hp BackgroundTrans 0x201 cBlack vText +Border gCALC,CALCULATE
;--
Gui,1: Add, Button, x300 y350 w150 h37 gClear,CLEAR
;--------
Gui,1:Show,x1 y1 w800 h420 ,%name1%
GuiControl, Focus,A1 ;- set focus to the first field
send,{end}
Return
;-------------
Guiclose:
exitapp
;-------------
CALC:
Gui,1:submit,nohide
if (a1="" or B1="")
return
c:=a1+b1
Guicontrol,1:,Result,%c%
msgbox, 262208,TEST-MATHE,You clicked button = CALCULATE`n----------------`nThe result is %c%,2 ;- msgbox for 2 seconds
GuiControl, Focus,A1 ;- set focus to the first field
send,{end}
return
;-------------
CLEAR:
Guicontrol,1:,A1
Guicontrol,1:,B1
Guicontrol,1:,Result,
return
;======================== END SCRIPT ====================
[/code]