компоненты

← →
овен (2003-10-24 20:48) [0]

Доброе время суток!!
Посылаю Вам текст проги и прошу объяснить на примере как связать компонент ProgressBar c переменной count. Извините за назойливость надеюсь на вашу помощь.С уважением Антон.

unit termometr;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
ProgressBar1: TProgressBar;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var count: word;
label nac, konec, en;
begin
count:=23;
asm
mov dx, 201h
mov al, 0h
out dx, al

nac:
in al, dx
test al, $02
jz konec

inc count
cmp count, $FFF
jne en
mov count, 0
jmp konec

en:
jmp nac

konec:
end;

label1.Caption:="температура:"+ floattostrf(count,fffixed,4,1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.close;
end;

end.

← →
Tihas © (2005-01-22 11:35) [1]

Интересно, что тебе мешает просто присвоить значение
position у ProgressBar. Ну и собственно всё.

← →
Серега © (2005-02-25 19:12) [2]

А прошло всего лишь чуть больше года :)

LOL :)))

компоненты Найти похожие ветки