Что нового

Действие после нажатия кнопки (GuiCreateButton)

Fallen

Новичок
Сообщения
39
Репутация
0
Вот собственно то, до чего смог дойти сам, перерыв справку и форум.
Код:
#include <GuiConstants.au3>

GuiCreate("Вызов из MT4", 450, 100) ; создали окно

GUICtrlCreateLabel("1", 20, 10)
GUICtrlCreateLabel("2 ", 10, 30)
GUICtrlCreateLabel("3", 35, 50) 
$wait = GuiCtrlCreateInput("1235", 70, 70, 100, 20) ; создали поле для ввода
$b_Enter = GuiCtrlCreateButton("Задать", 170, 70, 60, 20) ; создали кнопку "Задать"
$b_Exit = GuiCtrlCreateButton("Выйти", 230, 70, 100, 20) ; создали кнопку "Выйти"


GuiSetState() ; показали окно ввода

While 1 
$msg = GUIGetMsg() ; ждем событий из окна ввода
Select
Case $msg = $GUI_EVENT_CLOSE ; нажали X
ExitLoop
Case $msg = $b_Exit ; нажали кнопку "Выйти"
ExitLoop
Case $msg = $b_Enter ; нажали кнопку "Задать"
   if $wait>0 and $wait<11 Then
	  MsgBox (0, "!!!!!","Well done")
   else
	  MsgBox (0, "!!!!!", "JackAss")
   EndIf
Exit
EndSelect

ПРоблема в том, что условия If не выполняются. =( какое бы значение я не ввел, программа всегда выдает сообщение - Well done
Подскажите, в чем ошибка


Добавлено:
Сообщение автоматически объединено:

Прошу извинить, разобрался сам.
А проблема решалась так - $wait = GUICtrlRead($num) - для тех у кого та же проблема. Итог -
Код:
#include <GuiConstants.au3>

GuiCreate("Вызов из MT4", 450, 100) ; создали окно

GUICtrlCreateLabel("1", 20, 10)
GUICtrlCreateLabel("2 ", 10, 30)
GUICtrlCreateLabel("3", 35, 50) 
$num = GuiCtrlCreateInput("1235", 70, 70, 100, 20) ; создали поле для ввода
$b_Enter = GuiCtrlCreateButton("Задать", 170, 70, 60, 20) ; создали кнопку "Задать"
$b_Exit = GuiCtrlCreateButton("Выйти", 230, 70, 100, 20) ; создали кнопку "Выйти"


GuiSetState() ; показали окно ввода

While 1 
$msg = GUIGetMsg() ; ждем событий из окна ввода
Select
Case $msg = $GUI_EVENT_CLOSE ; нажали X
ExitLoop
Case $msg = $b_Exit ; нажали кнопку "Выйти"
ExitLoop
Case $msg = $b_Enter ; нажали кнопку "Задать"
    $wait = GUICtrlRead($num)
   if $wait>0 and $wait<11 Then
      MsgBox (0, "!!!!!","Well done")
   else
      MsgBox (0, "!!!!!", "JackAss")
   EndIf
EndSelect


Всем спасибо за внимание =)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Fallen [?]
Прошу извинить, разобрался сам.
...
Всем спасибо за внимание =)
[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:
package_old.gif
Тема не решена
[/info]
 
Верх