Делаем GUI

Сейчас по шагам, сделаем простой-простой  GUI  (для начала одну форму) для советника MT5

скрипт на tcl/tk

Будем делать следующую форму: внутри рамки с заголовком, подсказка и текстовое поле ввода, внизу формы две кнопки ok/cancel. Когда-нибудь в дальнейшем будем добавлять разные дополнительные поля, а пока ограничемся всего одним.

То есть эскиз будет выглядеть примерно так:

дальше знакомимся с документацией Tk http://www.tcl-lang.org/man/tcl8.6/TkCmd/contents.htm , обращая внимание на подходящие виджеты (ttk::labelframe ttk::label ttk::entry ttk::button) и grid

пишем скрипт, который отобразит форму:

# комментарии начинаются с # и идут до конца строки

# скрипт GUI, нужен пакет Tk
package require Tk

# создаём все элементы
# окно с внутренним именем .form
toplevel .win
# внутри него невидимый фрейм
ttk::frame .win.carea
# уже в котором наш фрейм с рамкой и заголовком
ttk::labelframe .win.carea.form -text "заголовок"
# и кнопки cancel,ok (хотя их тоже можно было в отдельный фрейм)
ttk::button .win.carea.cancel -text "cancel"
ttk::button .win.carea.ok -text "ok"
# внутри формы - подсказка к полю ввода и само поле ввода
ttk::label .win.carea.form.prompt -text "подсказка"
ttk::entry .win.carea.form.entry

# теперь каждый фрейм сверстаем как таблицы 
# внутри окна у нас только один фрейм на всю единственную ячейку таблицы
grid .win.carea -row 0 -column 0 -sticky "nsew"
# разрешим строке и колонке растягиваться
grid rowconfigure .win 0 -weight 1
grid columnconfigure .win 0 -weight 1

# теперь фрейм .win.carea
grid .win.carea.form -row 0 -column 0 -columnspan 3 -sticky "nsew"
grid .win.carea.cancel -row 1 -column 1 -sticky "nsew"
grid .win.carea.ok -row 1 -column 2 -sticky "nsew"
grid columnconfigure .win.carea 0 -uniform same -weight 1
grid columnconfigure .win.carea 1 -uniform same -weight 1
grid columnconfigure .win.carea 2 -uniform same -weight 1
grid rowconfigure .win.carea 0 -weight 1

# и собственно элементы формы
grid .win.carea.form.prompt -row 0 -column 0 -sticky "nsew"
grid .win.carea.form.entry -row 0 -column 1 -sticky "nsew"
grid columnconfigure .win.carea.form 0 -weight 1
grid columnconfigure .win.carea.form 1 -weight 2

периодически запускаем наш скрипт :  tclsh -encoding utf-8 form.tcl  (я предпочитаю кодировку utf-8 в исходниках, и вам советую)

обратите внимание: при запуске скрипта возникает ещё одно окно. Это основное окно для приложения, мы в него ничего не добавляли поэтому оно пустое. И тоже сразу заметим что нажатие на «крестик» закрывает нашу форму.

Добавим пару строчек, в которых скроем основное окно и предотвратим закрытие формы по крестику:

# скрываем основное окно
wm withdraw .
# запрещаем закрывать форму
# (вместо закрытий, просто свернём)
wm protocol .win WM_DELETE_WINDOW { wm iconify .win }

Любуемся полученным результатом:

в общем, ничего сложного. Любой кто умеет делать веб страницы легко справится с подбором и размещением виджетов.

