Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1 
unit Unit1;
2 
 
3 
interface
4 
 
5 
uses
6 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 
  Dialogs, ExtCtrls, StdCtrls,PORTINC, ComCtrls;
8 
 
9 
type
10 
  PoleTeplot = array [1..544] of byte;
11 
 
12 
type
13 
  TForm1 = class(TForm)
14 
    PaintBox1: TPaintBox;
15 
    Button1: TButton;
16 
    Button2: TButton;
17 
    procedure Button1Click(Sender: TObject);
18 
    procedure Button2Click(Sender: TObject);
19 
  private
20 
    { Private declarations }
21 
  public
22 
    { Public declarations }
23 
  end;
24 
 
25 
var
26 
  Form1: TForm1;
27 
  Teplota: PoleTeplot;
28 
  SouborTeplot: File of byte;
29 
implementation
30 
 
31 
{$R *.dfm}
32 
 
33 
procedure TForm1.Button1Click(Sender: TObject);
34 
var
35 
  i: byte;
36 
  n: integer;
37 
begin
38 
 i:=0;
39 
 for n:=1 to 544 do
40 
 begin
41 
   Teplota[n] := i;
42 
   i:=(i+1) mod 256;
43 
 end;
44 
end;
45 
 
46 
procedure TForm1.Button2Click(Sender: TObject);
47 
var
48 
  o: byte
49 
  p: byte
50 
begin
51 
{  Function OPENCOM "COM1,1200,N,8,1"
52 
  for o:=1 to 50 do
53 
  begin
54 
  ProgressBar1:= p
55 
  p:=(p+1)
56 
  end; }
57 
end;
58 
 
59 
end.