Где народ?

Сабж, таки Что за затишье? Куда все пропали? Почему ни кто не пишет?

Типа перекличку хошь?

Ну вот он я , здеся! Живой. Не скажу, что здоровый. Но на форуме появляться могу. Только меня это сейчас не прикалывает.

Пишу глупую игрушку, со стаматолагами общаюсь, короче полный улёт.

Судя по рейтингу на ФБтопе народ заходит, поглядит... ага, ничего нового, и уходит
Я ежедневно бываю тут, спрашивать тока нечего, жду когонибудь, кому че подсказать

tux пишет:Судя по рейтингу на ФБтопе народ заходит, поглядит... ага, ничего нового, и уходит
Я ежедневно бываю тут, спрашивать тока нечего, жду когонибудь, кому че подсказать

Уважаемый "tux", ваши призывы услышаны!
Действительно, несколько раз заходил на форум и даже написал 14 ноября слезное письмо пользователю "mshak" – теперь вот жду ответа (почти без надежды получить)... Установил на домашнем компьютере под ОС WindowsXP "сборку" с сайта:
http://mneniya.ucoz.ru/news/instaljator_freebasic_sborka/2011-05-17-686
Главная > 2011 > Май > 17 > Инсталятор FreeBasic (сборка)
Данная сборка позволяет установить редактор FbEdit полностью настроенный с компилятором 0.22.0 и библиотекой Window9...
Все работает, но возникла морока с русскими шрифтами (понимаю, что это общая беда), которую, в связи с полной некомпетентностью, побороть не могу :-)
Если есть возможность – помогите п-п-л-л-л-и-и-и-з-з-з!

2 Ruddy
Посмотрите сюда, сам не особо разбирался, но вроде работает..

Собственно, по сабжу.. также почти каждый день бываю, но никто ничего не пишет. Да и я уже почти перешел на FreePascal( ну тока олимпиаду одну почти всю на бейсике писал, ибо для консолек лучше здесь...) и сейчас начал lua учить..

Саня, спасибо – ссылка деловая, но разбираться буду долго, т.к. думаю, что этот вариант проблемы полностью не решает... Я инженер-металлург, но по долгу службы некоторое время работал с ребятами из АСУТП. Много видел всяких языков (от ассемблера на PDP-11 до ADA на VAX), но запал на QBasic – легко читаемый (доступный) и красивый язык, просто прелесть для небольших "математических" программок. Долго искал замену и, как показалось, нашел (FreeBasic), но проблема со шрифтами (в редакторе FbEdit) портит все дело... Подождите переходить на FreePascal, в коллективе веселее...

Саня, в теме Библиотека русифицированных шрифтов...
https://freebasic.forum2x2.ru/t365-topic
столкнулся со своей (думаю, общей) проблемой:
trew 30.12.2010 10:14 pm
Вот еще бы FbEdit по нормальному работал бы со шрифтами, а то что то скопировать из него (русское) и вставить в другой редактор, полная ж-па.
Для разговоров предлагаю текст "экспериментального" примера:
DIM ST AS STRING
ST = "Привет Мир!"
PRINT ST
SLEEP
который сохранил MS Word 2003 в виде трех файлов:
TestD.bas – только текст в кодировке: DOS
TestW.bas – только текст в кодировке: Windows
TestU.bas – только текст в кодировке: Другая (Юникод)
Подстрока "Привет Мир!" отображается:
TestD.bas TestW.bas TestU.bas
в окне редактора FbEdit: непр. прав. прав.
в окошке вывода консоли: прав. непр. непр.
т.е. "неправильность" проявляется в окне редактора FbEdit!

Проще говоря, то что правильно отображается в fbedit - неправильно отображается в консолеи наоборот..
Думаю, что это никак не исправить относительно fbedit. FbEdit правильно понимает юникод и win (cp1251 помойму..или cp1252.. у меня в висте нормально отображаются русский шрифт, тогда как в xp нет), и FbEdit понимает только их, cp866 - никак.
Консоль не понимает win. Unicode она может отобразить, но надо, во-первых, файл сохранить в юникоде, а, во вторых, тип String не предназначен для юникода, только для аски и при присвоении переменной юникодного значения, она понимает его как аски. Для юникода используйте wstring (он аналогичен по предоставляемому функционалу типу zstring).
Dim st As String*11 = "Привет Мир!"
Print st
Sleep
Как скормить cp866 - только преобразовывать либой уважаемого Albom'a.
Кстати, попробуйте использовать Geany - кроссплатформенный редактор, поддерживающий синтаксис FreeBasic (и многих других..), с возможностью установления желаемой кодировки. удобная штука, но тащит за собой GTK2( думаю особой проблемы это не вызовет... )
и загляните в документацию на форуме...

