Языки программирования с русским синтаксисом

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Языки программирования с русским синтаксисом » Среды разработки, Eclips, FreeIDE » Среда разработки Афина без единого оператора на латинице


Среда разработки Афина без единого оператора на латинице

Сообщений 1 страница 7 из 7

1

Среда разработки приложений с базами данных Афина.
В ней, действительно нет ни одного оператора на латинице (все на русском), а из более чем 150 встроенных функций только две записаны латынью, (хтоб знал зачем) - ExportToExcel и ExportToWord.
Среда служит верой и правдой с 95-го года (до 2003-го под DOS, сейчас под Windows).
Вот, например, как выглядит (можно сказать, типичная) библиотечная функция в Афине (в натуре с синтаксической подсветкой, естественно).

Код:
функция МассивДнейРожд(число Инд) : строка
переменные
  справочник([Дни рождений], Д) сДН;
  колонка(справочник([Дни рождений], Д)) кДР;
  число А, К; дата Дт, ТД;
  колонка(число) кИд, кДн;
  колонка(дата) кДт;
начало
  СписокЗначений(Документ := сДН, Результат := кДР, Д > {01.01.1920}, Д <> ПустаяДата, У = ПустаяДата);
  цикл А от 1 до КоличествоСтрок(кДР) делать
    Дт := ИзменитьДату(НачалоКвартала(1), ДеньВДате(кДР(А).Д)-1, МесяцВДате(кДР(А).Д)-1);
    ВстЭлемент(кИд); К := КоличествоСтрок(кИд); кИд(К) := А;
    ВстЭлемент(кДн); кДн(К) := Дней(Дт, ТекущаяДата);
    ВстЭлемент(кДт); кДт(К) := Дт;
    если Дней(Дт, ТекущаяДата) < 0 то
      Дт := ИзменитьДату(Дт,,,1);
      кДн(К) := Дней(Дт, ТекущаяДата);
      кДт(К) := Дт;
    конец
  конец;
  Сортировка(,, кДн, кИд, кДт);

  если кДн(Инд) = 0 то
    выход кДР(кИд(Инд)).Кто + ": Сегодня ("+ВСтроку(кДт(Инд))+")"
  конец
  выход кДР(кИд(Инд)).Кто + ": ост. "+ Встроку(кДн(Инд))+" дн. ("+ВСтроку(кДт(Инд))+")"
конец

Кто заинтересуется, то вам сюда: сайт Афины

Отредактировано san46 (31-03-2009 12:38:25)

0

2

Чето уж очень замудреная система     
                                                               http://gn.ucoz.ua/im/jarkaya_diskusiya/disobedient.gif

0

3

На Win 7 не работает :(

0

4

Честно, не понял для чего нужна такая система, но за начинания и дело респект.
Все таки она основывается на уже существующей забугорной БД.
Радует простой приятный сайт!)

0

5

Имеющийся сейчас существенный минус - неработоспособность на Win Vista/7, а в остальном очень приятная среда для создания малых учетных систем. Использую ее уже около года. Не смотрите на будто бы сложный код, там на самом деле все просто и логично. На мой взгляд система найдет применение в малом бизнесе, для которого 1С/Access слишком дорого, а MS SQL Server/Oracle/MySql слишком громоздко. Рабочий прототип прикладной задачи можно сделать за 1-2 дня (или за неделю, если делаете первый раз и до этого никогда не программировали).

0

6

Имеющийся сейчас существенный минус - неработоспособность на Win Vista/7, а в остальном очень приятная среда для создания малых учетных систем. Использую ее уже около года. Не смотрите на будто бы сложный код, там на

   Так напишите автору пускай доработает до Win 7. :writing:

0

7

Авторам уже не напишешь - сдулись. Я ж, как "сторож" при этой системе.
На самом деле, Афина работает в W7, но без приложения-настройки, которая, действительно в этой ОС не запускается.
Приходится настройки справочников, функции библиотеки "программировать" в Win XP.
Согласен, для начинающих с неокрепшей психикой это малое утешение. Впрочем и для других прочих, мало знакомых с ней, тоже.
Хотя система, по-мне, морально устарела, но вот использую ее без малого 17 лет и без куска хлеба с маслом не оставался ни разу.
Дело привычки, что ли.

0


Вы здесь » Языки программирования с русским синтаксисом » Среды разработки, Eclips, FreeIDE » Среда разработки Афина без единого оператора на латинице


форум на 24bb Создать форум бесплатно