Код: Выделить всё
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.
Можно, но зачем? Так удобнее и уже привычнее.FRIM@N писал(а): можно обойтись без формы?
Код: Выделить всё
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/
а в этой статье вообще все по другому(( кому верить?не, цикл будет повторяться до закрытия окна программы.FRIM@N писал(а):end;
end." сброс порта и выход из программы
а как Вы хотите оформить вывод? тут большой простор для бурной деятельности.FRIM@N писал(а):в той версии что была написана на паскале предусматривался вывод на экран результата , а в версии для дельфи где это ?