Саня, прошу подтвердить: под Windows Vista FbEdit в своем окне и в окне вывода консоли правильно отображает русские шрифты в кодировке DOS?! В WindowsXP по умолчанию для шрифтов используется кодовая страница cp1252 (Windows Western), если выбирать шрифт с суффиксом Cyr, то для шрифта должна использоваться кодовая страница cp1251 (Windows Cyrillic). Как обмануть систему писал "mshak" в теме:
https://freebasic.forum2x2.ru/t8-topic
IDE для FreeBasic'a - FbEdit
но я почти ничего не понял... а он еще не ответил на мою просьбу...

Нашел тему, в которой товарищ правильно поставил вопрос:
https://freebasic.forum2x2.ru/t176-topic
Кто каким редактором кода пользуется?
Котоёж в 14.01.2009 1:38 pm
Недавно поставил один из "рекомендуемых" редакторов для FreeBasic - FBEdit и обнаружил, что он как и все косячит с кириллицей. Т.е. код я всегда писал в cp866 (DOS) и это в принципе правильно - именно с этой кодировкой работает компилятор. А все эти редакторы открывают код в Win1251. Не нашел настроек кодировки в FBEdit. Кто-нибудь решал эту проблему?
Дополнение от себя: как заставить редактор FBEdit правильно отображать в своем окне редактирования (к слову, как правильно называются отдельные окошки редактора?) текст (листинг программы), набранный в любом другом редакторе и сохраненный в виде текстового файла в кодировке cp866 (DOS)?

Ruddy, нет, кодировка cp866 отображается у меня неправильно (отображается в кодировке cp1251).
а вот как обмануть систему - не видел... если что - воспользуюсь. Наверное, можно такими извращениями и установить cp866, по другому нет, имхо. можно перекодировать файлы из cp866 в юникод к примеру. Или использовать другой редактор.

Нет, ребята, на это мы пойтить не могим! Редактор должен остается FBEdit, файлы перекодировке не подлежат! Все операционные системы Windows прекрасно понимают кодировку cp866 (DOS) – в ней выводятся беленькие буковки на черном экране, например, при загрузке системы... Думаю, нужно искать в каталоге редактора FBEdit файл с фонтами или еще раз внимательно посмотреть его настройки...

Собственно, по сабжу.. также почти каждый день бываю, но никто ничего не пишет. Да и я уже почти перешел на FreePascal( ну тока олимпиаду одну почти всю на бейсике писал, ибо для консолек лучше здесь...) и сейчас начал lua учить..

Ну как дела с FreePascal ? Просто интересно есть ли в нем какие-то стороны, более блестящие чем в FreeBasic. Интересно мнение того, кто знает оба языка.

Ну как дела с FreePascal?
Pascal меня в любом виде не забавляет!
Думаю, сторон, более блестящих чем в FreeBasic нет.
Как Вы понимаете, меня занимает не язык, а удобная оболочка...
Если есть желание - помогите, пли-и-и-з-з-з

ruddy пишет:Ну как дела с FreePascal?
Pascal меня в любом виде не забавляет!
Думаю, сторон, более блестящих чем в FreeBasic нет.
Как Вы понимаете, меня занимает не язык, а удобная оболочка...
Если есть желание - помогите, пли-и-и-з-з-з

Если честно я цитировал пользователя Саня, ведь именно он писал о FreePascal. В вашем случае попробуйте AkelPad , он понимает кучу всяких кодировок, в том числе и досовскую. По ЭТОЙ ссылке можно скачать редактор вместе с подсветкой ключевых слов для языка FreeBasic. Возможно список слов не совсем полный , при необходимости добавите. Под себя можно настроить все что требуется (редактор полностью настраиваемый, и до сих пор поддерживается авторами)

Ну, как-то не очень... Паскаль, имхо хорош для графических прог из-за библиотеки виджетов LCL и относительно удобной среды - Lazarus, но для консольных я все-таки предпочитаю бейсик, но, пожалуй, из-за плохого знания модулей и синтаксис у бейсика для быстрого ваяния имхо лучше. из ярких фич самого языка можно отметить зоопарк всяких стрингов), ибо язык также поддерживает несколько различных режимов совместимости (для турбопаскаля, дельфи, macpascal). Ещё присваивания в сишном синтаксисе (+=, *=, \=),но это мелочь, хоть и удобно. Портабилен. функции, процедуры могут быть вложены (это вроде во всех паскалях было; что-то вроде замыканий), плюс несколько модификаторов функций для компилятора, но это так...
Подерживает перегрузку операторов, функций. В отличии от бейсика, таки есть нормальные классы с одиночным наследованием от TObject. Имются также и свойства, и это мне нравится т.к. более удобны, хочешь свойство указывает на поле, хочешь на функцию(на метод класса), причем есть несколько видов свойств: обычная, как массив, дефолтная(можно не указывать потом к какому свойству обращаешься), индексированная. Интерфейсы имеются. Генерики, они же шаблоны в с++ тоже есть, но их ещё допиливать и допиливать. Пожалуй, что мне не нравится так это в цикле for счетчик увеличивается/уменьшается только на 1; выход из нескольких циклов делается по goto, хотя break, continue, exit имеются. Вывод: по-моему, чем-то напоминает java/с++, в паскалевском синтаксисе, хотя я могу и ошибаться. Если нужно что-нибудь паскалеподобное на линукс, то это единственный вариант.Пример:

