A
at
Гость
Здравствуйте.
Подскажите, где ошибка в Примере_2
Этот скрипт работает правильно:
Пример_1
А здесь я добавил переменные $iMinusLimit и $iPlusLimit и теперь скрипт работает не правильно.
Пример_2
Подскажите, где ошибка в Примере_2
Этот скрипт работает правильно:
Пример_1
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$vControl = GUICreate('Control', 291, 423, 192, 113)
GUICtrlCreateGroup('', 0, 0, 289, 369)
$vDelphi = GUICtrlCreateLabel('Число из Delphi', 8, 192, 91, 17)
$iTextDelphi = GUICtrlCreateInput('0', 94, 192, 53, 21) ;введем произвольное целое число больше 10 или меньше -10
GUICtrlCreateGroup('', -99, -99, 1, 1)
$vStatusBar1 = _GUICtrlStatusBar_Create($vControl)
$vClose = GUICtrlCreateButton('Close', 208, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$vTimer = TimerInit()
While 1 ;основной цикл
Sleep(100)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $vClose
Exit
EndSwitch
; Мониторим приложение
If TimerDiff($vTimer) > 5*1000 Then ; Таймер 5 секунд
Sleep(100)
$iPlus = 10; лимит плюс
$iMinus = -10; лимит минус
$iDelphi = GUICtrlRead($iTextDelphi, 4) ; читаем введенное число
If $iDelphi > $iPlus Then ; если число превышает лимит, тогда
ConsoleWrite($iPlus & @CRLF)
ElseIf $iDelphi < $iMinus Then ; если число превышает лимит, тогда
ConsoleWrite($iMinus & @CRLF)
EndIf
$vTimer = TimerInit()
EndIf
WEnd
А здесь я добавил переменные $iMinusLimit и $iPlusLimit и теперь скрипт работает не правильно.
Пример_2
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$vControl = GUICreate('Control', 291, 423, 192, 113)
GUICtrlCreateGroup('', 0, 0, 289, 369)
$iPlusLimit = GUICtrlCreateInput('10', 216, 192, 65, 21)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$iMinusLimit = GUICtrlCreateInput('-10', 152, 192, 65, 21)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$vDelphi = GUICtrlCreateLabel('Число из Delphi', 8, 192, 91, 17)
$iTextDelphi = GUICtrlCreateInput('0', 94, 192, 53, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$vStatusBar1 = _GUICtrlStatusBar_Create($vControl)
$vClose = GUICtrlCreateButton('Close', 208, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$vTimer = TimerInit()
While 1 ;основной цикл
Sleep(100)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $vClose
Exit
EndSwitch
; Мониторим приложение
If TimerDiff($vTimer) > 5*1000 Then ; Таймер 5 секунд
Sleep(100)
$iPlus = GUICtrlRead($iPlusLimit); лимит плюс
$iMinus = GUICtrlRead($iMinusLimit); лимит минус
$iDelphi = GUICtrlRead($iTextDelphi, 4) ; читаем введенное число
If $iDelphi > $iPlus Then ; если число превышает лимит, тогда
ConsoleWrite($iPlus & @CRLF)
ElseIf $iDelphi < $iMinus Then ; если число превышает лимит, тогда
ConsoleWrite($iMinus & @CRLF)
EndIf
$vTimer = TimerInit()
EndIf
WEnd