Нечеткое ранжирование. Реализация методов отношения предпочтений., страница 3

win_CreateControl(wc_LBox,rct(91,49,154,161),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_NoIntegralHeight],alter_1),

win_CreateControl(wc_PushButton,rct(91,189,154,210),"Добавить",_Win,[wsf_Group,wsf_TabStop],insert_alter_1),

win_CreateControl(wc_Text,rct(7,14,70,35),"Веса",_Win,[wsf_AlignLeft],idct_веса),

win_CreateControl(wc_Text,rct(91,14,154,49),"Альтерн атива 1",_Win,[wsf_AlignLeft],idc_task_window_8),

win_CreateControl(wc_Text,rct(182,14,245,49),"Альтерн атива 2",_Win,[wsf_AlignLeft],idc_task_window_9),

win_CreateControl(wc_PushButton,rct(182,189,245,210),"Добавить",_Win,[wsf_Group,wsf_TabStop],insert_alter_2),

win_CreateControl(wc_LBox,rct(182,49,245,161),"",_Win,[wsf_Group,wsf_TabStop,wsf_VScroll,wsf_NoIntegralHeight],alter_2),

win_CreateControl(wc_Edit,rct(182,161,245,182),"",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],ins_alter_2),

win_CreateControl(wc_Text,rct(273,16,336,37),"Порог ti",_Win,[wsf_AlignLeft],idc_task_window_21),

win_CreateControl(wc_Text,rct(357,14,420,35),"Порог tp",_Win,[wsf_AlignLeft],idc_task_window_25),

win_CreateControl(wc_Text,rct(448,14,511,35),"Порог tv",_Win,[wsf_AlignLeft],idc_task_window_29),

win_CreateControl(wc_PushButton,rct(7,224,252,245),"Посчитать",_Win,[wsf_Group,wsf_TabStop],counting),

win_CreateControl(wc_Edit,rct(273,42,336,63),"0.1",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],porog_ti),

win_CreateControl(wc_Edit,rct(357,42,420,63),"0.2",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],porog_tp),

win_CreateControl(wc_Edit,rct(448,42,511,63),"0.3",_Win,[wsf_Group,wsf_TabStop,wsf_AutoHScroll,wsf_AlignLeft],porog_tv),

win_CreateControl(wc_Text,rct(588,126,651,147),"",_Win,[wsf_AlignLeft],alt1),

win_CreateControl(wc_Text,rct(588,161,651,182),"",_Win,[wsf_AlignLeft],alt2),

win_CreateControl(wc_Text,rct(301,217,651,238),"",_Win,[wsf_AlignLeft],result),

win_CreateControl(wc_Text,rct(301,126,567,147),"Значение Sd для первой альтернативы",_Win,[wsf_AlignLeft],idct_значение_sd_для_первой_альтернативы),

win_CreateControl(wc_Text,rct(301,161,567,182),"Значение Sd для второй альтернативы",_Win,[wsf_AlignLeft],idc_task_window_20),

win_CreateControl(wc_GroupBox,rct(294,98,658,245),"Результат",_Win,[],idc_результат),

%END Task Window, InitControls

%BEGIN Task Window, ToolbarCreate, 09:34:32-18.12.2006, Code automatically updated!

%END Task Window, ToolbarCreate

ifdef use_message

msg_Create(100),

enddef

!.

%END Task Window, e_Create

%MARK Task Window, new events

%BEGIN Task Window, id_clear

  task_win_eh(_Win,e_Menu(id_clear,_ShiftCtlAlt),0):-!,

            Hves=win_GetCtlHandle(_Win,vesa),

            Halter1=win_GetCtlHandle(_Win,alter_1),

            Halter2=win_GetCtlHandle(_Win,alter_2),

            lbox_Clear(Hves),

            lbox_Clear(Halter1),

            lbox_Clear(Halter2),

            !.

%END Task Window, id_clear

%BEGIN Task Window, counting _CtlInfo

%***********Здесь  все  считается!*****************************************

task_win_eh(_Win,e_Control(counting,_CtrlType,_CtrlWin,_CtlInfo),0):            Hves=win_GetCtlHandle(_Win,vesa),

            Halter1=win_GetCtlHandle(_Win,alter_1),

            Halter2=win_GetCtlHandle(_Win,alter_2),

            HporogI=win_GetCtlHandle(_Win,porog_ti),

            HporogP=win_GetCtlHandle(_Win,porog_tp),

            HporogV=win_GetCtlHandle(_Win,porog_tv),