Код:


 unit STACK;
interface
const
  SizeOfArrayCTE
  SizeOfArrayDER
type
  T = record
  TElem: integer
  TLeft: integer
  TRight: intege
end;
procedure Put_Stack(var ELEM: integer;
                    var CTEK: array of T;
                    var ukaz: integer;
                    var ERROR: Boolean);
 
procedure Take_Stack(var ELEM: integer;
                    var CTEK: array of T;
                    var ukaz: integer; 
                    var EMPTY: Boolean);
implementation
{ ======================================== }
procedure Put_Stack(var ELEM: integer; 
                    var CTEK: array of T;
                    var ukaz: integer;
                    var ERROR: Boolean);
{ ======================================== }
begin
  if ukaz > SizeOfArrayCTEK then
      ERROR:= true
  else
  begin
    CTEK[ukaz].TElem:= ELEM;
    ukaz:= ukaz + 1;
  end;
end;
{ ====================================== }
procedure Take_Stack(var ELEM: integer;
                    var CTEK: array of T;
                    var ukaz: integer; 
                    var EMPTY: Boolean);
{ ====================================== }
begin
  if ukaz = 1 then
    EMPTY:= true
  else
  begin
    ukaz:= ukaz - 1;
    ELEM:= CTEK[ukaz].TElem;
  end;
end;
end.
  Листинг программы обхода двоичного дерева слева:
 
program Derevo_Left;
{$mode objfpc}{$H+}
{Процедуры работы со стеком мы оформили в виде модуля!}
uses
  CRT, FileUtil, STACK;
var
  CTEK:array [1..SizeOfArrayCTEK] of T;
  DER:array[1..SizeOfArrayDER] of T;
  ukaz: integer;
  i ,ELEM: integer;
  ERROR, EMPTY: Boolean;
  fder: TextFile;
begin
 {Инициализация указателя стека (начального индекса в массиве)}
  ukaz:= 1;
{Чтение из файла дерева}
  Assign(fder, 'derevo.dat');
  Reset(fder);
  i:= 1;
  while not Eof(fder) do
  begin
    Read(fder, DER[i].TElem);
    Read(fder, DER[i].TLeft);
    Read(fder, DER[i].TRight);
    inc(i);
  end;
  Close(fder);
  ERROR:= false;
  EMPTY:= false;
  i:= 1;
  writeln(UTF8ToConsole('Обход  двоичного дерева слева'));
  while DER[i].TElem <> -1 do
  begin
    if DER[i].TLeft <> -1 then
    begin
      ELEM:= i;
      Put_Stack(ELEM, CTEK, ukaz, ERROR);
      if ERROR = true then
      begin
        writeln(UTF8ToConsole('Ошибка! Переполнение стека.'));
        writeln(UTF8ToConsole('Увеличьте размер массива'));
        writeln(UTF8ToConsole('Нажмите любую клавишу'));
        readkey;
        exit;
      end;
      i:= DER[i].TLeft;
    end
    else
    begin
      repeat
        writeln(DER[i].TElem);
        Take_Stack(ELEM,CTEK,ukaz,EMPTY);
        if EMPTY = true  then break;
        i:= ELEM;
      until DER[i].TRight <> -1;
      if EMPTY = true then break;
      writeln(DER[i].TElem);
      i:= DER[i].TRight;
    end;
  end;
  writeln(UTF8ToConsole('Нажмите любую клавишу'));
  readkey;
end.


листинг взят из книги Мансурова К.Т. "Основы программировани
в среде Lazarus" со стр 353.
http://freepascal.ru/

Саня! Спасибо за ответ.

Спасибо уважаемый "trew", обязательно попробую AkelPad (http://freebasic-world.narod.ru/user-files/AkelPad.zip).
Уже признавался, что подготовка в "системном программировании" - никакая и настройка Интегрированной среды разработки (IDE) для меня весьма трудная задача. Ежели что, позвольте обращаться к Вам...

ruddy пишет:Спасибо уважаемый "trew", обязательно попробую AkelPad (http://freebasic-world.narod.ru/user-files/AkelPad.zip).
Уже признавался, что подготовка в "системном программировании" - никакая и настройка Интегрированной среды разработки (IDE) для меня весьма трудная задача. Ежели что, позвольте обращаться к Вам...

Из меня тоже системщик не ах. Однако нет проблем, что знаю подскажу.

"Однако нет проблем, что знаю подскажу" - ловлю на слове :-)
Пока от этой проблемы немного отошел (с обязательным возвратом).
Вопросы, предполагаю, будут в "прилаживании" редактора к транслятору...
Что особенно привлекает во FreeBasic так это четкое выполнение трансляции в двух режимах, которые устанавливаются при помощи ключа –lang:
-lang fb разрешает все современные возможности поддерживаемые FreeBASIC;
-lang qb разрешает использование синтаксиса QuickBasic на максимальном уровне.
Т.е. не пропадают накопленные за долгие годы программы...