[решено] Вписывание прогресс-бара в гуи-форму

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Вписывание прогресс-бара в гуи-форму

Есть такой скрипт (за основу, помоему, взят скрипт пргресс-бара от CreatOr):

Код:

#include <IE.au3>

#include <Timers.au3>



Global $i_Timer, $sTest, $h_Timer_GUI, $i_Precent = 0



_ProgressOn()



While 1

  Call("Internet"); вызывается проверка скорости интернета

    ExitLoop

WEnd



_Timer_KillTimer($h_Timer_GUI, $i_Timer)



MsgBox(4096, "Интернет", "Текущая скорость:" & @LF & @LF & "     " & $sTest & " Кб/с")



Func _ProgressOn($sTitle="", $sMainText="", $sSubText="", $iXPos=-1, $iYPos=-1, $iOpt=16)

    ProgressOn($sTitle, $sMainText, $sSubText, $iXPos, $iYPos, $iOpt)



    $i_Timer = _Timer_SetTimer($h_Timer_GUI, 500, "_ProgressSet")

EndFunc



Func _ProgressSet($hWnd, $Msg, $iIDTimer, $dwTime)

    ;Увеличиваем прогресс на 5 единиц

    $i_Precent += 2

    ProgressSet($i_Precent)



    ;Если достигли 100 процентов, сбрасываем на 0.

    If $i_Precent = 100 Then $i_Precent = 0

EndFunc



Func Internet()

$oIE = _IECreate("http://www.spbtlg.ru/index.html", 0, 0)

_IENavigate($oIE, "http://www.spbtlg.ru/stb.php")

$sTest = _IEBodyReadText($oIE)

_IEQuit($oIE)

$sCut_Word = " = "

$sCut_Word1 = @LF

$sTest = StringRegExpReplace($sTest, "(?is)\A.*?(" & $sCut_Word & ".*?)$", "\1")

$sTest = StringRegExpReplace($sTest, "(?is)\A(.*?)" & $sCut_Word1 & ".*?$", "\1")

$sTest = StringReplace($sTest, " = ", "")

$sTest = StringReplace($sTest, ".", ",")

$sTest = StringStripCR($sTest)

EndFunc

В принципе, все отрабатывает нормально, но не могу решить задачу по размещению этого прогресс-бара в нужном месте своей гуи-формы.:

Код:

GUICreate("My form", 220, 100, 100, 200)

    $progressbar = GUICtrlCreateProgress(10, 10, 200, 20)

    $button = GUICtrlCreateButton("Start", 75, 70, 70, 20)

    GUISetState()

а именно, разместить его вместо $progressbar

PS прогресс-бар выполняет простую функцию сигнализирования о том, что задача проверки выполняется.

saavaage,
Я не совсем понял, Вам надо отдельное окно с прогресс-баром? Если нет, то попробуйте так:

Код:

#include <GUIConstantsEx.au3>



$j = False

$i = 0

$z = 2

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 300, 200, -1, -1)

$Label1 = GUICtrlCreateLabel('', 125, 20, 50, 20)

$Progress1 = GUICtrlCreateProgress(50, 50, 200, 20)

$Button1 = GUICtrlCreateButton("Start", 100, 100, 100, 50)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button1

            $j = Not $j

            If $j Then

                GUICtrlSetData($Button1, "Stop")

                GUICtrlSetData($Label1, "Work")

                AdlibRegister('_MyFunc', 50)

            Else

                GUICtrlSetData($Button1, "Start")

                GUICtrlSetData($Label1, "No Work")

                AdlibUnRegister('_MyFunc')

            EndIf

    EndSwitch

WEnd



Func _MyFunc()

    $i += $z

    If $i = 100 Then $z = -2

    If $i = 0 Then $z = 2

    GUICtrlSetData($Progress1, $i)

EndFunc   ;==>_MyFunc

madmasles, схема скрипта такова:
при нажатии на кнопку старт запускается пргресс-бар, затем выполнение функции "Internet". Прогресс-бар работает постоянно пока выполняется работа функции "Internet". После того, как функция выполнена, прогресс замирает и после закрытия месседж-бокса с результатом, обнуляется.
Не совсем понимаю, как "втиснуть" в ваш скрипт выполнение функции "Internet"

