Управление изображением на мониторе через COM порт

FRIM@N

это в принципе не важно т.к. я перевесил кнопку на RI,но интересно у остальных же я использовал данные из таблицы --как раз биты изменения,чем DCD особенен?

я еще не раздражаю с вопросами?я помню руководитель кружка сдался на 53 ,за один вечер

Реклама

Пухич

FRIM@N писал(а):это в принципе не важно т.к. я перевесил кнопку на RI,

Причем для RI у вас в таблице правильная маска.

но интересно у остальных же я использовал данные из таблицы --как раз биты изменения

Да щас! У остальных сигналов вы как раз биты состояния брали. В младшей половине (маски 1,2,4,8) регистра состояния модема сидят биты изменения, а в старшей половине (маски 16,32,64,128) - биты состояния.

Просто автору таблицы надо руки уполовинить.

я еще не раздражаю с вопросами?

Да нет.

я помню руководитель кружка сдался на 53 ,за один вечер

На 53-м вопросе? Ну если только он был чем-то сильно занят, тогда да.

Реклама

FRIM@N

Да щас!

"вон оно чо михалыч"

На 53-м вопросе? Ну если только он был чем-то сильно занят, тогда да

каддый вопрос содержал 5 подвопросов порядка
что такое асинхронный двигатель,а почему он асинхронный , а как работает,а как выглядит,а как устроен,если есть асинхроный должен быть и синхронный , а как он работает , а почему синхронный? и т.д.

Пухич

FRIM@N писал(а):"вон оно чо михалыч"

Ну вот, разобрались.

Теперь лифт поедет?

каддый вопрос содержал 5 подвопросов порядка
что такое асинхронный двигатель,а почему он асинхронный , а как работает,а как выглядит,а как устроен,если есть асинхроный должен быть и синхронный , а как он работает , а почему синхронный? и т.д.

Признаюсь честно - я бы с такими вопросами отправил вас в библиотеку и ждал бы обратно с более конкретными вопросами (типа "а как получена формула Клосса"). Книги для того и созданы, чтобы быстро и квалифицированно помогать людям.

Реклама

FRIM@N

Теперь лифт поедет?

его еще нужно нарисовать

Uses crt, graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'c:\bp\bgi');
...
{Здесь построение изображения}
...
ReadKey;
CloseGraph;
end.

пишет ошибка 15 файл нот фаунд graph то бишь отсутствие графического модуля --,а он есть как бы драйвер egavga.bgi я скачал и засунул в папку с паскалем,в качестве построения указал координаты точки

Реклама

Пухич

Так чего по итогу? Работает графика?

Реклама

FRIM@N

секунд 20 назад нашелся модуль graph (алилуйя) оказалось нужно было прописать путь к директории в которой он хранился да и еще что бы хранился желательно вместе с ехе файлом,наткнулся на эту информацию можно сказать случайно.А до итоговой графики еще далеко я посмотрел листинги картинок....мне еще далеко

Пухич

Может в разы проще использовать Дельфи?

FRIM@N

я уже присматривался к нему меня немного мучила совесть что я взял достаточно старый язык,да и потерянный модуль графики напрягал,а чем он проще?он ведь потомок паскаля,

Пухич

Тем, что там ГУИ. И графика ИМХО проще делается, не говоря уже о куче специальных графбиблиотек (хотя это уже сложно).

Murlock

мельком прочитал тему, и не нашел, под какой системой будет запускаться обсуждаемая прога? сколько помню, WXP просто так к портам ВВ не подпускает.

Пухич

Murlock писал(а):мельком прочитал тему, и не нашел, под какой системой будет запускаться обсуждаемая прога? сколько помню, WXP просто так к портам ВВ не подпускает.

Естественно. I/O MAP никто не отменял.

Просто Фриман как-то так ВНЕЗАПНО начал писать прогу, что я не успел дать нужных рекомендаций, и судя по тому, что все заработало без плясок с generic-драйверами, у него Вин98 или старше.

FRIM@N

у мну ХР,некоторые пляски с бубном имели место при установке драйвера giveio.sys. про который вы говорили раза с 3 го встал куда нужно,а внезапно я стал писать по той причине что буквально не знал как подступится и тут нашел кусок кода буквально под свои нужды, вот и ухватился за него,сейчас устанавливаю дельфи попробую с ней попытать счастья.

Murlock

на дельфях - своя специфика. похоже на паскаль синтаксисом. но работать придётся с объектами.
а использование исключительно СОМ-порта это критично? есть более удобные и масштабируемые решения. я например использую для подобных целей
Dallas 1-wire net.
DS9097U+DS2408
адаптер в СОМ порт, и IO-регистр.

FRIM@N

мне потом это порно нужно отнести показать и сдать в техникум, а сом порт по уверениям интернетов есть почти везде, а кабель до кнопок будет 2 метра.это просто демонстрационная модель не более

Murlock

тут может получиться хрень с совместимостью. на стороннем компе тож придётся ставить giveio.sys чтоб всё работало. впрочем какую либо подобную хрень на стороннем компе придётся ставить полюбому.

FRIM@N

это вынужденные трудности,кста ти в той же статье нашел код "на дельфийском" но он не запустился

Код: Выделить всё

var
  aa,e:world;

  aa:=0;
  base:=$3F8;

  begin
    port:=base+4;{по аналогии присвоение состояния RTS}
    data:=2;{непонятно}
    outport(port,aa,data);{закрытие порта? а дальше с ним как?}
    sleep(10);{непонятно  }
    port:=base+6;{непонятно  }
    e:=inport(port) and 16;{чтение из порта?  }
    port:=base+4;{ непонятно }
    data:=0{ непонятно }
    outport(port,aa,Data);{ опять закрытие хотя его и не открывали }
  end;

пишет Error in module Unit1: Declaration of class TForm1 is missing or incorrect

\\\\\абсолютно ничего не понятно еще символ RUN стал неактивным((

при запуске вылезает 3 окна ,какое у них назначение?

Murlock

1. создаёте новый проект.
2. создаёте форму.(это всё делается само)
3. помещаете в форму объект timer
4. редактируете событие OnTimer: вводите туда исполняемый код, оторый будет исполняться с периодичностью свойства timer.interval(ms)
port:= - назначение адреса порта
outport -отправка данных(data) в порт
sleep - задержка перед следующей отправкой данных
как-то это непривычно...
попробуйте так

function InPort(PortAddr:word): byte;
{$IFDEF WIN32}
assembler; stdcall;
asm
mov dx,PortAddr
in al,dx
end;
{$ELSE}
begin
Result := Port[PortAddr];
end;
{$ENDIF}

procedure OutPort(PortAddr:
word; Databyte: byte);
{$IFDEF WIN32}
assembler; stdcall;
asm
mov al,Databyte
mov dx,PortAddr
out dx,al
end;
{$ELSE}
begin
Port[PortAddr] := DataByte;
end;
{$ENDIF}

FRIM@N

можно с пояснениями к операторам?я можно сказать первый раз за это взялся

Murlock

сверху - окно проекта в нём есть меню и набор вкладок с компонентами.от туда их можно брать и помещать в форму.
в центре экрана окно формы, как она будет выглядеть на экране после запуска(F9).
обычно слева находится инспектор объектов, в котором можно редактировать поля свойстви событий выбранного объекта