Código fuente de lotería de usuario
#¿Incluir? ltButtonConstants.au3 gt
¿#Contiene? ltEditConstants.au3 gt
¿#Contiene? ltGUIConstantsEx.au3 gt
¿#Contiene? ltWindowsConstants.au3 gt
Opt("GUIOnEventMode", 1)
¿Global? $bandera? =?Incorrecto
#Región? ###?¿comenzar? ¿Kodak? ¿GUI? ¿Festival? ###?Form=
¿Global? $Form1? =?GUICreate("¿Lotería? ¿Sorteo de números? 1~100",?623,?449,?192,?114)
GUISetOnEvent($GUI_EVENT_CLOSE,?" Form1Close ")
¿Global? $Entrada1? =?GUICtrlCreateInput(",?56,?72,?161,?25,?$ES_READONLY)
¿Global?$Button1?=?GUICtrlCreateButton ("inicio",?264,?72,?65 , ?25)
GUICtrlSetOnEvent(-1,?" Button1Click ")
GUISetState(@SW_SHOW)
¿#EndRegion GUI? p>
Dormir(100)
Si?
GUICtrlSetData ($Input1,?Random(1,100,1))
EndIf
Fila
Func?Button1Click()
Si no? $flag entonces
GUICtrlSetData($Button1,? "Detener")
$flag?
Otro
GUICtrlSetData($Button1,?"Inicio")
$flag?=?incorrecto
EndIf
EndFunc
Func? Form1Close()
Exportar
EndFunc
Traducción