И кстати у нас почти всё готово чтобы поместить форму в советник и запускать в MetaTrader`е. Надо только заставить кнопки работать и самому-с-собой договориться как передавать данные. Пока поступим самым простым способом: при нажатии кнопки Ok в глобальную переменную поместим список {1 значение_из_поля_ввода} . Единица это просто сами придумали такой код . А терминал будет периодично опрашивать переменную и как-то реагировать.

Назначаем действия для кнопок:

# действия для кнопки Ok
# создадим переменную
set BOX {}
.win.carea.ok configure -command {
        # получаем текст из поля ввода
        set text [ .win.carea.form.entry get ]
        # удалим лишние пробелы
        set text [ string trim $text ]
        # если не пусто - зададим значение глобальной переменной
        if { $text != {} } {
                global BOX 
                set BOX [ list 1 $text ]
        }
}
# и заодно уж cancel будет очищать поле ввода
.win.carea.cancel configure -command {
        .win.carea.form.entry delete 0 end
}

Мы закончили с  GUI , начальная форма рисуется, кнопки нажимаются. Дальше будем делать уже советник на MQL5. А скрипт можем пока передать дизайнеру - пусть наводит лоск, добавляет элементы.

советник MQL5

Так как это просто демонстрация, то советник будет элементарный - при запуске показывает форму, при получении данных из формы будет выкидывать Alert:

#resource "form.tcl" as string Form_tcl; // заберём скрипт в виде ресурса
 
#include <ATcl/ATcl.mqh>
ATcl *tcl=NULL;
 
int OnInit()
{
   // инициализуем библиотеку
   if (ATcl_OnInit()!=INIT_SUCCEEDED) {
      return INIT_FAILED;
   }
   // создаём интерпретатор 
   tcl=new ATcl();
   if (tcl==NULL || tcl.OnInit()!=INIT_SUCCEEDED) {
      return INIT_FAILED;
   }
   // исполняем скрипт из ресурса
   if (tcl.Eval(Form_tcl)!=TCL_OK) {
      PrintFormat("error in script:%s",tcl.StringResult());
      return INIT_FAILED;
   }
   // задаём таймер
   EventSetMillisecondTimer(50);
   return(INIT_SUCCEEDED);
}
void OnDeinit(const int reason)
{
   if (tcl!=NULL) {
      tcl.OnDeinit(reason);
      delete tcl;
   }
   EventKillTimer();
}
void OnTick()
{
   // пока ничего
}
void OnTimer()
{
   tcl.Update();  
 
   Tcl_Obj box=tcl.Get("BOX"); // получаем значение переменной
   if (box!=0) {
      tcl.Ref(box);   // будем работать с объектом tcl - увеличим ему число ссылок
      if (tcl.Count(box)>0) {
         // не пустое значение - пользвоатель нажал кнопку
         // код у нас первым в списке
         long code=tcl.Long(box,0);
         // вторым - значение из поля ввода
         string value=tcl.String(box,1);
         if (code==1) {
            // как сам-с-собой договорился код 1 - нажата кнопка Ok
            Alert("Текст в форме:"+value);
         }
         // и очистим переменную (зададим пустое значение)
         tcl.Eval("set BOX {}");
      }
      tcl.Unref(box);   // закончили работать с объектом - уменьшили число ссылок
   }
}
void OnChartEvent(const int id,
                  const long &lparam,
                  const double &dparam,
                  const string &sparam)
{
   tcl.Update();
}

и результат:

форма стартует из советника, при нажатии кнопки советник получает данные и выкидывает Alert. Цель достигнута, сделан советник с  GUI .

Сейчас окошко формы работает как отдельное системное окно, что в общем-то и неплохо. В следующей статье разберём как поместить форму внутрь чарта и каснёмся отладки и оптимизации

(приведённые исходники, приложены)

ИТОГ

В течении буквально часа, сделали простой советник с графической формой ввода.

И самое главное, мы разделили труд - дизайном  GUI  можно и нужно заниматься отдельно. Даже другой человек. Без доступа к основному коду и без сведений об алгоритме советника и даже не владея MQL5. Tcl/Tk всё-же более известен в мире чем mql и тем более его самодельные gui библиотеки - вам проще найти соисполнителя

PS/ несколько часов назад веб-мастера mql начали блокировать переход на инсталлятор.

Скачать можно по резервному адресу https://www.filefactory.com/file/6zj49q87vhkk/atclsetup.exe

ещё https://dfiles.eu/files/9muo987ad 

или через эскизный сайт проекта http://atcl.unaux.com/download/

приношу свои извинения