Sign in to follow this  
Followers 0
xPietrek

Random numbers

7 posts in this topic

#1 ·  Posted (edited)

Hello. I created the script, which draw random numbers in 5 InputBoxes.

#include <GUIConstantsEx.au3>
#Include <Constants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>


Opt("OnExitFunc", "exitx")
Opt("TrayAutoPause", 0)
Opt("GUIOnEventMode", 1)


GuiCreate("Random numbers", 480, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "wyjscie")
$guzik1 = GUICtrlCreateButton("GENERATE",210,300,80,30, $WS_GROUP)
GUICtrlSetOnEvent($guzik1 , "guzik1")
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)

GUICtrlCreateInput("", 100,40,45,20)
GUICtrlCreateInput("", 150,40,45,20)
GUICtrlCreateInput("", 200,40,45,20)
GUICtrlCreateInput("", 250,40,45,20)
GUICtrlCreateInput("", 300,40,45,20)

While 1
  Sleep(100)
WEnd


Func guzik1()
$1st = Random(100000,900000,1)
$2st = Random(1000,9000,1)
$3st = Random(100000,900000,1)
$4st = Random(1000,9000,1)
$5st = Random(100000,900000,1)

GUICtrlCreateInput($1st, 100,40,45,20)
GUICtrlCreateInput($2st, 150,40,45,20)
GUICtrlCreateInput($3st, 200,40,45,20)
GUICtrlCreateInput($4st, 250,40,45,20)
GUICtrlCreateInput($5st, 300,40,45,20)
EndFunc



Func wyjscie()
  Exit
EndFunc

Script correctly draws the numbers,but when I hold the mouse on that inputs, script clears the inputboxes.

How can I fix that ? After click on "GENERATE", numbers should fill in Inputs.

// Sry for my bad english.

Edited by xPietrek

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

You create the controls every time you click "Generate". Just update the controls using "GUICtrlSetData".

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

OnAutoItExitRegister("exitx")
Opt("TrayAutoPause", 0)
Opt("GUIOnEventMode", 1)

GUICreate("Random numbers", 480, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "wyjscie")
$guzik1 = GUICtrlCreateButton("GENERATE", 210, 300, 80, 30, $WS_GROUP)
GUICtrlSetOnEvent($guzik1, "guzik1")
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)

$hF1 = GUICtrlCreateInput("", 100, 40, 45, 20)
$hF2 = GUICtrlCreateInput("", 150, 40, 45, 20)
$hF3 = GUICtrlCreateInput("", 200, 40, 45, 20)
$hF4 = GUICtrlCreateInput("", 250, 40, 45, 20)
$hF5 = GUICtrlCreateInput("", 300, 40, 45, 20)

While 1
    Sleep(100)
WEnd

Func guzik1()
    $1st = Random(100000, 900000, 1)
    $2st = Random(1000, 9000, 1)
    $3st = Random(100000, 900000, 1)
    $4st = Random(1000, 9000, 1)
    $5st = Random(100000, 900000, 1)
    GUICtrlSetData($hF1, $1st)
    GUICtrlSetData($hF2, $2st)
    GUICtrlSetData($hF3, $3st)
    GUICtrlSetData($hF4, $4st)
    GUICtrlSetData($hF5, $5st)
EndFunc ;==>guzik1

Func wyjscie()
    Exit
EndFunc ;==>wyjscie

BTW: AutoIT (starting with version 3.3.4.0) replaced OnAutoItExit() with OnAutoItExitRegister() - so your version of AutoIt seems to be a bit outdated!

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

xPietrek,

Just update the existing Inputs, you are creating new ones each time: :)

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

;Opt("OnExitFunc", "exitx")
Opt("TrayAutoPause", 0)
Opt("GUIOnEventMode", 1)

GUICreate("Random numbers", 480, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "wyjscie")
$guzik1 = GUICtrlCreateButton("GENERATE", 210, 300, 80, 30, $WS_GROUP)
GUICtrlSetOnEvent($guzik1, "guzik1")
GUISetBkColor(0x000000)

$Input_1 = GUICtrlCreateInput("", 100, 40, 45, 20)
$Input_2 = GUICtrlCreateInput("", 150, 40, 45, 20)
$Input_3 = GUICtrlCreateInput("", 200, 40, 45, 20)
$Input_4 = GUICtrlCreateInput("", 250, 40, 45, 20)
$Input_5 = GUICtrlCreateInput("", 300, 40, 45, 20)

GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func guzik1()
    $1st = Random(100000, 900000, 1)
    $2st = Random(1000, 9000, 1)
    $3st = Random(100000, 900000, 1)
    $4st = Random(1000, 9000, 1)
    $5st = Random(100000, 900000, 1)

    GUICtrlSetData($Input_1, $1st)
    GUICtrlSetData($Input_2, $2st)
    GUICtrlSetData($Input_3, $3st)
    GUICtrlSetData($Input_4, $4st)
    GUICtrlSetData($Input_5, $5st)
EndFunc   ;==>guzik1

Func wyjscie()
    Exit
EndFunc   ;==>wyjscie

All clear? ;)

M23

P.S. You need to update your AutoIt version - Opt("OnExitFunc", "exitx") is now OnAutoItExitRegister("exitx").


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

@M23

First ;)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

water,

Congratulations. ;):)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

M23,

just faster fingers ;)

water


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Yea, thanks. It works. You have very good support here.

I forgot about function GUICtrlSetData.

I have the latest version of AutoIT, but when I wrote this script, I based on other old script, so I copy that ;)

I'm young programmer.

Thanks again.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0