Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
unit Blikac;
2
 
3
interface
4
 
5
uses PortInc,Windows, Messages, SysUtils, Classes,
6
  Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
7
 
8
type
9
  TForm1 = class(TForm)
10
    ScrollBar1: TScrollBar; Edit1: TEdit;
11
    Timer1: TTimer;
12
    procedure ScrollBar1Change(Sender: TObject);
13
    procedure FormCreate(Sender: TObject);
14
    procedure Timer1Timer(Sender: TObject);
15
  end;
16
 
17
var
18
  Form1: TForm1;
19
 
20
implementation
21
{$R *.DFM}
22
var Vystup: Integer;
23
 
24
procedure TForm1.ScrollBar1Change(Sender: TObject);
25
begin
26
  Edit1.Text := floattostr(Scrollbar1.Position)+ ' ms';
27
  Timer1.Interval := Scrollbar1.Position
28
end;
29
 
30
procedure TForm1.FormCreate(Sender: TObject);
31
begin
32
  OpenCom (Pchar('COM1:9600,N,8,1'));
33
  Timer1.Enabled := true;
34
  Vystup := 0;
35
end;
36
 
37
procedure TForm1.Timer1Timer(Sender: TObject);
38
begin
39
  Vystup := (Vystup + 1) AND 1;
40
  DTR (Vystup);
41
  RTS (Vystup);
42
end;
43
 
44
end.