madmasles, разобрался походу, работает вот такой скрипт:

Код:

#include <GUIConstantsEx.au3>

#include <IE.au3>



$j = False

$i = 0

$z = 2

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 300, 200, -1, -1)

$Label1 = GUICtrlCreateLabel('Начни проверку!', 105, 20, 100, 20)

$Progress1 = GUICtrlCreateProgress(50, 50, 200, 20)

$Button1 = GUICtrlCreateButton("Замерить", 100, 100, 100, 50)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button1

            GUICtrlSetData($Label1, "Идет проверка!")

            AdlibRegister('_MyFunc', 50)

                                                   

                        While 1

               Call("Internet")

               ExitLoop

            WEnd

                        

                        GUICtrlSetData($Label1, "Начни проверку!")

            AdlibUnRegister('_MyFunc')

            $i = 0

                        GUICtrlSetData($Progress1, $i)

    EndSwitch

WEnd



Func _MyFunc()

    $i += $z

    If $i = 100 Then $z = -2

    If $i = 0 Then $z = 2

    GUICtrlSetData($Progress1, $i)

EndFunc   ;==>_MyFunc



Func Internet()

$oIE = _IECreate("http://www.spbtlg.ru/index.html", 0, 0)

_IENavigate($oIE, "http://www.spbtlg.ru/stb.php")

$sTest = _IEBodyReadText($oIE)

_IEQuit($oIE)

$sCut_Word = " = "

$sCut_Word1 = @LF

$sTest = StringRegExpReplace($sTest, "(?is)\A.*?(" & $sCut_Word & ".*?)$", "\1")

$sTest = StringRegExpReplace($sTest, "(?is)\A(.*?)" & $sCut_Word1 & ".*?$", "\1")

$sTest = StringReplace($sTest, " = ", "")

$sTest = StringReplace($sTest, ".", ",")

$sTest = StringStripCR($sTest)

MsgBox(4096, "Интернет", "Текущая скорость:" & @LF & @LF & "     " & $sTest & " Кб/с")



EndFunc

Если можно, то взгляните на предмет оптимизации. Я не уверен, что все сделал правильно.

saavaage,
Попробуйте так:

GIFAnimation.au3

madmasles, прекрасно! Использую Ваше решение.
Но, на всякий случай, просмотрите мое решение - мне важно знать свои ошибки (я только начал изучать).

saavaage,

1. В Вашем коде кнопку $Button1, после нажатия, надо сделать неактивной, а после отработки функции Internet() - активной, чтобы нельзя было нажать на нее во время работы функции.
2. Конструкция

Код:

While 1

    Call("_SpeedInternet")

    ExitLoop

WEnd

Лучше, чем в моем скрипте, если ее использовать в моем, то можно убрать эти строки:

Код:

#include <GuiMenu.au3>

...

$hMenu = _GUICtrlMenu_GetSystemMenu($Form1)

...

_GUICtrlMenu_EnableMenuItem($hMenu, $SC_CLOSE, 2)

...

_GUICtrlMenu_EnableMenuItem($hMenu, $SC_CLOSE, 0)

3. Функция и так работает:

Код:

Func _SpeedInternet()

        Local $sPattern = '(?s).*?= (.*?)\r\n?.*', $sText

        Local $oIE = _IECreate("http://www.spbtlg.ru/stb.php", 0, 0)

        If Not IsObj($oIE) Then Return $sResume

        $sText = _IEBodyReadText($oIE)

        _IEQuit($oIE)

        If $sText Then

                $sText = StringRegExpReplace($sText, $sPattern, "\1")

                If Number($sText) Then $sResume = $sText & ' Kbps'

        EndIf

        Return $sResume

EndFunc   ;==>_SpeedInternet

4. Все вышеизложенное - мое субъективное мнение. :)

madmasles, Вы правы. Т.о. окончательный мой код (уже в правильной редакции) будет таким:

Код:

#include <GUIConstantsEx.au3>

#include <IE.au3>



