Conversion de temperature

Télécharger le projet
Commenter

Description

c'est une application qui vous permette de converetire les temperatures entre differentes unités c'est pour voir et comprendre la vrais temperature qui fait dans les meteo des chainnes TV amerecain et japnnaises et quelque d'autrres payes

Source / Exemple : 


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  Tc,Tf,Tk: real;
implementation

{$R *.dfm}

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

   tc:=strtofloat(edit1.text);
   tf:=32+tc*1.8;
   tk:=tc+273.15;
   if tk<0 then  ShowMessage('Température hors limites. (T° Kelvin est positive )');
   edit2.Text:=floattostr(tf);
   edit3.Text:=floattostr(tk);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   tf:=strtofloat(edit2.text);
   tc:=(tf-32)/1.8;
   tk:=tc+273.15;
   if tk<0 then  ShowMessage('Température hors limites. (T° Kelvin est positive )');

   edit1.Text:=floattostr(tc);
   edit3.Text:=floattostr(tk);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   tk:=strtofloat(edit3.text);
   tc:=tk-273.15;
   tf:=32+tc*1.8;
     if tk<0 then  ShowMessage('Température hors limites. (T° Kelvin est positive )');

   edit1.Text:=floattostr(tc);
   edit2.Text:=floattostr(tf);
end;

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{Randomize;

Bitbtn1.Left:=  Bitbtn1.Left+random(width);     }
end;

end.

Conclusion :


c'est tres utile pour comprendre les meteo
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.