Что нового

[Элементы GUI] как В нести значение переменных в скрипт при помощи GUI созданой в КОДА

general66

Пришел увидел наследил
Сообщения
211
Репутация
3
Собственно скрип работает нормально но нет приделов в совершенствовании, решил попробовать освоить GUI, с поиском не совладал наверное из за того что не знаю что искать. собственно нужна помощь наставить меня на путь истинный вот GUIка
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\А.kxf
$Form1_1 = GUICreate("Dialog", 578, 366, 238, 134)
$Button1 = GUICtrlCreateButton("&OK", 161, 331, 110, 25)
$Button2 = GUICtrlCreateButton("&Cancel", 290, 331, 112, 25)
$Radio1 = GUICtrlCreateRadio("33 сек", 390, 27, 65, 21)
$Radio2 = GUICtrlCreateRadio("1 час 6 мин", 470, 27, 81, 21)
$Group1 = GUICtrlCreateGroup("Время", 376, 4, 185, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Тип", 376, 70, 185, 57)
$Radio3 = GUICtrlCreateRadio("Gol", 391, 93, 65, 21)
$Radio4 = GUICtrlCreateRadio("Irn", 471, 93, 81, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Цикл", 377, 136, 185, 97)
$Radio5 = GUICtrlCreateRadio("1", 392, 160, 41, 17)
$Radio6 = GUICtrlCreateRadio("10", 476, 159, 41, 17)
$Radio7 = GUICtrlCreateRadio("100", 393, 192, 49, 17)
$Radio8 = GUICtrlCreateRadio("1000", 478, 191, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input1 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 11, 164, 21)
$Input2 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 39, 164, 21)
$Input3 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 68, 164, 21)
$Input4 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 97, 164, 21)
$Input5 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 128, 164, 21)
$Input6 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 159, 164, 21)
$Input7 = GUICtrlCreateInput("Введите цвет в HEX формате", 16, 189, 164, 21)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

; цвета
$PixDR1          = '0x22B394' ; 1 цвет
$PixDH1			 = '0xFFFF5C' ; 2 цвет
$PixDR2          = '0x199A7C' ; 3 цвет
$PixRel1         = '0x1F1F20' ; 4 цвет
$PixRel2         = '0x1F1E20' ; 5 цвет
$PixB            = '0xB40000' ; 6 цвет
$PixR			 = '0x476E5C' ; 7 цвет

; минуты
$33sek =1
$1h6min =0

;тип
$Gol =1
$Irn =0

;цикл
$1 =1
$10 =0
$100 =0
$1000 =0

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

подскажите как сделать в ней чтоб :
1 из поля ввода записались значения в переменные для цвета
2 переключатель в группах должен быть активным только 1 и значение передалось в переменную
3 ну и чтоб по кнопки ОК все прописывалось и запускался скрипт
просто на форуме столько инфы и вся полезная и информативная убил день на чтение, а по существу так и не добрался, если можно примерчиками поделитесь или ткните пальцем на инфу кто наталкивался , а то чувствую я такими темпами тут чтива наковырял на все выходные заранее благодарен за понимание =)
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
general66
Рекомендую заменить "В ведите" на что-то другое.
Введите - пишется слитно. И вот еще дальше - "в ведите цвет" -
- просто мне кажется, что надо вводить не цвет, а его значение в данном случае. :stars:
 
Автор
G

general66

Пришел увидел наследил
Сообщения
211
Репутация
3
Yuriy [?]
- просто мне кажется, что надо вводить не цвет, а его значение в данном случае.
stars.gif

в поле ввода написал введите цвет чтоб помогающим было понятней что требуется в конечном итоге там будет прописан цвет в HEX формате
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
из поля ввода записались значения в переменные для цвета
Код:
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Button1 ; при нажатии на кнопку Ок
			$Inp1 = GUICtrlRead($Input1)
			$Inp2 = GUICtrlRead($Input2)
			$Inp3 = GUICtrlRead($Input3)
			$Inp4 = GUICtrlRead($Input4)
			$Inp5 = GUICtrlRead($Input5)
			$Inp6 = GUICtrlRead($Input6)
			$Inp7 = GUICtrlRead($Input7)
			MsgBox(64, "Input 1-7", $Inp1 & " /"&$Inp2 & " /"&$Inp3 & " /"&$Inp4 & " /"&$Inp5 & " /"&$Inp6 & " /"&$Inp7)

    EndSwitch
WEnd
 
Автор
G

general66

Пришел увидел наследил
Сообщения
211
Репутация
3
Yuriy
:ok: огромное спасибо с переменными разобрался и по аналогии с переключателями все получилось товарищ CreatoR этим примером снял все вопросы
Код:
#include <GuiConstantsEx.au3>

$GUI = GUICreate("Test Script", 300, 200)

$Radio1 = GUICtrlCreateRadio("Radio 1", 20, 40)
$Radio2 = GUICtrlCreateRadio("Radio 2", 20, 70)

GUISetState(@SW_SHOW, $GUI)

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Radio1, $Radio2
            ConsoleWrite("Выполняем код (" & GUICtrlRead($nMsg, 1) & ")" & @CRLF)
    EndSwitch
WEnd
,

OffTopic:
На авторство этого примера не претендую просто он с соседнего форума поэтому без ссылки дабы не нарушать и не рекламировать

оказалось все намного проще чем мне казалось :shok:, с помощью GUICtrlRead просто читаешь форму и определяешь переменные, а вчера ночью это все казалось квантовой физикой :rofl: СПАСИБО БОЛЬШОЕ еще раз :IL_AutoIt_1:
 

lazarxxx

Новичок
Сообщения
53
Репутация
2
Тоже большое спасибо!!! Аналогичная ситуация была!
 
Верх