draygen Posted May 12, 2006 Share Posted May 12, 2006 (edited) Hi everyone, this is my first post .. Nice to meet you all. I am working on a script to automate certain tasks at work, since my company won't write a GUI I decided to try myself with Autoit. What I'm trying to do, is get the Slider Bar to move to the set value of the Input box - Since I'm making a Slider with limits of 0 - 900 , I will have to sometimes enter in an exact value. I cannot seem to get the GUI to update the position of the slider when a value is entered into the input box. I'm still a newbie to this but am learning fast - sorry if this is a dumb question. Here's what I have so far: expandcollapse popup#include <GuiConstants.au3> GuiCreate("Time Lapse Config", 376, 395,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $temp = 0 $Label_1 = GuiCtrlCreateLabel("Time Lapse Configuration", 110, 20, 150, 20) $Slider_2 = GuiCtrlCreateSlider(90, 100, 200, 40) $Label_3 = GuiCtrlCreateLabel("Seconds between frame capture", 110, 70, 160, 20) $Checkbox_4 = GuiCtrlCreateCheckbox("Camera 1", 90, 150, 80, 20) $Checkbox_5 = GuiCtrlCreateCheckbox("Camera 2", 90, 170, 70, 20) $Checkbox_6 = GuiCtrlCreateCheckbox("Camera 3", 90, 190, 80, 20) $Checkbox_7 = GuiCtrlCreateCheckbox("Camera 4", 90, 210, 70, 20) $Checkbox_8 = GuiCtrlCreateCheckbox("Camera 9", 190, 150, 90, 20) $Checkbox_9 = GuiCtrlCreateCheckbox("Camera 11", 190, 190, 90, 20) $Checkbox_10 = GuiCtrlCreateCheckbox("Camera 10", 190, 170, 80, 20) $Checkbox_11 = GuiCtrlCreateCheckbox("Camera 12", 190, 210, 70, 20) $Checkbox_12 = GuiCtrlCreateCheckbox("Camera 13", 190, 230, 80, 20) $Checkbox_13 = GuiCtrlCreateCheckbox("Camera 5", 90, 230, 80, 20) $Checkbox_14 = GuiCtrlCreateCheckbox("Camera 8", 90, 290, 70, 20) $Checkbox_15 = GuiCtrlCreateCheckbox("Camera 6", 90, 250, 80, 20) $Checkbox_16 = GuiCtrlCreateCheckbox("Camera 7", 90, 270, 80, 20) $Checkbox_17 = GuiCtrlCreateCheckbox("Camera 14", 190, 250, 70, 20) $Checkbox_18 = GuiCtrlCreateCheckbox("Camera 15", 190, 270, 80, 20) $Checkbox_19 = GuiCtrlCreateCheckbox("Camera 16", 190, 290, 90, 20) $Label_20 = GuiCtrlCreateInput($temp, 300, 110, 30, 20) $Apply = GuiCtrlCreateButton("Apply", 165, 345) GUICtrlSetLimit(4,900,0) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $Apply = Apply() Case Else If $temp <> GUICtrlRead($Slider_2) Then $temp = GUICtrlRead($Slider_2) GUICtrlSetData($Label_20, $temp) EndIf EndSelect WEnd Func Apply() GUICtrlRead($temp) IniWrite("C:\program files\NA\NA\test.ini", "Settings", "Info", $temp) EndFunc Edited May 12, 2006 by draygen Link to comment Share on other sites More sharing options...
Valuater Posted May 12, 2006 Share Posted May 12, 2006 maybe expandcollapse popup#include <GuiConstants.au3> GUICreate("Time Lapse Config", 376, 395, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $temp = 0 $Label_1 = GUICtrlCreateLabel("Time Lapse Configuration", 110, 20, 150, 20) $Slider_2 = GUICtrlCreateSlider(90, 100, 200, 40) $Label_3 = GUICtrlCreateLabel("Seconds between frame capture", 110, 70, 160, 20) $Checkbox_4 = GUICtrlCreateCheckbox("Camera 1", 90, 150, 80, 20) $Checkbox_5 = GUICtrlCreateCheckbox("Camera 2", 90, 170, 70, 20) $Checkbox_6 = GUICtrlCreateCheckbox("Camera 3", 90, 190, 80, 20) $Checkbox_7 = GUICtrlCreateCheckbox("Camera 4", 90, 210, 70, 20) $Checkbox_8 = GUICtrlCreateCheckbox("Camera 9", 190, 150, 90, 20) $Checkbox_9 = GUICtrlCreateCheckbox("Camera 11", 190, 190, 90, 20) $Checkbox_10 = GUICtrlCreateCheckbox("Camera 10", 190, 170, 80, 20) $Checkbox_11 = GUICtrlCreateCheckbox("Camera 12", 190, 210, 70, 20) $Checkbox_12 = GUICtrlCreateCheckbox("Camera 13", 190, 230, 80, 20) $Checkbox_13 = GUICtrlCreateCheckbox("Camera 5", 90, 230, 80, 20) $Checkbox_14 = GUICtrlCreateCheckbox("Camera 8", 90, 290, 70, 20) $Checkbox_15 = GUICtrlCreateCheckbox("Camera 6", 90, 250, 80, 20) $Checkbox_16 = GUICtrlCreateCheckbox("Camera 7", 90, 270, 80, 20) $Checkbox_17 = GUICtrlCreateCheckbox("Camera 14", 190, 250, 70, 20) $Checkbox_18 = GUICtrlCreateCheckbox("Camera 15", 190, 270, 80, 20) $Checkbox_19 = GUICtrlCreateCheckbox("Camera 16", 190, 290, 90, 20) $Label_20 = GUICtrlCreateInput($temp, 300, 110, 30, 20) $Apply = GUICtrlCreateButton("Apply", 165, 345) GUICtrlSetLimit(4, 900, 0) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Apply Apply() Case Else If $temp <> GUICtrlRead($Slider_2) Then $temp = GUICtrlRead($Slider_2) GUICtrlSetData($Label_20, $temp) EndIf EndSelect WEnd Func Apply() $set_temp = GUICtrlRead($Label_20) GUICtrlSetData($Slider_2, $set_temp) ;GUICtrlRead($temp) ;IniWrite("C:\program files\NA\NA\test.ini", "Settings", "Info", $temp) EndFunc ;==>Apply 8) Link to comment Share on other sites More sharing options...
draygen Posted May 13, 2006 Author Share Posted May 13, 2006 (edited) Doh, that was a stupid mistake.. Thanks.. In the end I decided to toss the slider and just use an input box, since it was a pain to get the exact values with a slider. I finished it though! Now I won't be telling customers how to edit 20 key values in an .INI file over the phone... yay... Edited May 13, 2006 by draygen Link to comment Share on other sites More sharing options...
Valuater Posted May 13, 2006 Share Posted May 13, 2006 1 Your welcome 2 not bad for a first post, not bad at all! 3 I also noted you took the exams on Welcome to Autopit 1-2-3 that shows effort... all of us whom "help" appreciate effort 8) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now