Текущий архив: 2005.09.04;
Скачать: CL | DM;
Вниз
компоненты Найти похожие ветки
← →
овен (2003-10-24 20:48) [0]Доброе время суток!!<br/>Посылаю Вам текст проги и прошу объяснить на примере как связать компонент ProgressBar c  переменной count. Извините за назойливость надеюсь на вашу помощь.С уважением Антон. <br/> <br/>unit termometr;<br/> <br/>interface<br/> <br/>uses<br/>  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br/>  Dialogs, ExtCtrls, StdCtrls, ComCtrls;<br/> <br/>type<br/>  TForm1 = class(TForm)<br/>    Timer1: TTimer;<br/>    Label1: TLabel;<br/>    Label2: TLabel;<br/>    Button1: TButton;<br/>    ProgressBar1: TProgressBar;<br/>    procedure Timer1Timer(Sen<span style="background-color: yellow">der</span>: TObject);<br/>    procedure Button1Click(Sen<span style="background-color: yellow">der</span>: TObject);<br/>  private<br/>    { Private declarations }<br/>  public<br/>    { Public declarations }<br/>  end;<br/> <br/>var<br/>  Form1: TForm1;<br/> <br/>implementation<br/> <br/>{$R *.dfm}<br/> <br/><br/>    procedure TForm1.Timer1Timer(Sen<span style="background-color: yellow">der</span>: TObject);<br/>var count: word;  <br/>label nac, konec, en;  <br/>begin<br/>count:=23;    <br/> asm<br/>mov  dx, 201h   <br/>mov  al, 0h    <br/>out  dx, al<br/> <br/>nac:     <br/>in   al, dx    <br/>test al, $02   <br/>jz   konec<br/> <br/>inc  count    <br/>cmp  count, $FFF   <br/>jne  en    <br/>mov  count, 0<br/>jmp  konec<br/> <br/>en:<br/>jmp  nac    <br/> <br/>konec:<br/>end;<br/> <br/><br/> <br/>label1.Caption:="температура:"+ floattostrf(count,fffixed,4,1);<br/>end;<br/> <br/>procedure TForm1.Button1Click(Sen<span style="background-color: yellow">der</span>: TObject);<br/>begin<br/>     form1.close;<br/>end;<br/> <br/>end.
← →
Tihas © (2005-01-22 11:35) [1]Интересно, что тебе мешает просто присвоить значение<br/>position у ProgressBar. Ну и собственно всё.
← →
Серега © (2005-02-25 19:12) [2]А прошло всего лишь чуть больше года :)
← →
Ozone © (2005-02-28 14:33) [3]LOL :)))
Страницы: 1 вся ветка
Текущий архив: 2005.09.04;
Скачать: CL | DM;
Память: 0.66 MB
Время: 0.04 c
