OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Суббота, 16 Декабрь, 2017 02:13

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: КП + Delphi
СообщениеДобавлено: Понедельник, 01 Декабрь, 2014 21:59 

Зарегистрирован: Вторник, 15 Декабрь, 2009 11:43
Сообщения: 111
В теме "Логика верхнего уровня" я уже рассматривал взаимодейтвие программ
написанных на КП и Delphi, но выложенный там пример носил демонстрационный
характер и не был предназначен для практического использования.

Сейчас я предлагаю интерфейс взаимодействия КП и Delphi, вполне пригодный
для практического применения программистами, желающими писать логику
верхнего уровня своих программ по-русски.


Предлагаемый интерфейс взаимодействия КП и Delphi

Программа на Delphi вызывает обработчики событий из DLL на КП, которая,
в свою очередь, вызывает функции нижнего уровня из DLL на Delphi.

Схема интерфейса между КП и Delphi выглядит следующим образом:
Вложение:
kpdelphi.jpg
kpdelphi.jpg [ 58.17 КБ | Просмотров: 5689 ]

Для реализации приводимого примера я использовал школьную сборку
BlackBox 1.5 (с целью русификации исходного кода на КП) и Delphi 4.
Написанные на Delphi 4 проекты columns и pasdll будут собираться и под
Delphi 2010 и выше, но чтобы предлагаемый интерфейс между КП и Delphi
работал, нужно чтобы columns и pasdll были собраны в одной версии Delphi.

Файл \i21edu\Rsrc\ru.odc мне пришлось редактировать, хотя бы потому, что
там нет русских аналогов для цикла repeat until и для встроенных процедур
inc и dec.
Возможно, что использованные мной определения ЦИКЛ_ДО КОНЕЦ_ЦИКЛА_ДО,
УВЕЛИЧИТЬ, УМЕНЬШИТЬ и не являются идеальными, но лучше что-то, чем вообще
ничего.

Исходя из общего определения ПЕРЕМЕННАЯ:ТИП типы переменных (за исключением
массивов) я решил писать в единственном числе мужского рода.

Привожу фрагмент модуля columnsKpdll (размер columnsKpdll примерно 15 кБ,
593 строки) с основной логикой игры columns, реализацию которой на Delphi
я написал для себя лет 10 тому назад, а сейчас как пример реализации
интерфейса между КП и Delphi решил перетащить ее на КП в слегка упрощенном
виде (без таблицы результатов), а заодно и русифицировать.
Код:
ПРОЦЕДУРА Стакан;
  ПЕРЕМЕННЫЕ и:ЦЕЛЫЙ;
