Версия 3.00 Создание графического интерфейса и контролов: Dialog, Button, Static, Edit, Check, Combo. Считывание и запись в них данных.

if (formatsn(getcontrol(EDIT_0))==2013)//Если в поле EDIT 2013
{
sendcontrol(STATIC_0, 2013+5);//Отправим в статичный текст сумму 2013+5
sendcontrol(EDIT_0, "Посчитали");//Отправим в поле EDIT текст
}
else
{
if (getcontrol(COMBO_0)=="Выбор строки 3")//Если это второй запуск и в выпадающем меню уже строка 3
{
sendcontrol(COMBO_0, 1);//Установим выпадающее меню на вторую строку по ее ИНДЕКСУ (2 способ)
sendcontrol(CHECK_0, 0);//Снимаем галку
}
else
{
if (getcontrol(CHECK_0)==1)//Если галка "Включить опцию" есть
{
sendcontrol(EDIT_0, "Галка EDIT есть");//Отправим в поле EDIT текст
sendcontrol(COMBO_0, "Выбор строки 3");//Установим выпадающее меню на третью строку по ее ИМЕНИ (1 способ)
sendcontrol(STATIC_0, getcontrol(COMBO_0));//Отправим в поле EDIT текст
}
else
{
if (getcontrol(COMBO_0)=="Выбор строки 1")
{
sendcontrol(STATIC_0, "Галки EDIT нету");//Отправим в поле EDIT текст
sendcontrol(EDIT_0, getcontrol(COMBO_0));//Отправим в поле EDIT текст текщей строки в выпадающем меню
}
else
{
sendcontrol(STATIC_0, "2013+5 = ?");//Отправим в поле EDIT текст
sendcontrol(EDIT_0, 2013);//Отправим в поле EDIT число
}
}
}
}


CREATE_INTERFACE
{
DIALOG "Название окна" 237 180 //РазмерX РазмерY
BUTTONSCRIPT "Запустить" 125 121 100 25 //ПозицияX ПозицияY РазмерX РазмерY
//Добавление контролов управления ......
STATIC_0 "Статичный текст" 10 10 90 18 //ПозицияX ПозицияY РазмерX РазмерY
EDIT_0 "Текст по умолчанию" 105 8 120 18 //ПозицияX ПозицияY РазмерX РазмерY
CHECK_0 0 /*Выключена*/ "Включить опцию" 10 130 105 18 //ПозицияX ПозицияY РазмерX РазмерY
COMBO_0 0 /*Начальный выбор*/ "Выбор строки 1" | "Выбор строки 2" | "Выбор строки 3" 10 40 212 200 //ПозицияX ПозицияY РазмерX РазмерY_выпадающий список
}

textbkcolor (65535,0);
l:
if (management()=='q')fun1();
if (management()=='w')fun2();
if (management()=='e')fun3();
goto l;



function fun1()
{
textout(0, 50, 50, " q ", 0);
beep(500, 200);
}

function fun2()
{
textout(0, 50, 50, " w ", 0);
beep(1000, 200);
}

function fun3()
{
textout(0, 50, 50, " e ", 0);
beep(2000, 200);
}

function management()
{
if (getkeystate(81)==1)return 'q';
if (getkeystate(87)==1)return 'w';
if (getkeystate(69)==1)return 'e';
return '0';
}

sendcontrol(COMBO_5, 5, -1);