Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 5 → Rev 6

/programy/delphi/mlzic/mlzic2/Blikac.~pas
0,0 → 1,71
unit Blikac;
 
interface
 
uses PortInc,Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
 
type
TForm1 = class(TForm)
ScrollBar1: TScrollBar; Edit1: TEdit;
Timer1: TTimer;
ScrollBar2: TScrollBar;
Edit2: TEdit;
StaticText1: TStaticText;
StaticText2: TStaticText;
CheckBox1: TCheckBox;
procedure ScrollBar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
end;
 
var
Form1: TForm1;
 
implementation
{$R *.DFM}
var Vystup: Integer;
 
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Edit1.Text := floattostr(Scrollbar1.Position)+ ' us';
end;
 
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Edit2.Text := floattostr(Scrollbar2.Position)+ ' us';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenCom (Pchar('COM1:9600,N,8,1'));
//!!!!
Timer1.Enabled := true;
Vystup := 0;
Timer1.Interval := 1000;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var n: integer;
begin
for n:=1 to 5000000 div(Scrollbar1.Position+Scrollbar2.Position) do
begin
DTR (1);
// RTS (1);
// delayus(Scrollbar1.Position);
DTR (0);
// RTS (0);
// delayus(Scrollbar2.Position);
end;
DTR (0);
RTS (0);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then DTR (1) else DTR(0);
end;
 
end.