c.rauf.1986
Новичок
- Сообщения
- 27
- Репутация
- 0
Если кто знает пожалуйста помогите не могу выйти из цикла.
нажимаю Старт работает а стоп не хочет работать.
нажимаю Старт работает а стоп не хочет работать.
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiButton.au3>
#include <Array.au3>
$h_Form1 = GUICreate("", 151, 136, @DesktopWidth/2-75, @DesktopHeight/2-68)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("START", 38, 100, 75, 25)
$Input1 = GUICtrlCreateInput("Приостановлень...", 17, 60, 115, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUISetState(@SW_SHOW)
Global $ProgStatus = False
While 1
$n_Msg = GUIGetMsg()
Switch $n_Msg
Case $GUI_EVENT_CLOSE
GUIDelete($h_Form1)
Case $Button1
If $ProgStatus = False Then
$ProgStatus = True
_GUICtrlButton_SetText($Button1,'STOP')
GUICtrlSetData($Input1,'Работает...')
NewTimer()
Else
$ProgStatus = False
_GUICtrlButton_SetText($Button1,'START')
GUICtrlSetData($Input1,'Приостановлень...')
EndIf
EndSwitch
WEnd
func NewTimer()
For $i = 1 to 60
Sleep(1000)
Next
MsgBox(0,'','Таймер простановлень...')
EndFunc