GUI - Number limite [help]

[MirTexFR]

Hi ! I'm new with the Autoit software ! I want to create a number limite for many test or other but i don't know why it's not work !..

The script :

expandcollapse popup

#AutoIt3Wrapper_UseX64=n
#include <FontConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>

Global $Init_Dir = "C:\"

#pragma compile(FileDescription, Number testing MirTex)
#pragma compile(ProductName, MilliTikS)
#pragma compile(ProductVersion, 1.0)
#pragma compile(FileVersion, 1.0)
#pragma compile(LegalCopyright, © MilliTikS Project)

$GUI = GUICreate("Interface", 500, 650, -1, -1)
    GUICtrlCreateTab(10, 110, 480, 400)
    GUISetFont(9, 300)
$menu1 = GUICtrlCreateMenu ("Option", -1, -1)
$menu2 = GUICtrlCreateMenu ("License", -1, -1)
$Bouton1 = GUICtrlCreateButton("Yes", 35, 599, 100, 25)
$Bouton2 = GUICtrlCreateButton("Exit", 375, 599, 100, 25)
GUICtrlCreatePic (@ScriptDir & "\Icons\banner.jpg", 0, 0, 500, 100)

If Not FileExists(@ScriptDir & "\License.txt") Then
    $license = InetGet("http://www.gnu.org/licenses/gpl-3.0.txt", @ScriptDir & "\License.txt")
    InetClose($license)
EndIf

GUISetState(@SW_SHOW)

Menu()
Func Menu()
    Local $idInfoItem = GUICtrlCreateMenuItem("Info", $menu1)
 EndFunc

Tab()
Func Tab()
    GUICtrlCreateTabItem("          Log          ")

    GUICtrlCreateTabItem("       Start Counter       ")
    GUICtrlCreateLabel("Number :", 20, 153, 100, 20)
    $number = GUICtrlCreateInput("Max 1 000 000", 85, 150, 150, 20)
    $Bouton3 =  GUICtrlCreateButton("Save", 240, 147, 50)
         $nMsg = GUIGetMsg()
            Switch $nMsg
               Case $Bouton3
                     if $number > 1000000 then
                        MsgBox(64, 'Error', 'The number cannot be high 1 000 000')
                     endif
            EndSwitch
EndFunc



While 3
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Bouton2
                        Exit
                Case $Bouton1
                        MsgBox(64 + 8192, 'Message', 'Vous avez cliqué sur le bouton OK')
        EndSwitch
WEnd

 

[Melba23]

MirtexFR,

Welcome to the AutoIt forums.

I have amended the script a little to make it rather more structured:

expandcollapse popup

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global $cNumber, $cBouton3, $idInfoItem ; needed as you create them inside functions

If Not FileExists(@ScriptDir & "\License.txt") Then
    $hLicence = InetGet("http://www.gnu.org/licenses/gpl-3.0.txt", @ScriptDir & "\License.txt")
    InetClose($hLicence)
EndIf



$hGUI = GUICreate("Interface", 500, 650, -1, -1)

Menu()

GUICtrlCreateTab(10, 110, 480, 400)
GUISetFont(9, 300)
Tab()

$cBouton1 = GUICtrlCreateButton("Yes", 35, 599, 100, 25)
$cBouton2 = GUICtrlCreateButton("Exit", 375, 599, 100, 25)

GUISetState(@SW_SHOW)

While 1 ; Just use the one loop to look for events
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $cBouton2
            Exit
        Case $cBouton1
            MsgBox(64 + 8192, 'Message', 'Vous avez cliqué sur le bouton OK')
        Case $cBouton3
            ; Read the value
            $iNumber = Number(GUICtrlRead($cNumber))
            ; Check it
            If $iNumber > 1000000 Then
                MsgBox(64, 'Error', 'The number cannot be high 1 000 000')
                ; Focus the input for easy editing
                GUICtrlSetState($cNumber, $GUI_FOCUS)
            EndIf

    EndSwitch

WEnd



Func Menu()
    $menu1 = GUICtrlCreateMenu("Option", -1, -1)
    $menu2 = GUICtrlCreateMenu("License", -1, -1)
    $idInfoItem = GUICtrlCreateMenuItem("Info", $menu1)
EndFunc   ;==>Menu

Func Tab()
    GUICtrlCreateTabItem("          Log          ")
    GUICtrlCreateTabItem("       Start Counter       ")
    GUICtrlCreateLabel("Number :", 20, 153, 100, 20)
    $cNumber = GUICtrlCreateInput("Max 1 000 000", 85, 150, 150, 20)
    $cBouton3 = GUICtrlCreateButton("Save", 240, 147, 50)
    GUICtrlCreateTabItem("") ; You MUST close the tab creation sequence
EndFunc   ;==>Tab

Please ask if you do not understand what I have done or why I have done it.

M23

[MirTexFR]

Oh thanks you so much Melba !  now i can see what is the problem ! Thanks you !

[Melba23]

MirTexFR,

Glad I could help.

M23