Оберон-клуб «ВЄДАsoft»

Твердыня модульных языков
Текущее время: 15 дек 2017, 20:02

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




Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 19 мар 2012, 20:22 
Не в сети
Аватара пользователя

Сообщения: 846
Откуда: Днепропетровская обл.
Это пример сообщения в установленном Вами форуме phpBB3. Похоже, что все отлично работает. Если хотите, Вы можете удалить это сообщение, и продолжить настройку Вашего форума. Во время установки форума для Вашего первого раздела форумов и первого форума были назначены права доступа для существующих групп: администраторов, ботов, главных модераторов, гостей. Если Вы пожелаете удалить первый раздел и первый форум, то не забывайте применять эти права доступа ко всем новым разделам и форумам, которые Вы создаете. Мы советуем переименовать первый раздел и первый форум и копировать их права доступа при создании новых разделов и форумов. Успехов!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 20 мар 2012, 23:06 
Не в сети
Администратор
Аватара пользователя

Сообщения: 148
Привет всем!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 26 мар 2012, 10:16 
Не в сети

Сообщения: 58
Привет, привет!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 27 мар 2012, 20:40 
Не в сети
Аватара пользователя

Сообщения: 11
Всем доброго времени суток)


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 31 мар 2012, 00:35 
Не в сети
Администратор
Аватара пользователя

Сообщения: 148
Позволил себе набраться наглости и модифицировать немного bb редактор.
Теперь есть стилевое оформление кода для Оберон.

Пример:

Код: "OBERON"
  1. MODULE Console;
  2.  
  3. IMPORT
  4. Windows, SYSTEM;
  5.  
  6. VAR
  7. hin, hout: Windows.HANDLE;
  8.  
  9. PROCEDURE ReadString*(VAR str:ARRAY OF CHAR);
  10. VAR
  11. n,i,c:LONGINT;
  12. BEGIN
  13. n:=LEN(str);
  14. i:=0;
  15. SYSTEM.PUTREG(0, Windows.ReadFile(hin, str, n, n, NIL));
  16. str[n-2]:=0X; (* - 0AX 0DX *)
  17.  
  18. (* Конвертируем русские символы *)
  19. WHILE i<n DO
  20. c:=ORD(str[i]);
  21. IF (c>=192) & (c<=239) THEN c:=c+16;
  22. ELSIF (c=240) THEN c:=168;
  23. ELSIF (c=241) THEN c:=184;
  24. ELSIF (c=168) THEN c:=232;
  25. END;
  26. str[i]:=CHR(c);
  27. INC(i);
  28. END;
  29.  
  30. END ReadString;
  31.  
  32. BEGIN
  33. hin := Windows.GetStdHandle(Windows.STD_INPUT_HANDLE);
  34. hout:= Windows.GetStdHandle(Windows.STD_OUTPUT_HANDLE);
  35. END Console.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 31 мар 2012, 00:42 
Не в сети
Аватара пользователя

Сообщения: 846
Откуда: Днепропетровская обл.
Да просто суперово смотрится, Серж. :) Бомба!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Приветствуем Вас в phpBB3!
СообщениеДобавлено: 01 апр 2012, 03:09 
Не в сети
Администратор
Аватара пользователя

Сообщения: 148
Вобщем добавил тип Текст вот как это выглядит ( по умолчанию стоит Оберон)
и свернуть.развернуть код, по умолчанию развернут.

Код: "OBERON"
  1. PROCEDURE Length*(str:ARRAY OF CHAR): LONGINT;
  2. VAR
  3. n,i,c:LONGINT;
  4. BEGIN
  5. n:=LEN(str);
  6. i:=0;
  7. WHILE (i<n) & (str[i]>0X) DO INC(i); END;
  8. RETURN i;
  9. END Length;


Код: "TEXT"
Межзвездная матеpия вращает экваториальный дип-скай объект, 
хотя галактику в созвездии Дракона можно назвать карликовой.
Радиант перечеркивает терминатор, тем не менее, Дон Еманс включил в список всего 82-е Великие Кометы.
Противостояние последовательно.


Код: "EMPTY"
Межзвездная матеpия вращает экваториальный дип-скай объект, 
хотя галактику в созвездии Дракона можно назвать карликовой.
Радиант перечеркивает терминатор, тем не менее, Дон Еманс включил в список всего 82-е Великие Кометы.
Противостояние последовательно.


Вообщем все готово почти для комфортной работы!
Обновляем обязательно кэш браузера (F5 или Shift+F5 или и то и то)


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

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


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

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


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

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Тех.поддержка phpBB