| 0,0 → 1,59 |
|---|
| unit Unit1; |
| |
| interface |
| |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ExtCtrls, StdCtrls,PORTINC, ComCtrls; |
| |
| type |
| PoleTeplot = array [1..544] of byte; |
| |
| type |
| TForm1 = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| Button2: TButton; |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| |
| var |
| Form1: TForm1; |
| Teplota: PoleTeplot; |
| SouborTeplot: File of byte; |
| implementation |
| |
| {$R *.dfm} |
| |
| procedure TForm1.Button1Click(Sender: TObject); |
| var |
| i: byte; |
| n: integer; |
| begin |
| i:=0; |
| for n:=1 to 544 do |
| begin |
| Teplota[n] := i; |
| i:=(i+1) mod 256; |
| end; |
| end; |
| |
| procedure TForm1.Button2Click(Sender: TObject); |
| var |
| o: byte |
| p: byte |
| begin |
| { Function OPENCOM "COM1,1200,N,8,1" |
| for o:=1 to 50 do |
| begin |
| ProgressBar1:= p |
| p:=(p+1) |
| end; } |
| end; |
| |
| end. |