$j = False

$i = 0

$z = 2

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 300, 200, -1, -1)

$Label1 = GUICtrlCreateLabel('Начни проверку!', 105, 30, 100, 20)

$Progress1 = GUICtrlCreateProgress(50, 50, 200, 20)

$Button1 = GUICtrlCreateButton("Замерить", 100, 100, 100, 50)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

;GUISetState()

While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button1

                        ControlDisable("Form1", "", $Button1)

            GUICtrlSetData($Label1, "Идет проверка!")

            AdlibRegister('_MyFunc', 50)

                                                   

                        While 1

               Call("Internet")

               ExitLoop

            WEnd

                        

                        GUICtrlSetData($Label1, "Начни проверку!")

            AdlibUnRegister('_MyFunc')

            $i = 0

                        GUICtrlSetData($Progress1, $i)

                        ControlEnable("Form1", "", $Button1)

    EndSwitch

WEnd



Func _MyFunc()

    $i += $z

    If $i = 100 Then $z = -2

    If $i = 0 Then $z = 2

    GUICtrlSetData($Progress1, $i)

EndFunc   ;==>_MyFunc



Func Internet()

$oIE = _IECreate("http://www.spbtlg.ru/index.html", 0, 0)

_IENavigate($oIE, "http://www.spbtlg.ru/stb.php")

$sTest = _IEBodyReadText($oIE)

_IEQuit($oIE)

$sCut_Word = " = "

$sCut_Word1 = @LF

$sTest = StringRegExpReplace($sTest, "(?is)\A.*?(" & $sCut_Word & ".*?)$", "\1")

$sTest = StringRegExpReplace($sTest, "(?is)\A(.*?)" & $sCut_Word1 & ".*?$", "\1")

$sTest = StringReplace($sTest, " = ", "")

$sTest = StringReplace($sTest, ".", ",")

$sTest = StringStripCR($sTest)

MsgBox(4096, "Интернет", "Текущая скорость:" & @LF & @LF & "     " & $sTest & " Кб/с")



EndFunc

а Ваш окончательный код такой:

Код:

#include <GUIConstantsEx.au3>

#include <GIFAnimation.au3>

#include <IE.au3>

#include <StaticConstants.au3>



Opt("MustDeclareVars", 1)



Global $sResume = 'Error', $pGIF, _

        $sFileGIF = @WindowsDir & "\pchealth\helpctr\System\images\progbar.gif", _

        $Form1, $Label1, $hGIF, $Button1, $nMsg, $hMenu



$Form1 = GUICreate("Form1", 300, 200, -1, -1)

$Label1 = GUICtrlCreateLabel('', 50, 20, 200, 20, $SS_CENTER)

$hGIF = _GUICtrlCreateGIF($sFileGIF, "", 75, 50, $pGIF)

_GIF_PauseAnimation($pGIF)

$Button1 = GUICtrlCreateButton("Start", 100, 100, 100, 50)

GUISetState(@SW_SHOW)



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Button1

            GUICtrlSetState($Button1, $GUI_DISABLE)

            GUICtrlSetData($Label1, "")

            _GIF_ResumeAnimation($pGIF)

            _SpeedInternet()

            _GIF_PauseAnimation($pGIF)

            GUICtrlSetData($Label1, "Ваша скорость: " & $sResume)

            GUICtrlSetState($Button1, $GUI_ENABLE)

        EndSwitch

WEnd



Func _SpeedInternet()

        Local $sPattern = '(?s).*?= (.*?)\r\n?.*', $sText

        Local $oIE = _IECreate("http://www.spbtlg.ru/stb.php", 0, 0)

        If Not IsObj($oIE) Then Return $sResume

        $sText = _IEBodyReadText($oIE)

        _IEQuit($oIE)

        If $sText Then

                $sText = StringRegExpReplace($sText, $sPattern, "\1")

                If Number($sText) Then $sResume = $sText & ' Kbps'

        EndIf

        Return $sResume

EndFunc   ;==>_SpeedInternet

Я правильно понял?

saavaage,
Мой такой будет:

madmasles, спасибо большое, тема закрыта