Скачать: CL | DM;

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

← →
овен   (2003-10-24 20:50) [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.

---

← →
ISLANDER   (2003-10-24 23:06) [1]

Вариант 1: Вместо переменной count везде поставить ProgressBar.Progress

Вариант 2: (если первый не поможет) обойтись без ассемблерных вставок и сделать тоже самое.

Вариант 3: В тексте после каждого изменения переменной count писать ProgressBar.Progress = count

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c