Пример: Глобальная сеть INTERNET
Я ищу:
На главную  |  Добавить в избранное  

Главная/

Программирование, базы данных. /

Экспертная система

Документ 1 | Документ 2 | Документ 3 | Документ 4 | Документ 5 | Документ 6

←предыдущая следующая→  
1 2 

visualres.put(machine,'Машина вывода');

   dispose(machine,done)

  end;

 procedure createmanager;

  var r:trect;

  begin

   r.assign(10,5,70,15);

   manager:=new(pmanager,init(r,'Заключение'));

   with manager^ do

    begin

     r.assign(1,3,11,5);

     insert(new(pbutton,init(r,'Объяснить',cmwhy,bfdefault)));

     r.assign(12,3,22,5);

     insert(new(pbutton,init(r,'Протокол',cmreport,bfnormal)));

     r.assign(23,3,33,5);

     insert(new(pbutton,init(r,'Печать',cmprint,bfnormal)));

     r.assign(34,3,44,5);

     insert(new(pbutton,init(r,'Помощь',cmmhelp,bfnormal)));

     r.assign(45,3,55,5);

     insert(new(pbutton,init(r,'Отмена',cmcancel,bfnormal)));

     selectnext(false)

    end;

   visualres.put(manager,'Менеджер');

   dispose(manager,done)

  end;

 procedure createstatewindow;

  var r:trect;

      f:string;

  begin

   r.assign(5,1,75,21);

   state:=new(pstatewindow,init(r,'Установка редактора  шаг 1 из 5'));

   with state^ do

    begin

     r.assign(2,3,33,5);

     bv:=new(pradiobuttons,init(r,

      newsitem('~Л~огические цепи',

      newsitem('~Т~ест',nil))));

     insert(bv);

     r.assign(2,2,12,3);

     insert(new(plabel,init(r,'Вид ~б~азы:',bv)));

     r.assign(37,3,68,5);

     ev:=new(pradiobuttons,init(r,

      newsitem('~М~атрица',

      newsitem('~П~ротокол',nil))));

     insert(ev);

     r.assign(38,2,58,3);

     insert(new(plabel,init(r,'Вид ~р~едактора:',ev)));

     r.assign(2,7,33,9);

     bi:=new(pradiobuttons,init(r,

      newsitem('~В~опрос/ответ',

      newsitem('В~и~ртуальный пульт',nil))));

     insert(bi);

     r.assign(2,6,15,7);

     insert(new(plabel,init(r,'~И~нтерфейс:',bi)));

     r.assign(37,7,68,9);

     rv:=new(pradiobuttons,init(r,

      newsitem('~С~трока',

      newsitem('~Т~екст',nil))));

     insert(rv);

     r.assign(37,6,68,7);

     insert(new(plabel,init(r,'Вид р~е~сурсов:',rv)));

     r.assign(2,11,33,14);

     c:=new(pradiobuttons,init(r,

      newsitem('Редактор ~о~бъектов',

      newsitem('Редактор ~з~начений',

      newsitem('Редактор ~п~равил',nil)))));

     insert(c);

     r.assign(2,10,16,11);

     insert(new(plabel,init(r,'~С~оставляющие:',c)));

     r.assign(37,11,68,14);

     a:=new(pcheckboxes,init(r,

      newsitem('~З~ащита',

      newsitem('~И~нформация',

      newsitem('~Д~оверие',nil)))));

     insert(a);

     r.assign(37,10,55,11);

     insert(new(plabel,init(r,'Ре~к~визиты базы:',a)));

     r.assign(2,17,16,19);

     insert(new(pbutton,init(r,'~П~уск',cmok,bfdefault)));

     r.assign(18,17,32,19);

     insert(new(pbutton,init(r,'~С~брос',cmnil,bfnormal)));

     r.assign(38,17,52,19);

     insert(new(pbutton,init(r,'~О~тмена',cmcancel,bfnormal)));

     r.assign(54,17,68,19);

     insert(new(pbutton,init(r,'По~м~ощь',cmhelp,bfnormal)));

     selectnext(false)

    end;

   visualres.put(state,'Установка');

   dispose(state,done)

  end;

 procedure createatributeditor;

  var r:trect;

  begin

   r.assign(15,3,65,18);

   atributeditor:=new(patributeditor,init(r,'Редактор объектов  шаг 2 из 5'));

   with atributeditor^ do

    begin

     r.assign(1,8,11,10);

     insert(new(pbutton,init(r,'В~н~ести',cmin,bfdefault)));

     r.assign(13,8,23,10);

     insert(new(pbutton,init(r,'~У~далить',cmout,bfnormal)));

     r.assign(25,8,35,10);

     insert(new(pbutton,init(r,'~З~апись',cmrec,bfnormal)));

     r.assign(37,8,47,10);

     insert(new(pbutton,init(r,'~П~омощь',cmaehelp,bfnormal)));

     r.assign(1,11,11,13);

     insert(new(pbutton,init(r,'~О~чистить',cmclear,bfnormal)));

     r.assign(13,11,23,13);

     insert(new(pbutton,init(r,'Н~а~зад',cmreturn,bfnormal)));

     r.assign(25,11,35,13);

     insert(new(pbutton,init(r,'~Д~алее',cmfar,bfnormal)));

     r.assign(37,11,47,13);

     insert(new(pbutton,init(r,'О~т~мена',cmcancel,bfnormal)));

     selectnext(false)

    end;

   visualres.put(atributeditor,'Объекты');

   dispose(atributeditor,done)

  end;

 procedure createvalueeditor;

  var r:trect;

  begin

   r.assign(15,3,65,16);

   valueeditor:=new(pvalueeditor,init(r,'Редактор значений  шаг 3 из 5'));

   with valueeditor^ do

    begin

     r.assign(1,7,11,9);

     insert(new(pbutton,init(r,'В~н~ести',cmin,bfdefault)));

     r.assign(13,7,23,9);

     insert(new(pbutton,init(r,'~Д~ругой',cmcancel,bfnormal)));

     r.assign(25,7,35,9);

     insert(new(pbutton,init(r,'~З~апись',cmrec,bfnormal)));

     r.assign(37,7,47,9);

     insert(new(pbutton,init(r,'~П~омощь',cmaehelp,bfnormal)));

     r.assign(1,10,11,12);

     insert(new(pbutton,init(r,'~О~чистить',cmclear,bfnormal)));

     r.assign(13,10,23,12);

     insert(new(pbutton,init(r,'Н~а~зад',cmreturn,bfnormal)));

     r.assign(25,10,35,12);

     insert(new(pbutton,init(r,'~Д~алее',cmfar,bfnormal)));

     r.assign(37,10,47,12);

     insert(new(pbutton,init(r,'О~т~мена',cmcancel,bfnormal)));

     selectnext(false)

    end;

   visualres.put(valueeditor,'Значения');

   dispose(valueeditor,done)

  end;

 procedure createruleeditor;

  var r:trect;

  begin

   r.assign(0,0,80,23);

   ruleeditor:=new(pruleeditor,init(r,'Редактор правил  шаг 4 из 5'));

   with ruleeditor^ do

    begin

     r.assign(1,1,79,2);

     insert(new(pstatictext,init(r,'Введите правило:')))

    end;

   visualres.put(ruleeditor,'Правила');

   dispose(ruleeditor,done)

  end;

 begin

  pvisualstrm:=new(pprotectedstream,init('expert.air',stcreate,4096));

  visualres.init(pvisualstrm);

  registermenus;

  registerobjects;

  registerviews;

  registerdialogs;

  registercalendar;

  registercalc;

  registerpuzzle;

  registermain;

  createstatusline;

  createmenubar;

  createbank;

  createcalendar;

  createcalc;

  creategame;

  createnewwindow;

  createrenamewindow;

  createdeletewindow;

  createexitwindow;

  createmachine;

  createmanager;

  createstatewindow;

  createatributeditor;

  createvalueeditor;

  createruleeditor;

  visualres.done

 end.

←предыдущая следующая→  
1 2 


Copyright © 2005—2007 «RefStore.Ru»