- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ComCtrls, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Label2: TLabel;
- Edit2: TEdit;
- Label3: TLabel;
- Edit3: TEdit;
- Button1: TButton;
- ProgressBar1: TProgressBar;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- var i:cardinal;
- CalcInt, ConvMo:integer;
- begin
- ConvMo:=StrToInt(Edit3.Text)*1024;
- CalcInt:=ConvMo div StrToInt(Edit2.Text)*8;
- for i:=1 to 100 do {cette partie la c'est pour le style c'est une bar de progression qui sert a rien }
- begin
- ProgressBar1.Position:=i;
- sleep(20);
- end; //fin de la bar de progression
- showmessage('Le taux de compression a utilisé pour une vidéo de : ' + Edit3.Text + ' Mo est de : ' + IntToStr(CalcInt) + ' Kbps');
- end;
-
- end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:cardinal;
CalcInt, ConvMo:integer;
begin
ConvMo:=StrToInt(Edit3.Text)*1024;
CalcInt:=ConvMo div StrToInt(Edit2.Text)*8;
for i:=1 to 100 do {cette partie la c'est pour le style c'est une bar de progression qui sert a rien }
begin
ProgressBar1.Position:=i;
sleep(20);
end; //fin de la bar de progression
showmessage('Le taux de compression a utilisé pour une vidéo de : ' + Edit3.Text + ' Mo est de : ' + IntToStr(CalcInt) + ' Kbps');
end;
end.