CITATIONS + EUROS CONVERSION

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    PHRASES1: TMenuItem;
    APROPOS1: TMenuItem;
    Button1: TButton;
    memo1: TMemo;
    ouverture1: TMenuItem;
    Fermer1: TMenuItem;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure APROPOS1Click(Sender: TObject);
    procedure ouverture1Click(Sender: TObject);
    procedure Fermer1Click(Sender: TObject);

  private
    { Déclarations privées }
  public
    { Déclarations publiques }

    nombreSaisi, nombre2, nombre3: real;
    erreur, number : integer;
    D0, D1, D2, D3, D4, D5, D6: string;
    end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Const nbCitations = 8;
var tab_citation : array[0..nbCitations] of string;

begin
    randomize;
    tab_citation[0] := ' Un homme qui ne se surpasse jamais, n est pas un homme';
    tab_citation[1] :=' Plus je bosse au lidl et plus je deviens abruti ';
    tab_citation[2] :=' on devient programmeur en tapant au clavier, tout comme nageur en sautant dans l eau';
    tab_citation[3] :=' l homme est paresseux de nature';
    tab_citation[4] :=' la nuit est faite pour dormir';
    tab_citation[5] :=' (o) (o), phrases à venir';
    tab_citation[6] :=' designed by Lénine';

   memo1.Text := tab_citation[random(nbCitations)];
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

val(edit1.Text,nombreSaisi,erreur);
edit2.Text:=  floattostr(RoundTo(nombreSaisi*6.55957,-2)) + ' francs';
edit3.Text:=  floattostr(RoundTo(nombreSaisi/6.55957,-2)) + ' euros';
end;

procedure TForm1.APROPOS1Click(Sender: TObject);
begin
  form2.show;
end;

procedure TForm1.ouverture1Click(Sender: TObject);
begin
     ouverture1.Checked := true;
     fermer1.Checked := false;
     memo1.Visible := true;   // affichage de la fenêtre des citations
     button1.Visible := true; // affichage du bouton random
     button3.Visible := true; // affichage du bouton pour sortir des citations
     memo1.font.Size := 30;
     memo1.Font.Color := clpurple;
     memo1.Font.Name := 'arial';
     memo1.Text := 'Qui ne tente rien, n a rien, qui tente n a rien non plus défois, Lénine ';
     form1.AutoSize := true;
end;

procedure TForm1.Fermer1Click(Sender: TObject);
begin
     memo1.Visible := false;
     button1.Visible := false;
     button3.Visible := false;
     ouverture1.Checked := false;
     fermer1.Checked :=true ;
     edit1.SetFocus ; // redonne le focus pour une nouvelle saisie de montant à convertir
end;

end.

Télécharger le zip