Форум РадиоКот

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

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

var
  aa,e:world;

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


    port:=base+4;
    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);

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

 var
  aa,e:world;

  aa:=0;
  base:=$3F8;
  port:=base+4;
  data:=2;
  outport(port,aa,data);
  sleep(10);
  port:=base+6;
  e:=inport(port) and 16;

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    procedure tmr1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
 var
aa,e:word;
port,base,data:word;
{.........}
aa:=0;
base:=$3F8;

begin
   port:=base+4;
   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;

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;" эта часть общая независимо от программы ее трогать не нужно дельфи создает ее сама--так?

"var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);"  это то что было создано после модуля тайм то есть то что будет после этого написано будет повторятся с периодичностью которую можно задать?
________


"aa,e:word;
port,base,data:word;
{.........}
aa:=0;
base:=$3F8;" ввод переменных и указание порта с которым будет производится работа ?
_______

"port:=base+4;
   data:=2;"   запись в RTS единицы ?
______


"outport(port,aa,data);
       sleep(10);
       port:=base+6;
       e:=inport(port) and 16;
    port:=base+4;
    data:=0;"  чтение из порта  этой единицы --так?
______

"outport(port,aa,data);
end;

end." сброс порта и выход из программы

в той версии что была написана на паскале предусматривался вывод на экран результата , а в версии для дельфи где это ?
Сейчас при запуске быстро на доли секунды появляется небольшое окно потом подчеркивает красным "aa:=0;" что это такое аа?

http://compconnect.ru/2010/04/rabota-s-com-portom-v-delphi-pri-pomoshhi-winapi/


а в этой статье вообще все по другому(( кому верить?