НАЧАЛО

    ширина_канвы := запрос(ШИРИНА_КАНВЫ);
    высота_канвы := запрос(ВЫСОТА_КАНВЫ);

    цвет_фона(0);
    прямоугольник(0, 0, ширина_канвы - 1, высота_канвы - 1);

    ЦИКЛ_ДЛЯ  и:=нач_у ДО кон_у +1 ДЕЛАТЬ
      Кубик(5, и, цТемнозеленый);
      Кубик(19, и, цТемнозеленый);
    КОНЕЦ_ЦИКЛА;

    ЦИКЛ_ДЛЯ  и:=7 ДО 19  ДЕЛАТЬ
      ЕСЛИ ((и ОСТАТОК 2) # 0) ТО   
            Кубик(и, кон_у+1, цТемнозеленый);
      КОНЕЦ;
    КОНЕЦ_ЦИКЛА;

    содержимое_стакана;
КОНЕЦ  Стакан;


ПРОЦЕДУРА одна_линия(нх,ну:ЦЕЛЫЙ; их,иу:ЛОГИЧЕСКИЙ);
   ПЕРЕМЕННЫЕ
   х, у, х1, у1, н_х, н_у, кол_повт,
   тек_цв, цв, сх, су:ЦЕЛЫЙ;
НАЧАЛО
  ЕСЛИ  МассивИгры[ну][нх] >= цФлагЦвета ТО
     тек_цв := МассивИгры[ну][нх] - цФлагЦвета;
  ИНАЧЕ
     тек_цв := МассивИгры[ну][нх];
  КОНЕЦ;
  кол_повт:=1;  н_х:=нх;  н_у:=ну;
  сх:=1;   ЕСЛИ  ~ их  ТО  сх:=0;  КОНЕЦ;
  су:=1;   ЕСЛИ  ~ иу  ТО  су:=0;  КОНЕЦ;
  х:=нх+сх;  у:=ну+су;
  ЦИКЛ_ДО
    ЕСЛИ  МассивИгры[у][х] >= цФлагЦвета ТО
       цв := МассивИгры[у][х] - цФлагЦвета;
    ИНАЧЕ
       цв := МассивИгры[у][х];
    КОНЕЦ;
    ЕСЛИ цв = тек_цв ТО УВЕЛИЧИТЬ(кол_повт);  КОНЕЦ;
    ЕСЛИ ( (цв # тек_цв) ИЛИ
         ((цв = тек_цв) & ((х=5) ИЛИ (у=разм))) ) &
          (кол_повт >= 3) & (тек_цв # 0) ТО

      х1:=н_х; у1:=н_у;
      ЦИКЛ_ПОКА (х1 # х) ИЛИ (у1 # у)  ДЕЛАТЬ
         ЕСЛИ МассивИгры[у1][х1] < цФлагЦвета  ТО
            МассивИгры[у1][х1]:=МассивИгры[у1][х1]+цФлагЦвета;
         КОНЕЦ;
        ЕСЛИ  их  ТО  УВЕЛИЧИТЬ(х1);  КОНЕЦ;
        ЕСЛИ  иу  ТО  УВЕЛИЧИТЬ(у1);  КОНЕЦ;
      КОНЕЦ_ЦИКЛА;
      ЕСЛИ цв = тек_цв  ТО
         ЕСЛИ МассивИгры[у][х] < цФлагЦвета ТО
            МассивИгры[у][х]:= МассивИгры[у][х] + цФлагЦвета;
         КОНЕЦ;
      КОНЕЦ;

      кол_очков:=кол_очков + кол_повт - 2;
    КОНЕЦ;
    ЕСЛИ  цв # тек_цв  ТО
      кол_повт :=1;  тек_цв :=цв;  н_х :=х;  н_у :=у; 
    КОНЕЦ;

    ЕСЛИ  их  ТО  УВЕЛИЧИТЬ(х);  КОНЕЦ;
    ЕСЛИ  иу  ТО  УВЕЛИЧИТЬ(у);  КОНЕЦ;
  КОНЕЦ_ЦИКЛА_ДО  (х > 5) ИЛИ (у > разм);
КОНЕЦ  одна_линия;


ПРОЦЕДУРА  подсчет_очков;
   ПЕРЕМЕННЫЕ и, кол_очков_1, кол_очков_2:ЦЕЛЫЙ;

    ПРОЦЕДУРА  отражение_стакана;
    ПЕРЕМЕННЫЕ и,д:ЦЕЛЫЙ;
    НАЧАЛО
      ЦИКЛ_ДЛЯ и:=1 ДО разм ДЕЛАТЬ
        д:=МассивИгры[и][0];
        МассивИгры[и][0]:=МассивИгры[и][5];
        МассивИгры[и][5]:=д;

        д:=МассивИгры[и][1];
        МассивИгры[и][1]:=МассивИгры[и][4];
        МассивИгры[и][4]:=д;

        д:=МассивИгры[и][2];
        МассивИгры[и][2]:=МассивИгры[и][3];
        МассивИгры[и][3]:=д;
      КОНЕЦ_ЦИКЛА;
    КОНЕЦ отражение_стакана;

    ПРОЦЕДУРА  диагонали;
       ПЕРЕМЕННЫЕ х,у:ЦЕЛЫЙ;
    НАЧАЛО  (* диагонали *)   
      (* возрастающие диагонали *)
      ЦИКЛ_ДЛЯ х:=0 ДО 3 ДЕЛАТЬ       
         одна_линия(х,1,ДА,ДА);   КОНЕЦ_ЦИКЛА;
      ЦИКЛ_ДЛЯ у:=2 ДО разм-2 ДЕЛАТЬ 
         одна_линия(0,у,ДА,ДА);   КОНЕЦ_ЦИКЛА;
      (* убывающие диагонали *)
      отражение_стакана;
      ЦИКЛ_ДЛЯ х:=0 ДО 3 ДЕЛАТЬ       
         одна_линия(х,1,ДА,ДА);   КОНЕЦ_ЦИКЛА;
      ЦИКЛ_ДЛЯ у:=2 ДО разм-2 ДЕЛАТЬ 
         одна_линия(0,у,ДА,ДА);   КОНЕЦ_ЦИКЛА;
      отражение_стакана;
    КОНЕЦ диагонали;

    ПРОЦЕДУРА  вертикали;
    ПЕРЕМЕННЫЕ х:ЦЕЛЫЙ;
    НАЧАЛО
      ЦИКЛ_ДЛЯ х:=0 ДО 5 ДЕЛАТЬ 
         одна_линия(х,1,НЕТ,ДА);  КОНЕЦ_ЦИКЛА;
    КОНЕЦ вертикали;

    ПРОЦЕДУРА  горизонтали;
    ПЕРЕМЕННЫЕ у:ЦЕЛЫЙ;
    НАЧАЛО
      ЦИКЛ_ДЛЯ у:=1 ДО разм ДЕЛАТЬ 
         одна_линия(0,у,ДА,НЕТ);  КОНЕЦ_ЦИКЛА;
    КОНЕЦ горизонтали;

    ПРОЦЕДУРА  удаление_блоков;
    ПЕРЕМЕННЫЕ и,ж,макс,см,у:ЦЕЛЫЙ;
    НАЧАЛО
      ЦИКЛ_ДЛЯ и:=0 ДО 5 ДЕЛАТЬ
        у:=1; см:=0;  макс:=мх_мигр[и];
        ЦИКЛ_ПОКА (у < макс) ДЕЛАТЬ
          ЕСЛИ  МассивИгры[у][и] >= цФлагЦвета  ТО
            ЦИКЛ_ДЛЯ  ж:=у+1 ДО макс-1 ДЕЛАТЬ
               МассивИгры[ж-1][и]:=МассивИгры[ж][и];
            КОНЕЦ_ЦИКЛА;
            МассивИгры[макс-1][и]:=0;  УМЕНЬШИТЬ(макс);

          ИНАЧЕ  УВЕЛИЧИТЬ(у);
          КОНЕЦ;
        КОНЕЦ_ЦИКЛА;

        см:=мх_мигр[и]-макс;
        ЕСЛИ  см # 0  ТО
          у:=мх_мигр[и]-1;
          ЦИКЛ_ДЛЯ  ж:=мхту[и]+1 ДО кон_у ДЕЛАТЬ
            (* вывод столбца *)
            Кубик(хст[и], ж, МассивИгры[у][и]);
            УМЕНЬШИТЬ(у);
          КОНЕЦ_ЦИКЛА;
          УМЕНЬШИТЬ(мх_мигр[и],см);  УВЕЛИЧИТЬ(мхту[и],см);
        КОНЕЦ;
      КОНЕЦ_ЦИКЛА;
    КОНЕЦ удаление_блоков;

НАЧАЛО

  кол_очков_2:=кол_очков;
  ЦИКЛ_ДО
    кол_очков_1:=кол_очков;
    разм:=мх_мигр[0];
    ЦИКЛ_ДЛЯ  и:=1 ДО 5 ДЕЛАТЬ 
       ЕСЛИ  мх_мигр[и] > разм  ТО  разм:=мх_мигр[и]; КОНЕЦ;
    КОНЕЦ_ЦИКЛА;
    УМЕНЬШИТЬ(разм);
    ЕСЛИ разм > 2 ТО  диагонали;  вертикали;  КОНЕЦ;
    горизонтали;
    ЕСЛИ кол_очков_1 # кол_очков ТО удаление_блоков; КОНЕЦ;
  КОНЕЦ_ЦИКЛА_ДО  кол_очков_1 = кол_очков;

  ЕСЛИ  кол_очков_2 # кол_очков  ТО
     
    данные(ЧИСЛО_ОЧКОВ, кол_очков);

  КОНЕЦ;

КОНЕЦ подсчет_очков;

Полные исходники проектов columns, kpdll и pasdll, а также
отредактированный файл ru.odc находятся в архиве columns.rar.


Предлагаемый способ программирования для среды BlackBox имеет, на
мой взгляд, следующие достоинства:

1) облегчается достижимость полной русификации исходного кода на КП по
сравнению с автономным BlackBox, т.к. сейчас типы и процедуры стандартных
модулей BlackBox имеют английские названия;

2) Вывод графики в Delphi проще, чем в BlackBox;

3) при отладке программы в Delphi появляется возможность использования
отладчика, пусть и не в пошаговом режиме.

Хотя в педагогическом смысле отладчик использовать вредно, но при
практическом программировании использование отладчика иногда помогает
отладить программу значительно быстрее, чем без него (особенно в состоянии
"смотришь в книгу - видишь фигу", иногда и такое бывает).
Для отладки программы в модуле u_columns задаем процедуру отладки
следующим образом:
Код:
type  t_otladka   = procedure(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:integer);
type
  Tf_column = class(TForm)

  ...
  public:
     otladka: t_otladka;
  end;


var qq:integer;

procedure _otladka(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:integer);
begin
   if (a1 <> -1) then begin

      ...

   end else begin
      qq := 1;  (* вызываем из FormCreate, чтобы можно было ставить
                   в этой процедуре точки останова *)
   end;
end;


В FormCreate:

   otladka := _otladka;

   otladka(-1,0,0,0,0,0,0,0,0,0);


В модуле u_pasdll задаем экспортируемую процедуру:

procedure  _otladka(n1,n2,n3,n4,n5,n6,n7,n8,n9,n10:integer);
begin
   f1.otladka(n1,n2,n3,n4,n5,n6,n7,n8,n9,n10);
end;


В файле kpdll.txt:

ТИП
ПРОЦЕДУРА_10ПАР_ЦЕЛЫЙ = ПРОЦЕДУРА(п1,п2,п3,п4,п5,
                                  п6,п7,п8,п9,п10:ЦЕЛЫЙ);

ПЕРЕМЕННЫЕ
отладка:           ПРОЦЕДУРА_10ПАР_ЦЕЛЫЙ;

При вызове pasdll из kpdll:

      отладка := S.VAL(  ПРОЦЕДУРА_10ПАР_ЦЕЛЫЙ,
             WinApi.GetProcAddress( dll, "_otladka" ) );   

После чего можно отлаживаться, например:

      ЦИКЛ_ПОКА (х1 # х) ИЛИ (у1 # у)  ДЕЛАТЬ
         ЕСЛИ МассивИгры[у1][х1] < цФлагЦвета  ТО
            МассивИгры[у1][х1]:=МассивИгры[у1][х1]+цФлагЦвета;
         КОНЕЦ;

         отладка(100, МассивИгры[у1][х1], у1, х1, 0,0,0,0,0,0);

         ЕСЛИ  их  ТО  УВЕЛИЧИТЬ(х1);  КОНЕЦ;
         ЕСЛИ  иу  ТО  УВЕЛИЧИТЬ(у1);  КОНЕЦ;
      КОНЕЦ_ЦИКЛА;
      ЕСЛИ цв = тек_цв  ТО
         ЕСЛИ МассивИгры[у][х] < цФлагЦвета ТО
            МассивИгры[у][х]:= МассивИгры[у][х] + цФлагЦвета;
         КОНЕЦ;

         отладка(101, МассивИгры[у][х], у, х, 0,0,0,0,0,0);
      КОНЕЦ;


Архив с файлами columns.rar :
Вложение:
columns.rar [65.14 КБ]
Скачиваний: 199


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
cron
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2017, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB